home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk051 / abc.bas (.txt) next >
Encoding:
GW-BASIC  |  1985-05-30  |  53.1 KB  |  1,276 lines
  1. 10  REM ***********************************************************************
  2. 20  REM ***********************************************************************
  3. 30  REM ******* ERYN'S ABC'S
  4. 40  REM ***********************************************************************
  5. 50  REM ******* To Eryn Parker-Ross
  6. 60  REM ******* by Bart Parker-Ross for Parker-Ross Associates
  7. 70  REM ******* 1673 Scramento Street, San Francisco, CA 94109
  8. 80  REM *******         415 441-6483
  9. 90  REM ******* Version 1.20 (C) Copyright  PARKER-ROSS ASSOCIATES  1985
  10. 100  REM ****** Licensed Material - Program Property of PARKER-ROSS ASSOCIATES
  11. 110  REM **********************************************************************
  12. 120  REM **********************************************************************
  13. 130  REM **********************************************************************
  14. 140  REM ****************************************************
  15. 150  CLS :KEY OFF:OPTION BASE 1 :W=10:S=7:P=0:T=0:U=7:V=15:M=0
  16. 160  COLOR S,P
  17. 170  WIDTH 80
  18. 180  ON ERROR GOTO 12220
  19. 190  REM ****************************************************
  20. 200  CLS :GOSUB 12320  :REM ********** PLEASE, DO NOT REMOVE! ****
  21. 210  END          :REM **************************************
  22. 220  REM ****************************************************
  23. 230  KEY (1) OFF  :KEY 1,""
  24. 240  KEY (2) OFF  :KEY 2,""
  25. 250  KEY (3) OFF  :KEY 3,""
  26. 260  KEY (4) OFF  :KEY 4,""
  27. 270  KEY (5) OFF  :KEY 5,""
  28. 280  KEY (6) OFF  :KEY 6,""
  29. 290  KEY (7) OFF  :KEY 7,""
  30. 300  KEY (8) OFF  :KEY 8,""
  31. 310  KEY (9) OFF  :KEY 9,""
  32. 320  KEY (10) OFF :KEY 10,""
  33. 330  CLEAR,,2024
  34. 340  CLS :W=10:S=7:P=0:T=0:U=7:V=15:M=0
  35. 350  REM ****************************************************
  36. 360  DIM ABCNOTES$(165)
  37. 370  DIM ABCSONGLINES$(24)
  38. 380  DIM HAPPYFACELOCATES(45)
  39. 390  DIM INQUIRELINE$(63), PILLAR(63)
  40. 400  DIM ERYN$(25)
  41. 410  DIM PICTURELINES$(24)
  42. 420  REM ****************************************************
  43. 430  REM ****************************************************
  44. 440  ERYN$(1)="E": ERYN$(2)="R":  ERYN$(3)="Y":  ERYN$(4)="N":  ERYN$(5)="'"
  45. 450  ERYN$(6)="S": ERYN$(7)=" ": ERYN$(8)="A": ERYN$(9)="B": ERYN$(10)="C"
  46. 460  ERYN$(11)="'": ERYN$(12)="S"
  47. 470  FOR I = 1 TO 24
  48. 480     READ PICTURELINES$(I)
  49. 490  NEXT I
  50. 500  GOSUB 930    : REM starts music ***************
  51. 510  LOCATE 2,1 :J=2
  52. 520  FOR I = 1 TO 24
  53. 530      LOCATE J,1: PRINT PICTURELINES$(I);:J=J+1
  54. 540  NEXT I
  55. 550  C=34:J=1 :LOOP=300 : R14=14
  56. 560  FOR I=1 TO 6
  57. 570  LOCATE 10,38:PRINT CHR$(2);:FOR L1=1 TO LOOP :NEXT L1:LOCATE 10,38:PRINT "CSRLIN";:LOCATE R14,C:PRINT ERYN$(J);:C=C+1:J=J+1
  58. 580  LOCATE 10,40:PRINT CHR$(2);:FOR L1=1 TO LOOP :NEXT L1:LOCATE 10,40:PRINT "CSRLIN";:LOCATE R14,C:PRINT ERYN$(J);:C=C+1:J=J+1
  59. 590  NEXT I
  60. 600  LOCATE 16,38:PRINT "1.2";
  61. 610  FOR I=1 TO 228
  62. 620  LOCATE 10,38:PRINT CHR$(2);:FOR L1=1 TO LOOP :NEXT L1:LOCATE 10,38:PRINT "CSRLIN";:'LOCATE R14,C:PRINT ERYN$(J);:C=C+1:J=J+1
  63. 630  LOCATE 10,40:PRINT CHR$(2);:FOR L1=1 TO LOOP :NEXT L1:LOCATE 10,40:PRINT "CSRLIN";:'LOCATE R14,C:PRINT ERYN$(J);:C=C+1:J=J+1
  64. 640  NEXT I
  65. 650  LOCATE 10,39:PRINT CHR$(2);
  66. 660  :COLOR S,P:FOR L1=1 TO 1 :NEXT L1:GOTO 1090 :REM branches to userinput **
  67. 670  DATA " CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN"
  68. 680  DATA " CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN                      CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN"
  69. 690  DATA " CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN    SCHOOL  HOUSE     CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN"
  70. 700  DATA " CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN                              CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN"
  71. 710  DATA " CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN             CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN             CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN"
  72. 720  DATA " CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN                  CSRLINCSRLINCSRLINCSRLINCSRLINWENDCSRLINCSRLINCSRLINCSRLINCSRLIN                 CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN"
  73. 730  DATA " CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN                     CSRLINCSRLINCSRLINCSRLINWENDWENDWENDCSRLINCSRLINCSRLINCSRLIN                   CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN"
  74. 740  DATA " CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN                     CSRLINCSRLINCSRLINWENDWENDWENDWENDWENDCSRLINCSRLINCSRLIN                   CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN"
  75. 750  DATA " CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN                     CSRLINCSRLINCSRLINCSRLIN<UNK! {0002}>CSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN                   CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN"
  76. 760  DATA " CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN                     CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN                   CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN"
  77. 770  DATA " CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN                                                   CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN"
  78. 780  DATA " CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN                                                   CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN"
  79. 790  DATA " CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN                                                   CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN"
  80. 800  DATA " CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN                                                   CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN"
  81. 810  DATA " CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN                                                   CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN"
  82. 820  DATA " CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN     CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN                       CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN        CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN"
  83. 830  DATA " CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN     CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN         CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN      CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN        CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN"
  84. 840  DATA " CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN     CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN         CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN      CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN        CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN"
  85. 850  DATA " CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN     CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN         CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN      CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN        CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN"
  86. 860  DATA " CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN                      CSRLIN<UNK! {FEDB}>CSRLINCSRLINCSRLINCSRLINCSRLIN                     CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN"
  87. 870  DATA " CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN                      CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN                     CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN"
  88. 880  DATA " CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN                      CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN                     CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN"
  89. 890  DATA " CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN                      CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN                     CSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLINCSRLIN"
  90. 900  DATA " <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>"
  91. 910  END
  92. 920  REM *****************************************************
  93. 930  REM ****************   ABC SONG    **********************
  94. 940  REM *****************************************************
  95. 950  F=0
  96. 960  PLAY "mb"
  97. 970  PLAY ON
  98. 980  ON PLAY(2) GOSUB 990
  99. 990  F=F+1
  100. 1000  ON F GOTO  1010,1020,1030,1040
  101. 1010  PLAY "T150; O3 C4 C4 G4 G4 A4 A4 G2 F4 F4 E4 E4":GOTO 1050
  102. 1020  PLAY "D8 D8 D8 D8 C2 G4 G4 F4 P4 E4 E4 D2 G8 G8":GOTO 1050
  103. 1030  PLAY "G4 F4 P4 E4 E4 D2 C4 C4 G4 G4 A4 A4 G2 F4":GOTO 1050
  104. 1040  PLAY "F4 E4 E4 D4 D4 C2" :GOTO 1090
  105. 1050  RETURN
  106. 1060  REM *****************************************************
  107. 1070  REM *****************************************************
  108. 1080  REM ****************************************************
  109. 1090  REM ****  program to accecpt input from keyboard ABC **
  110. 1100  COLOR V,M :LOCATE ,,1
  111. 1110  L2=1
  112. 1120  LOOP=10
  113. 1130  REM ************************************************
  114. 1140   INQUIRELINE$(1)=CHR$(32)   : PILLAR(1)=1 : REM --->SPACE
  115. 1150   INQUIRELINE$(2)=CHR$(32)   : PILLAR(2)=2 : REM --->SPACE
  116. 1160   INQUIRELINE$(3)=CHR$(32)   : PILLAR(3)=3 : REM --->SPACE
  117. 1170   INQUIRELINE$(4)=CHR$(32)   : PILLAR(4)=4 : REM --->SPACE
  118. 1180   INQUIRELINE$(5)=CHR$(32)   : PILLAR(5)=5 : REM --->SPACE
  119. 1190   INQUIRELINE$(6)=CHR$(32)   : PILLAR(6)=6 : REM --->SPACE
  120. 1200   INQUIRELINE$(7)=CHR$(32)   : PILLAR(7)=7 : REM --->SPACE
  121. 1210   INQUIRELINE$(8)=CHR$(32)   : PILLAR(8)=8 : REM --->SPACE
  122. 1220   INQUIRELINE$(9)=CHR$(65)   : PILLAR(9)=9 : REM --->A
  123. 1230   INQUIRELINE$(10)=CHR$(66)  : PILLAR(10)=10 : REM --->B
  124. 1240   INQUIRELINE$(11)=CHR$(67)  : PILLAR(11)=11 : REM --->C
  125. 1250   INQUIRELINE$(12)=CHR$(68)  : PILLAR(12)=12 : REM --->D
  126. 1260   INQUIRELINE$(13)=CHR$(69)  : PILLAR(13)=13 : REM --->E
  127. 1270   INQUIRELINE$(14)=CHR$(70)  : PILLAR(14)=14 : REM --->F
  128. 1280   INQUIRELINE$(15)=CHR$(71)  : PILLAR(15)=15 : REM --->G
  129. 1290   INQUIRELINE$(16)=CHR$(72)  : PILLAR(16)=16 : REM --->H
  130. 1300   INQUIRELINE$(17)=CHR$(73)  : PILLAR(17)=17 : REM --->I
  131. 1310  INQUIRELINE$(18)=CHR$(74)  : PILLAR(18)=18 : REM --->J
  132. 1320  INQUIRELINE$(19)=CHR$(75)  : PILLAR(19)=19 : REM --->K
  133. 1330  INQUIRELINE$(20)=CHR$(76)  : PILLAR(20)=20 : REM --->L
  134. 1340  INQUIRELINE$(21)=CHR$(77)  : PILLAR(21)=21 : REM --->M
  135. 1350  INQUIRELINE$(22)=CHR$(78)  : PILLAR(22)=22 : REM --->N
  136. 1360  INQUIRELINE$(23)=CHR$(79)  : PILLAR(23)=23 : REM --->O
  137. 1370  INQUIRELINE$(24)=CHR$(80)  : PILLAR(24)=24 : REM --->P
  138. 1380  INQUIRELINE$(25)=CHR$(81)  : PILLAR(25)=25 : REM --->Q
  139. 1390  INQUIRELINE$(26)=CHR$(82)  : PILLAR(26)=26 : REM --->R
  140. 1400  INQUIRELINE$(27)=CHR$(83)  : PILLAR(27)=27 : REM --->S
  141. 1410  INQUIRELINE$(28)=CHR$(84)  : PILLAR(28)=28 : REM --->T
  142. 1420  INQUIRELINE$(29)=CHR$(85)  : PILLAR(29)=29 : REM --->U
  143. 1430  INQUIRELINE$(30)=CHR$(86)  : PILLAR(30)=30 : REM --->V
  144. 1440  INQUIRELINE$(31)=CHR$(87)  : PILLAR(31)=31 : REM --->W
  145. 1450  INQUIRELINE$(32)=CHR$(88)  : PILLAR(32)=32 : REM --->X
  146. 1460  INQUIRELINE$(33)=CHR$(89)  : PILLAR(33)=33 : REM --->Y
  147. 1470  INQUIRELINE$(34)=CHR$(90)  : PILLAR(34)=34 : REM --->Z
  148. 1480  INQUIRELINE$(35)=CHR$(250) : PILLAR(35)=35 : REM ---><UNK! {00FA}>
  149. 1490  INQUIRELINE$(36)=CHR$(48)  : PILLAR(36)=36 : REM --->0
  150. 1500  INQUIRELINE$(37)=CHR$(49)  : PILLAR(37)=37 : REM --->1
  151. 1510  INQUIRELINE$(38)=CHR$(50)  : PILLAR(38)=38 : REM --->2
  152. 1520  INQUIRELINE$(39)=CHR$(51)  : PILLAR(39)=39 : REM --->3
  153. 1530  INQUIRELINE$(40)=CHR$(52)  : PILLAR(40)=40 : REM --->4
  154. 1540  INQUIRELINE$(41)=CHR$(53)  : PILLAR(41)=41 : REM --->5
  155. 1550  INQUIRELINE$(42)=CHR$(54)  : PILLAR(42)=42 : REM --->6
  156. 1560  INQUIRELINE$(43)=CHR$(55)  : PILLAR(43)=43 : REM --->7
  157. 1570  INQUIRELINE$(44)=CHR$(56)  : PILLAR(44)=44 : REM --->8
  158. 1580  INQUIRELINE$(45)=CHR$(57)  : PILLAR(45)=45 : REM --->9
  159. 1590  INQUIRELINE$(46)="10"      : PILLAR(46)=46 : REM --->10-TEN
  160. 1600  INQUIRELINE$(47)=CHR$(250) : PILLAR(47)=48 : REM ---><UNK! {00FA}>
  161. 1610  INQUIRELINE$(48)="LETTER"  : PILLAR(48)=49 : REM --->LETTER
  162. 1620  INQUIRELINE$(49)=CHR$(250) : PILLAR(49)=55 : REM ---><UNK! {00FA}>
  163. 1630  INQUIRELINE$(50)="NUMBER"  : PILLAR(50)=56 : REM --->NUMBER
  164. 1640  INQUIRELINE$(51)=CHR$(250) : PILLAR(51)=62 : REM ---><UNK! {00FA}>
  165. 1650  INQUIRELINE$(52)="SONG"    : PILLAR(52)=63 : REM --->SONG
  166. 1660  INQUIRELINE$(53)=CHR$(250) : PILLAR(53)=67 : REM ---><UNK! {00FA}>
  167. 1670  INQUIRELINE$(54)="SCH"     : PILLAR(54)=68 : REM --->SCH HOUSE
  168. 1680  INQUIRELINE$(55)=CHR$(250) : PILLAR(55)=71 : REM ---><UNK! {00FA}>
  169. 1690  INQUIRELINE$(56)="DRAW"     : PILLAR(56)=72 : REM --->DRAW
  170. 1700  INQUIRELINE$(57)=CHR$(250) : PILLAR(57)=76 : REM ---><UNK! {00FA}>
  171. 1710  INQUIRELINE$(58)="BYE"     : PILLAR(58)=77 : REM --->END
  172. 1720  REM ******* prints input line  on line 25  ********
  173. 1730  LOOP=1
  174. 1740  COLOR S,P : LOCATE 25,1 : PRINT "                                                                               ";
  175. 1750  FOR I=1 TO 58
  176. 1760  LOCATE 25,PILLAR(I) :COLOR S,P : PRINT INQUIRELINE$(I);
  177. 1770  NEXT I
  178. 1780  LOCATE ,,1
  179. 1790  REM ************************************************
  180. 1800  REM ****  input area    ****************************
  181. 1810  REM ************************************************
  182. 1820  SPOT=1 : X=7  :Y=0 :RAWUSER2$=""
  183. 1830  LOCATE 25,PILLAR(SPOT)
  184. 1840  NUUSER$=INPUT$(1)
  185. 1850  REM ************************************************
  186. 1860  IF NUUSER$=CHR$(13)  THEN GOSUB 2320 :REM ***---> CARRIAGE RETURN
  187. 1870  IF NUUSER$=" "       THEN GOSUB 2230 :REM ***---> SPACE BAR
  188. 1880  IF NUUSER$=CHR$(8)   THEN GOSUB 2140 :REM ***---> BACK SPACE
  189. 1890  IF NUUSER$=CHR$(9)  THEN GOTO  1830  :REM ***---> TAB
  190. 1900  IF NUUSER$=CHR$(27) THEN GOTO 1830  :REM ***--->  ESCAPE
  191. 1910  IF NUUSER$=CHR$(28) THEN GOSUB 2230 :REM ***--->  cursor right
  192. 1920  IF NUUSER$=CHR$(29) THEN GOSUB 2140 :REM ***--->  cursor left
  193. 1930  IF SPOT>9 OR SPOT=9 THEN LOCATE ,,0 : LOCATE 25,PILLAR(SPOT):COLOR T,U:PRINT INQUIRELINE$(SPOT);: GOTO 1840 :REM BACK TO USER INPUT *****
  194. 1940  FOR A=48 TO 57
  195. 1950   IF NUUSER$=CHR$(A) THEN GOTO 2050 :REM looking for the numbers ****
  196. 1960  NEXT A
  197. 1970  FOR A=65 TO 90
  198. 1980   IF NUUSER$=CHR$(A) THEN GOTO 2050 :'looking for the capital letters **
  199. 1990  NEXT A
  200. 2000  FOR A=97 TO 122
  201. 2010   IF NUUSER$=CHR$(A) THEN GOTO 2050 :'looking for the lowercase letters *
  202. 2020  NEXT A
  203. 2030  GOTO 1830
  204. 2040  REM ************************************************
  205. 2050  REM **** UPDATE SPOT COUNTER  AND PRINT MANUAL KEYBOARD INPUT (STRING$)
  206. 2060  REM ************************************************
  207. 2070  LOCATE 25,PILLAR(SPOT):COLOR X,Y :PRINT NUUSER$;
  208. 2080  SPOT=SPOT+1 :RAWUSER2$=RAWUSER2$+NUUSER$
  209. 2090  IF SPOT>9 OR SPOT=9 THEN LOCATE ,,0:LOCATE 25,PILLAR(SPOT):COLOR T,U:PRINT INQUIRELINE$(SPOT);: GOTO 1840 :REM BACK TO USER INPUT *****
  210. 2100  GOTO 1830
  211. 2110  REM ************************************************
  212. 2120  END
  213. 2130  REM ************************************************
  214. 2140  REM ****  ROUTINE TO MOVE THE INPUT LINE'S CURSOR TO THE LEFT
  215. 2150  REM ************************************************
  216. 2160  SPOT=SPOT-1 :IF SPOT=0 THEN SPOT=58  : GOTO 2190
  217. 2170  IF SPOT<9 THEN LOCATE ,,1  : LOCATE 25,PILLAR(SPOT) :COLOR S,P:PRINT INQUIRELINE$(SPOT);:  LOCATE 25,PILLAR(SPOT+1):COLOR S,P:PRINT INQUIRELINE$(SPOT+1); : GOTO 1830
  218. 2180  LOCATE 25,PILLAR(SPOT+1):COLOR S,P:PRINT INQUIRELINE$(SPOT+1);
  219. 2190  LOCATE 25,PILLAR(SPOT):COLOR T,U:PRINT INQUIRELINE$(SPOT);
  220. 2200  RETURN
  221. 2210  END
  222. 2220  REM ************************************************
  223. 2230  REM ****  ROUTINE TO MOVE THE INPUT LINE'S CURSOR TO THE RIGHT
  224. 2240  REM ************************************************
  225. 2250  IF SPOT<8 THEN SPOT=9 :LOCATE 25,PILLAR(SPOT) :COLOR T,U:PRINT INQUIRELINE$(SPOT);:COLOR S,P:RETURN
  226. 2260  SPOT=SPOT+1 :IF SPOT>58 THEN SPOT=1 : LOCATE 25,PILLAR(57):COLOR S,P:PRINT INQUIRELINE$(58);
  227. 2270  IF SPOT=1 THEN LOCATE ,,1 :GOTO 1830
  228. 2280  LOCATE 25,PILLAR(SPOT-1):COLOR S,P:PRINT INQUIRELINE$(SPOT-1);
  229. 2290  LOCATE 25,PILLAR(SPOT):COLOR T,U:PRINT INQUIRELINE$(SPOT);
  230. 2300  RETURN
  231. 2310  END
  232. 2320  REM ************************************************
  233. 2330  REM ***** Evaluate user input  *********************
  234. 2340  REM ************************************************
  235. 2350  LOCATE ,,0  : X=16: Y=7
  236. 2360  IF SPOT<9 THEN SWAP USER$,RAWUSER2$ : GOTO 2380
  237. 2370  USER$=INQUIRELINE$(SPOT)
  238. 2380  COLOR S,P :CLS :LOCATE 25,34  :PRINT "OK HERE I GO";
  239. 2390  FLAG=0
  240. 2400  IF USER$="A" OR USER$="a" THEN GOSUB 10750 :  GOSUB  2890
  241. 2410  IF USER$="B" OR USER$="b" THEN GOSUB 10750 :  GOSUB  3060
  242. 2420  IF USER$="C" OR USER$="c" THEN GOSUB 10750 :  GOSUB  3230
  243. 2430  IF USER$="D" OR USER$="d" THEN GOSUB 10750 :  GOSUB  3360
  244. 2440  IF USER$="E" OR USER$="e" THEN GOSUB 10750 :  GOSUB  3510
  245. 2450  IF USER$="F" OR USER$="f" THEN GOSUB 10750 :  GOSUB  3660
  246. 2460  IF USER$="G" OR USER$="g" THEN GOSUB 10750 :  GOSUB  3790
  247. 2470  IF USER$="H" OR USER$="h" THEN GOSUB 10750 :  GOSUB  3960
  248. 2480  IF USER$="I" OR USER$="i" THEN GOSUB 10750 :  GOSUB  4070
  249. 2490  IF USER$="J" OR USER$="j" THEN GOSUB 10750 :  GOSUB  4180
  250. 2500  IF USER$="K" OR USER$="k" THEN GOSUB 10750 :  GOSUB  4330
  251. 2510  IF USER$="L" OR USER$="l" THEN GOSUB 10750 :  GOSUB  4470
  252. 2520  IF USER$="M" OR USER$="m" THEN GOSUB 10750 :  GOSUB  4560
  253. 2530  IF USER$="N" OR USER$="n" THEN GOSUB 10750 :  GOSUB  4690
  254. 2540  IF USER$="O" OR USER$="o" THEN GOSUB 10750 :  GOSUB  4800
  255. 2550  IF USER$="P" OR USER$="p" THEN GOSUB 10750 :  GOSUB  4930
  256. 2560  IF USER$="Q" OR USER$="q" THEN GOSUB 10750 :  GOSUB  5060
  257. 2570  IF USER$="R" OR USER$="r" THEN GOSUB 10750 :  GOSUB  5210
  258. 2580  IF USER$="S" OR USER$="s" THEN GOSUB 10750 :  GOSUB  5360
  259. 2590  IF USER$="T" OR USER$="t" THEN GOSUB 10750 :  GOSUB  5510
  260. 2600  IF USER$="U" OR USER$="u" THEN GOSUB 10750 :  GOSUB  5600
  261. 2610  IF USER$="V" OR USER$="v" THEN GOSUB 10750 :  GOSUB  5710
  262. 2620  IF USER$="W" OR USER$="w" THEN GOSUB 10750 :  GOSUB  5800
  263. 2630  IF USER$="X" OR USER$="x" THEN GOSUB 10750 :  GOSUB  5930
  264. 2640  IF USER$="Y" OR USER$="y" THEN GOSUB 10750 :  GOSUB  6020
  265. 2650  IF USER$="Z" OR USER$="z" THEN GOSUB 10750 :  GOSUB  6130
  266. 2660  IF USER$="0" THEN GOSUB 10750 :  GOSUB  6240
  267. 2670  IF USER$="1" THEN GOSUB 10750 :  GOSUB 6400
  268. 2680  IF USER$="2" THEN GOSUB 10750 :  GOSUB  6500
  269. 2690  IF USER$="3" THEN GOSUB 10750 :  GOSUB  6620
  270. 2700  IF USER$="4" THEN GOSUB 10750 :  GOSUB  6770
  271. 2710  IF USER$="5" THEN GOSUB 10750 :  GOSUB  6880
  272. 2720  IF USER$="6" THEN GOSUB 10750 :  GOSUB  7030
  273. 2730  IF USER$="7" THEN GOSUB 10750 :  GOSUB  7190
  274. 2740  IF USER$="8" THEN GOSUB 10750 :  GOSUB  7280
  275. 2750  IF USER$="9" THEN GOSUB 10750 :  GOSUB  7470
  276. 2760  IF USER$="10" THEN GOSUB 10750 :  GOSUB  7620
  277. 2770  IF USER$="letter" OR USER$="LETTER" THEN GOSUB 10750 :  GOSUB  9050
  278. 2780  IF USER$="NUMBER" OR USER$="number" THEN GOSUB 10750 :  GOSUB  9410
  279. 2790  IF USER$="sch" OR USER$="SCH" THEN GOTO  220
  280. 2800  IF USER$="song" OR USER$="SONG" THEN GOSUB  9930
  281. 2810  IF USER$=CHR$(250) THEN GOSUB  9930
  282. 2820  IF USER$="DRAW" OR USER$="draw" THEN GOSUB 11070
  283. 2830  IF USER$="BYE" OR USER$="bye" THEN CLS:LOCATE 12,35:PRINT "BYE  BYE";:SYSTEM
  284. 2840  REM *****************************************************
  285. 2850  IF FLAG=0 THEN GOSUB 9930
  286. 2860  GOTO 1090
  287. 2870  REM *****************************************************
  288. 2880  REM *************************************************
  289. 2890  REM ****** SUBROUTINES TO MAKE -  " A "   ****************
  290. 2900  REM *****************************************************
  291. 2910    GOSUB 9850 : ABC$="A"
  292. 2920   START=4 : HALT=13 : COUNTER=1
  293. 2930   COLOR X,Y:LOCATE 3,21 :PRINT ABC$ : GOSUB 7730
  294. 2940   START=13 : HALT=22 : COUNTER=1
  295. 2950   GOSUB 7810
  296. 2960   START=22 : HALT=38 : COUNTER=1
  297. 2970   LOCATE 3,21 :PRINT ABC$ : GOSUB 8060  :LOCATE 3,39 :PRINT ABC$
  298. 2980   START=4 : HALT=13 : COUNTER=1
  299. 2990   LOCATE 3,39 :PRINT ABC$ : GOSUB 7890
  300. 3000   START=13 : HALT=22 : COUNTER=1
  301. 3010   GOSUB 7970
  302. 3020   START=20 : HALT=40 : COUNTER=1
  303. 3030   GOSUB 8140
  304. 3040   FLAG=1:COLOR V,M : RETURN
  305. 3050  REM *****************************************************
  306. 3060  REM ****** SUBROUTINES TO MAKE -  " B "   ****************
  307. 3070  REM *****************************************************
  308. 3080    GOSUB 9850 :ABC$="B"
  309. 3090   START=2 : HALT=22 : COUNTER=1
  310. 3100   GOSUB 8880
  311. 3110   START=24 : HALT=38 : COUNTER=1
  312. 3120   GOSUB 8060  :LOCATE 3,39 :PRINT ABC$
  313. 3130   START=4 : HALT=10 : COUNTER=1
  314. 3140   LOCATE 3,39 :PRINT ABC$ : GOSUB 7890  :LOCATE 11,39 :PRINT ABC$
  315. 3150   START=25 : HALT=38 : COUNTER=1
  316. 3160   GOSUB 8140  :LOCATE 13,39 :PRINT ABC$
  317. 3170   START=14 : HALT=20 : COUNTER=1
  318. 3180   GOSUB 7970  :LOCATE 21,39 :PRINT ABC$
  319. 3190   START=24 : HALT=38 : COUNTER=1
  320. 3200   GOSUB 8220
  321. 3210   FLAG=1:COLOR V,M:RETURN
  322. 3220  REM *****************************************************
  323. 3230  REM ****** SUBROUTINES TO MAKE -  " C "   ****************
  324. 3240  REM *****************************************************
  325. 3250    GOSUB 9850 :ABC$="C"
  326. 3260   START=38 : HALT=22 : COUNTER=-1 : COLOR X,Y
  327. 3270   LOCATE 3,39 :PRINT ABC$ : GOSUB 8060  :LOCATE 3,21 :PRINT ABC$
  328. 3280   START=4 : HALT=13 : COUNTER=1
  329. 3290   GOSUB 7730
  330. 3300   START=13 : HALT=20 : COUNTER=1
  331. 3310   GOSUB 7810
  332. 3320   START=22 : HALT=38 : COUNTER=1
  333. 3330   LOCATE 21,21 :PRINT ABC$ : GOSUB 8220  :LOCATE 21,39 :PRINT ABC$
  334. 3340   FLAG=1:COLOR V,M:RETURN
  335. 3350  REM *****************************************************
  336. 3360  REM ****** SUBROUTINES TO MAKE -  " D "   ****************
  337. 3370  REM *****************************************************
  338. 3380    GOSUB 9850 :ABC$="D"
  339. 3390   START=2 : HALT=22 : COUNTER=1
  340. 3400   GOSUB 8880
  341. 3410   START=23 : HALT=38 : COUNTER=1
  342. 3420   GOSUB 8060  :LOCATE 3,39 :PRINT ABC$
  343. 3430   START=4 : HALT=13 : COUNTER=1
  344. 3440   GOSUB 7890
  345. 3450   START=13 : HALT=20 : COUNTER=1
  346. 3460   GOSUB 7970  : LOCATE 21,39 :PRINT ABC$
  347. 3470   START=38 : HALT=23 : COUNTER=-1
  348. 3480   GOSUB 8220
  349. 3490   FLAG=1:COLOR V,M:RETURN
  350. 3500  REM *****************************************************
  351. 3510  REM ****** SUBROUTINES TO MAKE -  " E "   ****************
  352. 3520  REM *****************************************************
  353. 3530    GOSUB 9850 :ABC$="E"
  354. 3540   START=2 : HALT=12 : COUNTER=1
  355. 3550   GOSUB 7730
  356. 3560   START=12 : HALT=22 : COUNTER=1
  357. 3570   GOSUB 7810
  358. 3580   START=20 : HALT=40 : COUNTER=1
  359. 3590   GOSUB 8060
  360. 3600   START=20 : HALT=39 : COUNTER=1
  361. 3610   GOSUB 8140
  362. 3620   START=20 : HALT=40 : COUNTER=1
  363. 3630   GOSUB 8220
  364. 3640   FLAG=1:COLOR V,M:RETURN
  365. 3650  REM *****************************************************
  366. 3660  REM ****** SUBROUTINES TO MAKE -  " F "   ****************
  367. 3670  REM *****************************************************
  368. 3680    GOSUB 9850 :ABC$="F"
  369. 3690   START=2 : HALT=13 : COUNTER=1
  370. 3700   GOSUB 7730
  371. 3710   START=13 : HALT=22 : COUNTER=1
  372. 3720   GOSUB 7810
  373. 3730   START=20 : HALT=40 : COUNTER=1
  374. 3740   GOSUB 8060
  375. 3750   START=20 : HALT=39 : COUNTER=1
  376. 3760   GOSUB 8140
  377. 3770   FLAG=1:COLOR V,M:RETURN
  378. 3780  REM *****************************************************
  379. 3790  REM ****** SUBROUTINES TO MAKE -  " G "   ****************
  380. 3800  REM *****************************************************
  381. 3810    GOSUB 9850 :ABC$="G"
  382. 3820   START=38 : HALT=22 : COUNTER=-1  :COLOR X,Y
  383. 3830   LOCATE 3,39 :PRINT ABC$ : GOSUB 8060 :LOCATE 3,21 :PRINT ABC$
  384. 3840   START=4 : HALT=13 : COUNTER=1
  385. 3850   GOSUB 7730
  386. 3860   START=13 : HALT=20 : COUNTER=1
  387. 3870   GOSUB 7810 :LOCATE 21,21 :PRINT ABC$
  388. 3880   START=22 : HALT=38 : COUNTER=1
  389. 3890   GOSUB 8220 :LOCATE 21,39 :PRINT ABC$
  390. 3900   START=20 : HALT=12 : COUNTER=-1
  391. 3910   GOSUB 7970 :LOCATE 12,39 :PRINT ABC$
  392. 3920   LOCATE 12,38 :PRINT ABC$
  393. 3930   LOCATE 12,37 :PRINT ABC$
  394. 3940   FLAG=1:COLOR V,M:RETURN
  395. 3950  REM *****************************************************
  396. 3960  REM ****** SUBROUTINES TO MAKE -  " H "   ****************
  397. 3970  REM *****************************************************
  398. 3980    GOSUB 9850 :ABC$="H"
  399. 3990   START=2 : HALT=22 : COUNTER=1
  400. 4000   GOSUB 7730
  401. 4010   START=2 : HALT=22 : COUNTER=1
  402. 4020   GOSUB 7890
  403. 4030   START=20 : HALT=40 : COUNTER=1
  404. 4040   GOSUB 8140
  405. 4050   FLAG=1:COLOR V,M:RETURN
  406. 4060  REM *****************************************************
  407. 4070  REM ****** SUBROUTINES TO MAKE -  " I "   ****************
  408. 4080  REM *****************************************************
  409. 4090    GOSUB 9850 :ABC$="I"
  410. 4100   START=2 : HALT=22 : COUNTER=1
  411. 4110   GOSUB 8800
  412. 4120   START=21 : HALT=39 : COUNTER=1
  413. 4130   GOSUB 8060
  414. 4140   START=21 : HALT=39 : COUNTER=1
  415. 4150   GOSUB 8220
  416. 4160   FLAG=1:COLOR V,M:RETURN
  417. 4170  REM *****************************************************
  418. 4180  REM ****** SUBROUTINES TO MAKE -  " J "   ****************
  419. 4190  REM *****************************************************
  420. 4200    GOSUB 9850 :ABC$="J"
  421. 4210   START=13 : HALT=20 : COUNTER=1
  422. 4220   GOSUB 7810
  423. 4230   START=22 : HALT=38 : COUNTER=1
  424. 4240   LOCATE 21,21 :PRINT ABC$ : GOSUB 8220 :LOCATE 21,39 :PRINT ABC$
  425. 4250   START=20 : HALT=2 : COUNTER=-1
  426. 4260   GOSUB 7970 :LOCATE 21,39 :PRINT ABC$
  427. 4270   LOCATE 2,38 :PRINT ABC$
  428. 4280   LOCATE 2,39 :PRINT ABC$
  429. 4290   LOCATE 2,41 :PRINT ABC$
  430. 4300   LOCATE 2,42 :PRINT ABC$
  431. 4310   FLAG=1:COLOR V,M:RETURN
  432. 4320  REM *****************************************************
  433. 4330  REM ****** SUBROUTINES TO MAKE -  " K "   ****************
  434. 4340  REM *****************************************************
  435. 4350    GOSUB 9850 :ABC$="K"
  436. 4360   START=2 : HALT=22 : COUNTER=1
  437. 4370   GOSUB 8880
  438. 4380   LOCATE 15,28 :PRINT ABC$
  439. 4390   LOCATE 14,28 :PRINT ABC$
  440. 4400   LOCATE 13,29 :PRINT ABC$
  441. 4410   START=12 : HALT=2 : COUNTER=-1
  442. 4420   GOSUB 8480
  443. 4430   START=12 : HALT=22 : COUNTER=1
  444. 4440   GOSUB 8570
  445. 4450   FLAG=1:COLOR V,M:RETURN
  446. 4460  REM *****************************************************
  447. 4470  REM ****** SUBROUTINES TO MAKE -  " L "   ****************
  448. 4480  REM *****************************************************
  449. 4490    GOSUB 9850 :ABC$="L"
  450. 4500   START=2 : HALT=22 : COUNTER=1
  451. 4510   GOSUB 7730
  452. 4520   START=20 : HALT=42 : COUNTER=1
  453. 4530   GOSUB 8220
  454. 4540   FLAG=1:COLOR V,M:RETURN
  455. 4550  REM *****************************************************
  456. 4560  REM ****** SUBROUTINES TO MAKE -  " M "   ****************
  457. 4570  REM *****************************************************
  458. 4580    GOSUB 9850 :ABC$="M"
  459. 4590   START=2 : HALT=22 : COUNTER=1
  460. 4600   GOSUB 7730
  461. 4610   START=2 : HALT=12 : COUNTER=1
  462. 4620   GOSUB 8300
  463. 4630   START=12 : HALT=2 : COUNTER=-1
  464. 4640   GOSUB 8480
  465. 4650   START=2 : HALT=22 : COUNTER=1
  466. 4660   GOSUB 7890
  467. 4670   FLAG=1:COLOR V,M:RETURN
  468. 4680  REM *****************************************************
  469. 4690  REM ****** SUBROUTINES TO MAKE -  " N "   ****************
  470. 4700  REM *****************************************************
  471. 4710    GOSUB 9850 :ABC$="N"
  472. 4720   START=2 : HALT=22 : COUNTER=1
  473. 4730   GOSUB 7730
  474. 4740   START=2 : HALT=22 : COUNTER=1
  475. 4750   GOSUB 8300
  476. 4760   START=2 : HALT=22 : COUNTER=1
  477. 4770   GOSUB 7890
  478. 4780   FLAG=1:COLOR V,M:RETURN
  479. 4790  REM *****************************************************
  480. 4800  REM ****** SUBROUTINES TO MAKE -  " O "   ****************
  481. 4810  REM *****************************************************
  482. 4820    GOSUB 9850 :ABC$="O"
  483. 4830   START=22 : HALT=38 : COUNTER=1
  484. 4840   GOSUB 8060 :LOCATE 3,39 :PRINT ABC$
  485. 4850   START=4 : HALT=20 : COUNTER=1
  486. 4860   LOCATE 3,39 :PRINT ABC$ : GOSUB 7970 :LOCATE 21,39 :PRINT ABC$
  487. 4870   START=38 : HALT=22 : COUNTER=-1
  488. 4880   LOCATE 21,39 :PRINT ABC$ : GOSUB 8220 :LOCATE 21,21 :PRINT ABC$
  489. 4890   START=20 : HALT=4 : COUNTER=-1 :COLOR X,Y
  490. 4900   LOCATE 21,21 :PRINT ABC$ : GOSUB 7730 :LOCATE 3,21 :PRINT ABC$
  491. 4910   FLAG=1:COLOR V,M:RETURN
  492. 4920  REM *****************************************************
  493. 4930  REM ****** SUBROUTINES TO MAKE -  " P "   ****************
  494. 4940  REM *****************************************************
  495. 4950    GOSUB 9850 :ABC$="P"
  496. 4960   START=2 : HALT=22 : COUNTER=1
  497. 4970   GOSUB 7730
  498. 4980   START=20 : HALT=38 : COUNTER=1
  499. 4990   GOSUB 8060 :LOCATE 3,39 :PRINT ABC$
  500. 5000   START=4 : HALT=10 : COUNTER=1
  501. 5010   GOSUB 7890 : LOCATE 11,39 :PRINT ABC$
  502. 5020   START=38 : HALT=20 : COUNTER=-1
  503. 5030   GOSUB 8140
  504. 5040   FLAG=1:COLOR V,M:RETURN
  505. 5050  REM *****************************************************
  506. 5060  REM ****** SUBROUTINES TO MAKE -  " Q  "   ****************
  507. 5070  REM *****************************************************
  508. 5080    GOSUB 9850 :ABC$="Q"
  509. 5090   START=22 : HALT=38 : COUNTER=1
  510. 5100   GOSUB 8060 :LOCATE 3,39 :PRINT ABC$
  511. 5110   START=4 : HALT=20 : COUNTER=1
  512. 5120   LOCATE 3,39 :PRINT ABC$ : GOSUB 7970 :LOCATE 21,39 :PRINT ABC$
  513. 5130   START=38 : HALT=22 : COUNTER=-1
  514. 5140   LOCATE 21,39 :PRINT ABC$ : GOSUB 8220 :LOCATE 21,21 :PRINT ABC$
  515. 5150   START=20 : HALT=4 : COUNTER=-1 :COLOR X,Y
  516. 5160   LOCATE 21,21 :PRINT ABC$ : GOSUB 7730 :LOCATE 3,21 :PRINT ABC$
  517. 5170   START=12 : HALT=22 : COUNTER=1
  518. 5180   GOSUB 8570 :LOCATE 23,41 :PRINT ABC$
  519. 5190   FLAG=1:COLOR V,M:RETURN
  520. 5200  REM *****************************************************
  521. 5210  REM ****** SUBROUTINES TO MAKE -  " R "   ****************
  522. 5220  REM *****************************************************
  523. 5230    GOSUB 9850 :ABC$="R"
  524. 5240   START=2 : HALT=22 : COUNTER=1
  525. 5250   GOSUB 7730
  526. 5260   START=20 : HALT=38 : COUNTER=1
  527. 5270   GOSUB 8060 :LOCATE 3,39 : PRINT ABC$
  528. 5280   START=4 : HALT=10 : COUNTER=1
  529. 5290   GOSUB 7890 :LOCATE 11,39 : PRINT ABC$
  530. 5300   START=38 : HALT=20 : COUNTER=-1
  531. 5310   GOSUB 8140
  532. 5320   START=12 : HALT=22 : COUNTER=1
  533. 5330   GOSUB 8570
  534. 5340   FLAG=1:COLOR V,M:RETURN
  535. 5350  REM *****************************************************
  536. 5360  REM ****** SUBROUTINES TO MAKE -  " S "   ****************
  537. 5370  REM *****************************************************
  538. 5380    GOSUB 9850 :ABC$="S"
  539. 5390   START=38 : HALT=22 : COUNTER=-1 :COLOR X,Y
  540. 5400   LOCATE 3,39 :PRINT ABC$ : GOSUB 8060 :LOCATE 3,21 :PRINT ABC$
  541. 5410   START=4 : HALT=10 : COUNTER=1
  542. 5420   GOSUB 7730 :LOCATE 11,21 :PRINT ABC$
  543. 5430   START=22 : HALT=38 : COUNTER=1
  544. 5440   GOSUB 8140 :LOCATE 13,39 :PRINT ABC$
  545. 5450   START=14 : HALT=20 : COUNTER=1
  546. 5460   GOSUB 7970 :LOCATE 21,39 :PRINT ABC$
  547. 5470   START=38 : HALT=22 : COUNTER=-1
  548. 5480   GOSUB 8220 :LOCATE 21,21 :PRINT ABC$
  549. 5490   FLAG=1:COLOR V,M:RETURN
  550. 5500  REM *****************************************************
  551. 5510  REM ****** SUBROUTINES TO MAKE -  " T "   ****************
  552. 5520  REM *****************************************************
  553. 5530    GOSUB 9850 :ABC$="T"
  554. 5540   START=2 : HALT=22 : COUNTER=1
  555. 5550   GOSUB 8800
  556. 5560   START=20 : HALT=40 : COUNTER=1
  557. 5570   GOSUB 8060
  558. 5580   FLAG=1:COLOR V,M:RETURN
  559. 5590  REM *****************************************************
  560. 5600  REM ****** SUBROUTINES TO MAKE -  " U "   ****************
  561. 5610  REM *****************************************************
  562. 5620    GOSUB 9850 :ABC$="U"
  563. 5630   START=2 : HALT=20 : COUNTER=1
  564. 5640   GOSUB 7730
  565. 5650   START=22 : HALT=38 : COUNTER=1
  566. 5660   LOCATE 21,21 :PRINT ABC$ : GOSUB 8220 :LOCATE 21,39 :PRINT ABC$
  567. 5670   START=20 : HALT=2 : COUNTER=-1
  568. 5680   GOSUB 7890
  569. 5690   FLAG=1:COLOR V,M:RETURN
  570. 5700  REM *****************************************************
  571. 5710  REM ****** SUBROUTINES TO MAKE -  " V "   ****************
  572. 5720  REM *****************************************************
  573. 5730    GOSUB 9850 :ABC$="V"
  574. 5740   START=2 : HALT=22 : COUNTER=1
  575. 5750   GOSUB 8570
  576. 5760   START=22 : HALT=2 : COUNTER=-1
  577. 5770   GOSUB 8480
  578. 5780   FLAG=1:COLOR V,M:RETURN
  579. 5790  REM *****************************************************
  580. 5800  REM ****** SUBROUTINES TO MAKE -  " W "   ****************
  581. 5810  REM *****************************************************
  582. 5820    GOSUB 9850 :ABC$="W"
  583. 5830   START=2 : HALT=22 : COUNTER=1
  584. 5840   GOSUB 7730
  585. 5850   START=22 : HALT=12 : COUNTER=-1
  586. 5860   GOSUB 8670
  587. 5870   START=12 : HALT=22 : COUNTER=1
  588. 5880   GOSUB 8570
  589. 5890   START=22 : HALT=2 : COUNTER=-1
  590. 5900   GOSUB 7890
  591. 5910   FLAG=1:COLOR V,M:RETURN
  592. 5920  REM *****************************************************
  593. 5930  REM ****** SUBROUTINES TO MAKE -  " X "   ****************
  594. 5940  REM *****************************************************
  595. 5950    GOSUB 9850 :ABC$="X"
  596. 5960   START=2 : HALT=22 : COUNTER=1
  597. 5970   GOSUB 8300
  598. 5980   START=2 : HALT=22 : COUNTER=1
  599. 5990   GOSUB 8670
  600. 6000   FLAG=1:COLOR V,M:RETURN
  601. 6010  REM *****************************************************
  602. 6020  REM ****** SUBROUTINES TO MAKE -  " Y "   ****************
  603. 6030  REM *****************************************************
  604. 6040    GOSUB 9850 :ABC$="Y"
  605. 6050   START=2 : HALT=12 : COUNTER=1
  606. 6060   GOSUB 8300
  607. 6070   START=2 : HALT=12 : COUNTER=1
  608. 6080   GOSUB 8670
  609. 6090   START=12 : HALT=22 : COUNTER=1
  610. 6100   GOSUB 8980
  611. 6110   FLAG=1:COLOR V,M:RETURN
  612. 6120  REM *****************************************************
  613. 6130  REM ****** SUBROUTINES TO MAKE -  " Z "   ****************
  614. 6140  REM *****************************************************
  615. 6150    GOSUB 9850 :ABC$="Z"
  616. 6160   START=22 : HALT=40 : COUNTER=1 : COLOR X,Y
  617. 6170   GOSUB 8060
  618. 6180   START=2 : HALT=22 : COUNTER=1
  619. 6190   GOSUB 8670
  620. 6200   START=21 : HALT=38 : COUNTER=1
  621. 6210   GOSUB 8220
  622. 6220   FLAG=1:COLOR V,M:RETURN
  623. 6230  REM *****************************************************
  624. 6240  REM ****** SUBROUTINES TO MAKE -  " 0 "   ****************
  625. 6250  REM *****************************************************
  626. 6260    GOSUB 9850
  627. 6270    ABC$="0"
  628. 6280   START=22 : HALT=38 : COUNTER=1
  629. 6290   GOSUB 8060 :LOCATE 3,39 :PRINT ABC$
  630. 6300   START=4 : HALT=20 : COUNTER=1
  631. 6310   LOCATE 3,39 :PRINT ABC$ : GOSUB 7970 :LOCATE 21,39 :PRINT ABC$
  632. 6320   START=38 : HALT=22 : COUNTER=-1
  633. 6330   LOCATE 21,39 :PRINT ABC$ : GOSUB 8220 :LOCATE 21,21 :PRINT ABC$
  634. 6340   START=20 : HALT=4 : COUNTER=-1 :COLOR X,Y
  635. 6350   LOCATE 21,21 :PRINT ABC$ : GOSUB 7730 :LOCATE 3,21 :PRINT ABC$
  636. 6360   START=3 : HALT=21 : COUNTER=1
  637. 6370   GOSUB 8670
  638. 6380   FLAG=1:COLOR V,M:RETURN
  639. 6390  REM *****************************************************
  640. 6400  REM ****** SUBROUTINES TO MAKE -  " 1 "   ****************
  641. 6410  REM *****************************************************
  642. 6420    GOSUB 9850 :ABC$="1"
  643. 6430   START=2 : HALT=22 : COUNTER=1 :COLOR X,Y
  644. 6440   LOCATE 5,27:PRINT ABC$:LOCATE 4,28:PRINT ABC$: LOCATE 3,29:PRINT ABC$
  645. 6450   GOSUB 8800
  646. 6460   START=25 : HALT=35 : COUNTER=1
  647. 6470   GOSUB 8220
  648. 6480   FLAG=1:COLOR V,M:RETURN
  649. 6490  REM *****************************************************
  650. 6500  REM ****** SUBROUTINES TO MAKE -  " 2 "   ****************
  651. 6510  REM *****************************************************
  652. 6520    GOSUB 9850 :ABC$="2"
  653. 6530   START=22 : HALT=37 : COUNTER=1 :COLOR X,Y
  654. 6540   LOCATE 3,21 :PRINT ABC$ : GOSUB 8060 :LOCATE 3,38:PRINT ABC$
  655. 6550   LOCATE 4,39:PRINT ABC$
  656. 6560   START=5 : HALT=20 : COUNTER=1
  657. 6570   GOSUB 8670 :LOCATE 21,23 :PRINT ABC$
  658. 6580   START=22 : HALT=40 : COUNTER=1
  659. 6590   GOSUB 8220
  660. 6600   FLAG=1:COLOR V,M:RETURN
  661. 6610  REM *****************************************************
  662. 6620  REM ****** SUBROUTINES TO MAKE -  " 3 "   ****************
  663. 6630  REM *****************************************************
  664. 6640    GOSUB 9850 :ABC$="3" :COLOR  X,Y
  665. 6650   START=22 : HALT=38 : COUNTER=1
  666. 6660   LOCATE 3,21 :PRINT ABC$ : GOSUB 8060 :LOCATE 3,39 :PRINT ABC$
  667. 6670   START=4 : HALT=10 : COUNTER=1
  668. 6680   GOSUB 7890 :LOCATE 11,39 :PRINT ABC$
  669. 6690   START=38 : HALT=22 : COUNTER=-1
  670. 6700   GOSUB 8140
  671. 6710   START=14 : HALT=20 : COUNTER=1
  672. 6720   LOCATE 13,39 :PRINT ABC$ : GOSUB 7970 :LOCATE 21,39 :PRINT ABC$
  673. 6730   START=38 : HALT=22 : COUNTER=-1
  674. 6740   GOSUB 8220 :LOCATE 21,21 :PRINT ABC$
  675. 6750   FLAG=1:COLOR V,M:RETURN
  676. 6760  REM *****************************************************
  677. 6770  REM ****** SUBROUTINES TO MAKE -  " 4 "   ****************
  678. 6780  REM *****************************************************
  679. 6790    GOSUB 9850 :ABC$="4"
  680. 6800   START=2 : HALT=22 : COUNTER=1
  681. 6810   GOSUB 8800
  682. 6820   START=2 : HALT=12 : COUNTER=1
  683. 6830   GOSUB 7730
  684. 6840   START=20 : HALT=40 : COUNTER=1
  685. 6850   GOSUB 8140
  686. 6860   FLAG=1:COLOR V,M:RETURN
  687. 6870  REM *****************************************************
  688. 6880  REM ****** SUBROUTINES TO MAKE -  " 5 "   ****************
  689. 6890  REM *****************************************************
  690. 6900    GOSUB 9850 :ABC$="5"
  691. 6910   START=40 : HALT=20 : COUNTER=-1
  692. 6920   GOSUB 8060
  693. 6930   START=2 : HALT=12 : COUNTER=1
  694. 6940   GOSUB 7730
  695. 6950   START=20 : HALT=38 : COUNTER=1
  696. 6960   GOSUB 8140 :LOCATE 13,39 :PRINT ABC$
  697. 6970   START=14 : HALT=20 : COUNTER=1
  698. 6980   GOSUB 7970 :LOCATE 21,39 :PRINT ABC$
  699. 6990   START=38 : HALT=20 : COUNTER=-1
  700. 7000   GOSUB 8220
  701. 7010   FLAG=1:COLOR V,M:RETURN
  702. 7020  REM *****************************************************
  703. 7030  REM ****** SUBROUTINES TO MAKE -  " 6 "   ****************
  704. 7040  REM *****************************************************
  705. 7050    GOSUB 9850 :ABC$="6"
  706. 7060   START=2 : HALT=12 : COUNTER=1
  707. 7070   GOSUB 8390
  708. 7080   START=13 : HALT=20 : COUNTER=1
  709. 7090   GOSUB 7810 :LOCATE 21,21 :PRINT ABC$
  710. 7100   START=22 : HALT=38 : COUNTER=1
  711. 7110   GOSUB 8220 : LOCATE 21,39 :PRINT ABC$
  712. 7120   START=20 : HALT=14 : COUNTER=-1
  713. 7130   GOSUB 7970 :LOCATE 13,39 :PRINT ABC$
  714. 7140   START=38 : HALT=22 : COUNTER=-1
  715. 7150   GOSUB 8140
  716. 7160   LOCATE 13,21 :PRINT  ABC$ : GOSUB 8140
  717. 7170   FLAG=1:COLOR V,M:RETURN
  718. 7180  REM *****************************************************
  719. 7190  REM ****** SUBROUTINES TO MAKE -  " 7 "   ****************
  720. 7200  REM *****************************************************
  721. 7210    GOSUB 9850 :ABC$="7"
  722. 7220   START=20 : HALT=39 : COUNTER=1
  723. 7230   GOSUB 8060
  724. 7240   START=2 : HALT=22 : COUNTER=1
  725. 7250   GOSUB 8390
  726. 7260   FLAG=1:COLOR V,M:RETURN
  727. 7270  REM *****************************************************
  728. 7280  REM ****** SUBROUTINES TO MAKE -  " 8 "   ****************
  729. 7290  REM *****************************************************
  730. 7300    GOSUB 9850 :ABC$="8"
  731. 7310   START=4 : HALT=10 : COUNTER=1 : COLOR  X,Y
  732. 7320   LOCATE 3,21 :PRINT ABC$ : GOSUB 7730 :LOCATE 11,21 :PRINT ABC$
  733. 7330   START=22 : HALT=38 : COUNTER=1
  734. 7340   GOSUB 8140 :LOCATE 13,39 :PRINT ABC$
  735. 7350   START=14 : HALT=20 : COUNTER=1
  736. 7360   LOCATE 13,39 : PRINT ABC$ :GOSUB 7970 :LOCATE 21,39 :PRINT ABC$
  737. 7370   START=38 : HALT=22 : COUNTER=-1
  738. 7380   GOSUB 8220 : LOCATE 21,21 :PRINT ABC$
  739. 7390   START=20 : HALT=14 : COUNTER=-1
  740. 7400   GOSUB 7810 :LOCATE 13,21 :PRINT ABC$
  741. 7410   START=10 : HALT=4 : COUNTER=-1
  742. 7420   LOCATE 11,39 :PRINT ABC$ : GOSUB 7890 :LOCATE 3,39 :PRINT ABC$
  743. 7430   START=38 : HALT=22 : COUNTER=-1
  744. 7440   GOSUB 8060 : LOCATE 3,21 :PRINT ABC$
  745. 7450   FLAG=1:COLOR V,M:RETURN
  746. 7460  REM *****************************************************
  747. 7470  REM ****** SUBROUTINES TO MAKE -  " 9 "   ****************
  748. 7480  REM *****************************************************
  749. 7490    GOSUB 9850 :ABC$="9"
  750. 7500   START=40 : HALT=22 : COUNTER=-1
  751. 7510   GOSUB 8060 :LOCATE 3,21 :PRINT ABC$
  752. 7520   START=4 : HALT=10 : COUNTER=1
  753. 7530   GOSUB 7730 :LOCATE 11,21 :PRINT ABC$
  754. 7540   START=22 : HALT=38 : COUNTER=1
  755. 7550   GOSUB 8140 :LOCATE 11,39 :PRINT ABC$
  756. 7560   START=10 : HALT=4 : COUNTER=-1
  757. 7570   GOSUB 7890
  758. 7580   START=2 : HALT=22 : COUNTER=1
  759. 7590   GOSUB 7970
  760. 7600   FLAG=1:COLOR V,M:RETURN
  761. 7610  REM *****************************************************
  762. 7620  REM ****** SUBROUTINES TO MAKE -  "10 "   ****************
  763. 7630  REM *****************************************************
  764. 7640    GOSUB 9850 :ABC$="1"
  765. 7650   START=2 : HALT=22 : COUNTER=1 : COLOR X,Y
  766. 7660   LOCATE 5,7 :PRINT ABC$ :LOCATE 4,8 :PRINT ABC$  : LOCATE 3,9:PRINT ABC$
  767. 7670   GOSUB 8880
  768. 7680   START=5 : HALT=15 : COUNTER=1
  769. 7690   GOSUB 8220
  770. 7700   GOSUB 6240
  771. 7710   FLAG=1:COLOR V,M:RETURN
  772. 7720  END :REM *************************************************
  773. 7730  REM **** SUBROUTINE TO GO DOWN ON TOP-LEFT   **********
  774. 7740  REM *************************************************
  775. 7750  COLUMN=20
  776. 7760  FOR ROW=START TO HALT STEP COUNTER
  777. 7770  COLOR X,Y :LOCATE ROW,COLUMN:PRINT ABC$
  778. 7780  NEXT ROW
  779. 7790  RETURN
  780. 7800  REM *************************************************
  781. 7810  REM **** SUBROUTINE TO GO DOWN ON BOTTOM-LEFT  ********
  782. 7820  REM *************************************************
  783. 7830  COLUMN=20
  784. 7840  FOR ROW=START TO HALT STEP COUNTER
  785. 7850  COLOR X,Y :LOCATE ROW,COLUMN:PRINT ABC$
  786. 7860  NEXT ROW
  787. 7870  RETURN
  788. 7880  REM *************************************************
  789. 7890  REM **** SUBROUTINE TO GO DOWN ON TOP-RIGHT   *********
  790. 7900  REM *************************************************
  791. 7910  COLUMN=40
  792. 7920  FOR ROW=START TO HALT STEP COUNTER
  793. 7930  COLOR X,Y :LOCATE ROW,COLUMN:PRINT ABC$
  794. 7940  NEXT ROW
  795. 7950  RETURN
  796. 7960  REM *************************************************
  797. 7970  REM **** SUBROUTINE TO GO DOWN ON BOTTOM-RIGHT ********
  798. 7980  REM *************************************************
  799. 7990  COLUMN=40
  800. 8000  IF ABC$="V" THEN COLUMN=39
  801. 8010  FOR ROW=START TO HALT STEP COUNTER
  802. 8020  COLOR X,Y :LOCATE ROW,COLUMN:PRINT ABC$
  803. 8030  NEXT ROW
  804. 8040  RETURN
  805. 8050  REM *************************************************
  806. 8060  REM **** SUBROUTINE TO GO ACROSS TOP       **********
  807. 8070  REM *************************************************
  808. 8080  ROW=2
  809. 8090  FOR COLUMN=START TO HALT STEP COUNTER
  810. 8100  COLOR X,Y :LOCATE ROW,COLUMN:PRINT ABC$
  811. 8110  NEXT COLUMN
  812. 8120  RETURN
  813. 8130  REM *************************************************
  814. 8140  REM **** SUBROUTINE TO GO ACROSS MIDDLE      ********
  815. 8150  REM *************************************************
  816. 8160  ROW=12
  817. 8170  FOR COLUMN=START TO HALT STEP COUNTER
  818. 8180  COLOR X,Y :LOCATE ROW,COLUMN:PRINT ABC$
  819. 8190  NEXT COLUMN
  820. 8200  RETURN
  821. 8210  REM *************************************************
  822. 8220  REM **** SUBROUTINE TO GO ACROSS BOTTOM     *********
  823. 8230  REM *************************************************
  824. 8240  ROW=22
  825. 8250  FOR COLUMN=START TO HALT STEP COUNTER
  826. 8260  COLOR X,Y :LOCATE ROW,COLUMN:PRINT ABC$
  827. 8270  NEXT COLUMN
  828. 8280  RETURN
  829. 8290  REM *************************************************
  830. 8300  REM **** SUBROUTINE TO GO DIAGONAL TOP TO BOTTOM-TOP*
  831. 8310  REM *************************************************
  832. 8320  COLUMN=20
  833. 8330  FOR ROW=START TO HALT STEP COUNTER
  834. 8340  COLOR X,Y :LOCATE ROW,COLUMN:PRINT ABC$;
  835. 8350  COLUMN=COLUMN+1
  836. 8360  NEXT ROW
  837. 8370  RETURN
  838. 8380  REM *************************************************
  839. 8390  REM **** SUBROUTINE TO GO DIAGONAL TOP TO BOTTOM-TOP*
  840. 8400  REM *************************************************
  841. 8410  IF ABC$="7" THEN COLUMN=40 ELSE COLUMN=30
  842. 8420  FOR ROW=START TO HALT STEP COUNTER
  843. 8430  COLOR X,Y :LOCATE ROW,COLUMN:PRINT ABC$;
  844. 8440  COLUMN=COLUMN-1
  845. 8450  NEXT ROW
  846. 8460  RETURN
  847. 8470  REM *************************************************
  848. 8480  REM **** SUBROUTINE TO GO DIAGONAL BOTTOM TO TOP-TOP*
  849. 8490  REM *************************************************
  850. 8500  COLUMN=30
  851. 8510  FOR ROW=START TO HALT STEP COUNTER
  852. 8520  COLOR X,Y :LOCATE ROW,COLUMN:PRINT ABC$;
  853. 8530  COLUMN=COLUMN+1
  854. 8540  NEXT ROW
  855. 8550  RETURN
  856. 8560  REM *************************************************
  857. 8570  REM **** SUBROUTINE TO GO DIAGONAL TOP TO BOTTOM-BOTTOM**
  858. 8580  REM *************************************************
  859. 8590  COLUMN=30
  860. 8600  IF ABC$="V" THEN COLUMN=10
  861. 8610  FOR ROW=START TO HALT STEP COUNTER
  862. 8620  COLOR X,Y :LOCATE ROW,COLUMN:PRINT ABC$;
  863. 8630  COLUMN=COLUMN+1
  864. 8640  NEXT ROW
  865. 8650  RETURN
  866. 8660  REM *************************************************
  867. 8670  REM **** SUBROUTINE TO GO DIAGONAL BOTTOM TO TOP-BOTTOM**
  868. 8680  REM *************************************************
  869. 8690  COLUMN=20
  870. 8700  IF ABC$="X" OR ABC$="Y" OR ABC$="Z" THEN COLUMN=40
  871. 8710  IF ABC$="0" OR ABC$="2"  THEN COLUMN=39
  872. 8720  FOR ROW=START TO HALT STEP COUNTER
  873. 8730  COLOR X,Y :LOCATE ROW,COLUMN:PRINT ABC$;
  874. 8740  IF ABC$="X" OR ABC$="Y" OR ABC$="Z" THEN COLUMN=COLUMN-1 :GOTO 8770
  875. 8750  IF ABC$="0" OR ABC$="2"  THEN COLUMN=COLUMN-1 :GOTO 8770
  876. 8760  COLUMN=COLUMN+1
  877. 8770  NEXT ROW
  878. 8780  RETURN
  879. 8790  REM ************************************************
  880. 8800  REM **** SUBROUTINE TO  TOP TO BOTTOM  AT 30     **
  881. 8810  REM *************************************************
  882. 8820  COLUMN=30
  883. 8830  FOR ROW=START TO HALT STEP COUNTER
  884. 8840  COLOR X,Y :LOCATE ROW,COLUMN:PRINT ABC$;
  885. 8850  NEXT ROW
  886. 8860  RETURN
  887. 8870  REM *************************************************
  888. 8880  REM **** SUBROUTINE TO  TOP TO BOTTOM  AT 25 COL **
  889. 8890  REM *************************************************
  890. 8900  COLUMN=25
  891. 8910  IF ABC$="K" THEN COLUMN=28 : GOTO 8930
  892. 8920  IF USER$="10" THEN COLUMN=10 : GOTO 8930
  893. 8930  FOR ROW=START TO HALT STEP COUNTER
  894. 8940  COLOR X,Y :LOCATE ROW,COLUMN:PRINT ABC$;
  895. 8950  NEXT ROW
  896. 8960  RETURN
  897. 8970  REM ************************************************
  898. 8980  REM **** SUBROUTINE TO  VIRT MIDDLE TO BOTTOM  AT 30 **
  899. 8990  REM *************************************************
  900. 9000  COLUMN=30
  901. 9010  FOR ROW=START TO HALT STEP COUNTER
  902. 9020  COLOR X,Y :LOCATE ROW,COLUMN:PRINT ABC$;
  903. 9030  NEXT ROW
  904. 9040  RETURN
  905. 9050  REM  *****************************************************
  906. 9060  REM  *****************************************************
  907. 9070  REM  **** SUBROUTINE TO PRINT ALL OF THE LETTERS     *****
  908. 9080  REM  **** AND NUMBERS                                 ****
  909. 9090  REM  *****************************************************
  910. 9100  REM  *****************************************************
  911. 9110   GOSUB  2890:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580:REM ---> A
  912. 9120   GOSUB  3060:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580:REM ---> B
  913. 9130   GOSUB  3230:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580:REM ---> C
  914. 9140   GOSUB  3360:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580:REM ---> D
  915. 9150   GOSUB  3510:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580:REM ---> E
  916. 9160   GOSUB  3660:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580:REM ---> F
  917. 9170   GOSUB  3790:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580:REM ---> G
  918. 9180   GOSUB  3960:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580:REM ---> H
  919. 9190   GOSUB  4070:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580:REM ---> I
  920. 9200   GOSUB  4180:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580:REM ---> J
  921. 9210   GOSUB  4330:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580:REM ---> K
  922. 9220   GOSUB  4470:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580:REM ---> L
  923. 9230   GOSUB  4560:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580:REM ---> M
  924. 9240   GOSUB  4690:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580:REM ---> N
  925. 9250   GOSUB  4800:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580:REM ---> O
  926. 9260   GOSUB  4930:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580:REM ---> P
  927. 9270   GOSUB  5060:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580:REM ---> Q
  928. 9280   GOSUB  5210:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580:REM ---> R
  929. 9290   GOSUB  5360:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580:REM ---> S
  930. 9300   GOSUB  5510:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580:REM ---> T
  931. 9310   GOSUB  5600:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580:REM ---> U
  932. 9320   GOSUB  5710:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580:REM ---> V
  933. 9330   GOSUB  5800:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580:REM ---> W
  934. 9340   GOSUB  5930:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580:REM ---> X
  935. 9350   GOSUB  6020:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580:REM ---> Y
  936. 9360   GOSUB  6130:FOR L10=1 TO LOOP:NEXT L10           :REM ---> Z
  937. 9370  GOTO 1090 :REM RETURN TO USER INPUT **************************
  938. 9380   REM *************************************************************
  939. 9390   REM ************ NUMBERS    *************************************
  940. 9400   REM *************************************************************
  941. 9410   GOSUB  6240:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580  :REM --->  0
  942. 9420   GOSUB  6400:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580  :REM --->  1
  943. 9430   GOSUB  6500:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580  :REM --->  2
  944. 9440   GOSUB  6620:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580  :REM --->  3
  945. 9450   GOSUB  6770:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580  :REM --->  4
  946. 9460   GOSUB  6880:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580  :REM --->  5
  947. 9470   GOSUB  7030:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580  :REM --->  6
  948. 9480   GOSUB  7190:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580  :REM --->  7
  949. 9490   GOSUB  7280:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580  :REM --->  8
  950. 9500   GOSUB  7470:FOR L10=1 TO LOOP:NEXT L10:GOSUB 9580  :REM --->  9
  951. 9510   USER$="10" :GOSUB 7620:FOR L10=1 TO LOOP:NEXT L10  :REM ---> 10
  952. 9520  GOTO 1090 :REM RETURN TO USER INPUT *************************
  953. 9530  REM  ****************************************************
  954. 9540  REM  ****************************************************
  955. 9550  REM  ****************************************************
  956. 9560  REM  ****************************************************
  957. 9570  REM *************************************************
  958. 9580  REM **** SUBROUTINE TO  DELETE IMMAGE          **********
  959. 9590  REM *************************************************
  960. 9600  ROW=2:COLUMN=4 :LOCATE ,,0
  961. 9610  COLOR V,M:LOCATE ROW,COLUMN:PRINT "                                                      ";:ROW=ROW+1 : PLAY "O5 D45"
  962. 9620  COLOR V,M:LOCATE ROW,COLUMN:PRINT "                                                      ";:ROW=ROW+1 : PLAY "MB O5 C45"
  963. 9630  COLOR V,M:LOCATE ROW,COLUMN:PRINT "                                                      ";:ROW=ROW+1 : PLAY "O4 B45"
  964. 9640  COLOR V,M:LOCATE ROW,COLUMN:PRINT "                                                      ";:ROW=ROW+1 : PLAY "O4 A45"
  965. 9650  COLOR V,M:LOCATE ROW,COLUMN:PRINT "                                                      ";:ROW=ROW+1 : PLAY "O4 G45"
  966. 9660  COLOR V,M:LOCATE ROW,COLUMN:PRINT "                                                      ";:ROW=ROW+1 : PLAY "O4 F45"
  967. 9670  COLOR V,M:LOCATE ROW,COLUMN:PRINT "                                                      ";:ROW=ROW+1 : PLAY "O4 E45"
  968. 9680  COLOR V,M:LOCATE ROW,COLUMN:PRINT "                                                      ";:ROW=ROW+1 : PLAY "O4 D45"
  969. 9690  COLOR V,M:LOCATE ROW,COLUMN:PRINT "                                                      ";:ROW=ROW+1 : PLAY "O4 C45"
  970. 9700  COLOR V,M:LOCATE ROW,COLUMN:PRINT "                                                      ";:ROW=ROW+1 : PLAY "O3 B45"
  971. 9710  COLOR V,M:LOCATE ROW,COLUMN:PRINT "                                                      ";:ROW=ROW+1 : PLAY "O3 A45"
  972. 9720  COLOR V,M:LOCATE ROW,COLUMN:PRINT "                                                      ";:ROW=ROW+1 : PLAY "O3 G45"
  973. 9730  COLOR V,M:LOCATE ROW,COLUMN:PRINT "                                                      ";:ROW=ROW+1 : PLAY "O3 F45"
  974. 9740  COLOR V,M:LOCATE ROW,COLUMN:PRINT "                                                      ";:ROW=ROW+1 : PLAY "O3 E45"
  975. 9750  COLOR V,M:LOCATE ROW,COLUMN:PRINT "                                                      ";:ROW=ROW+1 : PLAY "O3 D45"
  976. 9760  COLOR V,M:LOCATE ROW,COLUMN:PRINT "                                                      ";:ROW=ROW+1 : PLAY "O3 C45"
  977. 9770  COLOR V,M:LOCATE ROW,COLUMN:PRINT "                                                      ";:ROW=ROW+1 : PLAY "O2 B45"
  978. 9780  COLOR V,M:LOCATE ROW,COLUMN:PRINT "                                                      ";:ROW=ROW+1 : PLAY "O2 A45"
  979. 9790  COLOR V,M:LOCATE ROW,COLUMN:PRINT "                                                      ";:ROW=ROW+1 : PLAY "O2 G45"
  980. 9800  COLOR V,M:LOCATE ROW,COLUMN:PRINT "                                                      ";:ROW=ROW+1 : PLAY "O2 F45"
  981. 9810  COLOR V,M:LOCATE ROW,COLUMN:PRINT "                                                      ";:ROW=ROW+1 : PLAY "O2 E45"
  982. 9820  COLOR V,M:LOCATE ROW,COLUMN:PRINT "                                                      ";:ROW=ROW+1 : PLAY "O2 D45"
  983. 9830  RETURN
  984. 9840  REM *************************************************
  985. 9850  REM ********SUBROUTINE TO PALY MUSIC  *************
  986. 9860  REM *************************************************
  987. 9870   PLAY "MB"
  988. 9880   PLAY "O=P ; C8 D8 E8 F8 G8 A8 B8"
  989. 9890  P=P+1:IF P>5 THEN P=0:RETURN
  990. 9900  RETURN
  991. 9910  REM *************************************************
  992. 9920  REM *****************************************************
  993. 9930  REM ****************   ABC SONG    **********************
  994. 9940  REM *****************************************************
  995. 9950  LOCATE ,,0 : COLOR T,U
  996. 9960  IF SECONDPASS=1 THEN GOTO 10100
  997. 9970  PLAY "MF"
  998. 9980  HAPPYFACE$=CHR$(2)
  999. 9990  FOR I = 1 TO 45
  1000. 10000     READ ABCNOTES$(I)
  1001. 10010  NEXT I
  1002. 10020  RESTORE 10370
  1003. 10030  FOR I = 1 TO 24
  1004. 10040     READ ABCSONGLINES$(I)
  1005. 10050  NEXT I
  1006. 10060  RESTORE 10670
  1007. 10070  FOR I = 1 TO 45
  1008. 10080     READ HAPPYFACELOCATES(I)
  1009. 10090  NEXT I
  1010. 10100  CLS : LOCATE 1,1:PLAY "mf"
  1011. 10110  FOR I = 1 TO 24
  1012. 10120     PRINT ABCSONGLINES$(I);
  1013. 10130  NEXT I
  1014. 10140  ROW=6
  1015. 10150  PLAY "T150;O3"
  1016. 10160  FOR I = 1 TO 45
  1017. 10170      COLUMN = HAPPYFACELOCATES(I)
  1018. 10180      IF COLUMN > 0 THEN GOTO 10210
  1019. 10190      COLUMN = -COLUMN
  1020. 10200      ROW = ROW + 2
  1021. 10210      LOCATE ROW,COLUMN
  1022. 10220      PRINT HAPPYFACE$;
  1023. 10230      PLAY ABCNOTES$(I) :' LOCATE 25,1:PRINT ABCNOTES$(I) ;
  1024. 10240      LOCATE  ROW,COLUMN
  1025. 10250      PRINT " ";
  1026. 10260  NEXT I
  1027. 10270  SECONDPASS=1 :FLAG=0
  1028. 10280  RETURN 1090
  1029. 10290  END
  1030. 10300  REM ***********************************************************************
  1031. 10310  REM ********** NOTE FOR THE ABC SONG "ABCNOTES$"                 *************
  1032. 10320  REM ***********************************************************************
  1033. 10330  DATA C4,C4,G4,G4,A4,A4,G2,F4,F4,E4,E4,D8,D8,D8,D8,C2,G4,G4,F4,P4,E4
  1034. 10340  DATA E4,D2,G8,G8,G4,F4,P4
  1035. 10350  DATA E4,E4,D2,C4,C4,G4,G4,A4,A4,G2,F4,F4,E4,E4,D4,D4,C2
  1036. 10360  REM ***********************************************************************
  1037. 10370  REM ********** SONG LINES FOR THE ABC SONG "ABCSONGLINES$"       *************
  1038. 10380  REM ***********************************************************************
  1039. 10390  DATA "VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR"
  1040. 10400  DATA "CALL A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z CALL"
  1041. 10410  DATA "CLSSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND'"
  1042. 10420  DATA "                                                                              "
  1043. 10430  DATA "         KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE        "
  1044. 10440  DATA "         OPEN                                                           OPEN        "
  1045. 10450  DATA "         OPEN             A    B     C    D   E    F   G                OPEN        "
  1046. 10460  DATA "         OPEN                                                           OPEN        "
  1047. 10470  DATA "         OPEN           H   I   J    K    L   M   N   O   P             OPEN        "
  1048. 10480  DATA "         OPEN                                                           OPEN        "
  1049. 10490  DATA "         OPEN       Q   R   S   T    U    V   W   X   Y   AND   Z       OPEN        "
  1050. 10500  DATA "         OPEN                                                           OPEN        "
  1051. 10510  DATA "         OPEN  NOW I KNOW MY A-B-C'S NEXT TIME WON'T YOU SING WITH ME!  OPEN        "
  1052. 10520  DATA "         OPEN                                                           OPEN        "
  1053. 10530  DATA "         OPEN                                                           OPEN        "
  1054. 10540  DATA "         PRESETSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND<0xB6!>        "
  1055. 10550  DATA "         OPEN                                                           OPEN        "
  1056. 10560  DATA "         OPEN                                                           OPEN        "
  1057. 10570  DATA "         OPEN                                                           OPEN        "
  1058. 10580  DATA "         OPEN                                                           OPEN        "
  1059. 10590  DATA "         OPEN                                                           OPEN        "
  1060. 10600  DATA "         OPEN                                                           OPEN        "
  1061. 10610  DATA "         +                                                           +        "
  1062. 10620  DATA "                                                                             "
  1063. 10630  REM ***********************************************************************
  1064. 10640  REM *********** HAPPY FACE LOCATIONS            ***************************
  1065. 10650  REM ***********************************************************************
  1066. 10660  REM *** A   B  C D  E  F  G  H   I  J  K  L  M  N  O  P   Q  R  S  PAUSE
  1067. 10670  DATA     24,29,35,40,44,49,53,-22,26,30,35,40,44,48,52,56,-18,22,26,26
  1068. 10680  REM *** T  U  V  W     X     Y   AND Z  NOW I KNOW MY  A  B  C'S NEXT TIME
  1069. 10690  DATA   30,35,40,44,44,48,48,52,52,57,62,-14,17, 21, 24, 27,29,31, 37,  42
  1070. 10700  REM *** WON'T  YOU   SING  WITH  ME!
  1071. 10710  DATA    47,    52,    57,   61,  66
  1072. 10720  REM ********************************************************************
  1073. 10730  END
  1074. 10740  REM ********************************************************************
  1075. 10750  REM ***** subroutine to make the border around the letters & numbers **
  1076. 10760  REM ********************************************************************
  1077. 10770  COLOR S,P
  1078. 10780  LOCATE 24,1 :PRINT CHR$(200);
  1079. 10790  FOR B=23 TO 1 STEP -1
  1080. 10800      LOCATE B,1 :PRINT CHR$(186);      :REM  goes up on left side
  1081. 10810  NEXT B
  1082. 10820  LOCATE 1,1 :PRINT CHR$(201)
  1083. 10830  REM ********************************************************************
  1084. 10840  REM ********************************************************************
  1085. 10850  REM ********************************************************************
  1086. 10860  FOR B=2 TO 78 STEP 1
  1087. 10870      LOCATE 1,B :PRINT CHR$(205);   :REM goes across on top
  1088. 10880  NEXT B
  1089. 10890  LOCATE 1,79 :PRINT CHR$(187);
  1090. 10900  REM ********************************************************************
  1091. 10910  REM ********************************************************************
  1092. 10920  REM ********************************************************************
  1093. 10930  FOR B=2 TO 23 STEP 1
  1094. 10940      LOCATE B,79 :PRINT CHR$(186);   :REM goes down on right side
  1095. 10950  NEXT B
  1096. 10960  LOCATE 24,79 :PRINT CHR$(188);
  1097. 10970  REM ********************************************************************
  1098. 10980  REM ********************************************************************
  1099. 10990  REM ********************************************************************
  1100. 11000  FOR B=78 TO 2 STEP -1
  1101. 11010      LOCATE 24,B :PRINT CHR$(205);    :REM  goes across bottom
  1102. 11020  NEXT B
  1103. 11030  RETURN
  1104. 11040  REM ********************************************************************
  1105. 11050  REM *****************************************************
  1106. 11060  REM *********************************************************
  1107. 11070  REM ****** THE DRAW PROGRAM ********************************
  1108. 11080  REM *********************************************************
  1109. 11090  REM *********************************************************
  1110. 11100  KEY OFF
  1111. 11110  CLS :LOCATE 25,20 : COLOR S,P :PRINT "HIT AN ARROW KEY OR CURSOR KEY! "
  1112. 11120  C2=1 : R1=1  :F2=100 :X=64 :PLAY "MB" :F=0 : B=7
  1113. 11130  KEY(1) ON
  1114. 11140  KEY(2) ON
  1115. 11150  KEY(10) ON
  1116. 11160  KEY(11) ON
  1117. 11170  KEY(12) ON
  1118. 11180  KEY(13) ON
  1119. 11190  KEY(14) ON
  1120. 11200  REM *********************************************************
  1121. 11210  ON KEY(1) GOSUB 11310 :REM ***** BRANCH BACK TO MAIN PROGRAM **
  1122. 11220  ON KEY(2) GOSUB 11550 :REM ***** to set value of time delay **
  1123. 11230  ON KEY(10) GOSUB 11410 :REM ***** CLEAR SCREEN   **************
  1124. 11240  ON KEY(11) GOSUB 11490 :REM ***** CURSOR UP *******************
  1125. 11250  ON KEY(12) GOSUB 11460 :REM ***** CURSOR LEFT *****************
  1126. 11260  ON KEY(13) GOSUB 11430 :REM ***** CURSOR RIGHT ****************
  1127. 11270  ON KEY(14) GOSUB 11520 :REM ***** CURSOR DOWN *****************
  1128. 11280  REM *********************************************************
  1129. 11290  GOTO 11290  :REM  CLOSED LOOP *************************************
  1130. 11300  REM *********************************************************
  1131. 11310  FLAG=1  :REM RETURN TO MAIN PROGRAM   ******
  1132. 11320  KEY(1) OFF
  1133. 11330  KEY(2) OFF
  1134. 11340  KEY(10) OFF
  1135. 11350  KEY(11) OFF
  1136. 11360  KEY(12) OFF
  1137. 11370  KEY(13) OFF
  1138. 11380  KEY(14) OFF
  1139. 11390  RETURN 1090   :REM RETURN TO MAIN PROGRAM   ******
  1140. 11400  REM *********************************************************
  1141. 11410  COLOR S,P : CLS : RETURN  :REM   CLEAR SRCEEN           ******
  1142. 11420  REM *********************************************************
  1143. 11430  DIRECTION=1 : RETURN 11630 :REM   FOWARD  (TO THE RIGHT)  ******
  1144. 11440  REM *********************************************************
  1145. 11450  REM *********************************************************
  1146. 11460  DIRECTION=2  :RETURN 11780 :REM BACKWARD  (TO THE LEFT)  *******
  1147. 11470  REM *********************************************************
  1148. 11480  REM *********************************************************
  1149. 11490  DIRECTION=3  :RETURN  11930 :REM *** UP          ****************
  1150. 11500  REM *********************************************************
  1151. 11510  REM *********************************************************
  1152. 11520  DIRECTION=4  :RETURN 12080  :REM *** DOWN           *************
  1153. 11530  REM *********************************************************
  1154. 11540  REM *********************************************************
  1155. 11550  REM  ***  SUBROUTINE TO CHANGE SPEED OF ARROW DELAY TIMER ***
  1156. 11560  REM *********************************************************
  1157. 11570  CLS:LOCATE 12,20:PRINT "HOW SLOW OR FAST DO YOU WANT THE ARROWS TO MOVE?"
  1158. 11580  LOCATE 14,20 : INPUT "(0=FAST - 1000=SLOW) ",F2 :CLS :RETURN
  1159. 11590  REM *********************************************************
  1160. 11600  REM  ***
  1161. 11610  REM  ***
  1162. 11620  REM *********************************************************
  1163. 11630  REM **********   FOWARD  (TO THE RIGHT)  ********************
  1164. 11640  REM *********************************************************
  1165. 11650  LOCATE 25,1:COLOR F,B :PRINT "RIGHT "+CHR$(26);" ";
  1166. 11660  LOCATE 25,12:COLOR F,B :PRINT " PRESS  F1 to exit  F2 to change arrow speed  F10 to clear screen ";
  1167. 11670  IF DIRECTION=1 THEN C2=C2+1 :IF C2>79 THEN R1=R1+1
  1168. 11680    IF R1>24 THEN COLOR S,P : CLS : R1=1
  1169. 11690    IF C2>79 THEN :C2=1
  1170. 11700      FOR L8=1 TO F2 : :NEXT L8
  1171. 11710      PLAY"O4 A64"
  1172. 11720     IF R1=0 THEN R1=1
  1173. 11730     IF C2=0 THEN C2=1
  1174. 11740    COLOR S,P :LOCATE R1,C2 :PRINT CHR$(26);
  1175. 11750  GOTO 11670
  1176. 11760  END
  1177. 11770  REM *********************************************************
  1178. 11780  REM **********   BACKWARDS (TO THE LEFT)  *******************
  1179. 11790  REM *********************************************************
  1180. 11800  LOCATE 25,1:COLOR F,B :PRINT "LEFT  "+CHR$(27);" ";
  1181. 11810  LOCATE 25,12:COLOR F,B :PRINT " PRESS  F1 to exit  F2 to change arrow speed  F10 to clear screen ";
  1182. 11820  IF DIRECTION=2 THEN C2=C2-1 :IF C2<1 THEN R1=R1+1
  1183. 11830     IF R1>24 THEN COLOR S,P : CLS : R1=1
  1184. 11840     IF C2<1 THEN C2=79
  1185. 11850       FOR L8=1 TO F2 :NEXT L8
  1186. 11860      PLAY"O4 B64"
  1187. 11870     IF R1=0 THEN R1=1
  1188. 11880     IF C2=0 THEN C2=1
  1189. 11890     COLOR S,P :LOCATE R1,C2 :PRINT CHR$(27);
  1190. 11900   GOTO 11820
  1191. 11910  END
  1192. 11920  REM *********************************************************
  1193. 11930  REM ************   UP     ***********************************
  1194. 11940  REM *********************************************************
  1195. 11950  LOCATE 25,1:COLOR F,B :PRINT "  UP  "+CHR$(24);" ";
  1196. 11960  LOCATE 25,12:COLOR F,B :PRINT " PRESS  F1 to exit  F2 to change arrow speed  F10 to clear screen ";
  1197. 11970  IF DIRECTION=3 THEN R1=R1-1 :IF R1<1 THEN C2=C2+1
  1198. 11980    IF C2>79 THEN COLOR S,P : CLS : C2=1
  1199. 11990    IF R1<1 THEN R1=24
  1200. 12000       FOR L8=1 TO F2 :NEXT L8
  1201. 12010      PLAY"O4 C64"
  1202. 12020     IF R1=0 THEN R1=1
  1203. 12030     IF C2=0 THEN C2=1
  1204. 12040    COLOR S,P :LOCATE R1,C2 :PRINT CHR$(24);
  1205. 12050  GOTO 11970
  1206. 12060  END
  1207. 12070  REM *********************************************************
  1208. 12080  REM ***********      DOWN     *******************************
  1209. 12090  REM *********************************************************
  1210. 12100  LOCATE 25,1:COLOR F,B :PRINT "DOWN  "+CHR$(25);" ";
  1211. 12110  LOCATE 25,12:COLOR F,B :PRINT " PRESS  F1 to exit  F2 to change arrow speed  F10 to clear screen ";
  1212. 12120  IF DIRECTION=4 THEN R1=R1+1 :IF R1>24 THEN C2=C2+1
  1213. 12130    IF C2>79 THEN COLOR S,P : CLS : C2=1
  1214. 12140    IF R1>24 THEN R1=1
  1215. 12150       FOR L8=1 TO F2 :NEXT L8
  1216. 12160      PLAY"O4 D64"
  1217. 12170     IF R1=0 THEN R1=1
  1218. 12180     IF C2=0 THEN C2=1
  1219. 12190    COLOR S,P :LOCATE R1,C2 :PRINT CHR$(25);
  1220. 12200  GOTO 12120
  1221. 12210  END
  1222. 12220  REM ********************************************************
  1223. 12230  REM ********** ERROR TRAPING    **************************
  1224. 12240  REM ********************************************************
  1225. 12250  CLS
  1226. 12260  LOCATE 12, 10 : PRINT "This program requires ADVANCED BASIC 2.x ; Please reload, using BASICA 2.x "
  1227. 12270  PRINT
  1228. 12280  PRINT "The Error code number is --->";ERR:PRINT :PRINT "Ask your parent to look in the Basic Manual in Appendix A ":RESUME 12290
  1229. 12290  LOCATE 1,1 :END
  1230. 12300  REM ****************************************************************
  1231. 12310  REM ****************************************************************
  1232. 12320  REM ****  User contribution request area   Please, DO NOT REMOVE! **
  1233. 12330  REM ****  Become a Register User   SEND $10.00 TO  *****************
  1234. 12340  REM ****                                           *****************
  1235. 12350  REM ****  PARKER-ROSS ASSOCIATES    ********************************
  1236. 12360  REM ****  1673 SACRAMENTO STREET    ********************************
  1237. 12370  REM ****  SAN FRANCISCO, CA 94109   ********************************
  1238. 12380  REM ****************************************************************
  1239. 12390  REM ****************************************************************
  1240. 12400  REM ***********************************************************
  1241. 12410  PRINT
  1242. 12420  PRINT TAB(W) " Dear Parents:"
  1243. 12430  PRINT
  1244. 12440  PRINT TAB(W) " If you and your children use  this  program, please become a"
  1245. 12450  PRINT TAB(W) " *Registered User* by  sending $10.00."
  1246. 12460  PRINT
  1247. 12470  PRINT TAB(W) " *Registered Users* will receive program updates and other"
  1248. 12480  PRINT TAB(W) " information to make the program more useful for you and your"
  1249. 12490  PRINT TAB(W) " child. For the compiled version, become a *REGISTERED USER*"
  1250. 12500  PRINT TAB(W) " and send a diskette with postage and mailer or check for $10"
  1251. 12510  PRINT TAB(W) " to:"
  1252. 12520  PRINT TAB(W) "               Parker-Ross Associates"
  1253. 12530  PRINT TAB(W) "               1673 Sacramento Street"
  1254. 12540  PRINT TAB(W) "               San Francisco, CA 94109"
  1255. 12550  PRINT TAB(W) "               (415) 441-4683"
  1256. 12560  PRINT
  1257. 12570  PRINT TAB(W) " *Registered Users* are encouraged to call or write to us to:"
  1258. 12580  PRINT TAB(W) " 1.  Give us your ideas on how to enhance the program."
  1259. 12590  PRINT TAB(W) " 2.  Get ideas on how to get specific results such as teaching"
  1260. 12600  PRINT TAB(W) "     the function of the return key <RETURN> or teaching the"
  1261. 12610  PRINT TAB(W) "     alphabet. (We've used versions of this program with our son    "
  1262. 12620  PRINT TAB(W) "     since age 2.)"
  1263. 12630  PRINT TAB(W) " 3.  Get the update to change the name of the program to"
  1264. 12640  PRINT TAB(W) "     include your child's name instead of Eryn's.";
  1265. 12650  LOCATE 25,25:COLOR T,U:PRINT " STRIKE ANY KEY WHEN READY ";:W$=INPUT$(1)
  1266. 12660  COLOR S,P :RETURN 220
  1267. 12670  REM *********************************************************
  1268. 12680  REM **********************************************************
  1269. 12690  REM ************************************************************
  1270. 12700  REM ********  LAST LINES OF CODE       ***************************
  1271. 12710  REM ****************************************************************
  1272. 12720  REM *****************************************************************
  1273. 12730  REM ******************************************************************
  1274. 12740  REM *******************************************************************
  1275. 12750  REM ********************************************************************
  1276.