home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Misc / MODPLAY.D64 / mp64.main (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  10KB  |  276 lines
  1. 10 REM" [205]ODPLAY 64 V1.1
  2. 20 [143]" (LEN) 1998 BY (null)ATE STR$ANNENBERG
  3. 30 REM" [193]LL [210]IGHTS [210]ESERVED
  4. 40 :
  5. 50 [151]53280,.:[151]53281,.:DV[178][194](186):[139]DV[179]8[176]DV[177]30[167]DV[178]8
  6. 60 MH[178][194](2024):[139]MH[178]20[167][151]53374,.:[151]53366,.:[151]53375,.:[151]53371,.
  7. 70 [153]"LOADLIST(null)EADING STR$ATA..."
  8. 80 [134] LT(1023),AJ(13),SL(31),IN$(31),C$(1),PM$(3,4),FR$(7),OO$(1)
  9. 90 [141]5000:[141]5050
  10. 100 [153]"CHR$ENERATING (null)(null)CHR$(X) (null)ABLE...":[129]X[178]0[164]31:LT(X)[178].:[130]
  11. 110 LG[178][188](2):[129]X[178]32[164]1023:LT(X)[178][188](X)[173]LG:[130]:L1[178]58880:L2[178]L1[170]1024
  12. 120 [129]X[178]0[164]31:[151]L1[170]X,.:[151]L2[170]X,.:[130]
  13. 130 [153]"CHR$ENERATING (null)ITCH (null)ABLE...":[141]2500
  14. 200 [159]1,DV,15:[132]1,Z$,Z$,Z$,Z$:[160]1
  15. 210 [153]"LOADLIST (null)ELCOME TO (null)ODFORPLSYSAY 64 CONTV1CLR.1 - SYS2/3/1998"
  16. 220 [153]"PRINT# (null) WAIT LIST(null)OAD (null)ODULE       PRINT# # WAIT LISTLENHANGE STR$EVICE"
  17. 230 [153]"PRINT# (null) WAIT LIST(null)LAY (null)ODULE       PRINT# $ WAIT LISTSTR$IRECTORY"
  18. 240 [153]"PRINT# (null) WAIT LISTLENHANGE (null)LAY (null)ODE  PRINT# @ WAIT LISTSTR$(null)(null) LENOMMAND"
  19. 250 [139]FI[177]0[167][153]"PRINT# RIGHT$ WAIT LIST(null)HOW (null)ODULE RIGHT$NFO  ";:[137]270
  20. 260 [153]"PRINT# RIGHT$ WAIT POKE(null)HOW (null)ODULE RIGHT$NFO  ";
  21. 270 [139]PM[178]3[176]SP[178]0[167][153]"PRINT# ATN WAIT POKE(null)RIGHT$STR$ #2 LIST[(null)/ATNLIST ]":[137]290
  22. 280 [153]"PRINT# ATN WAIT LIST(null)RIGHT$STR$ #2 [    ]"
  23. 290 [153]"PRINT# (null) WAIT LIST(null)TEREO [   ]      ";
  24. 300 [139]PM[178]1[167]A$[178]"PRINT# STR$ WAIT LISTSTR$ITHER [   ]":B$[178]"PRINT# (null) WAIT LIST(null)OL ASCIX [   ]":[137]320
  25. 310 A$[178]"PRINT# STR$ WAIT POKESTR$ITHER LIST[(null)/ATNLIST]":B$[178]"PRINT# (null) WAIT POKE(null)OL ASCIX LIST[(null)/ATNLIST]"
  26. 320 [153]A$:[153]B$"     PRINT# (null) WAIT LISTVALXIT (null)ODPLAY"
  27. 330 [139]PM[178]2[175]SP[178]1[167]A$[178]"PRINT# PEEK WAIT LISTPEEKALANCE ATNDJUST":[137]350
  28. 340 A$[178]"PRINT# PEEK WAIT POKEPEEKALANCE ATNDJUST"
  29. 350 [153]A$
  30. 360 [139]PM[178]1[167][153]""[163]13)OO$(VO)
  31. 370 [139]PM[178]1[167][153]""[163]34)OO$(DI)
  32. 380 [153]""[163]12)OO$(SP):[139]PM[179]3[175]SP[178]1[167][141]17020
  33. 390 [153]""
  34. 400 [153]"LISTLENOMPUTER SPEED ISSYS"MH"(null)LEFT$Z"
  35. 410 [139]FI[178]0[167][153]"LIST(null)O (null)ONG (null)OADED (STR$EVICESYS"DV"CMDLIST)":[137]440
  36. 420 [153]"LIST ASCILE:SYS "FI$" LISTON STR$EVICESYS"DV:[153]"LIST(null)ITLE: SYS"TL$
  37. 430 [153]"LIST (null)IZE:SYS"SZ[171]1500"LISTPEEKYTES"
  38. 440 [153]"LIST(null)LAYBACK STR$EV:PRINT "PM$(PM[171]1,0)" "PM$(PM[171]1,1);
  39. 450 [153]" IN "PM$(PM[171]1,2)" PEEKITS"
  40. 460 [153]"":[146]203,64:[161]K$
  41. 470 [139]K$[178]"X"[167][151]53280,14:[151]53281,6:[153]"RETURNCONTLOAD";:[128]
  42. 480 [139]K$[178]"#"[167][141]10000:[137]210
  43. 490 [139]K$[178]"@"[167][141]11000:[137]210
  44. 500 [139]K$[178]"L"[167][141]12000:[137]210
  45. 510 [139]K$[178]"$"[167][141]8000:[137]210
  46. 520 [139]K$[178]"P"[175]FI[177]0[167][141]1000:[137]210
  47. 530 [139]K$[178]"M"[167][141]2000:[137]210
  48. 540 [139]K$[178]"I"[175]FI[177]0[167]PG[178]0:[141]13000:[137]210
  49. 550 [139]K$[178]"V"[175]PM[178]1[167]VO[178]1[171]VO:[153]""[163]13)OO$(VO):[137]460
  50. 560 [139]K$[178]"D"[175]PM[178]1[167]DI[178]1[171]DI:[153]""[163]34)OO$(DI):[137]460
  51. 570 [139]K$[178]"S"[167]SP[178]1[171]SP:[153]""[163]12)OO$(SP):[137]460
  52. 580 [139]K$[178]"A"[175]PM[179]3[175]SP[178]1[167][141]17000:[137]460
  53. 590 [139]K$[178]"B"[175]PM[178]2[175]SP[178]1[167][141]18000:[137]210
  54. 600 [137]460
  55. 1000 [146]203,41,41
  56. 1010 [139](P0[178]PM)[175](S0[178]SP)[175](D0[178]DI)[167]1050
  57. 1020 S0[178]SP:D0[178]DI:P0[178]PM
  58. 1030 [153]"LIST(null)NE OR MORE (null)LAY (null)ETTINGS WERE CHANGED"
  59. 1040 [153]"ATN NEW (null)ITCH (null)ABLE IS BEING GENERATED...":[141]2500
  60. 1050 V[178]11:[139]PM[178]2[175]SP[178]1[167]V[178]13
  61. 1060 [151]994,PM:[151]995,V
  62. 1070 [143]: 996-1000 ARE RESERVED.
  63. 1080 [151]1001,DI:[151]1002,VO:[151]1003,SP:[151]1004,S2
  64. 1090 [151]1005,LV:[151]1006,RV
  65. 1100 [158]25091:[158]25088:[158]25097:[142]
  66. 2000 [153]"ON(null)ELECT (null)LAYBACK STR$EVICE:                "
  67. 2010 [153]"                                     "
  68. 2020 [153]"SYS1PRINT) LIST(null)RIGHT$STR$ LENHIP IN 4 BITS":[139]MH[178]20[167]2040
  69. 2030 [153]"PRINT#2) POKE(null)RIGHT$STR$ LENHIP IN 8 BIT (null)(null)(null)":[137]2050
  70. 2040 [153]"SYS2PRINT) LIST(null)RIGHT$STR$ LENHIP IN 8 BIT (null)(null)(null)"
  71. 2050 [153]"SYS3PRINT) LIST(null)SER (null)ORT STR$ATNLEN IN 8 BITS"
  72. 2060 [146]203,36,36
  73. 2070 [146]203,64,64:[161]K$:[139]K$[177]"0"[175]K$[179]"4"[167]2090
  74. 2080 [137]2070
  75. 2090 [139]MH[178]20[167]PM[178][197](K$):[142]
  76. 2100 [139]K$[178]"2"[167]2060
  77. 2110 PM[178][197](K$):[142]
  78. 2500 [139]MH[178]20[167]2550
  79. 2510 [139]PM[178]1[167]AJ[178]AJ(SP[170]DI[172]2):[137]2580
  80. 2520 [139]PM[178]2[167][153]"(null)(null)(null) (null)ODE NOT AVAILABLE ON 1(null)LEFT$Z SYSTEMS":[128]
  81. 2530 [139]PM[178]3[167]AJ[178]AJ(4[170]SP)
  82. 2540 [137]2580
  83. 2550 [139]PM[178]1[167]AJ[178]AJ(6[170]SP[170]DI[172]2):[137]2580
  84. 2560 [139]PM[178]2[167]AJ[178]AJ(10[170]SP):[137]2580
  85. 2570 [139]PM[178]3[167]AJ[178]AJ(12[170]SP)
  86. 2580 [129]X[178]32[164]1023:Z[178]2[174](AJ[171]LT(X)):[151]L1[170]X,Z[171][181](Z[173]BG)[172]BG:[151]L2[170]X,[181](Z[173]BG)
  87. 2590 [130]:[142]
  88. 3000 IS[178]IB[170]952:[129]X[178]IS[164]IS[170]127:A[178][194](X):[139]A[177]HP[167]HP[178]A
  89. 3010 [130]:HP[178]HP[171]1:NS[178]31:NP[178][194](IB[170]950)[171]1:[142]
  90. 3020 IS[178]IB[170]472:[129]X[178]IS[164]IS[170]127:A[178][194](X):[139]A[177]HP[167]HP[178]A
  91. 3030 [130]:HP[178]HP[171]1:NS[178]15:NP[178][194](IB[170]470)[171]1:[151]IB[170]950,[194](IB[170]470)
  92. 3040 [129]X[178]0[164]127:[151]IB[170]952[170]X,[194](IB[170]472[170]X):[130]:[142]
  93. 4000 [141]6000:[139]E[167][153]"VALRROR - "RS$;:[142]
  94. 4010 [159]1,DV,2,"0:"[170]FI$:Z8[178].:Z9[178]SZ[172]K1[170]K1
  95. 4020 [141]5000
  96. 4030 [153]"ONONON                                       "
  97. 4040 [153]"                                       "
  98. 4050 [153]"ONONLIST (null)OADING ASCILE:PRINT "FI$:[153]"LISTASCILE (null)IZE:SYS"SZ[171]1500"LISTPEEKYTES."
  99. 4060 [153]"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
  100. 4070 [153]"THEN                    FN"
  101. 4080 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(ON":ML[178]0
  102. 4090 [129]Z[178]0[164]31:IN$(Z)[178]"":SL(Z)[178].:[130]
  103. 4100 [158]24576:B$[178]"":[129]X[178]1[164]4:[161]#1,A$:B$[178]B$[170]A$:[130]:X[178]0:TL$[178]""
  104. 4110 A[178][194](AT[170][194](IB[170]X)):[139]A[178]0[167]4130
  105. 4120 TL$[178]TL$[170][199](A):X[178]X[170]1:[139]X[179]20[167]4110
  106. 4130 ML[178]ML[170]1000:[141]16000:MT$[178]"(null)OUND(null)RACKER: 15 (null)MP/4 (null)RK":Z1[178]600
  107. 4140 [139]B$[178]"M.K."[167][141]3000:MT$[178]"(null)RO(null)RACKER: 31 (null)MP/4 (null)RK":Z1[178]1080:[137]4210
  108. 4150 [139]B$[178]"FLT4"[167][141]3000:MT$[178]"(null)TAR(null)REKKER: 31 (null)MP/4 (null)RK":Z1[178]1080:[137]4210
  109. 4160 [139]B$[178]"M!K!"[167][141]7000:[142]
  110. 4170 [139]B$[178]"6CHN"[167][141]7020:[142]
  111. 4180 [139]B$[178]"8CHN"[167][141]7040:[142]
  112. 4190 [139]B$[178]"FLT8"[167][141]7060:[142]
  113. 4200 [160]1:[159]1,DV,2,"0:"[170]FI$:[158]24579:[141]3020
  114. 4210 ML[178]ML[170]Z1:[141]16000:Z8[178]Z8[170]Z1:[129]X[178]0[164]415:[151]DB[170]X,.:[130]
  115. 4220 [129]X[178]0[164]31:[151]DB[170]64[170]X,1:[151]DB[170]128[170]X,2:[151]DB[170]160[170]X,1:[130]
  116. 4230 [129]Z[178]0[164]31:IN$(Z)[178]"               ":[130]
  117. 4240 L$[178]"":[129]X[178]0[164]NS[171]1:ZZ$[178]"":AD[178]X[172]30[170]IB[170]20:A[178].
  118. 4250 [129]C[178]0[164]21:Z[178][194](AT[170][194](AD[170]C)):[139](Z[177]31)[167]A[178]A[176]Z:ZZ$[178]ZZ$[170][199](Z)
  119. 4260 [130]
  120. 4270 SL[178]([194](IB[170]X[172]IM[170]42)[172]BG[170][194](IB[170]X[172]IM[170]43))[172]2[171]1:[139]SL[179]3[175](A[178].[176]A[178]32[176]A[178]160)[167]4300
  121. 4280 [139](A[178].)[176](A[178]32)[176](A[178]160)[167]4300
  122. 4290 IN$(X[170]1)[178][200](ZZ$[170]"                       ",22)
  123. 4300 [130]:ML[178]ML[170]500:[141]16000
  124. 4310 [151]57098,.:[129]X[178]0[164]HP[170]1:[158]24582:ML[178]ML[170]K1:[141]16000
  125. 4320 TL[178]K1:CA[178]TB:RA[178](X[175]63)[172]K1:RB[178]0:[141]14000
  126. 4330 Z8[178]Z8[170]K1:[130]:SS[178](HP[170]2)[172]K1
  127. 4340 [129]X[178]0[164]1023:[151]TB[170]X,.:[130]
  128. 4350 TL[178]512:CA[178]TB:RA[178]SS[171][181](SS[173]HH)[172]HH:RB[178]SS[173]HH:[141]14000:SE[178]SS[170]512
  129. 4360 [129]X[178]0[164]31:[151]DB[170]X,SS[171][181](SS[173]BG)[172]BG:[151]DB[170]32[170]X,[181](SS[173]BG)[175]FF
  130. 4370 [151]DB[170]64[170]X,SS[173]HH:[151]DB[170]96[170]X,SE[171][181](SE[173]BG)[172]BG:[151]DB[170]128[170]X,[181](SE[173]BG)[175]FF
  131. 4380 [151]DB[170]160[170]X,SE[173]HH:[130]
  132. 4390 Z[178]0:[129]X[178]0[164]NS[171]1:Z[178]Z[170]([194](IB[170]X[172]IM[170]42)[172]BG[170][194](IB[170]X[172]IM[170]43))[172]2[171]1:[130]
  133. 4400 I2[178]32:SS[178]SS[170]512:[129]X[178]0[164]NS[171]1:SL[178]([194](IB[170]X[172]IM[170]42)[172]BG[170][194](IB[170]X[172]IM[170]43))[172]2[171]1
  134. 4410 Z8[178]Z8[170]SL
  135. 4420 [139]SL[177]2[167]IN[178]X[170]1
  136. 4430 SL(X[170]1)[178]0:[139]SL[179]2[167]4690
  137. 4440 SL(X[170]1)[178]SL
  138. 4450 V[178][194](IB[170]X[172]IM[170]45):RS[178]([194](IB[170]X[172]IM[170]46)[172]BG[170][194](IB[170]X[172]IM[170]47))[172]2[171]1
  139. 4460 RL[178]([194](IB[170]X[172]IM[170]48)[172]BG[170][194](IB[170]X[172]IM[170]49))[172]2[171]1:[139](RS[170]RL)[177]SL[167]RL[178]SL[171]RS
  140. 4470 [139]RS[179]2[167]RS[178]0
  141. 4480 [139]RL[179][178]2[167]RL[178]0:RS[178]0
  142. 4490 [151]DB[170]1[170]X,SS[171][181](SS[173]BG)[172]BG:[151]DB[170]33[170]X,(SS[173]BG)[175]FF:[151]DB[170]65[170]X,SS[173]HH
  143. 4500 SE[178]SS[170]SL:[151]DB[170]97[170]X,SE[171][181](SE[173]BG)[172]BG:[151]DB[170]129[170]X,(SE[173]BG)[175]FF
  144. 4510 [151]DB[170]161[170]X,SE[173]HH
  145. 4520 [151]DB[170]193[170]X,RS[171][181](RS[173]BG)[172]BG:[151]DB[170]225[170]X,(RS[173]BG)[175]FF:[151]DB[170]257[170]X,RS[173]HH
  146. 4530 [151]DB[170]289[170]X,RL[171][181](RL[173]BG)[172]BG:[151]DB[170]321[170]X,(RL[173]BG)[175]FF:[151]DB[170]353[170]X,RL[173]HH
  147. 4540 [151]DB[170]385[170]X,V
  148. 4550 Z1[178][181](SS[173]HH)[175]7:Z2[178][181]((SS[170]SL)[173]HH)[175]7
  149. 4560 [139](Z1[178]7)[175](Z2[178]0)[167][141]4750:[137]4590
  150. 4570 [151]57092,SS[171][181](SS[173]BG)[172]BG:[151]57093,(SS[173]BG)[175]FF:[151]57094,[181](SS[173]HH)
  151. 4580 [151]252,SL[171][181](SL[173]BG)[172]BG:[151]253,(SL[173]BG)[175]FF:[151]254,SL[173]HH:[158]24585
  152. 4590 SS[178]SS[170]SL:[139]RL[178]0[176]RL[177]K1[167]4690
  153. 4600 [151]57098,.:SS[178]SS[171]SL
  154. 4610 RL[178]RL[170]1:R1[178]SS[170]RS:TL[178]RL:CA[178]TB:RA[178]R1[171][181](R1[173]HH)[172]HH:RB[178]R1[173]HH:[141]14010
  155. 4620 NA[178][181](K1[173]RL)[170]1:SS[178]R1[170]RL
  156. 4630 [129]AD[178]1[164]NA:TL[178]RL:CA[178]TB:RA[178]SS[171][181](SS[173]HH)[172]HH:RB[178]SS[173]HH:[141]14000:SS[178]SS[170]RL
  157. 4640 [130]
  158. 4650 RZ[178]RL[172]NA:[151]DB[170]289[170]X,RZ[171][181](RZ[173]BG)[172]BG:[151]DB[170]321[170]X,(RZ[173]BG)[175]FF
  159. 4660 [151]DB[170]353[170]X,RZ[173]HH:SE[178]SS[171]1
  160. 4670 [151]DB[170]97[170]X,SE[171][181](SE[173]BG)[172]BG:[151]DB[170]129[170]X,(SE[173]BG)[175]FF:[151]DB[170]161[170]X,SE[173]HH
  161. 4680 [151]DB[170]193[170]X,RS[171][181](RS[173]BG)[172]BG:[151]DB[170]225[170]X,(RS[173]BG)[175]FF:[151]DB[170]257[170]X,RS[173]HH
  162. 4690 [139]SL[179][178]2[167]4730
  163. 4700 TL[178]O:CA[178]TB:Z[178]SS[171]2:RA[178]Z[171][181](Z[173]HH)[172]HH[171]1:RB[178]Z[173]HH:[141]14010:[129]I[178]0[164]8
  164. 4710 [151]TB[170]I,[194](TB):[130]:TL[178]8:CA[178]TB:RA[178]Z[171][181](Z[173]HH)[172]HH[171]1:RB[178]Z[173]HH
  165. 4720 [141]14000:SS[178]SS[170]8
  166. 4730 ML[178]ML[170]SL:[141]16000:[130]:[160]1:IN[178]1:MU[178]1
  167. 4740 [142]
  168. 4750 DF[178]([181](SS[173]HH)[172]HH[170]HH)[171]SS[171]1:RM[178]SL[171]DF
  169. 4760 [151]57092,SS[171][181](SS[173]BG)[172]BG:[151]57093,(SS[173]BG)[175]FF:[151]57094,SS[173]HH
  170. 4770 [151]252,DF[171][181](DF[173]BG)[172]BG:[151]253,(DF[173]BG)[175]FF:[151]254,DF[173]HH:[158]24585
  171. 4780 SS[178]SS[170]DF[170]1:[151]57092,SS[171][181](SS[173]BG)[172]BG:[151]57093,(SS[173]BG)[175]FF
  172. 4790 [151]57094,SS[173]HH:[151]252,RM[171][181](RM[173]BG)[172]BG:[151]253,(RM[173]BG)[175]FF
  173. 4800 [151]254,RM[173]HH:[158]24585:SS[178]SS[170]RM:[142]
  174. 4810 [128]
  175. 5000 QT[178]34:GT[178]65445:IM[178]30:FF[178]255:MN[178].
  176. 5010 HN[178]240:HD[178]16:O[178]1:T[178]2:TH[178]3:F[178]4:K8[178]8192:HH[178]65536:CK[178]53296
  177. 5020 VE[178]57098:K1[178]1024:S1[178]54272:HP[178].:Z1[178].:Z2[178].:I2[178].:NS[178].:BG[178]256:HM[178].
  178. 5030 C$(0)[178]" CMD":C$(1)[178]" WAITCMD":IB[178]23040:TB[178]22016:DB[178]58112:AT[178]24320
  179. 5040 SP$[178]"                    ":OO$(0)[178]"(null)FF":OO$(1)[178]"PRINT(null)N ":[142]
  180. 5050 [129]X[178]0[164]2:[129]Y[178]0[164]2:[135]PM$(X,Y):[130]:[130]
  181. 5060 [129]X[178]0[164]7:[135]FR$(X):[130]
  182. 5070 [129]X[178]0[164]13:[135]AJ(X):[130]
  183. 5080 DI[178]1:VO[178]1:LF[178]140:RF[178]40:LR[178].:RR[178].
  184. 5090 SP[178]1:S2[178]215:PM[178]3:SI$[178]"OPENSTR$700"
  185. 5100 LV[178]7:RV[178]15
  186. 5110 P0[178]PM:D0[178]DI:S0[178]SP:[142]
  187. 6000 [159]15,DV,15:[132]15,A$,B$,C$,D$:[160]15:RS$[178]A$[170]","[170]B$[170]","[170]C$[170]","[170]D$
  188. 6010 E[178][197](A$):[142]
  189. 7000 [153]"LOADLENAN'T PLAY (null)RO(null)RACKER 128-(null)ATTERN (null)OD:":[153]FI$:[160]1:[141]5000
  190. 7010 NS[178]0:MT$[178]"":E[178]1:[142]
  191. 7020 [153]"LOADLENAN'T PLAY (null)RO(null)RACKER 6 TRACK (null)ODULE: ":[153]FI$:[160]1:[141]5000
  192. 7030 NS[178]0:MT$[178]"":E[178]1:[142]
  193. 7040 [153]"LOADLENAN'T PLAY (null)RO(null)RACKER 8 TRACK (null)ODULE: ":[153]FI$:[160]1:[141]5000
  194. 7050 NS[178]0:MT$[178]"":E[178]1:[142]
  195. 7060 [153]"LOADLENAN'T PLAY (null)TAR(null)REKKER 8 TRACK (null)ODULE: ":[153]FI$:[160]1:[141]5000
  196. 7070 NS[178]0:MT$[178]"":E[178]1:[142]
  197. 8000 [153]"LOADSYS":@"$",DV:[153]
  198. 9000 [153]:[153]"SYS* (null)RESS ATNNY (null)EY SYS*"
  199. 9010 [146] 203,64:[146]203,64,64:[161]ZZ$:[142]
  200. 10000 [153]:[153]"(null)EW STR$EVICE (null)UMBER? PRINT";:IN$[178]"":C[178]0:MC[178]2:[141]15000
  201. 10010 [139]IN$[178]""[167][142]
  202. 10020 A[178][197](IN$):[139]A[177]7[175]A[179]31[167]DV[178]A:[142]
  203. 10030 [153]:[153]"RIGHT$LLEGAL STR$EVICE (null)UMBER":[137]9000
  204. 11000 IN$[178]"":[153]:[153]"LISTSTR$ISK LENOMMAND":[153]"@PRINT";:MC[178]38:C[178]0:[141]15000
  205. 11010 [139]IN$[178]""[167]E[178]0:[142]
  206. 11020 [159]1,DV,15,IN$:[160]1:[141]6000:IN$[178]"":[139]E[178]0[167][142]
  207. 11030 [153]:[153]"SYS"RS$:[137]9000
  208. 12000 [153]:[153]"(null)LEASE VALNTER A ASCILENAME OR (null)ATTERN"
  209. 12010 [153]"(null)N STR$EVICESYS"DV"-> PRINT";:IN$[178]"":MC[178]16:C[178]0:[141]15000
  210. 12020 [139]IN$[178]""[167]E[178]0:[142]
  211. 12030 F$[178]IN$:[141]12070:[139]E[178]0[167]12050
  212. 12040 [142]
  213. 12050 FI[178]0:[153]"":[141]4000:[160]1:[139]E[178]0[167]FI[178]1:[142]
  214. 12060 [137]9000
  215. 12070 [159]1,DV,0,"$":[160]1:[141]6000:[139]E[177]0[167][153]:[153]"FOR"RS$:[137]9000
  216. 12080 [159]1,DV,2,"0:"[170]F$:[160]1:[141]6000:[139]E[177]0[167][153]:[153]"FOR"RS$:[137]9000
  217. 12090 B$[178]"":Z[178].:E[178].:[159]1,DV,0,"$0:"[170]F$:[129]X[178]1[164]34:[161]#1,Z$:[130]
  218. 12100 [161]#1,L$,H$:SZ[178]([198](L$[170][199](0))[170][198](H$[170][199](0))[172]256)[172]254[170]1500
  219. 12110 [161]#1,A$:[139]A$[179][177][199](34)[167]12110
  220. 12120 [161]#1,A$:[139]A$[178][199](34)[167]FI$[178]B$:[160]1:[142]
  221. 12130 B$[178]B$[170]A$:Z[178]Z[170]1:[139]Z[179]16[167]12120
  222. 12140 FI$[178]B$:[160]1:[142]
  223. 13000 [153]"LOAD(null)AMPLE/RIGHT$NFO (null)CREEN";:[139]NS[178]31[167][153]" - (null)AGESYS"PG[170]1;
  224. 13010 [153]:[139]NS[178]31[167][153]"PRINT# (null)PC WAIT LIST(null)WITCH (null)AGES    PRINT# (null) WAIT LISTVALXIT TO (null)AIN"
  225. 13020 [139]NS[179][177]31[167][153]"PRINT# (null)PC WAIT POKE(null)WITCH (null)AGES    PRINT# (null) WAIT LISTVALXIT TO (null)AIN"
  226. 13030 [153]"LIST ASCILE (null)AME: SYS"FI$:[153]"LIST(null)ONG (null)ITLE: SYS"TL$
  227. 13040 [153]"":SX[178]PG[172]15[170]1:EX[178]SX[170]14:[139]EX[178]30[167]EX[178]31
  228. 13050 [129]X[178]SX[164]EX:[139]X[179]10[167][153]"";
  229. 13060 [153]"SYS"X"PRINTCMD) "IN$(X):[130]:[146]203,64:[146]203,64
  230. 13070 [161]Z$:[151]208,0:[139]Z$[178]" "[175]NS[178]31[167]PG[178]1[171]PG:[137]13000
  231. 13080 [139]Z$[178]"X"[167][142]
  232. 13090 [137]13070
  233. 14000 [141]14020:[151]57089,148:[142]
  234. 14010 [141]14020:[151]57089,149:[142]
  235. 14020 H[178][181](CA[173]BG):L[178]CA[171]H[172]256
  236. 14030 [151]57090,L:[151]57091,H
  237. 14040 H[178][181](RA[173]BG):L[178]RA[171]H[172]256
  238. 14050 [151]57092,L:[151]57093,H:[151]57094,RB
  239. 14060 H[178][181](TL[173]BG):L[178]TL[171]H[172]256
  240. 14070 [151]57095,L:[151]57096,H:[151]57098,0:[142]
  241. 15000 [161]A$:[139]A$[179][177]""[167]15030
  242. 15010 [139]TI[177](T2[170]30)[167]T2[178]TI:C[178][168]C:[153]C$([182](C));
  243. 15020 [137]15000
  244. 15030 [139]A$[178][199](13)[167][153]" ";:[142]
  245. 15040 [139]A$[179][177][199](20)[167]15070
  246. 15050 [139]([195](IN$)[177]0)[167][153]A$;:IN$[178][200](IN$,[195](IN$)[171]1)
  247. 15060 [137]15000
  248. 15070 [139][195](IN$)[178]MC[167]15000
  249. 15080 [139]A$[178][199](34)[167][153]A$[199](20);:[137]15120
  250. 15090 [139](A$[177][199](31)[175]A$[179][199](128))[176]A$[177][199](159)[167][153]A$;:[137]15120
  251. 15100 [139]A$[179]" "[167][153]""[199]([198](A$)[170]64)"WAIT";:[137]15120
  252. 15110 [139]A$[177][199](127)[175]A$[179][199](160)[167][153]""[199]([198](A$)[171]32)"WAIT";
  253. 15120 IN$[178]IN$[170]A$:[137]15000
  254. 16000 L[178][181](ML[173]SZ[172]160)[173]8
  255. 16010 FR[178](L[171][181](L))[172]8:[139]L[179]1[167]A$[178]FR$(FR)[170]"WAIT"[170][200](SP$,20[171][181](L)):[137]16030
  256. 16020 [139]L[179]20[167]A$[178]""[170][200](SP$,[181](L))[170]"WAIT"[170]FR$(FR)[170]"WAIT"[170][200](SP$,20[171][181](L))
  257. 16030 [153]"ON"A$"CMDFN":[142]
  258. 17000 [139]S2[178]215[167]S2[178]222:SI$[178]"CONTSTR$VAL00":[137]17020
  259. 17010 [139]S2[178]222[167]S2[178]215:SI$[178]"OPENSTR$700"
  260. 17020 [153]""[163]34)SI$:[142]
  261. 18000 C[178].:[153]"LIST(null)LEASE VALNTER PEEKALANCE (null)ETTING";:[139]SP[167][153]"S";
  262. 18010 [153]:[153]"LIST((null)ANGEPRINT: SYS0LIST..SYS15LIST)":IN$[178][202]([196](LV),2)
  263. 18020 [139]SP[178].[167][153]"--> PRINT"IN$;:MC[178]3:[141]15000:A[178][197](IN$):[137]18040
  264. 18030 IN$[178][202]([196](LV),2):[153]"SYS (null)EFT --> PRINT"IN$;:MC[178]3:[141]15000:A[178][197](IN$)
  265. 18040 [139]A[179]0[176]A[177]15[167]18080
  266. 18050 LV[178]A:[139]SP[178].[167][142]
  267. 18060 IN$[178][202]([196](RV),2):[153]:[153]"SYS(null)IGHT --> PRINT"IN$;
  268. 18070 MC[178]3:[141]15000:A[178][197](IN$):[139](A[177][171]1)[175](A[179]16)[167]RV[178]A:[142]
  269. 18080 [153]:[153]"RIGHT$NVALID (null)ETTING":[137]9000
  270. 63000 [131]"(null)TANDARD","(null)RIGHT$STR$","4"
  271. 63010 [131]"(null)(null)(null) (null)ODE","(null)RIGHT$STR$","8"
  272. 63020 [131]"(null)SER (null)ORT","STR$ATNLEN","8"
  273. 63030 [131]" ","FN","SGN","INT","GET","ABS","+","THEN"
  274. 63040 [131] 19.9,20.05,20.05,20.25,19.75,19.82
  275. 63050 [131] 16.61,16.74,16.82,17.05,17.32,17.73,16.72,17.39
  276.