home *** CD-ROM | disk | FTP | other *** search
/ Game Killer / Game_Killer.bin / 077.ABC.BAS < prev    next >
BASIC Source File  |  1979-12-31  |  5KB  |  150 lines
  1. 100 '
  2. 110 'Learning Lower Case ABC's
  3. 120 'by Randy Hawkins (for ONE THOUSAND Magazine)
  4. 130 '
  5. 135 COMMON RH: IF RH = 0 THEN SYSTEM
  6. 140 SCREEN 1: KEY OFF: RANDOMIZE TIMER
  7. 150 DIM S$(5): FOR A=0 TO 5: READ S$(A): NEXT A: M = 0
  8. 160 DATA "O2 L4 C C G G A A L2 G", "L4 F F E E L8 D D D D L2 C"
  9. 170 DATA "L4 G G L2 F L4 E E L2 D", "L8 G G L4 G L2 F L4 E E L2 D"
  10. 180 DATA "L4 C C G G A A L2 G", "L4 F F E E D D L2 C"
  11. 190 '
  12. 200 'Pick a Letter and Display It
  13. 210 '
  14. 220 N = INT(RND*26) + 1: CLS: GOSUB 770
  15. 230 ON INT(N/9)+1 GOTO 240,250,260
  16. 240 ON N GOSUB 480,490,500,510,520,530,540,550: GOTO 300
  17. 250 ON N-8 GOSUB 560,570,580,590,600,610,620,630,640: GOTO 300
  18. 260 ON N-17 GOSUB 650,660,670,680,690,700,710,720,730
  19. 270 '
  20. 280 'Wait for Keypress, Right One?
  21. 290 '
  22. 300 A$ = INKEY$: IF A$ = "" THEN 300
  23. 310 IF A$ = CHR$(27) THEN 1600
  24. 320 IF A$ = CHR$(N+64) OR A$ = CHR$(N+96) THEN 370
  25. 330 GOTO 300
  26. 340 '
  27. 350 'Correct Key Pressed
  28. 360 '
  29. 370 PLAY "MB" + S$(M): M = M + 1: IF M = 6 THEN M = 0
  30. 380 L$ = CHR$(N+64): FOR A = 6 TO 35: LOCATE 2,A
  31. 390 PRINT L$;: NEXT A: FOR A = 2 TO 24: LOCATE A,35
  32. 400 PRINT L$;: NEXT A: FOR A = 35 TO 6 STEP -1: LOCATE 24,A
  33. 410 PRINT L$;: NEXT A: FOR A = 24 TO 2 STEP -1
  34. 420 LOCATE A,6: PRINT L$;: NEXT A: A = TIMER
  35. 430 WHILE TIMER < A + 2: WEND: A = INT(RND*2)
  36. 440 B = INT(RND*2): COLOR A,B: GOTO 220
  37. 450 '
  38. 460 'Subroutines to Draw All 26 Letters
  39. 470 '
  40. 480 GOSUB 820: GOSUB 930: RETURN
  41. 490 GOSUB 820: GOSUB 960: RETURN
  42. 500 GOSUB 820: LINE (170,100)-(190,110),0,BF: RETURN
  43. 510 GOSUB 820: GOSUB 950: RETURN
  44. 520 GOSUB 500: LINE (145,100)-(185,105),2,BF: RETURN
  45. 530 GOSUB 1220: X = 180: Y = 55: GOSUB 840: RETURN
  46. 540 GOSUB 820: GOSUB 1000: RETURN
  47. 550 GOSUB 960: GOSUB 1050: RETURN
  48. 560 GOSUB 930: GOSUB 1070: RETURN
  49. 570 GOSUB 1000: GOSUB 1070: RETURN
  50. 580 GOSUB 960: GOSUB 1240: RETURN
  51. 590 GOSUB 960: RETURN
  52. 600 GOSUB 940: GOSUB 1050: GOSUB 1310: RETURN
  53. 610 GOSUB 940: GOSUB 1050: RETURN
  54. 620 GOSUB 820: RETURN
  55. 630 LINE (135,81)-(145,170),2,BF: GOSUB 820: RETURN
  56. 640 LINE (175,81)-(185,170),2,BF: GOSUB 820: RETURN
  57. 650 GOSUB 940: GOSUB 1060: LINE (170,100)-(190,110),0,BF: RETURN
  58. 660 GOSUB 1330: RETURN
  59. 670 GOSUB 1220: RETURN
  60. 680 GOSUB 930: GOSUB 1080: RETURN
  61. 690 GOSUB 1160: RETURN
  62. 700 GOSUB 1410: RETURN
  63. 710 GOSUB 1130: GOSUB 1510: RETURN
  64. 720 GOSUB 1000: GOSUB 1080: RETURN
  65. 730 GOSUB 1130: GOSUB 1540: RETURN
  66. 740 '
  67. 750 'Three Ruler Lines
  68. 760 '
  69. 770 LINE (60,30)-(260,30),1: LINE (60,80)-(260,80),1
  70. 780 LINE (60,130)-(260,130),1: RETURN
  71. 790 '
  72. 800 'Full, Upper Half, Lower Half Circles
  73. 810 '
  74. 820 CIRCLE (160,105),15,2: CIRCLE (160,105),25,2
  75. 830 PAINT (160,90),2,2: RETURN
  76. 840 CIRCLE (X,Y),15,2,0,3.14: CIRCLE (X,Y),25,2,0,3.14
  77. 850 LINE (X-25,Y)-(X-15,Y),2: LINE (X+15,Y)-(X+25,Y),2
  78. 860 PAINT (X,Y-20),2: RETURN
  79. 870 CIRCLE (X,Y),15,2,3.14,6.28: CIRCLE (X,Y),25,2,3.14,6.28
  80. 880 LINE (X-25,Y)-(X-15,Y),2: LINE (X+15,Y)-(X+25,Y),2
  81. 890 PAINT (X,Y+20),2: RETURN
  82. 900 '
  83. 910 'Full and Half Stems
  84. 920 '
  85. 930 LINE (175,81)-(185,129),2,BF: RETURN
  86. 940 LINE (135,81)-(145,129),2,BF: RETURN
  87. 950 LINE (175,41)-(185,129),2,BF: RETURN
  88. 960 LINE (135,41)-(145,129),2,BF: RETURN
  89. 970 '
  90. 980 'Descending Tail
  91. 990 '
  92. 1000 LINE (175,81)-(185,155),2,BF: X = 160: Y = 155
  93. 1010 GOSUB 870: RETURN
  94. 1020 '
  95. 1030 'Inverted "U", Superscript Dot, and Normal "U"
  96. 1040 '
  97. 1050 LINE (135,105)-(145,129),2,BF: LINE (175,105)-(185,129),2,BF
  98. 1060 X = 160: Y = 105: GOSUB 840: RETURN
  99. 1070 CIRCLE (180,60),5,2: PAINT (180,60),2: RETURN
  100. 1080 LINE (135,81)-(145,105),2,BF: LINE (175,81)-(185,105),2,BF
  101. 1090 X = 160: Y = 105: GOSUB 870: RETURN
  102. 1100 '
  103. 1110 'Diagonal Slash and "V"
  104. 1120 '
  105. 1130 LINE (135,129)-(175,81),2: LINE -(185,81),2
  106. 1140 LINE -(145,129),2: LINE -(135,129),2
  107. 1150 PAINT (160,105),2: RETURN
  108. 1160 LINE (135,81)-(155,129),2: LINE -(165,129),2
  109. 1170 LINE -(185,81),2: LINE -(175,81),2: LINE -(160,119),2
  110. 1180 LINE -(145,81),2: LINE -(135,81),2: PAINT (160,125),2: RETURN
  111. 1190 '
  112. 1200 'Crossed Line (T) and Right Half of "K"
  113. 1210 '
  114. 1220 LINE (155,55)-(165,129),2,BF
  115. 1230 LINE (135,75)-(185,85),2,BF: RETURN
  116. 1240 LINE (165,81)-(135,105),2: LINE -(165,129),2
  117. 1250 LINE -(179,129),2: LINE -(150,105),2: LINE -(179,81),2
  118. 1260 LINE -(165,81),2: PAINT (170,82),2
  119. 1270 PAINT (170,128),2: RETURN
  120. 1280 '
  121. 1290 'Second Half of "M" and Lower Case "S"
  122. 1300 '
  123. 1310 X = 200: Y = 105: GOSUB 840
  124. 1320 LINE (215,105)-(225,129),2,BF: RETURN
  125. 1330 FOR A=12 TO 28 STEP 16
  126. 1340 CIRCLE (160,95),A,2,0,4.71,.5
  127. 1350 CIRCLE (160,115),A,2,3.14,1.57,.5
  128. 1360 NEXT A: LINE (172,95)-(188,95),2
  129. 1370 LINE (132,115)-(148,115),2: PAINT (160,105),2: RETURN
  130. 1380 '
  131. 1390 'Lower Case "W"
  132. 1400 '
  133. 1410 LINE (135,81)-(142,129),2: LINE -(153,129),2
  134. 1420 LINE -(160,105),2: LINE -(167,129),2
  135. 1430 LINE -(178,129),2: LINE -(185,81),2
  136. 1440 LINE -(175,81),2: LINE -(172,119),2
  137. 1450 LINE -(160,81),2: LINE -(148,119),2
  138. 1460 LINE -(145,81),2: LINE -(135,81),2
  139. 1470 PAINT (160,85),2: RETURN
  140. 1480 '
  141. 1490 'Diagonal for "X" and Top/Bottom of "Z"
  142. 1500 '
  143. 1510 LINE (135,81)-(175,129),2: LINE -(185,129),2
  144. 1520 LINE -(145,81),2: LINE -(135,81),2
  145. 1530 PAINT (150,95),2: PAINT (170,115),2: RETURN
  146. 1540 LINE (135,81)-(175,88),2,BF
  147. 1550 LINE (145,122)-(185,129),2,BF: RETURN
  148. 1600 SCREEN 0: WIDTH 80: CLS: LOCATE 12,30
  149. 1610 PRINT "One Moment Please...": RUN "menu"
  150.