home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / 3-BIG-PROGRAMS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.5 KB  |  143 lines
  1. 1 REM *** BY BURT FISHER**389 OLD BASS RIVER RD. S DENNIS,MA, MASS***
  2. 2 REM ***MACHINE LANGUAGE  FROM C G 9/84 PG 136 PROGRAM 4 /19/87
  3. 4 PRINT"[147]"SPC(134)"PROGRAM MENU[146]"SPC(100)"1. COLOR CLOCK"
  4. 5 PRINTSPC(46)"2. SCREEN TITLER"SPC(64)"3. SAMAMTHA-CHILDS GAME"
  5. 6 GET M$:IFM$=""THEN6
  6. 7 IF M$="1"THEN1010
  7. 8 IFM$="2"THEN5000
  8. 9 IFM$="3"THEN6000
  9. 10 GOTO 6
  10. 13 PRINT"[147]PLEASE WAIT A MOMENT"
  11. 14 T=0:FORJ=688TO703:READK:T=T+K:POKEJ,K:NEXT
  12. 15 IFT<>3078THENPRINT"ERROR IN DATA STATEMENTS":STOP
  13. 20 T=0:FORJ=828TO1006:READK:T=T+K:POKEJ,K:NEXT
  14. 25 IFT<>20306THENPRINT"ERROR IN DATA STATEMENTS":STOP
  15. 30 POKE 249,0
  16. 688 DATA32,188,190,226,172,225,191,251
  17. 696 DATA 187,255,161,236,162,254,252,96
  18. 828 DATA 169,208,133,004,173,024
  19. 834 DATA 208,041,002,240,004,169
  20. 840 DATA 216,133,004,169,000,162
  21. 846 DATA 003,006,250,042,202,208
  22. 852 DATA 250,024,101,004,133,004
  23. 858 DATA 165,250,133,003,173,014
  24. 864 DATA 220,041,254,141,014,220
  25. 870 DATA 165,001,041,251,133,001
  26. 876 DATA 169,000,133,250,169,005
  27. 882 DATA 133,002,160,000,177,003
  28. 888 DATA 133,005,230,003,177,003
  29. 894 DATA 133,006,230,003,198,002
  30. 900 DATA 240,028,162,004,169,000
  31. 906 DATA 006,006,042,006,006,042
  32. 912 DATA 006,005,042,006,005,042
  33. 918 DATA164,250,153,048,002,230
  34. 924 DATA 250,202,208,232,240,210
  35. 930 DATA 165,001,009,004,133,001
  36. 936 DATA 173,014,220,009,001,141
  37. 942 DATA 014,220,160,000,166,249
  38. 948 DATA 240,008,169
  39. 951 DATA 029:REM032 IF USING A PRINTER
  40. 952 DATA 032,210
  41. 954 DATA 255,202,208,250,169,004
  42. 960 DATA 133,006,185,048,002,170
  43. 966 DATA 189,176,002,133,005,041
  44. 972 DATA 064,240,005,169,018,032
  45. 978 DATA 210,255,165,005,041,191
  46. 984 DATA 032,210,255,169,146,032
  47. 990 DATA 210,255,200,198,006,208
  48. 996 DATA 221,169,013,032,210,255
  49. 1002 DATA 192,016,208,196,096
  50. 1003 RETURN
  51. 1010 IFPEEK(688)<>32THENGOSUB13
  52. 1015 PRINT"[147]":INPUT"(HHMMSS)";TI$:PRINT"[147]"
  53. 1020 POKE 53281,0:Y=0
  54. 1032 FOR I=1TO 8
  55. 1034 A$= LEFT$(TI$,2)+":"+MID$(TI$,3,2)+":"+RIGHT$(TI$,2)
  56. 1040 B$=MID$(A$,I,1)
  57. 1050 X=ASC(B$)+128
  58. 1060 POKE249,Y
  59. 1070 Y=Y+4
  60. 1080 IFY<>36THEN      GOSUB1200
  61. 1090 IFY=36THENY=0
  62. 1100 POKE249,Y
  63. 1110 POKE250,X:SYS828
  64. 1120 NEXT I
  65. 1122 IFCH>15THENCH=1
  66. 1125 POKE646,(CH  ):CH=CH+1:GOTO1020
  67. 1200 PRINT"[145][145][145][145]";
  68. 1209 RETURN
  69. 4500 IF PEEK(49176)=234THEN:POKE 54296,15:(null)END "WRONG":RETURN:REM***SPEECH ONLY**
  70. 5000 IFPEEK(688)<>32THENGOSUB13
  71. 5010 Y=0:PRINT"[147]":PRINTCHR$(14)
  72. 5020 REM \ MEANS PRINT HARD dw
  73. 5030 INPUT"ITEM TO PRINT";B$:PRINT"[147]"
  74. 5032 FOR I=1TO LEN(B$)
  75. 5034 A$= MID$(B$,I,1):X=ASC(A$):POKE 249,Y:Y=Y+4
  76. 5080 IFY<>36THEN      GOSUB5200
  77. 5090 IFY=36THENY=0
  78. 5100 POKE249,Y
  79. 5110 POKE250,X:SYS828
  80. 5120 NEXT I
  81. 5130 GETEF$:IFEF$=""THEN5130
  82. 5140 IFEF$="\"THEN61000
  83. 5150 IFEF$="*"THEN5180
  84. 5155 IFEF$="_"THEN5010
  85. 5160 GOTO 5130
  86. 5180 FORX=0TO1STEP0:POKE53280,2:POKE53280,12:NEXT
  87. 5200 PRINT"[145][145][145][145]";
  88. 5209 RETURN
  89. 6000 PRINTCHR$(14):IFPEEK(688)<>32THENGOSUB13
  90. 6010 Y=0
  91. 6018 POKE 53280, 0:POKE 53281, 6:PRINT"[147]"
  92. 6024 FORC=1TO100
  93. 6027 Q=INT(RND(0)*(90-49)+49):B$=CHR$(Q)
  94. 6028 IFQ>57 AND Q<65THENGOTO6027
  95. 6029 IFQ<65THENQ=Q-4
  96. 6030 IF PEEK(49176)=234THEN:POKE 54296,15:(null)END (Q-44):REM***ELIMINATE IF NO SPEEC
  97. 6031 PRINT"[147]":X=ASC(B$):POKE 249,Y:Y=Y+4
  98. 6080 IFY<>36THEN      GOSUB6200
  99. 6090 IFY=36THENY=0
  100. 6110 POKE 249,Y:POKE250,X:SYS828
  101. 6120 GET S$:IFS$=""THEN6120
  102. 6125 IFS$=B$THEN  GOTO 6520
  103. 6129 IFPEEK(49176)<>234THEN:GOTO 6170
  104. 6130 IFS$<>=B$THENGOSUB4500:GOTO6120:REM***ELIMINATE GOSUB4500 IF NO SPEECH***
  105. 6170 IFS$<>=B$THEN:PRINT:PRINT:PRINTSPC(15)"WRONG[146]":    GOTO6120
  106. 6180 NEXTC
  107. 6200 PRINT"[145][145][145][145]";
  108. 6209 RETURN
  109. 6510 REM ***FANFARE RdINE***
  110. 6520 B=54272:FORCLEAR=BTOB+24:POKECLEAR ,0:NEXT
  111. 6530 FORR=1TO4
  112. 6535 POKE 53280,5:POKE 53281,2
  113. 6540 POKEB+5,85:POKEB+6,85:POKEB+12,85:POKEB+13,85
  114. 6550 POKEB+24,15:POKEB+4,33:POKEB+11,17
  115. 6560 POKEB+1, 25:POKE B,30
  116. 6570 POKEB+8,18:POKEB+7,209
  117. 6571 FOR T=1 TO 100:NEXT
  118. 6572 POKEB+1, 33:POKE B,135
  119. 6573 POKEB+8, 25:POKE B,30
  120. 6574 FOR T=1 TO 100:NEXT
  121. 6576 POKEB+1, 42:POKE B,62
  122. 6577 POKE 53280,0:POKE 53281, 6
  123. 6578 POKEB+8,31:POKEB+7,165
  124. 6580 FOR T=1 TO 100:NEXT
  125. 6581 POKEB+1, 50:POKE B,60
  126. 6582 POKEB+8,37:POKEB+7,162
  127. 6583 FOR T=1 TO 200:NEXT
  128. 6584 FOR T=1 TO 100:NEXT
  129. 6585 POKEB+1, 42:POKE B,62
  130. 6586 POKEB+8,31:POKEB+7,165
  131. 6587 FOR T=1 TO 100:NEXT
  132. 6588 POKEB+1, 50:POKE B,60
  133. 6590 POKEB+8,37:POKEB+7,162
  134. 6592 FORT=1TO 300:NEXT
  135. 6630 POKEB+4,32:POKEB+11,16:FORW=1TO 500:NEXT
  136. 6640 NEXTR
  137. 6650 FORCLEAR=BTOB+24:POKECLEAR,0:NEXT
  138. 6660 NEXT C
  139. 59999 END
  140. 60000 OPEN 15,8,15,"S0:3 BIG PROGRAMS":CLOSE 15:SAVE"0:3 BIG PROGRAMS",8
  141. 60001 END
  142. 61060 SC=PEEK(VR+40*CL+RO)
  143.