home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib21a.dsk / AUGUST.1984 / LITTLE.FINGERS.bas < prev    next >
BASIC Source File  |  2023-02-26  |  19KB  |  477 lines
  1. 10  REM  **********************
  2. 20  REM  *   LITTLE.FINGERS   *
  3. 30  REM  *  CONNIE FAIRBANKS  *
  4. 40  REM  * COPYRIGHT (C) 1984 *
  5. 50  REM  * BY MICROSPARC, INC *
  6. 60  REM  * LINCOLN, MA. 01773 *
  7. 70  REM  **********************
  8. 80  HOME : VTAB 5: HTAB 13: INVERSE : PRINT "LITTLE FINGERS": NORMAL : PRINT : PRINT  TAB( 7)"A TYPING PRACTICE PROGRAM": VTAB 23: PRINT "** COPYRIGHT 1984 MICROSPARC, INC. **"
  9. 90  PRINT  CHR$(4)"BLOAD MSOUND"
  10. 100  IF  PEEK(104) < >64  THEN  POKE 103,1: POKE 104,64: POKE 16384,0: PRINT  CHR$(4)"RUN LITTLE.FINGERS"
  11. 110  REM  INSTRUCTIONS
  12. 120  HOME : HGR : HCOLOR= 5
  13. 130  GOSUB 3710
  14. 140  VTAB 21
  15. 150  PRINT "THIS PICTURE TELLS YOU TO USE THE       POINTER FINGER OF YOUR RIGHT HAND."
  16. 160  GOSUB 4770
  17. 170  TEXT : HOME : HGR 
  18. 180  HCOLOR= 3: GOSUB 3650
  19. 190  VTAB 21
  20. 200  PRINT "THIS PICTURE TELLS YOU TO USE THE       POINTER FINGER OF YOUR LEFT HAND."
  21. 210  GOSUB 4770
  22. 220  TEXT : HOME : HGR 
  23. 230  HCOLOR= 1: GOSUB 3780: GOSUB 3810
  24. 240  VTAB 21
  25. 250  PRINT "THIS PICTURE TELLS YOU TO USE YOUR THUMBON THE SPACE BAR. "
  26. 260  GOSUB 4770
  27. 270  TEXT : HOME : HGR 
  28. 280  HCOLOR= 5: GOSUB 3710: GOSUB 4760
  29. 290  VTAB 21
  30. 300  PRINT "USE THE ARROW KEY TO BACK UP AND RETYPE."
  31. 310  GOSUB 4770
  32. 320  TEXT : HOME : VTAB 5
  33. 330  PRINT : PRINT "WHEN YOU RUN THE PROGRAM YOU WILL SEE A LINE OF TYPE UNDER THE PICTURES."
  34. 340  PRINT : PRINT "TYPE THE SAME LINE AND WATCH IT APPEAR  JUST UNDER THE FIRST ONE."
  35. 350  PRINT : PRINT "LISTEN TO THE MUSIC. "
  36. 360  GOSUB 4770
  37. 370  HOME : GOSUB 3340
  38. 380  HOME : VTAB 5
  39. 390  PRINT : PRINT "IT TELLS YOU TO MOVE YOUR FINGER UP ON  THE KEYBOARD."
  40. 400  PRINT : PRINT "WHEN YOU TYPE THE LETTERS 'N H Y' YOUR  FINGER MOVES UP THE KEYBOARD."
  41. 410  FOR K = 1 TO 1000: NEXT K
  42. 420  GOSUB 3340
  43. 430  GOSUB 4770
  44. 440  HOME : VTAB 5
  45. 450  GOSUB 3390
  46. 460  PRINT 
  47. 470  PRINT "THIS MUSIC TELLS YOU TO GO DOWN THE     KEYBOARD."
  48. 480  PRINT : PRINT "TYPING 'Y H N' WILL MOVE YOUR FINGER    DOWN."
  49. 490  FOR K = 1 TO 1000: NEXT K
  50. 500  GOSUB 3390
  51. 510  GOSUB 4770
  52. 520  HOME : GOSUB 3440
  53. 530  HGR : HCOLOR= 3: GOSUB 3650
  54. 540  HCOLOR= 5: GOSUB 3710
  55. 550  VTAB 21: PRINT "THIS MUSIC SAYS TO USE BOTH HANDS."
  56. 560  PRINT "YOU USE BOTH HANDS TO TYPE 'BN BN BN'"
  57. 570  FOR K = 1 TO 1000: NEXT K: GOSUB 3440
  58. 580  GOSUB 4770
  59. 590  TEXT : REM  MENU
  60. 600  HOME : HTAB 10: INVERSE : PRINT "LITTLE FINGERS"
  61. 610  NORMAL 
  62. 620  PRINT : PRINT  TAB( 5)"1   PERIOD SPACE RETURN"
  63. 630  PRINT : PRINT  TAB( 5)"2   T G B Y H N"
  64. 640  PRINT : PRINT  TAB( 5)"3   R F V U J M"
  65. 650  PRINT : PRINT  TAB( 5)"4   E D C I K"
  66. 660  PRINT : PRINT  TAB( 5)"5   W S X O L"
  67. 670  PRINT : PRINT  TAB( 5)"6   Q A Z P"
  68. 680  PRINT : PRINT  TAB( 5)"7   NUMBERS"
  69. 690  PRINT : PRINT  TAB( 5)"8   ALPHABET"
  70. 700  PRINT : PRINT  TAB( 5)"9   STOP"
  71. 710  PRINT 
  72. 720  PRINT : INPUT "WHICH LESSON DO YOU WANT? ";L$
  73. 730 L =  VAL(L$)
  74. 740  IF L = 1  THEN 860
  75. 750  IF L = 2  THEN 1030
  76. 760  IF L = 3  THEN 1490
  77. 770  IF L = 4  THEN 1940
  78. 780  IF L = 5  THEN 2330
  79. 790  IF L = 6  THEN 2690
  80. 800  IF L = 7  THEN 3120
  81. 810  IF L = 8  THEN 2900
  82. 820  IF L = 9  THEN 840
  83. 830  IF L <1  OR L >9  THEN 600
  84. 840  HOME : VTAB 5: HTAB 17: PRINT "GOODBYE"
  85. 850  END 
  86. 860  REM  LESSON ONE
  87. 870  HOME : HGR 
  88. 880  HCOLOR= 5
  89. 890  GOSUB 3710: GOSUB 3740: GOSUB 3770
  90. 900  VTAB 21
  91. 910  REM  THIRTY PERIODS
  92. 920  PRINT "..............................RETURN": REM 30 PERIODS
  93. 930  PRINT : INPUT "...";A$
  94. 940  HCOLOR= 1
  95. 950  GOSUB 3780: GOSUB 3810
  96. 960  PRINT : PRINT "..... ..... ..... ..... RETURN"
  97. 970  PRINT : INPUT "..... ";A$
  98. 980  PRINT : PRINT "... ... ... ... ... ...  RETURN"
  99. 990  PRINT : INPUT "... ";A$
  100. 1000  PRINT : PRINT ". . . . . . . . . . . . RETURN"
  101. 1010  PRINT : INPUT ". . ";A$
  102. 1020  GOTO 590
  103. 1030  REM  LESSON TWO
  104. 1040  HOME : HGR 
  105. 1050  HCOLOR= 3
  106. 1060  GOSUB 3650: GOSUB 3680: GOSUB 3690: GOSUB 3700
  107. 1070  VTAB 21
  108. 1080  PRINT "BBBBB GGGGG TTTTT BBBBB GGGGG TTTTT"
  109. 1090  PRINT : INPUT "BB";A$
  110. 1100  VTAB 20: CALL  -958
  111. 1110  PRINT : PRINT "BGT BGT BGT BGT BGT BGT BGT"
  112. 1120  GOSUB 3340
  113. 1130  PRINT : INPUT "BGT ";A$
  114. 1140  VTAB 20: CALL  -958
  115. 1150  PRINT : PRINT "TGB TGB TGB TGB TGB TGB TGB"
  116. 1160  GOSUB 3390
  117. 1170  PRINT : INPUT "TGB ";A$
  118. 1180  TEXT : HOME : HGR 
  119. 1190  HCOLOR= 5
  120. 1200  GOSUB 3710: GOSUB 3820: GOSUB 3830: GOSUB 3840
  121. 1210  VTAB 21
  122. 1220  PRINT "NNNNN HHHHH YYYYY NNNNN HHHHH YYYYY"
  123. 1230  PRINT : INPUT "NNNNN ";A$
  124. 1240  VTAB 20: CALL  -958
  125. 1250  PRINT : PRINT "NHY NHY NHY NHY NHY NHY NHY"
  126. 1260  GOSUB 3340
  127. 1270  PRINT : INPUT "NHY ";A$
  128. 1280  VTAB 20: CALL  -958
  129. 1290  PRINT : PRINT "YHN YHN YHN YHN YHN YHN YHN"
  130. 1300  GOSUB 3390
  131. 1310  PRINT : INPUT "YHN ";A$
  132. 1320  HCOLOR= 3
  133. 1330  GOSUB 3650: GOSUB 3680: GOSUB 3690: GOSUB 3700
  134. 1340  VTAB 20: CALL  -958
  135. 1350  PRINT : PRINT "BN BN BN BN BN BN BN"
  136. 1360  GOSUB 3440
  137. 1370  PRINT : INPUT "BN ";A$
  138. 1380  VTAB 20: CALL  -958
  139. 1390  PRINT : PRINT "GH GH GH GH GH GH GH"
  140. 1400  GOSUB 3440
  141. 1410  PRINT : INPUT "GH ";A$
  142. 1420  VTAB 20: CALL  -958
  143. 1430  PRINT : PRINT "TY TY TY TY TY TY TY"
  144. 1440  GOSUB 3440
  145. 1450  PRINT : INPUT "TY ";A$
  146. 1460  TEXT : HOME 
  147. 1470 R = 2
  148. 1480  GOTO 3490
  149. 1490  REM  LESSON THREE
  150. 1500  HOME : HGR 
  151. 1510  HCOLOR= 3
  152. 1520  GOSUB 3650: GOSUB 3850: GOSUB 3860: GOSUB 3870
  153. 1530  VTAB 21
  154. 1540  PRINT "VVVVV FFFFF RRRRR VVVVV FFFFF RRRRR"
  155. 1550  PRINT : INPUT "VV";A$
  156. 1560  VTAB 20: CALL  -958
  157. 1570  PRINT : PRINT "VFR VFR VFR VFR VFR VFR VFR"
  158. 1580  GOSUB 3340
  159. 1590  PRINT : INPUT "VFR ";A$
  160. 1600  VTAB 20: CALL  -958
  161. 1610  PRINT : PRINT "RFV RFV RFV RFV RFV RFV"
  162. 1620  GOSUB 3390
  163. 1630  PRINT : INPUT "RFV ";A$
  164. 1640  TEXT : HOME 
  165. 1650  HGR : HCOLOR= 5
  166. 1660  GOSUB 3710: GOSUB 3880: GOSUB 3890: GOSUB 3900
  167. 1670  VTAB 21
  168. 1680  PRINT "MMMMM JJJJJ UUUUU MMMMM JJJJJ UUUUU"
  169. 1690  PRINT : INPUT "MM";A$
  170. 1700  VTAB 20: CALL  -958
  171. 1710  PRINT : PRINT "MJU MJU MJU MJU MJU MJU MJU"
  172. 1720  GOSUB 3340
  173. 1730  PRINT : INPUT "MJU ";A$
  174. 1740  VTAB 20: CALL  -958
  175. 1750  PRINT : PRINT "UJM UJM UJM UJM UJM UJM UJM"
  176. 1760  GOSUB 3390
  177. 1770  PRINT : INPUT "UJM ";A$
  178. 1780  HCOLOR= 3
  179. 1790  GOSUB 3650: GOSUB 3850: GOSUB 3860: GOSUB 3870
  180. 1800  VTAB 20: CALL  -958
  181. 1810  PRINT : PRINT "VMVMVM FJFJFJ RURURU"
  182. 1820  GOSUB 3440
  183. 1830  PRINT : INPUT "VM";A$
  184. 1840  GOSUB 3680: GOSUB 3690: GOSUB 3700
  185. 1850  HCOLOR= 5
  186. 1860  GOSUB 3820: GOSUB 3830: GOSUB 3840
  187. 1870  PRINT : PRINT "RTYU FGHJ VBNM VBNM FGHJ RTYU"
  188. 1880  PRINT : INPUT "R";A$
  189. 1890  PRINT : PRINT "RUN RUN RUN RUN RUN RUN RUN"
  190. 1900  PRINT : INPUT "RUN ";A$
  191. 1910  TEXT : HOME 
  192. 1920 R = 3
  193. 1930  GOTO 3490
  194. 1940  REM  LESSON FOUR
  195. 1950  HOME : HGR 
  196. 1960  HCOLOR= 3
  197. 1970  GOSUB 3650: GOSUB 3910: GOSUB 3920: GOSUB 3930
  198. 1980  VTAB 21
  199. 1990  PRINT "EEEEE DDDDD CCCCC CCCCC DDDDD EEEEE"
  200. 2000  PRINT : INPUT "EE";A$
  201. 2010  VTAB 20: CALL  -958
  202. 2020  PRINT : PRINT "CDE CDE CDE CDE CDE CDE CDE"
  203. 2030  GOSUB 3340
  204. 2040  PRINT : INPUT "CDE ";A$
  205. 2050  VTAB 20: CALL  -958
  206. 2060  PRINT : PRINT "EDC EDC EDC EDC EDC EDC EDC"
  207. 2070  GOSUB 3390
  208. 2080  PRINT : INPUT "EDC ";A$
  209. 2090  TEXT : HOME : HGR 
  210. 2100  HCOLOR= 5
  211. 2110  GOSUB 3710: GOSUB 3940: GOSUB 3950
  212. 2120  VTAB 21
  213. 2130  PRINT "IIIII KKKKK KKKKK IIIII"
  214. 2140  PRINT : INPUT "II";A$
  215. 2150  PRINT : PRINT "IK IK IK KI KI KI"
  216. 2160  PRINT : INPUT "IK ";A$
  217. 2170  HCOLOR= 3
  218. 2180  GOSUB 3650: GOSUB 3910: GOSUB 3920: GOSUB 3930
  219. 2190  VTAB 20: CALL  -958
  220. 2200  PRINT : PRINT "EIDKC EIDKC EIDKC EIDKC"
  221. 2210  GOSUB 3440
  222. 2220  PRINT : INPUT "EIDKC ";A$
  223. 2230  PRINT : PRINT "KICK KICK KICK KICK KICK"
  224. 2240  PRINT : INPUT "KICK ";A$
  225. 2250  GOSUB 3680: GOSUB 3690: GOSUB 3700: GOSUB 3850: GOSUB 3860: GOSUB 3870
  226. 2260  HCOLOR= 5
  227. 2270  GOSUB 3820: GOSUB 3830: GOSUB 3840: GOSUB 3880: GOSUB 3890: GOSUB 3900
  228. 2280  VTAB 20: CALL  -958
  229. 2290  PRINT : PRINT "RUN KICK RUN KICK RUN RUN RUN
  230. 2300  PRINT : INPUT "RUN ";A$
  231. 2310  TEXT : HOME 
  232. 2320 R = 4: GOTO 3490
  233. 2330  REM  LESSON FIVE
  234. 2340  HOME : HGR 
  235. 2350  HCOLOR= 3
  236. 2360  GOSUB 3650: GOSUB 3960: GOSUB 3970: GOSUB 3980
  237. 2370  VTAB 21
  238. 2380  PRINT "WWWWW SSSSS XXXXX XXXXX SSSSS WWWWW"
  239. 2390  PRINT : INPUT "WW";A$
  240. 2400  PRINT : PRINT "XSW XSW XSW XSW XSW XSW XSW"
  241. 2410  GOSUB 3340
  242. 2420  PRINT : INPUT "XSW ";A$
  243. 2430  PRINT : PRINT "WSX WSX WSX WSX WSX WSX WSX"
  244. 2440  GOSUB 3390
  245. 2450  PRINT : INPUT "WSX ";A$
  246. 2460  TEXT : HOME : HGR 
  247. 2470  HCOLOR= 5
  248. 2480  GOSUB 3710: GOSUB 3990: GOSUB 4000
  249. 2490  VTAB 21
  250. 2500  PRINT "OOOOO LLLLL LLLLL OOOOO OOOOO"
  251. 2510  PRINT : INPUT "OO";A$
  252. 2520  PRINT : PRINT "OL OL OL LO LO LO"
  253. 2530  PRINT : INPUT "OL ";A$
  254. 2540  HCOLOR= 3
  255. 2550  GOSUB 3650: GOSUB 3960: GOSUB 3970: GOSUB 3980
  256. 2560  PRINT : PRINT "WOSLX WOSLX WOSLX WOSLX"
  257. 2570  GOSUB 3440
  258. 2580  PRINT : INPUT "WOSLX ";A$
  259. 2590  PRINT : PRINT "SOX SOX SOX SOX SOX SOX"
  260. 2600  PRINT : INPUT "SOX ";A$
  261. 2610  GOSUB 3680: GOSUB 3690: GOSUB 3700: GOSUB 3850: GOSUB 3860: GOSUB 3870: GOSUB 3910: GOSUB 3920: GOSUB 3930
  262. 2620  HCOLOR= 5
  263. 2630  GOSUB 3820: GOSUB 3830: GOSUB 3840: GOSUB 3880: GOSUB 3890: GOSUB 3900: GOSUB 3940: GOSUB 3950
  264. 2640  GOSUB 3770
  265. 2650  PRINT : PRINT "LOOK IN THE COOK BOOK."
  266. 2660  PRINT : INPUT "L";A$
  267. 2670  TEXT : HOME 
  268. 2680 R = 5: GOTO 3490
  269. 2690  REM  LESSON SIX
  270. 2700  HOME : HGR 
  271. 2710  HCOLOR= 3
  272. 2720  GOSUB 3650: GOSUB 4010: GOSUB 4020: GOSUB 4030
  273. 2730  VTAB 21
  274. 2740  PRINT "QQQQQ AAAAA ZZZZZ ZZZZZ AAAAA QQQQQ"
  275. 2750  PRINT : INPUT "QQ";A$
  276. 2760  VTAB 20: CALL  -958
  277. 2770  PRINT : PRINT "ZAQ ZAQ ZAQ ZAQ ZAQ ZAQ ZAQ"
  278. 2780  GOSUB 3340
  279. 2790  PRINT : INPUT "ZAQ ";A$
  280. 2800  VTAB 20: CALL  -958
  281. 2810  PRINT : PRINT "QAZ QAZ QAZ QAZ QAZ QAZ QAZ"
  282. 2820  GOSUB 3390
  283. 2830  PRINT : INPUT "QAZ ";A$
  284. 2840  HCOLOR= 5
  285. 2850  GOSUB 3710: GOSUB 4040
  286. 2860  PRINT : PRINT "PA PA PA PAPA PAPA PAPA"
  287. 2870  PRINT : INPUT "PA ";A$
  288. 2880  TEXT : HOME 
  289. 2890 R = 6: GOTO 3490
  290. 2900  REM  LESSON EIGHT
  291. 2910  HOME : HGR 
  292. 2920  HCOLOR= 3
  293. 2930  GOSUB 3650: GOSUB 4010: GOSUB 4020: GOSUB 4030
  294. 2940  HCOLOR= 5
  295. 2950  GOSUB 3710: GOSUB 4040
  296. 2960  GOSUB 3820: GOSUB 3830: GOSUB 3840
  297. 2970  GOSUB 3880: GOSUB 3890: GOSUB 3900
  298. 2980  GOSUB 3940: GOSUB 3950: GOSUB 3990: GOSUB 4000
  299. 2990  GOSUB 3680: GOSUB 3690: GOSUB 3700
  300. 3000  GOSUB 3850: GOSUB 3860: GOSUB 3870
  301. 3010  GOSUB 3910: GOSUB 3920: GOSUB 3930
  302. 3020  GOSUB 3960: GOSUB 3970: GOSUB 3980
  303. 3030  VTAB 21: PRINT "TO HEAR THE SONG AGAIN"
  304. 3040  PRINT : PRINT "TYPE THE ALPHABET."
  305. 3050  GOSUB 4150
  306. 3060  PRINT : PRINT " ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  307. 3070  PRINT : INPUT " ";A$
  308. 3080  IF A$ < >"ABCDEFGHIJKLMNOPQRSTUVWXYZ"  THEN 3060
  309. 3090  GOSUB 4150
  310. 3100  TEXT : HOME 
  311. 3110 R = 8: GOTO 3490
  312. 3120  REM  LESSON SEVEN
  313. 3130  HOME : HGR 
  314. 3140  HCOLOR= 3
  315. 3150  GOSUB 3650: GOSUB 4050: GOSUB 4060
  316. 3160  GOSUB 4070: GOSUB 4080: GOSUB 4090
  317. 3170  VTAB 21
  318. 3180  PRINT "111 222 333 444 555 555 444 333 222 111"
  319. 3190  PRINT : INPUT "1";A$
  320. 3200  HCOLOR= 5
  321. 3210  GOSUB 3710: GOSUB 4100: GOSUB 4110
  322. 3220  GOSUB 4120: GOSUB 4130: GOSUB 4140
  323. 3230  PRINT : PRINT "666 777 888 999 000 000 999 888 777 666"
  324. 3240  PRINT : INPUT "6";A$
  325. 3250  PRINT : PRINT "TO HEAR THE SONG AGAIN"
  326. 3260  PRINT : PRINT "TYPE THE NUMBERS FROM 1 TO 10."
  327. 3270  GOSUB 4450
  328. 3280  PRINT : PRINT " 1 2 3 4 5 6 7 8 9 10"
  329. 3290  PRINT : INPUT " ";C$
  330. 3300  IF C$ < >"1 2 3 4 5 6 7 8 9 10"  THEN 3280
  331. 3310  GOSUB 4450
  332. 3320  TEXT : HOME 
  333. 3330 R = 7: GOTO 3490
  334. 3340  REM  UP MUSIC
  335. 3350  POKE 768,193: POKE 769,100: CALL 770
  336. 3360  POKE 768,153: POKE 769,100: CALL 770
  337. 3370  POKE 768,129: POKE 769,200: CALL 770
  338. 3380  RETURN 
  339. 3390  REM  DOWN MUSIC
  340. 3400  POKE 768,129: POKE 769,100: CALL 770
  341. 3410  POKE 768,153: POKE 769,100: CALL 770
  342. 3420  POKE 768,193: POKE 769,200: CALL 770
  343. 3430  RETURN 
  344. 3440  REM  LEFT/RIGHT MUSIC
  345. 3450  FOR M = 1 TO 3
  346. 3460  POKE 768,153: POKE 769,100: CALL 770
  347. 3470  POKE 768,193: POKE 769,100: CALL 770
  348. 3480  NEXT M: RETURN 
  349. 3490  REM  REPEAT ROUTINE
  350. 3500  HGR : HCOLOR= 5
  351. 3510  GOSUB 3710: GOSUB 3820: GOSUB 3840
  352. 3520  VTAB 21
  353. 3530  PRINT "WOULD YOU LIKE TO DO THIS LESSON OVER?"
  354. 3540  PRINT : INPUT "Y OR N ";R$
  355. 3550  TEXT : HOME 
  356. 3560  IF R$ = "N"  THEN 590
  357. 3570  IF R$ < >"Y"  THEN 3490
  358. 3580  IF R = 2  THEN 1030
  359. 3590  IF R = 3  THEN 1490
  360. 3600  IF R = 4  THEN 1940
  361. 3610  IF R = 5  THEN 2330
  362. 3620  IF R = 6  THEN 2690
  363. 3630  IF R = 7  THEN 3120
  364. 3640  IF R = 8  THEN 2900
  365. 3650  HPLOT 24,70 TO 24,65 TO 20,60 TO 20,47 TO 22,45 TO 24,45 TO 25,47 TO 25,55
  366. 3660  HPLOT 25,47 TO 27,45 TO 29,45 TO 31,47 TO 31,55: HPLOT 31,47 TO 33,45 TO 35,45 TO 37,47 TO 37,55
  367. 3670  HPLOT 37,47 TO 37,33 TO 39,31 TO 41,31 TO 43,33 TO 43,60 TO 37,65 TO 37,70: RETURN : REM  LEFT HAND
  368. 3680  HPLOT 109,30 TO 117,30: HPLOT 113,30 TO 113,40: RETURN : REM  T
  369. 3690  HPLOT 121,52 TO 119,50 TO 115,50 TO 113,52 TO 113,58 TO 115,60 TO 119,60 TO 121,58 TO 121,56 TO 116,56
  370. 3700  HPLOT 119,75 TO 124,75 TO 127,74 TO 127,72 TO 125,70 TO 119,70 TO 119,80 TO 125,80 TO 127,78 TO 127,76 TO 124,75: RETURN : REM  B
  371. 3710  HPLOT 225,70 TO 225,65 TO 221,60 TO 221,33 TO 223,31 TO 225,31 TO 227,33 TO 227,55
  372. 3720  HPLOT 227,47 TO 229,45 TO 231,45 TO 233,47 TO 233,55: HPLOT 233,47 TO 235,45 TO 237,45 TO 239,47 TO 239,55
  373. 3730  HPLOT 239,47 TO 241,45 TO 243,45 TO 245,47 TO 245,60 TO 241,65 TO 241,70: RETURN : REM  RIGHT HAND
  374. 3740  HPLOT 191,50 TO 215,50 TO 215,60 TO 191,60 TO 191,50
  375. 3750  HPLOT 194,54 TO 212,54: HPLOT 194,55 TO 212,55
  376. 3760  HPLOT 194,56 TO 212,56: RETURN : REM  RETURN KEY
  377. 3770  HPLOT 165,70 TO 175,70 TO 175,80 TO 165,80 TO 165,70: HPLOT 169,77: HPLOT 169,78: HPLOT 171,77: HPLOT 171,78: RETURN : REM  PERIOD
  378. 3780  HPLOT 112,50 TO 130,50 TO 138,56 TO 149,56 TO 149,66 TO 138,66 TO 124,80 TO 119,80 TO 119,76 TO 126,70 TO 112,70 TO 111,68 TO 111,66 TO 112,65
  379. 3790  HPLOT 120,65 TO 112,65 TO 111,63 TO 111,61 TO 112,60: HPLOT 120,60 TO 112,60 TO 111,58 TO 111,56 TO 112,55
  380. 3800  HPLOT 120,55 TO 112,55 TO 111,53 TO 111,51 TO 112,50: RETURN : REM   THUMB
  381. 3810  HPLOT 99,90 TO 159,90 TO 159,100 TO 99,100 TO 99,90: RETURN : REM  SPACE BAR
  382. 3820  HPLOT 121,30 TO 125,35 TO 129,30: HPLOT 125,35 TO 125,40: RETURN : REM  Y
  383. 3830  HPLOT 125,50 TO 125,60: HPLOT 133,50 TO 133,60: HPLOT 125,55 TO 133,55: RETURN : REM  H
  384. 3840  HPLOT 131,80 TO 131,70 TO 139,80 TO 139,70: RETURN : REM  N
  385. 3850  HPLOT 97,40 TO 97,30 TO 103,30 TO 105,32 TO 105,34 TO 103,36 TO 97,36 TO 105,40: RETURN : REM  R
  386. 3860  HPLOT 101,60 TO 101,50 TO 109,50: HPLOT 101,55 TO 107,55: RETURN : REM  F
  387. 3870  HPLOT 107,70 TO 111,80 TO 115,70: RETURN : REM  V
  388. 3880  HPLOT 133,30 TO 133,38 TO 135,40 TO 139,40 TO 141,38 TO 141,30: RETURN : REM  U
  389. 3890  HPLOT 145,50 TO 145,58 TO 143,60 TO 139,60 TO 137,58 TO 137,56: RETURN : REM  J
  390. 3900  HPLOT 143,80 TO 143,70 TO 147,80 TO 151,70 TO 151,80: RETURN : REM  M
  391. 3910  HPLOT 93,30 TO 85,30 TO 85,40 TO 93,40: HPLOT 85,35 TO 90,35: RETURN : REM  E
  392. 3920  HPLOT 89,50 TO 89,60 TO 95,60 TO 97,58 TO 97,52 TO 95,50 TO 89,50: RETURN : REM  D
  393. 3930  HPLOT 103,72 TO 101,70 TO 97,70 TO 95,72 TO 95,78 TO 97,80 TO 101,80 TO 103,78: RETURN : REM  C
  394. 3940  HPLOT 149,30 TO 149,40: RETURN : REM  I
  395. 3950  HPLOT 149,50 TO 149,60: HPLOT 157,50 TO 149,55 TO 157,60: RETURN : REM  K
  396. 3960  HPLOT 73,30 TO 75,40 TO 77,30 TO 79,40 TO 81,30: RETURN : REM    W
  397. 3970  HPLOT 85,52 TO 83,50 TO 79,50 TO 77,52 TO 77,54 TO 79,55 TO 83,55 TO 85,56 TO 85,58 TO 83,60 TO 79,60 TO 77,58: RETURN : REM  S
  398. 3980  HPLOT 83,70 TO 91,80: HPLOT 83,80 TO 91,70: RETURN : REM  X
  399. 3990  HPLOT 165,32 TO 163,30 TO 159,30 TO 157,32 TO 157,38 TO 159,40 TO 163,40 TO 165,38 TO 165,32: RETURN : REM  O
  400. 4000  HPLOT 161,50 TO 161,60 TO 169,60: RETURN : REM  L
  401. 4010  HPLOT 69,32 TO 67,30 TO 63,30 TO 61,32 TO 61,38 TO 63,40 TO 67,40 TO 69,38 TO 69,32: HPLOT 66,37 TO 70,41: RETURN : REM  Q
  402. 4020  HPLOT 65,60 TO 69,50 TO 73,60: HPLOT 67,57 TO 71,57: RETURN : REM  A
  403. 4030  HPLOT 71,70 TO 79,70 TO 71,80 TO 79,80: RETURN : REM  Z
  404. 4040  HPLOT 169,40 TO 169,30 TO 175,30 TO 177,31 TO 177,33 TO 175,34 TO 169,34: RETURN : REM  P
  405. 4050  HPLOT 61,10 TO 61,20: RETURN : REM  1
  406. 4060  HPLOT 69,12 TO 71,10 TO 75,10 TO 77,12 TO 77,14 TO 69,20 TO 77,20: RETURN : REM  2
  407. 4070  HPLOT 81,12 TO 83,10 TO 87,10 TO 89,11 TO 89,13 TO 87,14: HPLOT 85,14 TO 87,14 TO 89,15 TO 89,18 TO 87,20 TO 83,20 TO 81,18: RETURN : REM  3
  408. 4080  HPLOT 101,16 TO 93,16 TO 99,10 TO 99,20: RETURN : REM  4
  409. 4090  HPLOT 113,10 TO 105,10 TO 105,13 TO 107,12 TO 111,12 TO 113,14 TO 113,18 TO 111,20 TO 107,20 TO 105,18: RETURN : REM  5
  410. 4100  HPLOT 125,12 TO 123,10 TO 120,10 TO 117,13 TO 117,18 TO 119,20 TO 123,20 TO 125,18 TO 125,16 TO 123,15 TO 117,16: RETURN : REM  6
  411. 4110  HPLOT 129,10 TO 137,10 TO 131,18 TO 131,20: RETURN : REM  7
  412. 4120  HPLOT 149,12 TO 147,10 TO 143,10 TO 141,12 TO 141,14 TO 149,16 TO 149,18 TO 147,20 TO 143,20 TO 141,18 TO 141,16 TO 149,14 TO 149,12: RETURN : REM  8
  413. 4130  HPLOT 161,14 TO 159,15 TO 155,15 TO 153,14 TO 153,12 TO 155,10 TO 159,10 TO 161,12 TO 161,18 TO 159,20 TO 155,20 TO 153,18: RETURN : REM  9
  414. 4140  HPLOT 173,12 TO 171,10 TO 167,10 TO 165,12 TO 165,18 TO 167,20 TO 171,20 TO 173,18 TO 173,12: RETURN : REM  0
  415. 4150  REM  ABC SONG
  416. 4160 R = 0
  417. 4170  POKE 768,193: POKE 769,100: CALL 770
  418. 4180  POKE 768,193: POKE 769,100: CALL 770
  419. 4190  POKE 768,129: POKE 769,100: CALL 770
  420. 4200  POKE 768,129: POKE 769,100: CALL 770
  421. 4210  POKE 768,115: POKE 769,100: CALL 770
  422. 4220  POKE 768,115: POKE 769,100: CALL 770
  423. 4230  POKE 768,129: POKE 769,200: CALL 770
  424. 4240  POKE 768,145: POKE 769,100: CALL 770
  425. 4250  POKE 768,145: POKE 769,100: CALL 770
  426. 4260  POKE 768,153: POKE 769,100: CALL 770
  427. 4270  POKE 768,153: POKE 769,100: CALL 770
  428. 4280  IF R >0  THEN 4410
  429. 4290  FOR D = 1 TO 4
  430. 4300  POKE 768,172: POKE 769,50: CALL 770: NEXT D
  431. 4310  POKE 768,193: POKE 769,200: CALL 770
  432. 4320  POKE 768,129: POKE 769,100: CALL 770
  433. 4330  POKE 768,129: POKE 769,100: CALL 770
  434. 4340  POKE 768,145: POKE 769,100: CALL 770
  435. 4350  POKE 768,145: POKE 769,100: CALL 770
  436. 4360  POKE 768,153: POKE 769,100: CALL 770
  437. 4370  POKE 768,153: POKE 769,100: CALL 770
  438. 4380  POKE 768,172: POKE 769,200: CALL 770
  439. 4390 R = R +1: IF R = 1  THEN  GOTO 4320
  440. 4400  IF R = 2  THEN  GOTO 4170
  441. 4410  POKE 768,172: POKE 769,100: CALL 770
  442. 4420  POKE 768,172: POKE 769,100: CALL 770
  443. 4430  POKE 768,193: POKE 769,200: CALL 770
  444. 4440  RETURN 
  445. 4450  REM  COUNTING MUSIC
  446. 4460 R = 0
  447. 4470  FOR F = 1 TO 2
  448. 4480  POKE 768,145: POKE 769,100: CALL 770
  449. 4490  POKE 768,145: POKE 769,50: CALL 770
  450. 4500  POKE 768,145: POKE 769,50: CALL 770
  451. 4510  NEXT F
  452. 4520  POKE 768,115: POKE 769,100: CALL 770
  453. 4530  POKE 768,97: POKE 769,50: CALL 770
  454. 4540  POKE 768,97: POKE 769,50: CALL 770
  455. 4550  POKE 768,115: POKE 769,100: CALL 770
  456. 4560  POKE 768,145: POKE 769,200: CALL 770
  457. 4570  IF R = 1  THEN 4690
  458. 4580  FOR G = 1 TO 2
  459. 4590  POKE 768,129: POKE 769,100: CALL 770
  460. 4600  POKE 768,129: POKE 769,50: CALL 770
  461. 4610  POKE 768,129: POKE 769,50: CALL 770
  462. 4620  NEXT G
  463. 4630  POKE 768,153: POKE 769,100: CALL 770
  464. 4640  POKE 768,129: POKE 769,50: CALL 770
  465. 4650  POKE 768,129: POKE 769,50: CALL 770
  466. 4660  POKE 768,153: POKE 769,100: CALL 770
  467. 4670  POKE 768,193: POKE 769,200: CALL 770
  468. 4680 R = R +1: IF R = 1  THEN 4470
  469. 4690  POKE 768,97: POKE 769,100: CALL 770
  470. 4700  POKE 768,109: POKE 769,50: CALL 770
  471. 4710  POKE 768,109: POKE 769,50: CALL 770
  472. 4720  POKE 768,115: POKE 769,100: CALL 770
  473. 4730  POKE 768,129: POKE 769,100: CALL 770
  474. 4740  POKE 768,145: POKE 769,200: CALL 770
  475. 4750  RETURN 
  476. 4760  HPLOT 170,95 TO 190,95: HPLOT 175,92 TO 170,95 TO 175,98: RETURN : REM  LEFT ARROW
  477. 4770  VTAB 23: PRINT "     <PRESS ANY KEY TO CONTINUE>": WAIT  -16384,128: POKE  -16368,0: RETURN