home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / MAKE-A-FACE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  8.1 KB  |  343 lines
  1. 1000 REM ***MAKE A FACE***
  2. 1070 REM THIS PROGRAM WILL LET KIDS MAKE FACES
  3. 1080 POKE53281,1:POKE53280,8:   PRINT"[147][151]";
  4. 1085 PRINT"[147]             MAKE A FACE"
  5. 1086 FORT=1TO2500:NEXT
  6. 1090 PRINT"[147]":FOR I=1 TO 4
  7. 1100   PRINT "";
  8. 1110   NEXT I
  9. 1120   :
  10. 1130 REM LOOP
  11. 1140 GOSUB 1220:REM CALL PRINT OUTLINE
  12. 1145 GOSUB 4000:REM CALL CHOOSE HAIR
  13. 1150 GOSUB 1430:REM CALL CHOOSE EYES
  14. 1160 GOSUB 2200:REM CALL CHOOSE NOSE
  15. 1170 GOSUB 2760:REM CALL CHOOSE MOUTH
  16. 1190 PRINT"      [157][157][157][157][157][157]     "
  17. 1191 PRINT"                                       "
  18. 1192 PRINT" PRESS  F7 [146] TO MAKE ANOTHER FACE       "
  19. 1193 PRINT"                                       "
  20. 1195 GETAF$:IFAF$=""THEN1195
  21. 1196 IFAF$="[136]"THEN1090
  22. 1197 GOTO1195
  23. 1200 GOTO 1130:REM ENDLOOP
  24. 1220 REM PROC PRINT OUTLINE
  25. 1230 PRINT"[147]"
  26. 1240 PRINT"            [206][183][183][183][183][183][183][183][183][205] "
  27. 1250 PRINT"           [206]          [205] "
  28. 1260 PRINT"          [206]            [205] "
  29. 1270 PRINT"         [206]              [205] "
  30. 1280 PRINT"        [206]                [205] "
  31. 1290 PRINT"       [206]                  [205] "
  32. 1300 PRINT"     [206][205][165]                  [170][206][205]"
  33. 1310 PRINT"     [180] [165]                  [170] [170]"
  34. 1320 PRINT"     [205] [165]                  [170] [206]"
  35. 1330 PRINT"      [205][165]                  [170][206] "
  36. 1340 PRINT"       [205]                  [206] "
  37. 1350 PRINT"        [205]                [206] "
  38. 1360 PRINT"         [205]              [206] "
  39. 1370 PRINT"          [205]            [206] "
  40. 1380 PRINT"           [205]          [206] "
  41. 1390 PRINT"            [205][175][175][175][175][175][175][175][175][206] "
  42. 1400 PRINT"              [221]    [221]
  43. 1401 [153]"              (null)    (null)"
  44. 1410 [142]:[143] ENDPROC
  45. 1420  :
  46. 1430 [143] PROC CHOOSE EYES
  47. 1440 [153]"CHOOSECMDCMDCMDCMDCMDCMDEYES"
  48. 1450 [153] "1. SPECS  4. SHADY  7. CLOSED 0. SHADES"
  49. 1451 [153] "2. SAD    5. WORRY  8. MAD    +. CROSS "
  50. 1452 [153] "3. CLOWN  6. SHY    9. WILD   -. JOLLY "
  51. 1453 [161]N$:[139]N$[178]""[167]1453
  52. 1454 [139][198](N$)[178]43[167]N[178]10:[137]1460
  53. 1455 [139][198](N$)[178]45[167]N[178]11:[137]1460
  54. 1457 [139][198](N$)[179]48[176][198](N$)[177]57[167]1453
  55. 1458 N[178][197](N$)
  56. 1460 [153]""
  57. 1470 [145]N[170]1[137]1480,1550,1620,1690,1760,1830,1900,1970,2040,2080,2090,2110
  58. 1475 [142]
  59. 1480 [153][166]8)"NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
  60. 1490 [153][166]12)"    WAIT      "
  61. 1500 [153][166]12)"    WAIT      "
  62. 1510 [153][166]12)"(null)  WAITSTEP  (null)  WAITSTEP"
  63. 1520 [142]
  64. 1550 [153][166]12)"(null)USR(null)    (null)USR(null)"
  65. 1570 [153][166]6)"ANDANDANDANDAND(null)(null)USR(null)(null)(null)(null)(null)(null)USR(null)(null)ANDANDANDANDAND"
  66. 1580 [153][166]11)"(null)(null)AND(null)(null)  (null)(null)AND(null)(null)"
  67. 1590 [153][166]12)"(null)AND(null)    (null)AND(null)":[142]
  68. 1620 [153][166]10)"USRUSRUSRUSR(null)(null)WAIT  STEPWAITSTEPUSRUSRUSRUSR"
  69. 1630 [153][166]11)"RIGHT$RIGHT$RIGHT$RIGHT$    (null)(null)(null)(null)"
  70. 1640 [153][166]11)"<TAB(CONT(null)POKETAB(>  <TAB(CONT(null)POKETAB(>"
  71. 1650 [153][166]11)"(null)(null)        MID$MID$":[142]
  72. 1690 [153][166]12)"ON(null)USR(null)    (null)USR(null)"
  73. 1710 [153][166]12)"(null)(null)(null)    (null)(null)(null)"
  74. 1720 [153][166]12)"LEN(null)LEN    LEN(null)LEN"
  75. 1730 [153][166]12)"(null)(null)(null)    (null)(null)(null)"
  76. 1740 [153]"POKE":[142]
  77. 1760 [153][166]12)"(null)USRUSR(null)CLOSE (null)USRUSR(null)"
  78. 1770 [153][166]12)"ANDANDANDAND CLOSEANDANDANDAND"
  79. 1780 [153][166]12)"SGN  (null)  SGN  (null)"
  80. 1790 [153][166]12)"(null)ANDAND(null) CLOSE(null)ANDAND(null)"
  81. 1800 [142]
  82. 1830 [153][166]11)"   WAITSTEP    (null)   WAIT"
  83. 1840 [153][166]14)"(null)    (null)":[142]
  84. 1900 [153][166]12)"(null)MID$(null)(null)  (null)MID$(null)(null)"
  85. 1910 [153][166]12)"FN  THEN  FNCLOSECLOSETHEN"
  86. 1920 [153][166]12)"(null)ANDANDSQR  (null)ANDANDSQR"
  87. 1930 [142]
  88. 1970 [153]:[153]:[153]
  89. 1990 [153][166]10)"(null)ANDANDANDAND(null)  (null)ANDANDANDAND(null)"
  90. 2000 [153][166]11)"(null)(null)(null)(null)    MID$MID$MID$MID$ "
  91. 2010 [142]
  92. 2040 [153][166]14)"(null)    (null)"
  93. 2050 [153][166]15)"(null)  (null)"
  94. 2060 [153][166]13)"<(null)>  <(null)>":[142]
  95. 2070 [142]
  96. 2080 [153][166]11)"STEP (null)WAIT      STEP (null)"
  97. 2082 [153][166]10)"STEPWAITSTEP (null)(null)WAIT    STEPWAITSTEP (null)(null)"
  98. 2084 [153][166]9)"STEPWAITSTEP(null)TAB((null)(null)(null)WAIT  STEPWAITSTEP(null)TAB((null)(null)(null)"
  99. 2085 [153][166]9)"TAB(THEN (null) FNTAB(  TAB(THEN (null) FNTAB("
  100. 2087 [153][166]11)"(null)AND(null)      (null)AND(null)"
  101. 2088 [153]"POKE":[142]
  102. 2090 [153][166]11)" (null)        (null) "
  103. 2092 [153][166]9)" (null)USRUSRUSR(null)    (null)USRUSRUSR(null)"
  104. 2094 [153][166]9)"<     (null)  (null)  CLOSECLOSECLOSE>CLOSE"
  105. 2095 [153][166]9)" (null)ANDANDAND(null)    (null)ANDANDAND(null) ":[142]
  106. 2110 [153][166]9)"LIST(null)(null)(null)(null)(null)(null)CLOSE   (null)(null)(null)(null)(null)(null)POKE
  107. 2120 PRINTSPC(10)"[213][192][192][192][201]    [213][192][192][192][201]
  108. 2130 [153][166]10)"DEFSTEP  (null)STEP  (null)WAIT
  109. 2140 PRINTSPC(10)"[223]  [146][169][223]  [146][169]
  110. 2160 [153]"POKE":[142]
  111. 2180 [143] ENDPROC
  112. 2190  :
  113. 2200 [143] PROC PRINT NOSE
  114. 2210 [153]"CHOOSECMDCMDCMDCMDCMDCMDNOSE"
  115. 2220 [153] "1. LUMPY  4. ROMAN  7. BUTTON 0. BROAD "
  116. 2221 [153] "2. SKINNY 5. BROKEN 8. PIG    +. LONG  "
  117. 2222 [153] "3. CLOWN  6. SLOPE  9. PUNK   -. CHERRY"
  118. 2223 [161]NU$:[139]NU$[178]""[167]2223
  119. 2224 [139][198](NU$)[178]43[167]NU[178]10:[137]2230
  120. 2225 [139][198](NU$)[178]45[167]NU[178]11:[137]2230
  121. 2227 [139][198](NU$)[179]48[176][198](NU$)[177]57[167]2223
  122. 2228 NU[178][197](NU$)
  123. 2230 [153] ""
  124. 2240 [145]NU[170]1[137]2250,2300,2350,2400,2460,2500,2550,2581,2590,2600,2650,2700
  125. 2245 [142]
  126. 2250 [153]
  127. 2260 [153][166]14)"(null)    (null)
  128. 2270 PRINTSPC(13)"([213][201][175][175][213][201])"
  129. 2280 RETURN
  130. 2300 PRINTSPC(15)" [221][221]"
  131. 2310 PRINTSPC(15)"[213][203][202][201]"
  132. 2320 PRINTSPC(14)"[213][203]  [202][201]"
  133. 2330 PRINTSPC(14)"[202][203][202][203][202][203]"
  134. 2340 RETURN
  135. 2350 PRINTSPC(16)"[221][221]"
  136. 2360 PRINTSPC(16)"[221][221]"
  137. 2370 PRINTSPC(15)"([221][221])"
  138. 2380 PRINTSPC(16)"[202][203]":RETURN
  139. 2400 PRINT""
  140. 2410 PRINTSPC(15)"[169]  [223]"
  141. 2420 PRINTSPC(15)"    "
  142. 2430 PRINTSPC(15)"[223]  [146][169][151]":RETURN
  143. 2460 PRINTSPC(17)"[205]"
  144. 2470 PRINTSPC(17)"[167]"
  145. 2475 PRINTSPC(15)"([175][186])"
  146. 2480 RETURN
  147. 2500 PRINTSPC(16)"[202][201] "
  148. 2510 PRINTSPC(17)"[221]"
  149. 2520 PRINTSPC(15)"[213] [202][201]"
  150. 2530 PRINTSPC(15)"[202][192][192][203]":RETURN
  151. 2550 PRINT
  152. 2560 PRINTSPC(16)"[170]"
  153. 2570 PRINTSPC(17)"[205]"
  154. 2580 PRINTSPC(15)"( [206])":RETURN
  155. 2581 PRINT
  156. 2582 PRINT
  157. 2583 PRINTSPC(15)"(..)":RETURN
  158. 2590 PRINT
  159. 2591 PRINTSPC(14)"[206][183][183][183][183][205]"
  160. 2592 PRINTSPC(14)"[165][215]  [215][167]"
  161. 2593 PRINTSPC(14)"[205][175][175][175][175][206]":RETURN
  162. 2600 PRINT
  163. 2605 PRINTSPC(16)"[180][170]"
  164. 2610 PRINTSPC(15)"[206]  [205]"
  165. 2615 PRINTSPC(11)"[171][192][192][192][209][175][175][209][192][192][192][192]":RETURN
  166. 2650 PRINTSPC(15)"[205]  [205]
  167. 2660 [153][166]16)"(null)  (null)ANDANDANDANDAND(null)(null)
  168. 2670 PRINTSPC(17) "[205][175][175][175][175][175][175][175][175][186]
  169. 2680 [142]
  170. 2700 [153][166]15)"(null)USRUSR(null)
  171. 2710 PRINTSPC(14)"([180][150]  [146][151][170])
  172. 2720 [153][166]15)"(null)ANDAND(null)
  173. 2730 RETURN
  174. 2750 REM ENDPROC
  175. 2760 REM PROC CHOOSE MOUTH
  176. 2770 PRINT "CHOOSE[157][157][157][157][157][157]MOUTH"
  177. 2780 PRINT"1. BUCK   4. SUAVE  7. LIPS    0. SMILE"
  178. 2781 PRINT"2. FROWN  5. TEETH  8. TONGUE  +. AIEEE"
  179. 2782 PRINT"3. CLOWN  6. WHIS'L 9. OPEN    -. BEARD"
  180. 2783 GETNM$:IFNM$=""THEN2783
  181. 2784 IFASC(NM$)=43THENNM=10:GOTO2790
  182. 2785 IFASC(NM$)=45THENNM=11:GOTO2790
  183. 2787 IFASC(NM$)<48ORASC(NM$)>57THEN2783
  184. 2788 NM=VAL(NM$)
  185. 2790  PRINT ""
  186. 2800 ONNM+1GOTO2810,2860,2920,2970,3030,3090,3160,3220,3280,3340,3380,3390
  187. 2810 PRINTSPC(12)"[213]        [201]"
  188. 2830 PRINTSPC(13)"[205][175][175][175][175][175][175][206]"
  189. 2835 PRINTSPC(14)"[205][175][175][175][175][206]"
  190. 2840 RETURN
  191. 2860 PRINTSPC(14)"[175][175][175][175][175][175]"
  192. 2870 PRINTSPC(14)"[167] [167][165] [165]"
  193. 2880 PRINTSPC(15)"[205][167][165][206]"
  194. 2890 PRINTSPC(16)"[163][163]":RETURN
  195. 2920 PRINT
  196. 2930 PRINTSPC(14)"[206][183][183][183][183][205]"
  197. 2940 PRINTSPC(13)"[206]      [205]"
  198. 2950 RETURN
  199. 2970 PRINT
  200. 2980 PRINTSPC(13)"[213][192][192][192][192][192][192][201]"
  201. 2990 PRINTSPC(13)"[221][202][195][195][195][195][203][221]"
  202. 3000 PRINTSPC(13)"[202][192][192][192][192][192][192][203]"
  203. 3010 RETURN
  204. 3030 PRINTSPC(14)"[169] [146][169][223] [223]"
  205. 3040 PRINTSPC(12)"[175][175][175][175][175][175][175][175][175][175]"
  206. 3050 PRINTSPC(20)"[205][205]"
  207. 3060 PRINTSPC(14)"[202][192][192][192][192][203] [205][205]"
  208. 3070 PRINTSPC(22)"[166]":RETURN
  209. 3090 PRINTSPC(11)"[175][175][175][175][175][175][175][175][175][175][175][175]"
  210. 3100 PRINTSPC(11)"[205][221][221][221][221][221][221][221][221][221][221][206]"
  211. 3110 PRINTSPC(12)"[205][219][219][219][219][219][219][219][219][206]"
  212. 3120 PRINTSPC(13)"[183][183][183][183][183][183][183][183]":RETURN
  213. 3160 PRINT
  214. 3170 PRINTSPC(16)"[213][201]"
  215. 3180 PRINTSPC(16)"[202][203]"
  216. 3200 RETURN
  217. 3220 PRINTSPC(15)"[169][223][169][223]"
  218. 3240 PRINTSPC(14)"[169]    [223]"
  219. 3250 PRINTSPC(14)"[223][163][163][163][163][146][169]"
  220. 3260 PRINT"[151]":RETURN
  221. 3280 PRINTSPC(13)" [175][175][175][175][175][175]
  222. 3290 [153][166]13)"+(null)(null)THENFN(null)(null)FN"
  223. 3300 [153][166]13)"+ TAB(TAB(TAB(TAB( FN
  224. 3310 PRINTSPC(14)"[205][150][166][166][166][166][151][206] "
  225. 3320 PRINTSPC(15)"[150][166][166][166][166][151]"
  226. 3325 PRINTSPC(16)"[150][166][166][151]":RETURN
  227. 3340 PRINTSPC(15)"[175][175][175][175]"
  228. 3350 PRINTSPC(14)"[206][202][203][202][203][205]"
  229. 3360 PRINTSPC(14)"[180]    [170]"
  230. 3370 PRINTSPC(14)"[205][175][175][175][175][206]":RETURN
  231. 3380 PRINTSPC(12)"[145]  [175][175][175][175][175][175]
  232. 3381 [153][166]12)" (null)(null)(null)(null)(null)(null)(null)(null)
  233. 3382 PRINTSPC(12)"[169]        [223]
  234. 3383 [153][166]12)"GET(null)(null)(null)(null)(null)(null)(null)(null)ABS
  235. 3384 PRINTSPC(12)"[183][183][183][183][183][183][183][183][183][183]":RETURN
  236. 3390 PRINT"[155][145][145]";:FORI=1TO2:PRINTSPC(7)"[206][205]":NEXT
  237. 3391 PRINTSPC(7)"[206][206]     [206][206][206][205][205][205]     [205][205]
  238. 3392 [153][166]7)"(null)(null)(null)(null)(null)(null)(null)POKEMID$TANTANTANTAN(null)LIST(null)(null)(null)(null)(null)(null)(null)
  239. 3393 PRINTSPC(7)"[206][206][206][206][206][206][206][206][206][206][205][205][205][205][205][205][205][205][205][205]
  240. 3394 [153][166]7)"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)
  241. 3395 PRINTSPC(7)"[206][206][206][206][206][206][206][206][206][205][205][205][205][205][205][205][205][205]
  242. 3396 [153][166]7)"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)
  243. 3397 PRINTSPC(7)"[206][206][206][206][206][206][206][205][205][205][205][205][205][205]
  244. 3398 [153][166]7)"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)POKE":[142]
  245. 3400 [143] ENDPROC
  246. 4000 [143] PROC CHOOSE HAIR
  247. 4010 [153]"CHOOSECMDCMDCMDCMDCMDCMDHAIR"
  248. 4020 [153]"1. BRUSH   4. GREASE 7. LONG   0. AFRO "
  249. 4021 [153]"2. CURLS   5. CAP    8. HAT    +. YEOW "
  250. 4022 [153]"3. CLOWN   6. BALD   9. PUNK   -. SANTA"
  251. 4030 [161]H$:[139]H$[178]""[167]4030
  252. 4035 [139][198](H$)[178]43[167]H[178]10:[137]4060
  253. 4037 [139][198](H$)[178]45[167]H[178]11:[137]4060
  254. 4040 [139][198](H$)[179]48[176][198](H$)[177]57[167]4030
  255. 4050 H[178][197](H$)
  256. 4060 [153]""
  257. 4070 [145]H[170]1[137]5000,5010,5020,5030,5040,5050,5060,5070,5080,5090,6000,6100
  258. 4080 [142]
  259. 5000 [153][166]13)"@@@@@@@@CMDCMDCMDCMDCMDCMDCMDCMDCMDCMD@@@@@@@@@@@@"
  260. 5001 [153][166]10)"@@@@@@@@@@@@@@"
  261. 5002 [153][166]9)"@@@@"[166]8)"@@@@"
  262. 5003 [153][166]7)"@@@@"[166]12)"@@@@"
  263. 5004 [153][166]6)"@@@@"[166]14)"@@@@"
  264. 5005 [153][166]6)"@@@@"[166]14)"@@@@"
  265. 5006 [153][166]6)"@@@"[166]16)"@@@"
  266. 5007 [153][166]7)"@@"[166]16)"@@"
  267. 5008 [153][166]8)"@"[166]16)"@"
  268. 5009 [142]
  269. 5010 [153][166]12)"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
  270. 5011 [142]
  271. 5020 [153][166]12)"SYS@@@@@@@@@@CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD@@@@@@@@@@@@@@"
  272. 5021 [153][166]8)"@@@@@ @@@@@ @@@@@@"
  273. 5022 [153][166]7)"@@@@@    @@    @@@@@"
  274. 5023 [153][166]5)"@@@@@@       @    @@@@@@"
  275. 5024 [153]"   @@@@@@"[166]16)"@@@@@@"
  276. 5025 [153]"  @@@@@@@@"[166]14)"@@@@@@@@"
  277. 5026 [153]"   @@@@@@"[166]16)"@@@@@@"
  278. 5027 [153]"  @@@@@@"[166]18)"@@@@@@"
  279. 5028 [153]"   @@@@@@"[166]16)"@@@@@@"
  280. 5029 [129]T[178]1[164]2:[153]"    @@@@@"[166]16)"@@@@@":[130]:[153]"POKE":[142]
  281. 5030 [153][166]9)"FORSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  282. 5031 [153][166]7)"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  283. 5032 [153][166]5)"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("[166]8)"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  284. 5033 [153][166]3)"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("[166]10)"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  285. 5034 [153][166]3)"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("[166]12)"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  286. 5035 [153][166]5)"SPC(SPC(SPC(SPC(SPC("[166]14)"SPC(SPC(SPC(SPC(SPC("
  287. 5036 [153][166]7)"SPC(SPC(SPC("[166]14)"SPC(SPC(SPC(POKE":[142]
  288. 5040 [153][166]12)"STEP (null)STEP     (null)"
  289. 5041 [153][166]11)"STEP          (null)"
  290. 5042 [153][166]10)"STEP "[166]10)" (null)"
  291. 5043 [153][166]9)"STEP "[166]12)" (null)"
  292. 5044 [153][166]8)"STEP "[166]14)" (null)"
  293. 5045 [153][166]7)"STEP "[166]16)" (null)"
  294. 5046 [153][166]7)"  "[166]16)"  "
  295. 5047 [153][166]8)" "[166]16)" "
  296. 5048 [153][166]8)" "[166]16)" "
  297. 5049 [142]
  298. 5050 [153][166]16)"ONFREFRECMDCMDCMDCMDCMDCMDSTEP        (null)"
  299. 5051 [153][166]11)"STEP        D (null)"
  300. 5052 [153][166]11)"                   POKE"
  301. 5053 [142]
  302. 5060 [153]:[153]:[153]
  303. 5061 [129]T[178]1[164]3:[153][166]7)"LIST(null)(null)(null)(null)(null)"[166]10)"(null)(null)(null)(null)(null)POKE":[130]
  304. 5062 [142]
  305. 5070 [153][166]12)"DEFON TOTOTOTOTOTOTOTOCMDCMDCMDCMDCMDCMDCMDCMDCMD(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
  306. 5071 [153][166]11)"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
  307. 5072 [153][166]10)"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
  308. 5073 [153][166]9)"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
  309. 5074 [153][166]8)"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
  310. 5075 [153][166]7)"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
  311. 5076 [129]T[178]1[164]9:[153][166]4)"  ++++"[166]14)"SGNSGNSGNSGN   ":[130]
  312. 5077 [153][166]6)"+++++"[166]12)"SGNSGNSGNSGNSGN"
  313. 5078 [153][166]6)"++++++"[166]10)"SGNSGNSGNSGNSGNSGN"
  314. 5079 [129]T[178]1[164]2:[153][166]6)"++++++++"[166]6)"SGNSGNSGNSGNSGNSGNSGNSGN":[130]:[153]"POKE":[142]
  315. 5080 [153][166]12)"VERIFYSTEP        (null)"
  316. 5081 [153][166]11)"STEP          (null)"
  317. 5082 [153]"                               "
  318. 5083 [153][166]10)"POKESPC("[166]12)"SPC("
  319. 5084 [153][166]9)"SPC("[166]14)"SPC("
  320. 5085 [153][166]8)"SPC("[166]16)"SPC("
  321. 5086 [153][166]7)"SPC("[166]18)"SPC("
  322. 5087 [142]
  323. 5090 [153][166]12)"CLRTANTANTANTANTANTANTANTANTANTAN"
  324. 5091 [153][166]10)"TANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
  325. 5092 [153][166]8)"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
  326. 5093 [153][166]6)"TANTANTANTANTAN"[166]12)"TANTANTANTANTAN"
  327. 5094 [153]"    TANTANTANTANTANTAN"[166]14)"TANTANTANTANTANTAN"
  328. 5095 [153]"  TANTANTANTANTANTANTAN"[166]16)"TANTANTANTANTANTANTANPOKE"
  329. 5096 [142]
  330. 5100 [143] ENDPROC
  331. 6000 [153]"      (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)
  332. 6010 PRINT"      [221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221][221]
  333. 6020 [153]"      (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)
  334. 6030 PRINT"      [221][221][221][221][221][221][221][221][221][221]
  335. 6040 [153]"      (null)(null)(null)(null)(null)(null)(null)(null)
  336. 6050 PRINT"      [221][221][221][221][221][221] "
  337. 6060 PRINT"      [221][221][221][221]":RETURN
  338. 6100 PRINT"               [169]    [146][169][151][215]
  339. 6110 [153]"             STEP      (null)WAIT    "
  340. 6120 [153]"           STEP          (null)POKE
  341. 6150 PRINT"        [206][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][205] "
  342. 6160 PRINT"        [205][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][206]":RETURN
  343.