Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape09b_d60_c16_zagging.wav » testcard
testcard
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_tape09b_d60_c16_zagging.wav |
| Filename: | testcard |
| Read OK: | ✔ |
| File size: | 1093 bytes |
| Load address: | 1001 |
| Exec address: | 0000 |
File contents
10 REM TESTCARD FOR COMMODORE 16,232
30 COLOR0,2
40 COLOR1,1
50 PRINT"<clr>"
60 PRINT" PLEASE USE THIS COLOUR CHART TO ADJUST"
70 PRINT" YOUR TV SET OR MONITOR"
80 PRINT
90 PRINT" <black><reverse on> <rev off> BLACK"
100 PRINT" <white><reverse on> <rev off><black> WHITE"
110 PRINT" <red><reverse on> <rev off> <black>RED"
120 PRINT" <cyan><reverse on> <rev off> <black>CYAN"
130 PRINT" <purple><reverse on> <rev off> <black>PURPLE"
140 PRINT" <green><reverse on> <rev off> <black>GREEN"
150 PRINT" <blue><reverse on> <rev off> <black>BLUE"
160 PRINT" <yellow><reverse on> <rev off> <black>YELLOW"
170 PRINT" <orange><reverse on> <rev off> <black>ORANGE"
180 PRINT" <brown><reverse on> <rev off> <black>BROWN"
190 PRINT" <pink><reverse on> <rev off> <black>YELLOW-GREEN"
200 PRINT" <dark gray><reverse on> <rev off> <black>PINK"
210 PRINT" <medium gray><reverse on> <rev off> <black>BLUE-GREEN"
220 PRINT" <light green><reverse on> <rev off> <black>LIGHT BLUE"
230 PRINT" <light blue><reverse on> <rev off> <black>DARK BLUE"
240 PRINT" <light gray><reverse on> <rev off> <black>LIGHT GREEN"
250 PRINT
260 PRINT" IN A MOMENT YOU WILL HEAR
270 PRINT" A MINUET BY <red>FREDERIC DUVERNOY"
280 PRINT"<black> (1765-1838)"
290 DATA1022,7,64,118,169,217,262,305,345,383,419,453,485,516,544,571,596,620,643
300 DATA664,685,704,722,739,755,770,784,798,810,822,834,844,854,864,873,881,889
310 DATA897,904,911,917,923,929,934,939,944,949,953
320 DIM N(48)
330 FORJ=0TO47:READN(J):NEXT
340 VOL3
350 DATA24,1,28,1,31,2,31,2,31,1,28,1,24,2,24,2,24,2,23,2,23,1,24,1
360 DATA26,1,28,1,29,2,26,2,19,2,24,2,24,2,24,2,26,1,28,1,26,1,24,1
370 DATA23,2,28,2,28,2,28,2,29,1,31,1,29,1,28,1,26,2,28,2,28,2,28,2
380 DATA26,2,28,1,30,1,31,2,26,2,26,2,26,2,23,2,0,2,998
390 DATA23,1,26,1,29,2,29,2,29,1,26,1,23,2,23,2,23,2,24,2,24,1,26,1,24,1,22,1
400 DATA22,2,21,2,26,2,25,2,25,2,25,2,26,1,28,1,26,1,28,1,29,2,23,2,23,2,23,2
410 DATA24,1,26,1,24,1,26,1,28,2,31,2,31,2,28,1,24,1,19,2,19,2,24,1,28,1,31,2
420 DATA31,2,31,1,28,1,24,2,24,2,24,2,23,2,23,1,24,1,26,1,28,1,29,2,26,2,19,2
430 DATA24,2,24,2,24,2,26,1,28,1,26,1,24,1,23,2,28,2,28,2,28,2,29,1,31,1,29,1
440 DATA28,1,26,2,31,2,31,2,31,2,31,2,29,2,28,2,26,2,26,2,26,2,24,2,0,2,998
450 DATA28,2,24,2,24,1,0,1,19,2,24,2,24,1,0,1,28,2,31,2,31,1,0,1,29,2,26,2,26,1
460 DATA0,1,28,2,24,2,24,1,0,1,19,2,24,2,24,1,0,1,28,2,26,2,26,1,0,1,31,2,24,2
470 DATA0,2,998
480 DATA28,2,29,2,29,1,0,1,26,2,28,2,28,1,0,1,24,2,26,2,26,1,0,1,28,2,24,2
490 DATA24,1,0,1,31,2,24,2,24,1,0,1,31,2,26,2,26,1,0,1,31,2,28,2,28,1,0,1
500 DATA30,2,31,2,0,2,28,2,24,2,24,1,0,1,19,2,24,2,24,1,0,1,28,2,31,2,31,1,0,1
510 DATA29,2,26,2,26,1,0,1,28,2,24,2,24,1,0,1,19,2,24,2,24,1,0,1,28,2,26,2
520 DATA26,1,0,1,31,2,24,4,998
530 DATA999
540 DATA0,2,28,2,28,2,24,1,19,1,16,2,16,2,16,2,19,2,19,1,21,1,23,1
550 DATA24,1,26,2,19,2,0,12,19,2,24,2,24,2,24,2,26,1,28,1,26,1,24,1
560 DATA23,2,24,2,24,2,24,2,24,4,23,2,18,2,18,2,18,2,19,2,0,2,998
570 DATA0,2,19,6,19,2,7,2,19,2
580 DATA16,6,17,4,17,2,19,2,19,2,19,2,17,2,0,4,17,2,17,2,17,2,16,2,0,4
590 DATA19,2,24,1,19,1,16,1,12,1,7,2,19,2,0,2,16,2,28,2,24,1,19,1,16,2,16,2,16,2
600 DATA19,2,19,1,21,1,23,1,24,1,26,2,19,2,0,12,19,2,24,2,24,2,24,2,26,1,28,1
610 DATA26,1,24,1,23,2,28,2,24,2,22,2,21,2,23,2,24,2,19,2,19,2,19,2,16,4,998
620 DATA0,2,12,1,19,1,16,1,19,1,12,1,19,1,12,1,19,1,16,1,19,1,12,1,19,1,7,1,19,1
630 DATA18,1,19,1,7,1,19,1,7,1,19,1,18,1,19,1,7,1,19,1,12,1,19,1,16,1,19,1,12,1
640 DATA19,1,12,1,19,1,16,1,19,1,12,1,19,1,7,1,19,1,18,1,19,1,7,1,19,1,16,2
650 DATA 12,2,998
660 DATA0,2,23,1,19,1,23,1,19,1,23,1,19,1,24,1,19,1,24,1,19,1,24,1,19,1
670 DATA 23,1,19,1,23,1,19,1,24,1,19,1,23,1,19,1
680 DATA23,1,19,1,23,1,19,1,16,1,19,1,16,1,19,1,16,1,19,1,7,1,19,1,23,1,19,1
690 DATA23,1,19,1,24,2,24,2,24,2,23,4,0,2,12,1,19,1,16,1,19,1,12,1,19,1,12,1
700 DATA19,1,16,1,19,1,12,1,19,1,7,1,19,1,18,1,19,1,7,1,19,1,7,1,19,1,18,1,19,1
710 DATA 7,1
720 DATA19,1,12,1,19,1,16,1,19,1,12,1,19,1,12,1,19,1,16,1,19,1,12,1,19,1,7,1
730 DATA19,1,18,1,19,1,7,1,19,1,16,2,12,2,0,2,998
740 DATA999
750 DIM A%(1000),B%(1000)
760 P=0:Q=0
770 DO WHILE X<>999
780 READX:IF X=998 THEN B(Q,2)=P-1:B(Q+1,0)=P:Q=Q+1:GOTO800
790 IF X<>999 THENA%(P)=N(X): READX:A%(P+1)= 6*X:P=P+2
800 LOOP
810 P=0:Q=0:X=0
820 DO WHILE X<>999
830 READX:IF X=998 THEN B(Q,3)=P-1:B(Q+1,1)=P:Q=Q+1:GOTO850
840 IF X<>999 THENB%(P)=N(X) : READX:B%(P+1)= 6*X:P=P+2
850 LOOP
860 J=0:GOSUB 940
870 J=1:GOSUB 940
880 J=2:GOSUB 940
890 J=3:GOSUB 940
900 J=0:GOSUB940:J=1:GOSUB940
920 GOTO860
930 STOP
940 P=0:QQ=B(J,2)
950 PA=B(J,0):PB=B(J,1):TA=TI+50:TB=TA
960 DO UNTIL PA >= QQ
970 Y=B%(PB+1):Z=A%(PA+1): V=Z*1.5
980 IF TI>=TA THEN SOUND1,A%(PA),Z-2: TA=TA+V:PA=PA+2
990 IFTI>=TBTHENSOUND2,B%(PB),Y-2:TB=TB+Y*1.5:PB=PB+2
1000 LOOP
1010 RETURN
% � TESTCARD FOR COMMODORE 16,232 . �0,2 7( �1,1 @2 �"�"