home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2000-05_2000_CSW_Side_A.d64 / mp64.main (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  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.