home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Demos / C64-BASIC-DEMO (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  8KB  |  287 lines
  1. 5 REM START
  2. 10 GOTO590
  3. 20 REM COLOR BLOCKS
  4. 30 G=13*4096:POKE G+33,0
  5. 40 S$=""
  6. 50 PRINT "[147]":CD$="[144][159][156][158][129][149][150][151][152][153][154][155]"
  7. 60 DATA "BLACK","WHITE","RED"
  8. 70 DATA "[159]CYAN","[156]PURPLE","GREEN"
  9. 80 DATA "BLUE","[158]YELLOW","[129]ORANGE"
  10. 90 DATA "[149]BROWN","[150]PINK","[151]GRAY 1"
  11. 100 DATA "[152]GRAY 2","[153]LT GREEN","[154]LT BLUE"
  12. 110 DATA "[155]GRAY 3"
  13. 120 FOR X=0 TO 3
  14. 130 FOR Y=1 TO 5
  15. 140 FOR Z=1 TO 4
  16. 150 PRINT " "MID$(CD$,X*4+Z,1)"        [146] ";
  17. 160 NEXT Z
  18. 170 NEXT Y
  19. 180 IF X<>3 THEN PRINT
  20. 190 NEXT X
  21. 200 PRINT ""SPC(1)"[207][183][183][183][183][183][183][208]"SPC(32)"[165]      [167]"
  22. 210 PRINT SPC(1)"[165]      [167]"SPC(32)"[165]      [167]"
  23. 220 PRINTSPC(1)"[204][175][175][175][175][175][175][186]"
  24. 230 PRINT"";:FOR X=1 TO 4
  25. 240 READ A$,B$,C$,D$
  26. 250 PRINT "";:IF X=1 THEN PRINT "[145]";
  27. 260 PRINT ""A$,""B$,""C$,""D$
  28. 270 NEXT X:
  29. 280 GET A$:IF A$="" THEN 280
  30. 290 IFA$=CHR$(13)THENRUN
  31. 300 POKE G+33,PEEK(G+33)+1 AND 15
  32. 310 GOTO 280
  33. 320 K=1
  34. 330 A=1:B=0
  35. 340 PRINT"[147]":POKE53281,A:POKE53280,B
  36. 350 FOR X=1024TO1024+25*40
  37. 360 Y=55296+X-1024
  38. 370 POKE X,91:POKEY,B
  39. 380 NEXT X:POKE198,0
  40. 390 GETT$:IFT$=""THEN390
  41. 400 IFT$=CHR$(13)THEN590
  42. 410 PRINT"[147]":POKE53281,B:POKE53280,A
  43. 420 FOR X=1024TO1024+25*40
  44. 430 Y=55296+X-1024
  45. 440 POKE X,91:POKEY,A
  46. 450 NEXT X
  47. 460 GETT$:IFT$=""THEN460
  48. 470 IFT$=CHR$(13)THEN590
  49. 480 GOTO320
  50. 490 REM COLOR BAR TEST
  51. 500 POKE53280,0:POKE53281,0:PRINT"[147]
  52. 510 [129]A[178]1[164]20:[153]"";
  53. 520 [153]"     FOR     SYS          PRINT     CLR          CONT     ";
  54. 530 [130]
  55. 540 [129]A[178]1[164]4:[153]"PRINT#          LIST        ";
  56. 550 [153]"POKE                      ";:[130]
  57. 555 [151]198,0
  58. 560 [161]Z$:[139]Z$[178]""[167]560
  59. 570 [139]Z$[178][199](13)[167]590
  60. 580 [137]490
  61. 590 [151]53280,6:[151]53281,1: [153]"WAITLOAD**** COMMODORE-64 DEMO ****"
  62. 600 [153]"         STOPF1WAIT  COLOR DEMO
  63. 610 PRINT"         [144]F2[146]  HASHING DEMO
  64. 620 [153]"         STOPF3WAIT  NTSC BAR CHART DEMO
  65. 630 PRINT"         [144]F4[146]  SOUND DEMO - SIREN
  66. 640 [153]"         STOPF5WAIT  JOYSTICK DEMO
  67. 650 PRINT"         [144]F6[146]  KEYBOARD DEMO
  68. 655 [153]"         STOPF7WAIT  DISK DRIVE DEMO
  69. 657 PRINT"         [144]F8[146]  EXIT TO BASIC
  70. 660 [153]"DIRECTIONS:"
  71. 670 [153]"ALWAYS PRESS STOP RETURN WAIT FOR THE MAINMENU"
  72. 680 [153]"PRESS THE STOP SPACE WAIT BAR TO CONTINUE A DEMO"
  73. 682 [153]" TO SELECT A DEMO, PRESS A FUNCTION KEY"
  74. 685 [143]
  75. 690 [161] Z$:[139]Z$[178]""[167]690
  76. 700 [139] Z$[178]"RESTORE"[167][151]808,237:[153]"LOAD":[128]
  77. 710 [139] Z$[178]"INPUT"[167]20
  78. 720 [139]Z$[178]"GOTO"[167]320
  79. 730 [139] Z$[178]"DIM"[167]490
  80. 740 [139] Z$[178]"RUN"[167]840
  81. 750 [139] Z$[178]"READ"[167]1000
  82. 760 [139] Z$[178]"IF"[167]5000
  83. 770 [139] Z$[178]"LET"[167]2000
  84. 780 [137]690
  85. 840 [151]53280,6:[153]"LOAD**** COMMODORE-64 DEMO ****
  86. 842 PRINT"    SOUND DEMO[146]
  87. 850 S[178]54272
  88. 860 [129] L[178]0 [164] 24:[151] S[170]L,0:[130]
  89. 870 [151] S[170]14,5 :[151] S[170]18,16
  90. 880 [151] S[170]3,1  :[151] S[170]24,143
  91. 890 [151] S[170]6,240:[151] S[170]4,65
  92. 900 FR[178]5389
  93. 910 [129] T[178]1 [164] 200
  94. 920 :  FQ[178]FR[170][194](S[170]27)[172]3.5
  95. 930 :  HF[178][181](FQ[173]256):LF[178]FQ[171]HF[172]256
  96. 940 :  [151] S,LF:[151] S[170]1,HF
  97. 950 [130]
  98. 960 [151] S[170]24,0
  99. 965 [153]"      PRESS STOPRETURNWAIT FOR MAIN MENU";:[153]""[166]30)"OK"
  100. 968 [151]198,0
  101. 970 [161]Z$:[139]Z$[178]""[167]970
  102. 980 [139]Z$[178][199](13)[167]590
  103. 990 [137]840
  104. 1000 [143] *** JOYSTICK DEMO PGM ***
  105. 1010 X[178]1:P[178]1:JL[178]56321:[137]1030
  106. 1020 X[178]2:P[178]2:JL[178]56320:[137]1030
  107. 1030 [141] 1340:[153]""
  108. 1040 [141] 1260
  109. 1050 [139] JV[178]1 [167] [153][166]35)"OK  ":[141]1260:[137]1070
  110. 1060 [141] 1260:[137]1050
  111. 1070 [139] JV[178]9 [167] [153][166]35)"OK  ":[141]1260:[137]1090
  112. 1080 [141] 1260:[137]1070
  113. 1090 [139] JV[178]8 [167] [153][166]35)"OK  ":[141]1260:[137]1110
  114. 1100 [141] 1260:[137]1090
  115. 1110 [139] JV[178]10[167] [153][166]35)"OK  ":[141]1260:[137]1130
  116. 1120 [141] 1260:[137]1110
  117. 1130 [139] JV[178]2 [167] [153][166]35)"OK  ":[141]1260:[137]1150
  118. 1140 [141] 1260:[137]1130
  119. 1150 [139] JV[178]6 [167] [153][166]35)"OK  ":[141]1260:[137]1170
  120. 1160 [141] 1260:[137]1150
  121. 1170 [139] JV[178]4 [167] [153][166]35)"OK  ":[141]1260:[137]1190
  122. 1180 [141] 1260:[137]1170
  123. 1190 [139] JV[178]5 [167] [153][166]35)"OK  ":[141]1260:[137]1210
  124. 1200 [141] 1260:[137]1190
  125. 1210 [143]
  126. 1220 [153][166]35)"OK  "
  127. 1230 [143] GOTO 1010
  128. 1240 [139]X[178]1[167]1020
  129. 1245 [153]"  PRESS STOPRETURNWAIT FOR MAIN MENU";:[153]""[166]30)"OK"
  130. 1250 [161]Z$:[139]Z$[178][199](13)[167]590
  131. 1255 [137]1250
  132. 1260 [143]    *** JOYSTICK ROUTINE ***
  133. 1270 :
  134. 1280 [151] 56322,0
  135. 1290 JV[178][194](JL)
  136. 1300 FR[178]JV [175] 16
  137. 1310 JV[178]15[171](JV [175] 15)
  138. 1320 [151] 56322,255
  139. 1330 [142]
  140. 1340 [151]53280,4:[153]"LOAD**** COMMODORE-64 DEMO ****
  141. 1350 PRINT" JOYSTICK DEMO[146]
  142. 1360 [153]"STOPDIRECTIONS:
  143. 1370 PRINT"    PLUG JOYSTICK INTO GAME PORT ";P
  144. 1375 PRINT"  PRESS [144]FIRE[146] WHEN READY TO TEST
  145. 1380 [153]"  PRESS STOPRETURNWAIT FOR MAIN MENU
  146. 1390 GET Z$:IFZ$=CHR$(13)THEN590
  147. 1392 GOSUB1280:IF FR=16 THEN1390
  148. 1400 PRINT"[144]DIRECTIONS:
  149. 1410 [153]"1. STOPPRESS JOYSTICK UP                   "
  150. 1420 [153]"2. STOPPRESS JOYSTICK UP + RIGHT           "
  151. 1430 [153]"3. STOPPRESS JOYSTICK RIGHT              "
  152. 1440 [153]"4. STOPPRESS JOYSTICK DOWN + RIGHT
  153. 1450 PRINT"5. [144]PRESS JOYSTICK DOWN               "
  154. 1460 PRINT"6. [144]PRESS JOYSTICK DOWN + LEFT
  155. 1470 [153]"7. STOPPRESS JOYSTICK LEFT              "
  156. 1480 [153]"8. STOPPRESS JOYSTICK UP + LEFT
  157. 1490 PRINT"9. [144]PRESS FIRE BUTTON
  158. 1500 [142]
  159. 2000 [151]53280,5:[153]"LOAD**** COMMODORE-64 DEMO ****
  160. 2050 OPEN1,8,15:OPEN15,8,15
  161. 2060 REM
  162. 2100 NT=30
  163. 2135 PRINT"  DISK DRIVE DEMO[146]
  164. 2140 [153]"STOPDIRECTIONS:
  165. 2150 PRINT"[144]1. SELECT ONE:  
  166. 2180 [153]"     PRESS STOPRETURNWAIT FOR MAIN MENU
  167. 2190 PRINT
  168. 2200 PRINT"     PRESS [144][F][146]  TO FORMAT + TEST
  169. 2210 [153]
  170. 2230 [129] I[178]0 [164] 9:[161] A$:[130]
  171. 2240 [161] A$:[139] A$[178][199](13) [167] [160]1:[160]15:[137] 590
  172. 2250 [139] A$[178]"F"[137]2265
  173. 2260 [137] 2240
  174. 2265 [153]"STOP2. INSERT BLANK DISK FOR TESTING
  175. 2266 PRINT"[144]3. SELECT:
  176. 2269 [133]"     HOW MANY PASSES  3CMDCMDCMD";PP:[153]""
  177. 2270 TI$[178]"000000"
  178. 2280 TT[178]18
  179. 2290 [152]1,"N0:TEST DISK,00"
  180. 2320 [151]53280,2: C1$[178]"            DISK NEW COMMAND            "
  181. 2330 C2$[178]"         WAIT ABOUT  80 SECONDS         "
  182. 2340 CC$[178]C1$[170]C2$:[141] 3230
  183. 2350 [139] TI[177]NT [167] 2420
  184. 2360 [153]"SYSTEM IS"
  185. 2370 [153]"        NOT RESPONDING"
  186. 2380 [153]" CORRECTLY TO COMMANDS"
  187. 2390 [141] 3270
  188. 2410 :
  189. 2420 [143]
  190. 2430 [153]"LOAD *  *  *  *  *  *  *  *  *  *  *  *  *  ";
  191. 2440 [153]
  192. 2450 [153]"         *NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWRND"
  193. 2460 [153]"         GET*                 *WAITGET"
  194. 2470 [153]"         GET   DRIVE  PASSES   WAITGET"
  195. 2480 [153]"         GET  MECHANICAL TEST  WAITGET"
  196. 2490 [129]SS[178]1[164]500:[130]
  197. 2500 [153]"         LOGNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWWAITCOS"
  198. 2510 [153]
  199. 2520 TT[178]21
  200. 2530 [159] 2,8,2,"0:TEST FILE,S,W"
  201. 2540 CC$[178]"            OPEN WRITE FILE"     :[141] 3230
  202. 2550 CH[178]2:CC$[178]"WRITE DATA"     :[141] 3340
  203. 2560 CC$[178]"            CLOSE "[170]CC$            :[141] 3230
  204. 2570 [159] 2,8,2,"0:TEST FILE,S,R"
  205. 2580 CC$[178]"            OPEN READ FILE"      :[141] 3230
  206. 2590 CH[178]2:[141] 3400
  207. 2600 [152]1,"S0:TEST FILE"
  208. 2610 CC$[178]"            SCRATCH FILE":TT[178]1    :[141] 3230
  209. 2620 :
  210. 2630 [129]DD[178]1[164]500:[130]
  211. 2635 [153]"LOAD *  *  *  *  *  *  *  *  *  *  *  *  *  WAIT";
  212. 2640 TT[178]21
  213. 2650 [159] 4,8,4,"#"
  214. 2660 NN%[178](1[170][187](TI)[172]254[170]NN%)[175]255:[152]1,"B-P";4;NN%
  215. 2670 NN$[178]"":[129] I[178]1 [164] 255:NN$[178]NN$[170][199](I):[130]
  216. 2680 [152] 4,NN$;
  217. 2690 [152] 1,"U2:";4;0;35;0
  218. 2700 CC$[178]"            WRITE TRACK 35":[141] 3230
  219. 2710 [152]1,"U2:";4;0;1;0
  220. 2720 CC$[178]"            WRITE TRACK 1"         :[141] 3230
  221. 2730 [152]1,"U1:";4;0;35;0
  222. 2740 CC$[178]"            READ TRACK 35"        :[141] 3230
  223. 2750 [152]1,"U1:";4;0;1;0
  224. 2760 CC$[178]"            READ TRACK 1"          :[141] 3230
  225. 2770 [160] 4
  226. 2780 :
  227. 2790 :
  228. 2800 B[178]B[170]1
  229. 2900 [139] B[178]PP [137]3480
  230. 2905 [129]X[178]1[164]300:[130]:[137]2430
  231. 3100 [153]"   CONTINUE (Y/N)?";
  232. 3110 [161] A$:[139]A$[178]""[167]3110
  233. 3150 [153] " "A$"CMDCMD";: [139] A$[178]"N" [167] [160]1:[160]15:[138]
  234. 3155 [139] A$[178]"Y" [167] [142]
  235. 3160 [137] 3110
  236. 3230 [153] CC$
  237. 3240 [132]1,EN,EM$,ET,ES
  238. 3250 [153]"STOP";EN;EM$;ET;ES;""
  239. 3260 [139] EN[179]2 [167] [142]
  240. 3270 [153]"STOP  UNIT IS  FAILING  "
  241. 3280 [153]"  PERFORMANCE TEST  "
  242. 3300 [137] 3100
  243. 3310 TM$[178]TI$:[141] 3100:TI$[178]TM$:[142]
  244. 3320 :
  245. 3330 :
  246. 3340 [153]"            WRITING DATA"
  247. 3350 [129] I[178]1000 [164] 1100:[152]CH,I:[130]
  248. 3360 [141]3240
  249. 3370 [160] CH:[142]
  250. 3380 :
  251. 3390 :
  252. 3400 [153]"            READING DATA"
  253. 3410 [161]A$
  254. 3420 [129] I[178]1000 [164] 1100
  255. 3430 [132] CH,J
  256. 3440 [139] J[179][177]I [167] [153]"STOP          READ ERROR:WAIT":[141] 3240
  257. 3450 [130]
  258. 3460 [141] 3240
  259. 3470 [160] CH:[142]
  260. 3480 [151]53280,5
  261. 3600 [151]53280,7:[153]"LOAD**** COMMODORE-64 DEMO ****
  262. 3610 PRINT"  DISK DRIVE TEST[146]
  263. 3620 [153]"STOPDIRECTIONS:
  264. 3740 PRINT"   PRESS [144]RETURN[146] FOR THE MAIN MENU";:PRINT""SPC(30)"OK"
  265. 3750 GETZ$:IFZ$=CHR$(13)THEN590
  266. 3760 GOTO3750
  267. 5000 POKE53280,5:PRINT"[147]**** COMMODORE-64 DEMO ****
  268. 5001 KB$(1)[178]"1":KB$(2)[178]"W":KB$(3)[178]"D":KB$(4)[178]"V":KB$(5)[178]"0":KB$(6)[178]"@":
  269. 5002 KB$(8)[178]"F1":KB$(7)[178]"=":KB$(9)[178]"CRSR ^":
  270. 5010 [153]" KEYBOARD DEMOWAIT
  271. 5020 PRINT"[144]DIRECTIONS:
  272. 5030 [153]"  PRESS STOPRETURNWAIT FOR MAIN MENU
  273. 5040 PRINT"  PRESS [144]SPACE[146] WHEN READY TO DEMO
  274. 5050 [161] Z$:[139]Z$[178][199](13)[167]590
  275. 5060 [139]Z$[179][177][199](32)[167]5050
  276. 5070 [153]"STOPDIRECTIONS
  277. 5080 FOR KB=1TO9
  278. 5090 PRINT"      "KB;"[157]. [144]PRESS [144]";KB$(KB);" [144][146]KEY               "
  279. 5100 NEXT:KB$(8)="[133]":KB$(9)="[145]"
  280. 5105 PRINT"
  281. 5110 [129] KB[178]1[164]9
  282. 5120 [161]KC$:[139]KC$[178]KB$(KB)[167] [153][166]22)" OK  ":[130]:[137]5200
  283. 5130 [137]5120
  284. 5200 [153]"      PRESS STOPRETURNWAIT FOR MAIN MENU";:[153]""[166]30)"OK"
  285. 5210 [161]Z$:[139]Z$[178][199](13)[167]590
  286. 5220 [137]5210
  287.