1 POKE40448,255:FORT=1TO4:READA:POKE828+T,A:NEXT:GOTO16
2 DATA46,70,73,71
3 X=X+USR(121):Y=Y-USR(122)
4 IFX>331THENX=X-320
5 IFX<12THENX=X+320
6 IFY>239THENY=Y-200
7 IFY<40THENY=Y+200
8 A=USR(34),X,Y,0:A=USR(34),16,Y,6:A=USR(34),X,231,7:RETURN
9 OPEN15,D0,15,"UI:"
10 CLOSE15:RETURN
11 A=USR(117):IF(A<>16)ORF=0THENRETURN
12 IFPEEK(O-5)=1THENC=1:GOTO37
13 SYS36864:POKEO-3,0:IFX>267THENPOKEO-3,1:POKEO-2,X-268:GOTO15
14 POKEO-2,X-12
15 POKEO-4,Y-40:POKEO-5,1:SYSO:RETURN
16 A=USR(33),0:A=USR(34),0,Y,6:A=USR(34),X,255,7:A=USR(0),0,1,4
17 A=USR(21):A=USR(17):A=USR(19):A=USR(1):O=3600:F=0:C=0
18 GOSUB9:PRINTCHR$(14)"[147][198]ILE DISK IS IN DRIVE:  ";D1;
19 GETA$:IFA$=""THEN19
20 IF(D1=8)AND(A$="9")THEND1=9:POKE36863,D1
21 IF(D1=9)AND(A$="8")THEND1=8:POKE36863,D1
22 PRINT"[157][157]";D1
23 PRINT"[147]":A=USR(0),1,7,14:A=USR(1):A=USR(16):GOSUB9
24 R=1:T=18:POKEO-1,R:A=USR(39),0,18:A=USR(32),0
25 GOSUB11:GOSUB3:GETA$:IFA$=""THEN25
26 IFA$="\"THENR=R+1:T=T+1:IFR=5THENR=1:T=18
27 IFA$="\"THENA=USR(39),0,T:POKEO-1,R:GOTO25
28 IFA$=""THENSYS36885:GOTO25
29 IFA$=CHR$(13)THEN40
30 IFA$="!"THENSYS36867:GOTO25
31 IFA$="$"ORA$=CHR$(34)THEN25
32 POKE828,ASC(A$)
33 POKE40448,255
34 SYS36903
35 OPEN15,D1,15,"UI:"
36 CLOSE15
37 F=1:POKEO-2,12:POKEO-3,0:POKEO-4,10:POKEO-5,0:SYSO
38 IFC=1THENC=0:RETURN
39 GOTO25
40 A=USR(33),0:A=USR(34),0,Y,6:A=USR(34),X,255,7:A=USR(0),0,1,4
41 A=USR(1):A=USR(17):A=USR(19):A=USR(21):GOSUB9
42 PRINT"[147]"CHR$(14);:IFD0=D1THENPRINT"[201]NSERT [208]ROGRAM DISK AND"
43 PRINT"[208]RESS A KEY."
44 GETA$:IFA$=""THEN44
45 OPEN15,D0,15,"UI:"
46 OPEN2,D0,2,"CMND,P,R"
47 CLOSE2:GET#15,E
48 CLOSE15
49 IFE<>0THENPRINT"[208]ROGRAM DISK NOT PRESENT.":GOTO44
50 PRINT"[147]":A=USR(0),1,7,14:A=USR(1):A=USR(16):A=USR(39),0,16:GOSUB9
51 LOAD"CMND",D0