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 �"�"