home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 39 / 039.d81 / towers of hanoi (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  9.8 KB  |  324 lines
  1. 0 poke53248+21,.
  2. 1 ifngthenclr:ng=1:mm=1
  3. 5 ifmm=.thengosub60100
  4. 10 poke55,255:poke56,61
  5. 15 sid=54272:fors=sidtosid+24:pokes,.:next
  6. 32 forx=53248to53263:pokex,.:next:
  7. 50 poke53280,14:poke53281,14
  8. 70 print"[147]         working on the towers...
  9. 80 [137] 1990
  10. 90 [151]53281,1:zz[178]1
  11. 91 [153]"loadcont                                        ";
  12. 92 [153]"cont          *  towers of hanoi  *         ";
  13. 94 [153]"cont                                        ";
  14. 95 [153]"cont       by daniel miller  (c) 1987       ";
  15. 96 [153]"cont                                        ";
  16. 97 [153]"            press f1 to exit           "
  17. 98 [151]56295,14:[151]2023,96[170]128
  18. 99 [153]"cont                                        wait"[163]27);
  19. 100 [151]55587,10:[151]1315,49:[151]55595,10:[151]1323,50:[151]55603,10:[151]1331,51
  20. 101 [141] 2160
  21. 110 [153] [200](do$,20);[163]5);a$(1);[200](do$,9);[163]11);a$(3);
  22. 120 [153][200](do$,9);[163]19);a$(3);[200](do$,9);[163]27);a$(3)
  23. 130 [143] - place sprites on tower #1
  24. 140 [151]v[170]14,93:[151]v[170]15,160:[151]v[170]12,93:[151]v[170]13,151:[151]v[170]10,93:[151]v[170]11,142
  25. 150 [151]v[170]8,93:[151]v[170]9,133:[151]v[170]6,93:[151]v[170]7,124:[151]v[170]4,93:[151]v[170]5,115
  26. 160 [151]v[170]2,93:[151]v[170]3,106:[151]v[170]0,93:[151]v[170]1,97
  27. 170 [139] yn$[178]"y" [167]n2[178]8[171]num:[137]200
  28. 180 [139] zz[178]0 [167]350
  29. 185 [129]a[178]1[164]3:[129]b[178]1[164]8:p(a,b)[178].:[130]b,a
  30. 190 [153][200](do$,22)[163]8)num$"tocmd";
  31. 191 [161]a$:[139]a$[178]""[167] 191
  32. 192 [139]a$[178]"input" [167] [141] 62000:[137] 190
  33. 193 [139] a$[179]"2"[176]a$[177]"8" [167] 191
  34. 194 num[178][197](a$):[153]a$
  35. 195 n2[178]8[171]num:sp[178]0:[139] num[178]8 [167]270
  36. 200 [139] num[179]2 [176] num[177]8 [167][153] [200](do$,22)[163]5)sp$:[137]190
  37. 210 [139] num[178]8 [175] yn$[178]"y" [167]270
  38. 220 n4[178]n2
  39. 230 [129] x[178]1 [164] n4
  40. 240 sp[178]sp[170](2[174](n4[171]1))
  41. 250 n4[178]n4[171]1:[130] x
  42. 260 [151]v[170]21,(255[171]sp)
  43. 270 zz[178]0:[129] tm[178]1 [164] 250:[130] tm:[153][200](do$,22);[163]5);sp$;
  44. 275 [129]a[178]1 [164] num:p(1,a)[178]a:[130]
  45. 280 t1$[178]"":t2$[178]"":t3$[178]"":n3[178]n2[170]1
  46. 290 [129] x[178]1 [164] num:t1$[178]t1$[170]t4$(x):t2$[178]t2$[170]t5$(x):t3$[178]t3$[170]t6$(x):[130] x
  47. 300 [139] yn$[178]"y" [167]1430
  48. 310 [129] x[178]1 [164] num:y[178]2[174]x[171]1:[130] x
  49. 320 num$[178] g2$[170][196](num)[170]slv$(1)[170]g2$[170][196](y)[170]slv$(2):y0[178]y
  50. 330 [153][200](do$,22);[163]6);num$;
  51. 335 [129]mm[178]1[164]2000:[130]
  52. 340 [129] tm[178]1 [164] 250:[130] tm:[153][200](do$,22);[163]5);sp$;
  53. 350 [153] [200](do$,22)[163]6)f9$"    "[163]24)t9$"    ";
  54. 360 [153][200](do$,22)[163]6)f9$" "cr$;
  55. 370 num$[178]"":slv$(1)[178]"":slv$(2)[178]""
  56. 380 [139] za[178]2 [167]420
  57. 385 [151]198,.
  58. 390 [161] twr$(1):[153]"tocmd";:[139] twr$(1)[178]"" [167]390
  59. 400 [139] twr$(1)[178]"input" [167]1330
  60. 410 [139] (twr$(1)[179]"1" [176] twr$(1)[177]"3") [167]twr$(1)[178]"":[137]390
  61. 411 [141] 62500
  62. 420 [153] ""[170]twr$(1);
  63. 430 [141]520
  64. 440 [153][200](do$,22);[163]34);" ";cr$;
  65. 450 [139] za[178]2 [167]480
  66. 455 [151]198,.
  67. 460 [161] twr$(2):[153]"tocmd";:[139] twr$(2)[178]"" [167]460
  68. 462 [139] twr$(2)[178]"input" [167]1330
  69. 470 [139] twr$(2)[179]"1" [176] twr$(2)[177]"3" [167]twr$(2)[178]"":[137]460
  70. 471 [141] 62500
  71. 480 [153] ""[170]twr$(2);
  72. 490 [139] twr$(1)[179][177]twr$(2) [167]640
  73. 500 er$[178]" invalid entry":[137]610
  74. 520 x[178]1:[141]530:[142]
  75. 530 [145] [197](twr$(x)) [137]540,560,580
  76. 540 [139] [197](t1$)[178]0 [167]600
  77. 550 [142]
  78. 560 [139] [197](t2$)[178]0 [167]600
  79. 570 [142]
  80. 580 [139] [197](t3$)[178]0 [167]600
  81. 590 [142]
  82. 600 er$[178]"tower # "[170]twr$(x)[170]" is empty"
  83. 610 [153][200](do$,22);[163]6)sp$[200](do$,22)[163]12)er$;:[129] tm[178]1 [164]1000:[130] tm
  84. 620 [153][200](do$,22);[163]12);[200](sp$,18);
  85. 630 er$[178]"":[137]350
  86. 640 [141]5000:m1[178][197](twr$(1)):m2[178][197](twr$(2))
  87. 641 [139]p(m1,tb(m1))[179]p(m2,tb(m2))[167]500
  88. 645 [161]a$:[139]a$[178]"input"[167]4010
  89. 650 [145] [197](twr$(1)) [137]655,680,710
  90. 655 [129] x[178]1 [164] num:[139] [202](t1$,x,1)[178]"1" [167]670
  91. 660 [130] x:loc(1)[178]160:[137]740
  92. 670 loc(1)[178]t1(n2[170]x):t4$(n2[170]x)[178]"0":[137]740
  93. 680 [129] x[178]1 [164] num:[139] [202](t2$,x,1)[178]"1" [167]700
  94. 690 [130] x:loc(1)[178]160:[137]740
  95. 700 loc(1)[178]t2(n2[170]x):t5$(n2[170]x)[178]"0":[137]740
  96. 710 [129] x[178]1 [164] num:[139] [202](t3$,x,1)[178]"1" [167]730
  97. 720 [130] x:loc(1)[178]160:[137]740
  98. 730 loc(1)[178]t3(n2[170]x):t6$(n2[170]x)[178]"0"
  99. 740 p(m2,tb(m2)[170]1)[178]p(m1,tb(m1)):p(m1,tb(m1))[178].
  100. 750 lc[178]loc(1):[141]880:sp(1)[178]sp
  101. 755 [145] [197](twr$(2)) [137]760,790,820
  102. 760 [129] x[178]1 [164] num:[139] [202](t1$,x,1)[178]"1" [167]780
  103. 770 [130] x:loc(2)[178]160:t4$(n2[170]x[171]1)[178]"1":[137]850
  104. 780 loc(2)[178]t1(n2[170]x[171]1):t4$(n2[170]x[171]1)[178]"1":[137]850
  105. 790 [129] x[178]1 [164] num:[139] [202](t2$,x,1)[178]"1" [167]810
  106. 800 [130] x:loc(2)[178]160:t5$(n2[170]x[171]1)[178]"1":[137]850
  107. 810 loc(2)[178]t2(n2[170]x[171]):t5$(n2[170]x[171]1)[178]"1":[137]850
  108. 820 [129] x[178]1 [164] num:[139] [202](t3$,x,1)[178]"1" [167]840
  109. 830 [130] x:loc(2)[178]160:t6$(n2[170]x[171]1)[178]"1":[137]850
  110. 840 loc(2)[178]t3(n2[170]x[171]1):t6$(n2[170]x[171]1)[178]"1"
  111. 850 lc[178]loc(2):[141]880:sp(2)[178]sp
  112. 860 t1$[178]"":t2$[178]"":t3$[178]"":n5[178]n2[170]1
  113. 870 [129] x[178]n5 [164] 8:t1$[178]t1$[170]t4$(x):t2$[178]t2$[170]t5$(x):t3$[178]t3$[170]t6$(x):[130] x:[137]960
  114. 880 [139] lc[178]97 [167]sp[178]1:[142]
  115. 890 [139] lc[178]106 [167]sp[178]2:[142]
  116. 900 [139] lc[178]115 [167]sp[178]3:[142]
  117. 910 [139] lc[178]124 [167]sp[178]4:[142]
  118. 920 [139] lc[178]133 [167]sp[178]5:[142]
  119. 930 [139] lc[178]142 [167]sp[178]6:[142]
  120. 940 [139] lc[178]151 [167]sp[178]7:[142]
  121. 950 [139] lc[178]160 [167]sp[178]8:[142]
  122. 960 [145] [197](twr$(1)) [137]970,980,990
  123. 970 sq%[178]r1%(1,sp(1)):r1%(1,sp(1))[178]8:[137]1000
  124. 980 sq%[178]r2%(1,sp(1)):r2%(1,sp(1))[178]8:[137]1000
  125. 990 sq%[178]r3%(1,sp(1)):r3%(1,sp(1))[178]8
  126. 1000 [145] [197](twr$(2)) [137]1010,1020,1030
  127. 1010 r1%(1,sp(2))[178]sq%:[137]1040
  128. 1020 r2%(1,sp(2))[178]sq%:[137]1040
  129. 1030 r3%(1,sp(2))[178]sq%
  130. 1040 [145] [197](twr$(1)) [137]1050,1060,1070
  131. 1050 x1[178]93:[137]1080
  132. 1060 x1[178]157:[137]1080
  133. 1070 x1[178]222
  134. 1080 [145] [197](twr$(2)) [137]1090,1100,1110
  135. 1090 x2[178]93:[137]1120
  136. 1100 x2[178]157:[137]1120
  137. 1110 x2[178]222
  138. 1120 [143] - move sprite
  139. 1130 [145] sq%[170]1 [137]1140,1150,1160,1170,1180,1190,1200,1210
  140. 1140 sp[178]0:sq[178]1:[137]1220
  141. 1150 sp[178]2:sq[178]3:[137]1220
  142. 1160 sp[178]4:sq[178]5:[137]1220
  143. 1170 sp[178]6:sq[178]7:[137]1220
  144. 1180 sp[178]8:sq[178]9:[137]1220
  145. 1190 sp[178]10:sq[178]11:[137]1220
  146. 1200 sp[178]12:sq[178]13:[137]1220
  147. 1210 sp[178]14:sq[178]15
  148. 1220 [139] [197](twr$(1))[177][197](twr$(2)) [167]1260
  149. 1230 [129] yy[178]loc(1)[164]55[169][171]10:[151] v[170]sp,x1:[151] v[170]sq,yy:[130]yy
  150. 1240 [129] xx[178]x1 [164] x2 [169]10:[151] v[170]sp,xx:[151] v[170]sq,55:[130] xx
  151. 1250 [129] yy[178]55 [164] loc(2) [169]10:[151] v[170]sp,x2:[151] v[170]sq,yy:[130] yy
  152. 1255 [151]v[170]sq,loc(2):[137]1290
  153. 1260 [129] yy[178]loc(1)[164]55[169][171]10:[151]v[170]sp,x1:[151]v[170]sq,yy:[130]
  154. 1270 [129] xx[178]x1 [164] x2 [169][171]10:[151] v[170]sp,xx:[151] v[170]sq,55:[130] xx
  155. 1280 [129] yy[178]55 [164] loc(2) [169]10:[151]v[170]sp,x2:[151]v[170]sq,yy:[130] yy:[151]v[170]sq,loc(2)
  156. 1290 mv[178]mv[170]1
  157. 1295 [153]"                "mv$[170]b2$[170][196](mv)
  158. 1300 [139] za[178]2 [167]mw[178]mw[170]1:[137]1440
  159. 1310 c2[178]1:c3[178]1:[129]a[178]1[164]num
  160. 1311 [139]p(2,a)[179][177]a[167]c2[178].
  161. 1312 [139]p(3,a)[179][177]a[167]c3[178].
  162. 1314 [130]:[139](c2)[176](c3)[167]4000
  163. 1315 [137]350
  164. 1320 [143] - computer solution
  165. 1330 twr$(1)[178]"":[153][200](do$,22);[163]6);sp$;[200](do$,22)[163]7) cmp$;
  166. 1340 [161] yn$:[139] yn$[178]"" [167]1340
  167. 1350 [139] yn$[178]"y" [167]1370
  168. 1360 [139] yn$[179][177]"n" [167]yn$[178]"":[137]1330
  169. 1370 [153] bl$" "yn$;:[139]yn$[178]"y" [167]1415
  170. 1380 :
  171. 1390 sk[178]1:[137]4000
  172. 1413 :
  173. 1415 [153][200](do$,22);[163]5);"            working           "
  174. 1417 [129]a[178]1[164]3:[129]b[178]1[164]8:p(a,b)[178].:[130]b,a
  175. 1418 [129]a[178]1 [164] num:p(1,a)[178]a:[130]
  176. 1420 sp[178]0:mv[178]0:mw[178]1:[137]1990
  177. 1430 yn$[178]"":za[178]2:[153][200](do$,22);[163]7);sp$;
  178. 1440 bi$[178]"":[129] x[178]1 [164] 8:bi$(x)[178]"0":[130] x
  179. 1450 [139] mv[178]y0 [167]1380
  180. 1460 ct[178][184](0)
  181. 1470 c2[178].:c3[178].:c4[178].:c5[178].:c6[178].:az[178]2
  182. 1480 dec[178]mw
  183. 1490 [129] y[178]0 [164] 8:[139] [181](2[174]y)[177]dec [167]y[178]y[171]1:bi$(y)[178]"1":[137]1510
  184. 1500 bi$(y)[178]"0":[130] y
  185. 1510 dec[178]dec[171]2[174]y:[139] dec[178]0 [167]1530
  186. 1520 [137]1490
  187. 1530 [129] y[178]7 [164] 0 [169][171]1:bi$[178]bi$[170]bi$(y):[130] y
  188. 1540 [129] x[178]8 [164] 1 [169][171]1:[139] [202](bi$,x,1)[178]"0" [167]c2[178]c2[170]1:[130] x
  189. 1550 c2[178]c2[170]1
  190. 1560 ri%[178]c2[170]num[171]1:[145] num[171]1 [137]1570,1580,1590,1600,1610,1620,1630
  191. 1570 ri%[178]ri%[170]4:[137]1640
  192. 1580 ri%[178]ri%[170]2:[137]1640
  193. 1590 [137]1640
  194. 1600 ri%[178]ri%[171]2:[137]1640
  195. 1610 ri%[178]ri%[171]4:[137]1640
  196. 1620 ri%[178]ri%[171]6:[137]1640
  197. 1630 ri%[178][182](ri%[171]8)
  198. 1640 [129] x[178]1 [164] 8:[139] r1%(1,x)[178]ri% [167]twr$(1)[178]"1":[137]1670
  199. 1650 [130] x:[129] x[178]1 [164] 8:[139] r2%(1,x)[178]ri% [167]twr$(1)[178]"2":[137]1670
  200. 1660 [130] x:twr$(1)[178]"3"
  201. 1670 l$[178]twr$(1):[161]a$:[139]a$[178]"input"[167]4010
  202. 1680 [129] x[178]1 [164] 8:[139] [202](bi$,x,1)[178]"1" [167]c3[178]c3[170]1:[130] x:[137]1700
  203. 1690 [130] x
  204. 1700 [139] c3[177]1 [167]1740
  205. 1710 [139] [197](t1$)[178]0 [167]twr$(2)[178]"1":[137]350
  206. 1720 [139] [197](t2$)[178]0 [167]twr$(2)[178]"2":[137]350
  207. 1730 [139] [197](t3$)[178]0 [167]twr$(2)[178]"3":[137]350
  208. 1740 [129] x[178]8 [164] 1 [169][171]1:c4[178]c4[170]1:[139] [202](bi$,x,1)[178]"0" [167][130] x
  209. 1750 c6[178]c4
  210. 1760 [129] x[178]8[171]c4 [164] 1 [169][171]1:c6[178]c6[170]1:[139] [202](bi$,x,1)[178]"0"[167]c5[178]c5[170]1:[130] x
  211. 1770 rj%[178]c6[170]num[171]1:[145] num[171]1 [137]1780,1790,1800,1810,1820,1830,1840
  212. 1780 rj%[178]rj%[170]4:[137]1850
  213. 1790 rj%[178]rj%[170]2:[137]1850
  214. 1800 [137]1850
  215. 1810 rj%[178]rj%[171]2:[137]1850
  216. 1820 rj%[178]rj%[171]4:[137]1850
  217. 1830 rj%[178]rj%[171]6:[137]1850
  218. 1840 rj%[178][182](rj%[171]8)
  219. 1850 [129] x[178]1 [164] 8:[139] r1%(1,x)[178]rj% [167]tx$[178]"1":[137]1880
  220. 1860 [130] x:[129] x[178]1 [164] 8:[139] r2%(1,x)[178]rj% [167]tx$[178]"2":[137]1880
  221. 1870 [130] x:tx$[178]"3"
  222. 1880 m$[178]tx$
  223. 1890 lm$[178]l$[170]m$
  224. 1900 [139] (c5[173]2)[178][181](c5[173]2) [176] c5[178]0 [167]twr$(2)[178]tx$:[137]1970
  225. 1910 [139] lm$[178]"12" [167]twr$(2)[178]"3":[137]1970
  226. 1920 [139] lm$[178]"13" [167]twr$(2)[178]"2":[137]1970
  227. 1930 [139] lm$[178]"23" [167]twr$(2)[178]"1":[137]1970
  228. 1940 [139] lm$[178]"21" [167]twr$(2)[178]"3":[137]1970
  229. 1950 [139] lm$[178]"31" [167]twr$(2)[178]"2":[137]1970
  230. 1960 [139] lm$[178]"32" [167]twr$(2)[178]"1"
  231. 1970 l$[178]"":m$[178]"":lm$[178]"":ct[178][184](0):[137]350
  232. 1980 [143] - build sprites
  233. 1990 v[178]53248:[151]v[170]21,255:[151]v[170]23,255:[151]v[170]29,255
  234. 2000 [151]2040,248:[151]2041,249:[151]2042,250:[151]2043,251:[151]2044,252
  235. 2010 [151]2045,253:[151]2046,254:[151]2047,255
  236. 2020 [151]v[170]39,3:[151]v[170]40,15:[151]v[170]41,13:[151]v[170]42,9:[151]v[170]43,14:[151]v[170]44,5
  237. 2030 [151] v[170]45,8:[151]v[170]46,0
  238. 2040 [139]mm[178].[167]mm[178]1:[134] p(3,8),tb(3):[147]"towers.spr",8,1
  239. 2060 t1$[178]"11111111":t2$[178]"00000000":t3$[178]"00000000"
  240. 2070 [129] x[178]1 [164] 8:t4$(x)[178][202](t1$,x,1):[130] x
  241. 2080 [129] x[178]1 [164] 8:t5$(x)[178][202](t2$,x,1):[130] x
  242. 2090 [129] x[178]1 [164] 8:t6$(x)[178][202](t3$,x,1):[130] x
  243. 2100 z%[178]97:[129] x[178]1 [164] 8:t1(x)[178]z%:t2(x)[178]z%:t3(x)[178]z%:z%[178]z%[170]9:[130] x
  244. 2110 y%[178]0:[129] x[178]1 [164] 8:r1%(1,x)[178]y%:y%[178]y%[170]1:[130] x
  245. 2120 [129] x[178]1 [164] 8:r2%(1,x)[178]9:r3%(1,x)[178]9:[130] x
  246. 2130 [139] yn$[178]"y" [167]140
  247. 2140 [137]90
  248. 2150 [143] - build character graphics
  249. 2160 blk$[178][199](144):red$[178][199](28):yel$[178][199](158):b2lu$[178][199](31):cy$[178][199](159)
  250. 2170 g1rey$[178]"poke":g2rey$[178]"print#":[143] - c=(4); c=(5)
  251. 2180 rv$[178]""
  252. 2190 cl$[178][199](147):dw$[178][199](17):lf$[178][199](157)
  253. 2200 [129] x[178]1 [164] 24:do$[178]do$[170]dw$:[130] x:do$[178][199](19)[170]do$
  254. 2210 a$(1)[178]rv$[170]b2$[170]"                              "[170]ro$
  255. 2220 a$(2)[178]rv$[170]yel$[170]" "[170]dw$[170]lf$
  256. 2230 [129] x[178]1 [164] 10:a$(3)[178]a$(3)[170]a$(2):[130] x
  257. 2240 a$(3)[178]a$(3)[170]" "[170]ro$
  258. 2260 num$[178]"contnumber of rings print#(list2-8print#)cont :"
  259. 2270 sp$[178]"                                 "
  260. 2280 f9$[178]g1$[170]"from tower #cont":t9$[178]g1$[170]"to tower #cont"
  261. 2290 cr$[178]cy$[170]" "
  262. 2300 slv$(1)[178]g2$[170]"wait rings requires":slv$(2)[178]g2$[170]" moves."
  263. 2310 mv$[178]b2$[170]"move #"
  264. 2320 cmp$[178]g1$[170]"computer solution (y/n) ?"
  265. 2330 en$[178]"contdo you wish to play again?"
  266. 2340 [142]
  267. 4000 [129]a[178]217[164]242:[151]a,[194](a)[176]128:[130]:[139]sk[167]sk[178].:[137]4010
  268. 4005 [153][200](do$,22)[163]6)sp$[200](do$,22)[163]6)"  -- you won in"mv"moves --"
  269. 4010 [153]"cont   press p to play again; q to quit."
  270. 4015 [151]198,.
  271. 4020 [161]a$:[139]a$[179][177]"p"[175]a$[179][177]"(NULL)"[175]a$[179][177]"q"[175]a$[179][177]"(NULL)"[167]4020
  272. 4030 [139]a$[178]"p"[176]a$[178]"(NULL)"[167]ng[178]1:[137]1
  273. 4040 [139]a$[178]"q"[176]a$[178]"(NULL)"[167]60000
  274. 5000 tb(1)[178].:tb(2)[178].:tb(3)[178].
  275. 5010 [129]a[178]1[164]3:[129]b[178]1[164]num
  276. 5020 [139]p(a,b)[179][177].[167]tb(a)[178]tb(a)[170]1
  277. 5030 [130]b,a:[142]
  278. 60000 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  279. 60010 [151]53269,.:[139]er[179][177]63[167][128]
  280. 60020 [147]"hello connect",8
  281. 60100 [151]53280,14:[151]53281,14
  282. 60110 [153][199](142)"load(NULL)tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanright$";
  283. 60120 [129]a[178]1[164]23:[153]"(NULL)"[166]38)"(NULL)";:[130]
  284. 60130 [153]"mid$tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan(NULL)cmdsavetan"
  285. 60140 [129]a[178]217[164]242:[151]a,[194](a)[176]128:[130]
  286. 60150 [153]"          loadstar presents:"
  287. 60160 [153]"                              "
  288. 60170 [153]"          towers of hanoi      "
  289. 60180 [153]"                               "
  290. 60190 [153]"         by  daniel miller     "
  291. 60200 [153]"                               "
  292. 60210 [153]"           copyright 1987      "
  293. 60220 [153]"                               "
  294. 60230 [153]"                               "
  295. 60240 [153]"        press space to continue"
  296. 60250 [139][194](203)[179][177]60[167]60250
  297. 60260 [142]
  298. 60500 er[178]0:[151]198,.:b$[178]"":[153]"to";:[129]a[178]1[164]17
  299. 60510 [161]a$:[139]a$[178]""[167]60510
  300. 60520 [139]a$[178][199](13)[167][153]"cmd ":[142]
  301. 60530 [139]a$[178][199](20)[175]a[177]1[167][153]"cmdcmd  cmdcmdto";:a[178]a[171]1:b$[178][200](b$,a[171]1):[137]60510
  302. 60531 [139]a$[178]"input" [167] er[178]1:[153]"cmd ":[142]
  303. 60535 [139]a$[178][199](20)[167] 60510
  304. 60540 [139](a[178]17)[176]((nu)[175](a[178]6))[167]60510
  305. 60545 [139]a$[177][178]"0"[175]a$[179][178]"9"[167]60560
  306. 60546 [139] nu[178]1 [167] 60510
  307. 60547 [139]  a$[178][177]"atn" [175] a$[179][178]"(NULL)" [167]60560
  308. 60550 [139]  a$[179]" " [176] a$[177]"z" [167]60510
  309. 60560 [153]"cmd"a$;:[151]212,.:[153]"to";:b$[178]b$[170]a$:[130]
  310. 62000 [153][200](do$,22);[163]6)sp$[200](do$,22);
  311. 62005 [153]"   are you sure you want to quit (y/n) "
  312. 62010 [161]a$:[139]a$[178]""[167]62010
  313. 62011 [139]a$[178]"y"[167] [137] 62100
  314. 62050 [139]a$[179][177]"n"[167] 62010
  315. 62055 [153]"on                                      "
  316. 62075 [142]
  317. 62100 [151]v[170]21,.:[129]x[178]53248[164]53263:[151]x,.:[130]:
  318. 62110 [159]15,8,15,"r0:hello connect=hello connect":[132]15,er:[160]15
  319. 62115 [139] er[179][177]63 [167] [128]
  320. 62117 [147]"hello connect",8,1
  321. 62500 [151]sid[170]1,150:[151]sid[170]5,15:[151]sid[170]6,200:[151]sid[170]24,15
  322. 62510 [151]sid[170]4,21:[129]ky[178]1[164]55:[130]:[151]sid[170]4,.:[151]sid[170]24,.
  323. 62515 [142]
  324.