100 POKE51,0:POKE52,128:POKE55,0:POKE56,128:CLR:POKE53280,0:POKE53281,0
110 PRINT"[147][159]        [211][201][196][211][205][201][212][200] IS LOADING...":DN=PEEK(186)
120 :
130 SYS57812"SIDSMITH.SHP",DN,0:POKE780,0:POKE781,0:POKE782,32:SYS65493
140 SYS57812"SSUNPACKER.89",DN,0:POKE780,0:POKE781,0:POKE782,201:SYS65493
150 POKE251,32:POKE252,64:POKE253,96
160 SYS51456:SYS51459
170 :
180 SYS57812"SSSPCONV.O",DN,0:POKE780,0:POKE781,80:POKE782,195:SYS65493
240 :
250 DIM TM(16)
260 FORX=1TO16:READ TM(X):NEXTX
270 DATA 56,60,64,69,75,81,90,100,112
280 DATA 128,150,180,225,300,450,900
285 A=0:I=0
286 READA:IFA<>-1THENPOKE828+I,A:I=I+1:GOTO286
290 ZZ=ZZ+1:GETA$:IFZZ<400ANDA$=""THEN290
295 SYS51459
300 PRINT"[147]  [176][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][174]"
310 PRINT"  [221]                                  [171][174]"
320 PRINT"  [221]      [211]  [201]  [196]  [211]  [205]  [201]  [212]  [200]      [221][221]"
330 PRINT"  [221] [155][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] [221][221]"
340 PRINT"  [173][178][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][189][221]"
350 PRINT"   [173][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][189]"
360 PRINT"  [159][211]ONGSMITH FILENAME:"
365 PRINT"  [198]1 [159][196]IRECTORY"
367 PRINT"  [198]7 [159][209]UIT THE PROGRAM
370 [153]"ONONONONON"[166]22);"";:[141]1340:F$[178]A$
372 [139]D$[178][199](133)[167]300
375 [139]D$[178][199](136)[167]1250
380 R$[178]"R0:M."[170]F$[170]"=M."[170]F$:[159]15,DN,15,R$:[132]15,ER:[160]15:[139]ER[178]63[167]440
390 [153]"LOAD";:[153][166]12)"ASCRIGHT$(null)VALCLOSE(null)(null)(null)CLOSEASC(null)(null)(null)STR$!!"
400 [153]"     OPEN(null)RESS ANY KEY TO TRY AGAIN...":[151]198,0
410 [161]A$:[139]A$[178]""[167]410
420 [137]300
430 :
440 MM[178]0:[153]:[153]"OPEN  RIGHT$NSERT SYSMEASURE MARKERSOPEN?  ((null)OPEN/(null)OPEN)":[141]1310
450 [139]A$[178]"Y"[167]MM[178]128
460 :
470 AC[178]0:[153]"OPEN  ATNPPEND SYSCREDITSOPEN TO FILE?  ((null)OPEN/(null)OPEN)":[141]1310
480 [139]A$[178]"Y"[167]AC[178]128
485 R$[178]"R0:C."[170]F$[170]"=C."[170]F$:[159]15,DN,15,R$:[132]15,ER:[160]15:[139]ER[178]63[167]500
487 AC[178]0
490 :
500 DD[178]DN:OD[178]8[170](1[175](DN[170]1)):DR$[178][199](48[170]OD)
510 [159]15,OD,15:[160]15:[139]ST[167]550
520 [153]"OPEN  (null)AVE FILE TO SYSSTR$RIVE "DR$"OPEN?  ((null)OPEN/(null)OPEN)":[141]1310
530 :
540 [139]A$[178]"Y"[167]DD[178]OD
550 UO[178]0:[139]DD[178]OD[167][137]590
560 [153]"OPEN  (null)AVE FILE TO A SYSDIFFERENT DISKOPEN?  ((null)OPEN/(null)OPEN)":[141]1310
570 [139]A$[178]"Y"[167]UO[178]1
580 :
590 M$[178]"M."[170]F$:W$[178]"W."[170]F$:C$[178]"C."[170]F$
600 [139][195](F$)[177]12[167]F$[178][200](F$,12)
610 SD$[178]F$[170]".MUS":L[178][195](SD$)
620 :
630 S1$[178]"        SYS":S2$[178]"OPEN - (null)EY OF ":S3$[178]" SHARPS)":S4$[178]" FLATS)"
640 [153]"LOADPRINTLENHOOSE A KEY SIGNATUREPRINT:"
650 [153]S1$"ATN"S2$"LEN#OPEN (7"S3$
660 [153]S1$"PEEK"S2$"ASC#OPEN (6"S3$
670 [153]S1$"LEN"S2$"PEEKOPEN  (5"S3$
680 [153]S1$"STR$"S2$"VALOPEN  (4"S3$
690 [153]S1$"VAL"S2$"ATNOPEN  (3"S3$
700 [153]S1$"ASC"S2$"STR$OPEN  (2"S3$
710 [153]S1$"CHR$"S2$"CHR$OPEN  (1 SHARP)"
720 [153]S1$"LEFT$"S2$"LENOPEN  ((null)(null)CLOSE#'S OR -'S)"
730 [153]S1$"RIGHT$"S2$"ASCOPEN  (1 FLAT)"
740 [153]S1$"MID$"S2$"PEEK-OPEN (2"S4$
750 [153]S1$"(null)"S2$"VAL-OPEN (3"S4$
760 [153]S1$"(null)"S2$"ATN-OPEN (4"S4$
770 [153]S1$"(null)"S2$"STR$-OPEN (5"S4$
780 [153]S1$"(null)"S2$"CHR$-OPEN (6"S4$
790 [153]S1$"(null)"S2$"LEN-OPEN (7"S4$
800 [153]"        PRINTTO"
810 [153]"        (null)WAITOPEN - (null)EY SIGNATURE IS UNKNOWN"
820 [153]"            PRINTTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
830 SF[178]0:[151]198,0
840 [161]A$:[139]A$[178]""[167]840
850 [139]A$[177]"@"[175]A$[179]"I"[167]900
860 [139]A$[178]"U"[167]880
870 [139]A$[179]"I"[176]A$[177]"O"[167]840
880 SF[178]128
890 :
900 [158]57812M$,DN,0:[151]780,0:[151]781,0:[151]782,160:[158]65493
910 [158]57812W$,DN,0:[151]780,0:[151]781,0:[151]782,207:[158]65493
920 [139] AC [167][158]57812C$,DN,0:[151]780,0:[151]781,0:[151]782,206:[158]65493
930 :
940 M$[178]M$[170]",P,R":[159]2,DN,2,M$:[129]X[178]1[164]4:[161]#2,A$:[130]:[161]#2,A$:[160]2
950 RT[178][181](7679[173][198](A$[170][199](0)))
960 X[178]1:[139]RT[179]TM(1)[167]1050
970 [139]RT[178]TM(X)[167]1050
980 [139](TM(X)[179]RT)[175](RT[179]TM(X[170]1))[167]1010
990 X[178]X[170]1:[139]X[179]16[167]970
1000 :
1010 [153]"LOADOPEN(null)LEASE CHOOSE A SYSTEMPOOPEN..."
1020 [153]"     OPEN1.";TM(X),"OPEN2.";TM(X[170]1)
1030 [161]A$:[139]A$[179][177]"1"[175]A$[179][177]"2"[167]1030
1040 X[178]X[175]15:[139]A$[178]"2"[167]X[178]X[170]1
1050 RT[178][181](14400[173]TM(X))
1060 [139]RT[177]255[167]RT[178]0
1070 :
1080 [151]50003,RT:[151]50004,DD
1090 [151]50005,MM:[151]50006,AC
1100 [151]50007,SF
1110 [151]50008,L:[129]X[178]1[164]L:[151]50008[170]X,[198]([202](SD$,X,1)):[130]
1120 :
1130 [153]"LOAD         SYSLENCLOSE(null)CLOSE(null)CLOSE(null)CLOSEVALCLOSE(null)CLOSE(null)CLOSERIGHT$CLOSE(null)CLOSECHR$..."
1140 [153][166]9)"PRINTTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
1150 [139]UO[178]0[167]1190
1160 [153][166]7)"(null)LEASE INSERT PRINTDESTINATION"
1170 [153][166]10)"DISK INTO DRIVE SYS#"[199](48[170]DD)"."
1180 [153][166]7)"OPEN(null)(null)VAL(null)(null) ATN(null)(null)CLOSE(null)VAL(null) (null)(null)CLOSELEN(null)(null)(null)RIGHT$(null)(null)VAL":[151]198,0
1185 [161]A$:[139]A$[178]""[167]1185
1190 [158]50000
1200 [153][166]10)"ASCCLOSERIGHT$CLOSE(null)CLOSERIGHT$CLOSE(null) LEFT$CLOSEVAL STR$ !!!"
1210 [153]"OPEN      STR$O ANOTHER CONVERSION?  (SYS(null)OPEN/SYS(null)OPEN)"
1220 [141]1310
1230 [139]A$[178]"Y"[167]300
1240 :
1250 [159]15,DN,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
1260 [139] ER[179][177]63 [167] [153]"LOAD":[128]
1270 A$[178]"HELLO CONNECT":Q$[178][199](34)
1280 [153]"STOPLOADLOADA$,DN"
1290 [153]"RUN":[151]631,13:[151]632,13:[151]198,2:[128]
1300 :
1310 [161]A$:[139]A$[179][177]"N"[175]A$[179][177]"Y"[167]1310
1320 [142]
1330 [143] 'MAIN INPUT ROUTINE'
1340 A$[178]"":[151]198,0:K[178]0
1350 [153][202]("TOANDPOSNEWNEWPOSANDTO",K[170]1,1)"CMD";:K[178](K[170]1)[175]7:[161]D$:[139]D$[179][177]""[167]1365
1360 [129]DC[178]1[164]10:[130]DC:[137]1350
1365 [139]D$[178][199](133)[167][153]"LOAD":[158]828:[141]2000:[142]
1367 [139]D$[178][199](136)[167][142]
1370 [139][195](A$)[178]14[167]1410
1380 [139]D$[178]" "[176]D$[178]"."[167]1450
1390 [139]D$[177]"/"[175]D$[179]":"[167]1450
1400 [139]D$[177]"@"[175]D$[179]"["[167]1450
1410 [139]D$[178][199](13)[167][153]" ";:[142]
1420 [139]D$[179][177][199](20)[167]1350
1430 [139][195](A$)[178]0[167]1350
1440 A$[178][200](A$,[195](A$)[171]1):[153]"CMD  CMDCMD";:[137]1350
1450 [153]D$;:A$[178]A$[170]D$:[137]1350
2000 [153]"(null)RESS A KEY":[151]198,0
2010 [161]E$:[139]E$[178]""[167]2010
2020 [142]
10000 [159]15,8,15,"S0:B.SIDSMITH":[160]15:[148]"B.SIDSMITH",8:[128]
40000 [131]169,36,133,251,169,251,133,187,169,0,133,188,169,1,133,183,169,8
40010 [131]133,186,169,96,133,185,32,213,243,165,186,32,180,255,165,185,32,150
40020 [131]255,169,0,133,144
40030 [131]160,3,132,251,32,165,255,133,252,164,144,208,47,32,165,255
40040 [131]164,144,208,40,164,251,136,208,233,166,252
40050 [131]32,205,189,169,32,32,210,255,32,165,255,166,144,208,18,170,240,6
40060 [131]32,210,255,184,80,240,169,13,32,210,255,160,2,208,198,32,66,246,96,-1