1 FORT=0TO3:A=USR(33),T:NEXT
2 X1=24:X2=256:Y1=50:Y2=221
3 A=USR(39),0,35:A=USR(39),1,36:A=USR(39),2,37:A=USR(39),3,38
4 A=USR(34),X1,Y1,0:A=USR(34),X2,Y1,1:A=USR(34),X1,Y2,2:A=USR(34),X2,Y2,3
5 FORT=0TO3:A=USR(32),T:NEXT
6 GETA$:IFA$=""THEN11
7 IFA$="!"THENSYS36867:GOTO6
8 IFA$="="THENSYS36882:GOTO6
9 IFA$="&"THENSYS36879:GOTO6
10 GOTO49
11 X1=X1+USR(121)*8
12 Y1=Y1-USR(122)*8
13 IFX1<24THENX1=24
14 IFX1>88THENX1=88
15 IFY1<50THENY1=50
16 IFY1>58THENY1=58
17 X2=X1+232:Y2=Y1+171
18 A=USR(34),X1,Y1,0:A=USR(34),X2,Y1,1:A=USR(34),X1,Y2,2:A=USR(34),X2,Y2,3
19 A=USR(117):IFA<>16THEN6
20 FORT=0TO3:A=USR(33),T:NEXT
21 A=USR(34),0,Y,6:A=USR(34),X,255,7
22 A=USR(0),0,1,4:A=USR(1):A=USR(17):A=USR(19):A=USR(21)
23 FI$="":PRINTCHR$(14)"[147][211][193][214][197] [210][204][197]":GOSUB52
24 IFD0=D1THENPRINT"[201]NSERT [198][201][204][197] DISK IN DRIVE";D1
25 PRINT"  $ FOR DIRECTORY."
26 INPUT"  [198]ILE [206]AME: ";FI$:PRINT"[147]"
27 IFFI$="$"THENSYS36906:FI$="":GOTO26
28 IFLEN(FI$)=<1THEN38
29 IFLEN(FI$)>12THENFI$=LEFT$(FI$,12)
30 FI$=FI$+".RLE,S,W"
31 A=USR(0),1,7,14:A=USR(1):A=USR(16):A=USR(34),16,Y,6:A=USR(34),X,231,7
32 POKE183,LEN(FI$)
33 FORT=1TOLEN(FI$):POKE827+T,ASC(MID$(FI$,T,1)):NEXT
34 POKE781,(X1-24)/8:POKE782,(Y1-50)/8
35 SYS32798
36 A=USR(0),0,1,4:A=USR(33),0:A=USR(34),0,Y,6:A=USR(34),X,255,7:A=USR(17)
37 A=USR(1):OPEN15,D1,15,"UI:":CLOSE15:PRINTCHR$(14)
38 IFD0=D1THENPRINT"[201]NSERT [208][210][207][199][210][193][205] DISK IN DRIVE";D0
39 PRINT"[208]RESS A KEY."
40 PRINT"  '!' TO SAVE SCREEN 2 "
41 PRINT"  '*' TO RETRY"
42 GETA$:IFA$=""THEN42
43 IFA$="!"THENSYS36867:PRINT"[147]--[211]CREENS SWITCHED--":FI$=""
44 IFA$="!"THENPRINT"[147]":A=USR(0),1,7,14:A=USR(1):A=USR(16):GOTO1
45 IFA$="*"THEN23
46 OPEN15,D0,15:OPEN2,D0,2,"CMND,P,R":CLOSE2:GET#15,E:CLOSE15
47 IFE<>0THENPRINT"[208]ROGRAM DISK NOT PRESENT.":GOTO38
48 PRINT"[147]":A=USR(0),1,7,14:A=USR(1):A=USR(16)
49 FORT=0TO3:A=USR(33),T:NEXT
50 A=USR(39),0,16:A=USR(39),1,17:A=USR(39),2,17:A=USR(39),3,17
51 A=USR(34),8,Y,6:A=USR(34),X,231,7:LOAD"CMND",D0
52 OPEN15,D0,15,"UI:":CLOSE15:RETURN