100 POKE56,PEEK(46)+2:CLR: REM SET TOP OF BASIC TEXT 2 BLK ABOVE END OF PROG
110 POKE53281,12:POKE53280,0:PRINT"[144]"
120 B$="                                        ":REM 40 BLANKS
130 PRINT"[147]   *****  [211]PEED[211]CRIPT [212]O [194]ASIC  *****   "
140 PRINT"           [194]Y [205]IKE [203]OZAKIEWICZ"
150 PRINT"            [210]OCHESTER, [206][217] [213][211][193]"
160 LD%=7:GOSUB460:INPUT"[195]REATE [196][193][212][193] OR [208][210][201][206][212] [211]TMNTS (D/P)   D[157][157][157]";TYPE$
170 TYPE$=LEFT$(TYPE$,1):IF(TYPE$<>"D") AND (TYPE$<>"P") THEN GOTO 160
180 ADDR=49152:IF TYPE$="P" THEN ADDR=49155
190 CLOSE15:OPEN15,8,15,"I0":REM REMOVE ,"I0" IF YOU'VE CHANGED THE DRIVE'S SPEED
200 LD%=7:GOSUB460:INPUT"[201]NPUT FILE NAME    *QUIT[157][157][157][157][157][157][157]";IN$
210 IFIN$=""THEN200
220 IF IN$="*QUIT"THEN GOTO 440
230 CLOSE1:OPEN1,8,3,IN$:INPUT#15,EN,EM$:F$=IN$:IFEN=0THEN250
240 GOSUB510:GOTO200
250 SYS(ADDR):CLOSE1:SYS65484
260 LD%=11:GOSUB460:PRINT"          [201]NSERT [207]UTPUT [196]ISK[146]              "
270 GOSUB 480:ADDR=49158
280 LD%=9:GOSUB460:INPUT"[207]UTPUT FILE NAME   *QUIT[157][157][157][157][157][157][157]";OUT$
290 IF OUT$="*QUIT"THEN GOTO 440
300 CLOSE9:OPEN9,8,4,"0:"+OUT$:INPUT#15,EN,EM$:F$=OUT$:CLOSE9
310 IFEN=0THEN340
320 IFEN<>62THEN GOSUB 510:GOTO260
330 GOTO380
340 LD%=12:GOSUB460:PRINTOUT$;" EXISTS... [210]EPLACE? [217][146]/[206][146]:"
350 GETA$:IFA$<>"Y"ANDA$<>"N"THEN350
360 IFA$="N"THEN260
370 PRINT#15,"S0:"+OUT$
380 LD%=15:GOSUB460
390 T1=8+LEN(OUT$):B1$=LEFT$(B$,(20-(T1/2))):PRINTB1$;"[211]AVING: ";OUT$;"[146]"
400 SYS(ADDR),OUT$:SYS65484:PRINT"             [196]ONE.
410 [133]"(null)AKE ANOTHER COPY   NCMDCMDCMD";AN$
420 AN$[178][200](AN$,1):[139](AN$[179][177]"Y")[175](AN$[179][177]"N")[167]410
430 [139] AN$[178]"Y"[167] [137] 260
440 [151]56,160:[143] RETURN BASIC TEXT RAM TO BASIC
450 [129]I[178]1[164]15:[160]I:[130]:[156]:[153]"RUNONONON":[128]
460 [158]49161,LD%
470 [153]"":[129]J[178]1[164]LD%[171]1:[153]:[130]:[142]
480 [153]"        (null)RESS A (null)EY TO LENONTINUE"
490 [161]AN$:[139]AN$[178]""[167]490
500 [142]
510 [153]"STR$ISK ERROR FOR ";F$:[153]EM$:[141]480:[142]
520 [160]15:[159]15,8,15:[132]15,A$,S$:[160]15:[153]A$;",";S$:[128]
530 [151]43,[194](45)[171]2:[151]44,[194](46):[153]"LOADNEWP(null)43,1:P(null)44,8:?CHR$(147)"
540 [147]"$",8
550 [160]15:[159]15,8,15,"S0:SP-BAS.BAS":[160]15:[148]"SP-BAS.BAS",8