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