0 N=1:GOSUB58:PRINT"[147]":POKE53281,0
1 IFPEEK(45)+PEEK(46)*256<>4591THEN76
2 POKE45,0:POKE46,157:POKE47,0:POKE48,157:POKE49,0:POKE50,157
3 M=4608:NT=0:NS=0:BP=-1:E=-1:T=0:S=0:Z$=CHR$(0)
4 PRINTCHR$(142)+"FILENAME = ";
5 CR$=CHR$(13):DL$=CHR$(20):F$="":FL=0
6 GETI$:IFI$=""THEN6
7 I=ASC(I$)
8 IFFLANDI=13THEN16
9 IFFLANDI=20THEN13
10 IFFL=16ORI<32ORI>122THEN6
11 IFI=34ORI=36ORI=42ORI=44ORI=58ORI=59ORI=63ORI=64ORI=96THEN6
12 FL=FL+1:F$=F$+I$:GOTO14
13 FL=FL-1:F$=LEFT$(F$,FL)
14 PRINTI$;:GOTO6
15 IFFL=0THEN6
16 PRINTCR$+"DEVICE#  = ";
17 GETD$:IFD$<>"1"ANDD$<>"8"ANDD$<>"9"THEN17
18 PRINTD$;:D=VAL(D$)
19 GETDD$:IFDD$=CR$ANDD$<>"1"THEN25
20 IFDD$=DL$THENPRINTDD$;:GOTO17
21 IFDD$<"0"ORDD$>"5"THEN19
22 PRINTDD$;:D=VAL(D$)*10+VAL(DD$)
23 GETI$:IFI$=DL$THENPRINTI$;:GOTO19
24 IFI$<>CR$THEN23
25 OPEN15,D,15:CLOSE15
26 IFST=-128THENPRINT"[147]NO DEVICE, NO DICE":END
27 OPEN15,D,15:PRINT#15,"R0:"+F$+"=0:"+F$
28 GOSUB75:IFEN<>63THENPRINT"[147]"+EM$:GOTO52
29 OPEN2,D,2,"#"
30 NT=255:GOSUB74:IFEN<>66THENNT=1:NS=1:GOTO33
31 NT=40:GOSUB74:IFEN<>66THENNS=3:GOTO33
32 NT=18:NS=1
33 PRINT#15,"U1";2;0;NT;NS:BP=-1
34 GET#2,NT$,NS$:NT=ASC(NT$+Z$):NS=ASC(NS$+Z$)
35 GET#2,FT$:FT=ASC(FT$+Z$)
36 IFFT=129ORFT=193THEN41
37 IFBPTHEN40
38 IFNT=0THENPRINT"[147]ILLEGAL FILETYPE":GOTO52
39 RESTORE:GOTO33
40 READBP:READBP:PRINT#15,"B-P";2;BP:GOTO35
41 GOSUB57:FORX=1TOLEN(F$):GET#2,X$
42 IFX$=MID$(F$,X,1)THENNEXT:GOTO44
43 X=LEN(F$):NEXT:GOTO40
44 READBP:PRINT#15,"B-P";2;BP:GET#2,LB$,HB$
45 FL=ASC(LB$+Z$)+(ASC(HB$+Z$)*256)
46 IFFL>0ANDFL<139THENE=0:GOTO48
47 PRINT"[147]ILLEGAL FILELENGTH":GOTO52
48 N=23:GOSUB58
49 PRINT#15,"U1";2;0;T;S
50 GOSUB57:C=S:IFTTHENC=255
51 FORX=2TOC:GET#2,C$:POKEM,ASC(C$+Z$):M=M+1:NEXT:IFTTHEN49
52 CLOSE2:CLOSE15:IFETHENEND
53 H=INT(M/256):L=M-H*256
54 POKE4348,0:POKE4349,18:POKE4350,L:POKE4351,H:CLR
55 POKE45,PEEK(4350):POKE46,PEEK(4351):POKE47,PEEK(4350)
56 POKE48,PEEK(4351):POKE49,PEEK(4350):POKE50,PEEK(4351):END
57 GET#2,T$,S$:T=ASC(T$+Z$):S=ASC(S$+Z$):RETURN
58 POKE53280,0:POKE53281,1
59 M$="  [208]RESS THE [193][206][217] KEY   [208]ATIENCE IS A VIRTUE. "
60 PRINT"[147]"+CHR$(14);
61 FORY=4TO19:POKE214,Y:PRINT
62 PRINTTAB(8)"                       [146][152][161]":NEXT
63 POKE214,4:PRINT:PRINTTAB(31)"[187]"
64 FORY=11TO19STEP4:POKE214,Y:PRINT
65 PRINTTAB(8)"[152][188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][190][157][187]";:NEXT:PRINT"[157] "
66 POKE214,5:PRINT:PRINTTAB(9)"-  [210] [193] [205] [211] [208] [197] [197] [196]  -"
67 POKE214,7:PRINT:PRINTTAB(10)"-   [210] [197] [193] [196] [197] [210]   -"
68 POKE214,9:PRINT:PRINTTAB(11)"-  -  V 2.0  -  -"
69 POKE214,13:PRINT:PRINTTAB(10)"([195])1996 [205]YKE [195]ARTER"
70 POKE214,17:PRINT:PRINTTAB(9)""+MID$(M$,N,22)+"[144]"
71 IFN=23THENRETURN
72 GETI$:IFI$=""THEN72
73 PRINT"";:RETURN
74 PRINT#15,"U1";2;0;NT;NS
75 INPUT#15,EN,EM$:RETURN
76 FORX=251TO254:POKEX,PEEK(X+4097):NEXT:PRINT"[147]";:POKE53281,0
77 SYS4352:END:D=PEEK(186):LOAD"",D,1
78 DATA 30,34,62,66,94,98,126,130,158,162,190,194,222,226,254,0
79 POKE45,239:POKE46,17:RUN