1 'FLIP.BA by Fred Edelkamp, modified by Robert Benson
10 IFPEEK(1)=171THENCLEAR50,54080:A=55376:B=54080:Z=58980ELSECLEAR50,57408:A=58704:B=57408:Z=62297
11 IFPEEK(Z)=229ANDPEEK(Z+1)=94ANDPEEK(Z+239)=4ANDPEEK(Z+240)=195THENPRINT@57,"WARNING":GOTO13
12 BEEP:CLEAR50,MAXRAM:PRINT@130,"Floppy Not Installed":END
13 PRINT@126,"Do not run FLIP again without":PRINT@166,"turning drive OFF momentarily":PRINT@206,"to reboot its internal system"
14 DATA84,229,0,68,224,1
15 DATA84,229,1,68,224,0
16 DATA84,216,0,68,211,1
17 DATA84,216,1,68,211,0
18 FORY=3TO4
19 IFY=3THENIFPEEK(1)=171THENRESTORE16ELSERESTORE14
20 IFY=4THENIFPEEK(1)=171THENRESTORE17ELSERESTORE15
21 FORX=ATOA+2:READJ:POKEX,J:NEXTX
22 CALLZ,Y,A
23 IFPEEK(A)>0THENBEEP:CLEAR50,MAXRAM:CLS:PRINT@133,"Drive Not Ready":END
24 FORX=BTOB+2:READJ:POKEX,J:NEXTX
25 CALLZ,Y,B
26 NEXTY:CLEAR50,MAXRAM:MENU