Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape05a_c16_d90_graphics_music.wav » gm-loader
gm-loader
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape05a_c16_d90_graphics_music.wav |
| Filename: | gm-loader |
| Read OK: | ✔ |
| File size: | 05F7 bytes |
| Load address: | 1001 |
| Exec address: | 0000 |
File contents
10 CLR
20 SCNCLR
30 INPUT"NAME";N$
40 OPEN 1,1,0,N$
50 DIM DA(250)
60 DIM DB(250)
70 DIM DC(250)
80 DIM DD(250)
90 DIM DE(250)
100 DIM DF(250)
110 FOR LO=1 TO 250
120 INPUT#1,DA(LO),DB(LO),DC(LO),DD(LO),DE(LO),DE(LO),DF(LO)
130 NEXT LO
140 CLOSE 1:SCNCLR
150 PRINT:PRINT" MENU"
160 PRINT:PRINT"1. REPLAY"
170 PRINT:PRINT"2. REPLAY GRAPHICS"
180 PRINT:PRINT"3. REPLAY SOUND"
190 PRINT:PRINT"4. SEE NUMBERS"
200 PRINT:PRINT"5. LOAD"
210 GETKEY M$
220 IF M$>"5"OR M$<"1" THEN 210
230 ON M GOTO 240,320,380,430,10
240 INPUT"SPEED";SP
250 GRAPHIC 1,1:COLOR 0,1
260 FOR RE=1 TO 250
270 COLOR 1,E(RE),3
280 DRAW 1,A(RE),B(RE) TO C(RE),D(RE)
290 SOUND 1,F(RE),SP
300 NEXTRE:COLOR 0,2:COLOR 1,1
310 GOTO 150
320 GRAPHIC 1,1
330 COLOR 0,1
340 FOR RE=1 TO 250
350 DRAW 1,A(RE),B(RE) TO C(RE),D(RE)
360 NEXTRE:COLOR 0,2:COLOR 1,1
370 GOTO 150
380 INPUT"SPEED";SP
390 FOR RE=1 TO 250
400 SOUND 1,F(RE),SP
410 NEXTRE
420 GOTO 150
430 SCNCLR
440 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT" PLEASE WAIT..."
450 FOR RE=1 TO 250
460 ON E(RE) GOTO 470,480,490,500,510,520,530,540,550,560,570,580,590,600,610
465 ON E(RE) GOTO 620
470 BL=BL+1:NEXT:GOTO 630
480 WH=WH+1:NEXT:GOTO 630
490 RD=RD+1:NEXT:GOTO 630
500 CY=CY+1:NEXT:GOTO 630
510 PU=PU+1:NEXT:GOTO 630
520 GR=GR+1:NEXT:GOTO 630
530 BL=BL+1:NEXT:GOTO 630
540 YE=YE+1:NEXT:GOTO 630
550 OR=OR+1:NEXT:GOTO 630
560 BR=BR+1:NEXT:GOTO 630
570 YG=YG+1:NEXT:GOTO 630
580 PI=PI+1:NEXT:GOTO 630
590 BG=BG+1:NEXT:GOTO 630
600 LB=LB+1:NEXT:GOTO 630
610 DB=DB+1:NEXT:GOTO 630
620 LG=LG+1:NEXT:GOTO 630
630 SCNCLR
640 PRINT"BLACK ";BL:PRINT"WHITE ";WH:PRINT"RED ";RD:PRINT"CYAN ";CY:PRINT"PURPLE ";PU:PRINT"GREEN";GR
650 PRINT"BLUE ";BL:PRINT"YELLOW ";YE:PRINT"ORANGE ";OR:PRINT"BROWN ";BR:PRINT"YELLOW-GREEN";YG
660 PRINT"PINK ";PI:PRINT"BLUE-GREEN";BG:PRINT"LIGHT-BLUE";LB:PRINT"DARK-BLUE";DB
670 PRINT"LIGHT-GREEN";LG
680 PRINT:PRINT"HIT ANY KEY"
690 GETKEY Z$
700 GOTO 150
� � �"NAME";N$ +( � 1,1,0,N$ 92 � DA(250) G<