1 REM AUTOFILE EDITOR V1.1 (C)1991 C.M.D.
2 CLR:POKE51,0:POKE55,0:POKE52,80:POKE56,80:XT=20480:REM 64 SETUP
10 POKE53280,0:POKE53281,0:PRINT"[147]    [193] U T O F I L E   [195] R E A T O R"
20 PRINT"[159][211]AVE ON WHICH DEVICE?   [157][157]";:LI=2:GOSUB630:D=VAL(W$)
30 IFD<8ORD>29THENPRINT"[145][145][145]":GOTO20
40 PRINT
50 PRINT"[159][208]ARTITION [206]UMBER?    [157][157][157]";:LI=3:GOSUB630:P=VAL(W$)
60 IFP<0ORP>254THENPRINT"[145][145][145]":GOTO50
70 PRINT
80 PRINT"[159][211]UBDIR IF ANY: ";:LI=16:GOSUB630:S$=W$
90 PRINT
100 PRINT"[159][197]NTER YOUR NAME OR YOUR ONE LINER BELOW":LI=39:GOSUB630:J$=W$
110 CLOSE15:OPEN15,D,15
120 F$="@"+MID$(STR$(P),2)+"//"+S$+":RAMBOOT C000"
130 OPEN1,D,1,F$+",P,W"
140 PRINT:PRINT:INPUT#15,A$,B$,C$,D$:PRINTA$","B$","C$","D$
150 PRINT:PRINT"[215]RITING AUTOFILE TO DISK..."
160 GOSUB180:PRINT#1,J$+CHR$(0);:CLOSE1
170 INPUT#15,A$,B$,C$,D$:PRINTA$","B$","C$","D$
171 K$="1":K=1:N$=MID$(F$,2):LF=0:TF=0:DV=D:AL=0:AH=192:TR=0:SE=6:A=49152
172 XT=20480:AD=XT:GOTO1360
180 RESTORE
190 READY:IFY<>999THENPRINT#1,CHR$(Y);:X=X+1:GOTO 190
200 RETURN
630 W$="":T=0:LW=0:IFLI=0THENLI=35
640 GETA$:AS=ASC(A$+CHR$(0)):IFTI>15THENGOSUB730
650 IFAS=34THEN640
660 IF(A$<" "ORA$>"Z")AND(A$<"[193]"ORA$>"[218]")ANDAS<>13ANDAS<>20THEN640
670 LW=LEN(W$):IFAS=13THENT=-1:GOSUB730:RETURN
680 IFLW=LITHENIFAS<>20ANDAS<>13THEN640
690 IFAS=20THENIFLW=0THEN640
700 IFAS=20THENW$=LEFT$(W$,LEN(W$)-1):T=0:GOSUB730:GOSUB730:PRINT"[146][157] [157]";:GOTO640
710 W$=W$+A$:LW=LEN(W$):POKE212,0:PRINT"[146]"A$;:GOSUB730
720 GOTO640
730 T=NOTT:POKE199,-T:PRINT" [157]";:TI$="000000":RETURN
1360 GOSUB1570:POKEAD+((K-1)*128),ABS(1-INT(LF/128))*128:GOSUB1620
1370 POKEAD+((K-1)*128)+1,ABS(1-INT(TF/128))*128:GOSUB1620
1400 POKEAD+((K-1)*128)+3,INT(A/256):POKEAD+((K-1)*128)+2,A-(INT(A/256)*256)
1410 GOSUB1620
1430 POKEAD+((K-1)*128)+4,DV:GOSUB1620:
1540 FORI=0TOLEN(N$)-1:POKEAD+((K-1)*128)+8+I,ASC(MID$(N$,I+1,1)):NEXT
1550 POKEAD+((K-1)*128)+8+LEN(N$),0:GOSUB1620:GOTO2000
1560 END
1570 REM READ SECTOR TO BUFFER
1580 SYS57513:POKE56865,TR:POKE56866,SE:POKE56867,AD-(INT(AD/256)*256)
1590 POKE56868,INT(AD/256):POKE56869,255:POKE56864,128
1600 SYS65057
1610 RETURN
1620 REM WRITE BUFFER TO SECTOR
1630 SYS57513:POKE56865,TR:POKE56866,SE:POKE56867,AD-(INT(AD/256)*256)
1640 POKE56868,INT(AD/256):POKE56869,255:POKE56864,144
1650 SYS65057
1660 RETURN
1670 FORI=0TO21:POKE828+I,8+I:NEXT
1680 IFDV<8ORDV>29ORDV=8THEN1700
1690 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
1700 A$="PRESENTER":GOSUB1710:A$="HELLO CONNECT"
1710 FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
1720 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN1740
1730 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN1760
1740 NEXT:IFA$="PRESENTER"THENRETURN
1750 PRINT"[147]":POKE53272,23:POKE186,8:POKE2048,0:POKE44,8:POKE43,1:END
1760 A$="HELLO CONNECT":Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
1770 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
1780 PRINT"P[207]53272,23:RUN:":POKE631,13:POKE632,13:POKE198,2:END
2000 PRINT:PRINT"[196]ONE! [193]NY KEY FOR [204][207][193][196][211][212][193][210].
2010 [161]A$:[139]A$[178]""[167]2010
2020 [137]1670
4020 [131]0,192
4030 [131] 160,039,185,120,004,153,160
4040 [131] 004,169,032,153,120,004,185
4050 [131] 040,004,153,120,004,169,032
4060 [131] 153,040,004,169,003,153,120
4070 [131] 216,153,160,216,136,016,223
4080 [131] 160,000,185,128,193,240,003
4090 [131] 200,208,248,152,074,133,251
4100 [131] 169,020,056,229,251,168,162
4110 [131] 001,024,032,240,255,160,000
4120 [131] 185,128,193,240,006,032,210
4130 [131] 255,200,208,245,160,000,140
4140 [131] 033,208,140,032,208,162,005
4150 [131] 160,000,024,032,240,255,185
4160 [131] 239,192,201,255,240,006,153
4170 [131] 167,002,200,208,243,169,167
4180 [131] 133,176,169,002,133,177,169
4190 [131] 000,133,155,169,019,032,210
4200 [131] 255,160,160,169,007,145,243
4210 [131] 136,208,251,162,000,160,039
4220 [131] 177,209,009,128,145,209,189
4230 [131] 041,193,145,243,136,016,242
4240 [131] 169,013,032,210,255,232,224
4250 [131] 003,208,230,169,003,141,134
4260 [131] 002,160,000,185,044,193,240
4270 [131] 006,032,210,255,200,208,245
4280 [131] 160,024,185,217,000,009,128
4290 [131] 153,217,000,136,016,245,160
4300 [131] 000,032,208,192,160,012,032
4310 [131] 208,192,160,022,032,208,192
4320 [131] 160,030,076,208,192,169,001
4330 [131] 153,200,216,153,240,216,200
4340 [131] 153,200,216,153,240,216,160
4350 [131] 039,169,121,153,000,004,169
4360 [131] 120,153,080,004,136,016,243
4370 [131] 096,080,207,053,051,051,055
4380 [131] 048,044,048,013,000,064,036
4390 [131] 058,042,013,000,082,213,058
4400 [131] 013,000,076,201,058,013,000
4410 [131] 080,207,053,051,051,055,049
4420 [131] 044,048,013,000,064,084,013
4430 [131] 000,064,032,034,067,068,058
4440 [131] 013,000,064,032,032,034,083
4450 [131] 058,000,255,001,015,012,013
4460 [131] 013,070,049,058,032,078,079
4470 [131] 082,077,065,076,032,032,070
4480 [131] 051,058,032,068,073,082,032
4490 [131] 032,032,070,053,058,032,082
4500 [131] 085,078,032,070,055,058,032
4510 [131] 076,073,083,084,013,070,050
4520 [131] 058,032,084,085,082,066,079
4530 [131] 032,032,032,070,052,058,032
4540 [131] 084,089,080,069,032,032,070
4550 [131] 054,058,032,067,068,032,032
4560 [131] 070,056,058,032,083,058,070
4570 [131] 073,076,069,013,014,000
4590 [131] 999