3 POKE816,165:POKE817,244
4 IFLDTHEN112
5 POKE53280,6:POKE53281,0:PRINT"[147]":S$=""
7 XL$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
10 PRINT""XL$CHR$(13)"[158][196]ISKWRITER [205]ENU"
15 PRINTS$"[198][146]ORMAT A [198][197][197][196][194][193][195][203] DISK FROM A BLANK"
20 PRINTS$"[197][146]NTER [196]ISKWRITER [197]DITOR"
25 PRINTS$"[210][146]ETURN TO [204]OADSTAR"
30 PRINT"[159][208]RESS [198], [197], OR [210]
32 [153]""XL$
35 [141]55000:[139]R$[179][177]"E"[175]R$[179][177]"R"[175]R$[179][177]"F"[167]35
40 [139]R$[178]"F"[167][141]50000:[160]15:[156]:[137]5
45 [139]R$[178]"E"[167]110
50 [159]15,8,15,"R0:SETUP=SETUP":[132]15,E:[160]15:[139]E[179][177]63[167]60
55 [151]56,160:[151]650,0:[151]808,237:[156]:[147]"HELLO CONNECT",8
60 [153]"DEF(null)LEASE (null)LACE (null)OADSTAR (null)IDE 2 IN STR$RIVE!":[129]T[178]1[164]1800:[130]:[137]5
100 [151]650,255:[151]808,239:[153]"";:[137]110
101 XX[178]0:[139]XY[179]760[167][142]
102 [153]"(null)UT OF LINES!!!":[129]T[178]1[164]500:[130]:[153]"ON                 "
103 XX[178][171]1
104 [142]
110 [139][194](49156)[179][177]34[167]40000
112 [153]" RIGHT$NSERT YOUR ASCEEDBACK DISK IN THE DRIVE  AND PRESS A KEY."
113 [151]198,0:[146]198,1:[161]T$
115 LD[178]0: [141]125:[151]55,0:[151]56,39:[156]:S[178]10000:[151]53272,23
120 XL$[178]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN":[137]135
125 [151]1020,1:[151]1021,19:[151]1022,0:[151]1023,39:[142]
130 :
135 IPRC[178]49447 :LSAV[178]49429: XD$[178]""
140 MTTP[178]49432 :MBOT[178]49435
145 SDWN[178]49414 :SCUP[178]49411
150 SFIL[178]49417 :LFIL[178]49420
155 LMOV[178]49441 :MWIP[178]49438
160 DCHR[178]49423 :ICHR[178]49426
165 WWRP[178]49444 :CLSM[178]49408
170 MDEL[178]49450 :MINS[178]49453
175 WCHK[178]49456 :PRNT[178]49459
180 [158] MWIP
182 [141]885
185 [141]770
190 [150][165]S(X)[178]X[172]40[170]9960
195 [151]646,12:[158] CLSM:[141]340:[141]445:LN[178]1:[137]200
200 PS[178]1465:[151]53272,23:T$[178]"X":[141]720:[137]210
205 [143] *
210 [161]C$:[139]C$[179][177]"" [167]230
215 [151]PS,[194](PS)[176]128
220 [161]C$:[139]C$[179][177]"" [167]230
225 [151]PS,[194](PS)[175]127:[137]210
230 [139]C$[178]""[167][141]680:[141]450:[138]
231 [151]150,[198](C$):[158]IPRC:[139] [194](150)[178]0[167]310
232 [145][194](151)[137]236,250,255,260,265,270,275,280,285,290,295,300,305,306
235 [137]220
236 XY[178]LN:[141]101:[139]XX[167]245:[143] CR
240 [151]PS,[194](PS)[175]127:PS[178]1465:[158]LSAV,LN:LN[178]LN[170]1:[158] SCUP:[158] MBOT,LN[170]8
245 [137]320
250 [141]435:[137]220:INS CHAR
255 [141]370:[137]220:CRS LT
260 [141]385:[137]220:CRS RT
265 [141]395:[137]220:CRS UP
270 [141]420:[137]220:CRS DN
275 [141]510:[137]220:[174]D LINE DEL
280 [141]565:[137]220:[174]I LINE INS
285 [137]220
290 [141]800:[141]725:[137]220:[174]P [153]ER
295 [141]350:[137]220:DEL CHAR
300 [137]220:[174]X EXIT
305 [141]885:[137]220:[174]H HELP
306 [141]1000:[137]220:[174]F FUNCTI[145]S
310 LP[178][194](49151[170][198](C$))
315 [151]PS,LP:PS[178]PS[170]1:[139]PS[178]1503[167] PS[178]1465:[141]470:[158]LSAV,LN:[158] MBOT,LN[170]8
320 [139]LN[177]NL[167]NL[178]LN
325 [137]210
330 :
335 :
340 [129]T[178]55736[164]55776:[151]T,7:[130]:[142]
345 [143] *DEL CHAR*
350 [139] PS[179]1466 [167] [142]
355 [151]150,PS[171]1465:[151]PS,[194](PS)[175]127:[158] DCHR
360 PS[178]PS[171]1:[142]
365 [143] *CUR LF
370 [139] PS[177]1465 [167][151]PS,[194](PS)[175]127:PS[178]PS[171]1
375 [142]
380 [143] *CUR RT*
385 [139] PS[179]1502 [167][151]PS,[194](PS)[175]127:PS[178]PS[170]1
390 [142]
395 :
400 [139]LN[178]1[167][153]"             (null)TART OF TEXTPRINT#":[141]645:[142]
405 [151]PS,[194](PS)[175]127:[158]LSAV,LN:LN[178]LN[171]1:[158]SDWN
410 [139] LN[177]10[167] [158]MTTP,LN[171]10
415 [142]
420 [143] *** CURSOR DOWN ***
425 [139]LN[177][178]NL[167][141]635:[142]
430 [151]PS,[194](PS)[175]127:[158]LSAV,LN:LN[178]LN[170]1:[158] SCUP:[158] MBOT,LN[170]8:[142]
435 [143] *** INSERT CHARACTER ***
440 [151]PS,[194](PS)[175]127:[151]150,PS[171]1463:[158] ICHR:[142]
445 :
450 [153]"LIST OR"XL$"^"
455 [151]PS,[194](PS)[175]127
460 [129]T[178]1[164]3:[153]" (null)                                    (null)":[130]T
465 [153]" /"XL$"EXPONONONON";:[142]
470 :
475 XY[178]LN:[141]101:[139]XX[167][142]
476 XF[178]0:[139][194](1502)[178]32[167]XF[178][171]1
480 SM[178][165]S(LN[170]1):[151]251,[181](SM[173]256):[151]250,SM[171][194](251)[172]256
485 FM[178][165]S(NL):[151]253,[181](FM[173]256):[151]252,FM[171][194](253)[172]256
490 [158]WCHK:[139][194](150)[179][177]0[167][151]1020,12:[158]SDWN:[158]MINS:NL[178]NL[170]1:[151]1020,1
495 [158] WWRP:PS[178][194](150)[170]1464:[158]LSAV,LN:[158] SCUP:LN[178]LN[170]1
500 [139]XF[178][171]1[167]PS[178]1465
505 [142]
510 :
515 [139] NL[178]0 [167] [142]
520 [153]XD$"STR$ELETING A LINE..."
525 SM[178][165]S(LN):[151]251,[181](SM[173]256):[151]250,SM[171][194](251)[172]256
530 SM[178][165]S(NL[170]1):[151]253,[181](SM[173]256):[151]252,SM[171][194](253)[172]256:[158] MDEL
535 [151]1020,11:[158] SCUP:[141]125:PS[178]1465:NL[178]NL[171]1
540 [158]LSAV,LN:[158] MBOT,LN[170]8
545 [141]665:[151]150,0:[151]151,0
550 [151]152,0:[151]153,O
555 [139] NL[179]LN [167] [141]395
560 [142]
565 [143] *** ADD A LINE ***
570 XY[178]NL:[141]101:[139]XX[167][142]
571 [153]XD$"CMDRIGHT$NSERTING A LINE..."
575 SM[178][165]S(LN):[151]251,[181](SM[173]256):[151]250,SM[171][194](251)[172]256
580 FM[178][165]S(NL):[151]253,[181](FM[173]256):[151]252,FM[171][194](253)[172]256:[158] MINS
585 :NL[178]NL[170]1
590 [151]PS,[194](PS)[175]127:[151]1020,11:[158]SDWN:[141]125:PS[178]1465
600 [141]665:[151]150,0:[151]151,0:[151]152,0
605 [151]153,0:[142]
635 [143] BUZZER
640 [153]XD$"VALND OF TEXT"
645 [129]T[178]1[164]40:[130]T:[137]665
650 [151]54296,15:[151]54277,45:[151]54278,165
655 [151]54276,33:[151]54273,6:[151]54272,5
660 [129]T[178]1[164]200:[130]:[151]54276,32:[151]54273,0:[151]54272,0:[151]198,0:[142]
665 [153]"                               ":[142]
670 :
675 :
677 [141]450:[153]"ATNRE YOU SURE YOU WANT TO EXIT?(Y/N)"
678 [161]D$:[139]D$[178]"" [167]678
679 [139]D$[179][177]"Y"[167] OW[178]0:[142]
680 [158]LSAV,LN
681 [141]450:[153]"SAVING 'COMMENTS'":[159]15,8,15,"R0:COMMENTS=0:COMMENTS"
685 OW[178][171]1:[132]15,A$:[139] A$[179][177]"63"[167]710
690 [153]"ONFILE EXISTS! REPLACE?(Y/N)";:[141]650
695 [161] R$:[139]R$[178]"" [167]695
700 [139] R$[179][177]"Y"[167] [160]15:[142]
705 [153]" CLR(null).(null).PRINT#":[152]15,"S0:COMMENTS":[160]15
710 [151]251,(NL[170]1)[173]256:[151]250,256[172]((NL[170]1)[173]256[171][194](251)):[158] SFIL
715 SV[178][171]1:[142]
720 [143] *** MENU ***
725 [151]PS,[194](PS)[175]127:[158]LSAV,LN:[141]450
730 [153]"PRINT#[LEN(null)(null)(null)]OPENRIGHT$PRINT#WAITNSERT LINE  [LEN(null)(null)(null)]OPEN(null)PRINT#WAITRINTER"
735 [153]"[LEN(null)(null)(null)]OPENSTR$PRINT#WAITELETE LINE  [LEN(null)(null)(null)]OPENVALPRINT#WAITXIT AND"
740 [153]"[LEN(null)(null)(null)]OPENLEFT$PRINT#WAITELP               SAVE TEXT"
745 [139] T$[178]"X"[167] [142]
750 [141]55000:ME$[178]R$
755 [139] ME$[178]"D"[176]ME$[178]"I"[176]ME$[178]"P"[176]ME$[178]"H"[176]ME$[178]"S"[176]ME$[178]"X"[167] [142]
760 [137]750
765 [143] *** LOAD
770 [153]"LOAD":[141]445:[153]"LOADING 'COMMENTS'":[158]MWIP
775 [158]LFIL:NL[178][194](250)[170][194](251)[172]255:[139]NL[179][177]0 [167]790
780 :
785 [159]15,8,15:[132]15,S$:[160]15:[142]
790 [129]T[178]1[164]9:[158] MBOT,T:[158]SCUP:[130]T:[158]SDWN:[141]340:[142]
795 [143] *** PRINTER OPTIONS ***
800 [158]LSAV,LN:[141]450
805 [153]"       ===== (null)(null)RIGHT$(null)(null)VAL(null)PRINT# ====="
810 [153]"(null)EADY PRINTER AND HIT SPACE BAR."
815 [153]"(null) TO CANCEL.                    "
820 [161]P$:[139]P$[178]"" [167]820
825 [139]P$[179][177]" "[167] [153]"ON(null).(null)., DON'T PRINT.":[129]T[178]1[164]699::[130]T:[142]
830 [159]4,4:[157]4:[153][199](17);
831 LC[178]0:LP[178]1
832 [139]NL[171]LP[179]120[167]836
833 [129]I[178]LP[164]LP[170]59:RS[178]60:[141]863:[130]
834 [139][194](203)[178]23[167]880
835 [153]:[153]:[153]:[153]:[153]:[153]:LP[178]LP[170]120:[137]832
836 RS%[178](NL[171]LP[170]2)[173]2:RS[178]RS%:[129]I[178]LP[164]LP[170]RS[171]1:[141]863
837 [130]
840 [153]"";:[161]K$:[160]4:[142]
860 :
863 M1[178][165]S(I):M2[178][165]S(I[170]RS)
864 [151]151,M1[173]256:[151]150,256[172](M1[173]256[171][194](151)):[158]PRNT
866 [151]151,M2[173]256:[151]150,256[172](M2[173]256[171][194](151)):[158]PRNT
867 [142]
868 :
885 [143] HELP SCREEN ***
890 [151]PS,[194](PS)[175]127:[158]LSAV,LN:[153]"LOAD"
895 [153]"SYS        (null)ELCOME TO STR$RIGHT$(null)(null)(null)(null)RIGHT$(null)VAL(null)PRINT#"
900 [153]"                                       "
905 [153]" (null)O MOVE THE CURSOR, USE THE LEN(null)(null)(null) KEYS,"
910 [153]" OR PRESS (null)VAL(null)(null)(null)(null) TO MOVE DOWN A LINE."
915 [153]" (null)O INSERT A LINE, PRESS CONTROL-RIGHT$."
920 [153]" (null)O DELETE A LINE, PRESS CONTROL-STR$."
935 [153]" (null)O EXIT AND SAVE YOUR FEEDBACK, PRESS"
936 [153]" CONTROL-VAL."
940 [153]"                                      "
945 [153]" (null)OW PRESS THE (null) KEY AND START TYPING."
950 [161] T$:[139] T$ [178] "" [167]950
955 [139] T$[179][177]"X" [167]950
960 [153]"LOAD":[151]646,12:[158] CLSM
965 [141]450:[141]730:[141]340
970 [129]P[178]LN[171]10[164]LN[170]7
975 [139] P[179]1[167]985
980 [158] MBOT,P:[158] SCUP
985 [130]P:[158] MBOT,P
990 [141]340:[142]
999 [143] *** FUNCTIONS ***
1000 [142]
40000 [160]15:[159]15,8,15,"R0:DISKWRITER ML.O=DISKWRITER ML.O":[132]15,E:[160]15
40010 [139]E[178]63[167]40050
40020 [153]"LOAD(null)LEASE REINSERT (null)OADSTAR DISK AND PRESS A KEY.":[141]55000:[137]40000
40050 [153]"LOADSYSLOADING":LD[178][171]1:[147]"DISKWRITER ML.O",8,1
49990 [143] *** CHECK DISK ROUTINE ***
50000 [153]"LOADRIGHT$NSERT DISK TO FORMAT & PRESS A KEY":[134]SE%(255):[159]15,8,15
50005 [141]55000:[159]8,8,8,"#":[152]15,"B-P:"8;0
50010 [151]53280,6:DN$[178]""
50020 [152]15,"U1:"8;0;18;0:[141]50280
50030 :
50040 [139]ER[179][177]0[167]50080
50050 [129]X[178]0[164]162:[161]#8,A$:SE%(X)[178][198](A$[170][199](0)):[153]".";:[130]
50060 [129]X[178]144[164]161:DN$[178]DN$[170][199](SE%(X)):[153]":";:[130]
50070 [137]50100
50080 [153]"LOAD(null)ORKING..."
50082 [152]15,"N0:DISKWRITER,JG":[141]50280:[139]ER[178]0[167][142]
50085 [151]53281,0:[153]"LOADVALRROR - "ER$".  (null)RESS A KEY.":[137]55000
50090 :
50100 [160]8
50110 [153]"LOAD":[151]53280,2:[153][166]10)"(null)CLOSEATNCLOSE(null)CLOSE(null)CLOSERIGHT$CLOSE(null)CLOSECHR$ ! ! !"
50120 [153]"  (null)OU NOW HAVE A DISK IN YOUR DRIVE"
50130 [153]"   THAT HAS A NAME OF ";DN$
50140 [153]"OPEN  ATNRE YOU SURE YOU WANT TO ERASE IT"
50150 [153][163]16)"(Y/N)?"
50160 [141]55000:K$[178]R$:[139]K$[179][177]"Y"[175]K$[179][177]"N"[167]50160
50170 [139]K$[178]"N"[167][142]
50210 [139][200](DN$,8)[179][177]"LOADSTAR"[167]50080
50220 [153]"LOAD (null)HIS IS A (null)(null)ATNSTR$(null)(null)ATN(null) DISK, ARE YOU"
50230 [153]" POSITIVE YOU WANT TO ERASE IT? (Y/N)"
50240 [141]55000:[139]R$[179][177]"Y"[175]R$[179][177]"N"[167]50240
50250 [139]R$[178]"N"[167][142]
50270 [137]50080
50280 [132]15,ER,ER$:[142]
55000 [151]198,0:[146]198,1:[161]R$:[142]