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<