Home » Personal collection » Acorn tapes » Commercial_Releases » box04_tape07a_acorn_white_knight_mk2.wav » TITLE

TITLE

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 » Acorn tapes » Commercial_Releases » box04_tape07a_acorn_white_knight_mk2.wav
Filename: TITLE
Read OK: ✔
File size: 04E9 bytes
Load address: FFFF1900
Exec address: FFFF801F
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10MODE 1:VDU 23;8202;0;0;0;:F$ = "CHESS":PRINTTAB(12,1);"(STOP  recorder)":PROCowl:PROCframe:PROCblink:PRINTTAB(12,1);"                ":PRINTTAB(12,30);"(START recorder)":PRINTTAB(12,31);"*loading  chess*";:*OPT1,0
   20CHAINF$:END
   30DEF PROCframe:GCOL 0,1:X1 = &1A0:X2 = &360:Y1 = &300:Y2 = &100:FOR X = X1 TO X2 STEP 4:MOVE X,Y1 - &10:DRAW X,Y1:NEXT:FOR Y = Y1 TO Y2 STEP -4:MOVE X2 - &10,Y:DRAW X2,Y:NEXT:FOR X = X2 TO X1 STEP -4:MOVE X,Y2 + &10:DRAW X,Y2:NEXT:FOR Y = Y2 TO Y1 STEP 4:MOVE X1,Y:DRAW X1 + &10,Y:NEXT:ENDPROC
   40DEF PROCowl:VDU 23,255,&3C00;&7E7E;&7E7E;&003C;:VDU 29,&1C4;&140;:VDU 5:GCOL 0,2:P = 0:FOR Y = &190 TO 0 STEP -&14:IF Y MOD &28 THEN X1 = &18 ELSE X1 = 0
   50READ L$:N = 0:FOR X = 0 TO &160 STEP &2C:N = N + 1:MOVE X + X1,Y:IF VAL MID$(L$,N,1) THEN VDU 255
   60NEXT:SOUND 1,-15,P,1:P = P + 4:PROCwait(30):NEXT:VDU 4:VDU 29,0;0;
   70DATA 111111111,100110010,101010101,011001100,101000101,100110010,110010011,110000100,111111101,111100000
   80DATA 111110001,111100000,011110001,011110000,001111001,001111000,000111101,000101100,000101011,111111010,000000001
   90ENDPROC
  100DEF PROCblink:VDU 5:T = 7:*FX 15,1
  110REPEAT:RESTORE 130:GCOL 0,0:FOR I% = 1 TO 6:IF I% = 4 THEN GCOL 0,2
  120READ N,Y$:FOR J% = 1 TO N:READ X$:MOVE EVAL X$,EVAL Y$:VDU 255:NEXT:PROCwait(T):NEXT
  130DATA 2,&2A8,&21C,&2CC
  140DATA 4,&294,&208,&234,&2B8,&2E4
  150DATA 2,&280,&21C,&2CC
  160DATA 2,&280,&21C,&2CC
  170DATA 4,&294,&208,&234,&2B8,&2E4
  180DATA 2,&2A8,&21C,&2CC
  190PROCwait(T*10):SOUND 0,-15,1,1:UNTIL INKEY 100=-1:VDU 4:ENDPROC
  200DEF PROCwait(T):TIME = 0:REPEAT UNTIL TIME > T:ENDPROC


�� 1:� 23;8202;0;0;0;:F$ = "CHESS":�12,1);"(STOP  recorder)":�owl:�frame:�blink:�12,1);"                ":�12,30);"(START recorder)":�12,31);"*loading  chess*";:*OPT1,0
	�F$:�
�� �frame:� 0,1:X1 = &1A0:X2 = &360:Y1 = &300:Y2 = &100:� X = X1 � X2 � 4:� X,Y1 - &10:� X,Y1:�:� Y = Y1 � Y2 � -4:� X2 - &10,Y:� X2,Y:�:� X = X2 � X1 � -4:� X,Y2 + &10:� X,Y2:�:� Y = Y2 � Y1 � 4:� X1,Y:� X1 + &10,Y:�:�
(�� �owl:� 23,255,&3C00;&7E7E;&7E7E;&003C;:� 29,&1C4;&140;:� 5:� 0,2:P = 0:� Y = &190 � 0 � -&14:� Y � &28 � X1 = &18 � X1 = 0
2M� L$:N = 0:� X = 0 � &160 � &2C:N = N + 1:� X + X1,Y:� � �L$,N,1) � � 255
<5�:� 1,-15,P,1:P = P + 4:�wait(30):�:� 4:� 29,0;0;
Fi� 111111111,100110010,101010101,011001100,101000101,100110010,110010011,110000100,111111101,111100000
Ps� 111110001,111100000,011110001,011110000,001111001,001111000,000111101,000101100,000101011,111111010,000000001
Z�
d� �blink:� 5:T = 7:*FX 15,1
n0�:� �tB@:� 0,0:� I% = 1 � 6:� I% = 4 � � 0,2
x;� N,Y$:� J% = 1 � N:� X$:� � X$,� Y$:� 255:�:�wait(T):�
�� 2,&2A8,&21C,&2CC
� � 4,&294,&208,&234,&2B8,&2E4
�� 2,&280,&21C,&2CC
�� 2,&280,&21C,&2CC
� � 4,&294,&208,&234,&2B8,&2E4
�� 2,&2A8,&21C,&2CC
�,�wait(T*10):� 0,-15,1,1:� � 100=-1:� 4:�
� � �wait(T):� = 0:� � � > T:�
�
00000000  0d 00 0a af eb 20 31 3a  ef 20 32 33 3b 38 32 30  |..... 1:. 23;820|
00000010  32 3b 30 3b 30 3b 30 3b  3a 46 24 20 3d 20 22 43  |2;0;0;0;:F$ = "C|
00000020  48 45 53 53 22 3a f1 8a  31 32 2c 31 29 3b 22 28  |HESS":..12,1);"(|
00000030  53 54 4f 50 20 20 72 65  63 6f 72 64 65 72 29 22  |STOP  recorder)"|
00000040  3a f2 6f 77 6c 3a f2 66  72 61 6d 65 3a f2 62 6c  |:.owl:.frame:.bl|
00000050  69 6e 6b 3a f1 8a 31 32  2c 31 29 3b 22 20 20 20  |ink:..12,1);"   |
00000060  20 20 20 20 20 20 20 20  20 20 20 20 20 22 3a f1  |             ":.|
00000070  8a 31 32 2c 33 30 29 3b  22 28 53 54 41 52 54 20  |.12,30);"(START |
00000080  72 65 63 6f 72 64 65 72  29 22 3a f1 8a 31 32 2c  |recorder)":..12,|
00000090  33 31 29 3b 22 2a 6c 6f  61 64 69 6e 67 20 20 63  |31);"*loading  c|
000000a0  68 65 73 73 2a 22 3b 3a  2a 4f 50 54 31 2c 30 0d  |hess*";:*OPT1,0.|
000000b0  00 14 09 d7 46 24 3a e0  0d 00 1e de dd 20 f2 66  |....F$:...... .f|
000000c0  72 61 6d 65 3a e6 20 30  2c 31 3a 58 31 20 3d 20  |rame:. 0,1:X1 = |
000000d0  26 31 41 30 3a 58 32 20  3d 20 26 33 36 30 3a 59  |&1A0:X2 = &360:Y|
000000e0  31 20 3d 20 26 33 30 30  3a 59 32 20 3d 20 26 31  |1 = &300:Y2 = &1|
000000f0  30 30 3a e3 20 58 20 3d  20 58 31 20 b8 20 58 32  |00:. X = X1 . X2|
00000100  20 88 20 34 3a ec 20 58  2c 59 31 20 2d 20 26 31  | . 4:. X,Y1 - &1|
00000110  30 3a df 20 58 2c 59 31  3a ed 3a e3 20 59 20 3d  |0:. X,Y1:.:. Y =|
00000120  20 59 31 20 b8 20 59 32  20 88 20 2d 34 3a ec 20  | Y1 . Y2 . -4:. |
00000130  58 32 20 2d 20 26 31 30  2c 59 3a df 20 58 32 2c  |X2 - &10,Y:. X2,|
00000140  59 3a ed 3a e3 20 58 20  3d 20 58 32 20 b8 20 58  |Y:.:. X = X2 . X|
00000150  31 20 88 20 2d 34 3a ec  20 58 2c 59 32 20 2b 20  |1 . -4:. X,Y2 + |
00000160  26 31 30 3a df 20 58 2c  59 32 3a ed 3a e3 20 59  |&10:. X,Y2:.:. Y|
00000170  20 3d 20 59 32 20 b8 20  59 31 20 88 20 34 3a ec  | = Y2 . Y1 . 4:.|
00000180  20 58 31 2c 59 3a df 20  58 31 20 2b 20 26 31 30  | X1,Y:. X1 + &10|
00000190  2c 59 3a ed 3a e1 0d 00  28 80 dd 20 f2 6f 77 6c  |,Y:.:...(.. .owl|
000001a0  3a ef 20 32 33 2c 32 35  35 2c 26 33 43 30 30 3b  |:. 23,255,&3C00;|
000001b0  26 37 45 37 45 3b 26 37  45 37 45 3b 26 30 30 33  |&7E7E;&7E7E;&003|
000001c0  43 3b 3a ef 20 32 39 2c  26 31 43 34 3b 26 31 34  |C;:. 29,&1C4;&14|
000001d0  30 3b 3a ef 20 35 3a e6  20 30 2c 32 3a 50 20 3d  |0;:. 5:. 0,2:P =|
000001e0  20 30 3a e3 20 59 20 3d  20 26 31 39 30 20 b8 20  | 0:. Y = &190 . |
000001f0  30 20 88 20 2d 26 31 34  3a e7 20 59 20 83 20 26  |0 . -&14:. Y . &|
00000200  32 38 20 8c 20 58 31 20  3d 20 26 31 38 20 8b 20  |28 . X1 = &18 . |
00000210  58 31 20 3d 20 30 0d 00  32 4d f3 20 4c 24 3a 4e  |X1 = 0..2M. L$:N|
00000220  20 3d 20 30 3a e3 20 58  20 3d 20 30 20 b8 20 26  | = 0:. X = 0 . &|
00000230  31 36 30 20 88 20 26 32  43 3a 4e 20 3d 20 4e 20  |160 . &2C:N = N |
00000240  2b 20 31 3a ec 20 58 20  2b 20 58 31 2c 59 3a e7  |+ 1:. X + X1,Y:.|
00000250  20 bb 20 c1 4c 24 2c 4e  2c 31 29 20 8c 20 ef 20  | . .L$,N,1) . . |
00000260  32 35 35 0d 00 3c 35 ed  3a d4 20 31 2c 2d 31 35  |255..<5.:. 1,-15|
00000270  2c 50 2c 31 3a 50 20 3d  20 50 20 2b 20 34 3a f2  |,P,1:P = P + 4:.|
00000280  77 61 69 74 28 33 30 29  3a ed 3a ef 20 34 3a ef  |wait(30):.:. 4:.|
00000290  20 32 39 2c 30 3b 30 3b  0d 00 46 69 dc 20 31 31  | 29,0;0;..Fi. 11|
000002a0  31 31 31 31 31 31 31 2c  31 30 30 31 31 30 30 31  |1111111,10011001|
000002b0  30 2c 31 30 31 30 31 30  31 30 31 2c 30 31 31 30  |0,101010101,0110|
000002c0  30 31 31 30 30 2c 31 30  31 30 30 30 31 30 31 2c  |01100,101000101,|
000002d0  31 30 30 31 31 30 30 31  30 2c 31 31 30 30 31 30  |100110010,110010|
000002e0  30 31 31 2c 31 31 30 30  30 30 31 30 30 2c 31 31  |011,110000100,11|
000002f0  31 31 31 31 31 30 31 2c  31 31 31 31 30 30 30 30  |1111101,11110000|
00000300  30 0d 00 50 73 dc 20 31  31 31 31 31 30 30 30 31  |0..Ps. 111110001|
00000310  2c 31 31 31 31 30 30 30  30 30 2c 30 31 31 31 31  |,111100000,01111|
00000320  30 30 30 31 2c 30 31 31  31 31 30 30 30 30 2c 30  |0001,011110000,0|
00000330  30 31 31 31 31 30 30 31  2c 30 30 31 31 31 31 30  |01111001,0011110|
00000340  30 30 2c 30 30 30 31 31  31 31 30 31 2c 30 30 30  |00,000111101,000|
00000350  31 30 31 31 30 30 2c 30  30 30 31 30 31 30 31 31  |101100,000101011|
00000360  2c 31 31 31 31 31 31 30  31 30 2c 30 30 30 30 30  |,111111010,00000|
00000370  30 30 30 31 0d 00 5a 05  e1 0d 00 64 1f dd 20 f2  |0001..Z....d.. .|
00000380  62 6c 69 6e 6b 3a ef 20  35 3a 54 20 3d 20 37 3a  |blink:. 5:T = 7:|
00000390  2a 46 58 20 31 35 2c 31  0d 00 6e 30 f5 3a f7 20  |*FX 15,1..n0.:. |
000003a0  8d 74 42 40 3a e6 20 30  2c 30 3a e3 20 49 25 20  |.tB@:. 0,0:. I% |
000003b0  3d 20 31 20 b8 20 36 3a  e7 20 49 25 20 3d 20 34  |= 1 . 6:. I% = 4|
000003c0  20 8c 20 e6 20 30 2c 32  0d 00 78 3b f3 20 4e 2c  | . . 0,2..x;. N,|
000003d0  59 24 3a e3 20 4a 25 20  3d 20 31 20 b8 20 4e 3a  |Y$:. J% = 1 . N:|
000003e0  f3 20 58 24 3a ec 20 a0  20 58 24 2c a0 20 59 24  |. X$:. . X$,. Y$|
000003f0  3a ef 20 32 35 35 3a ed  3a f2 77 61 69 74 28 54  |:. 255:.:.wait(T|
00000400  29 3a ed 0d 00 82 16 dc  20 32 2c 26 32 41 38 2c  |):...... 2,&2A8,|
00000410  26 32 31 43 2c 26 32 43  43 0d 00 8c 20 dc 20 34  |&21C,&2CC... . 4|
00000420  2c 26 32 39 34 2c 26 32  30 38 2c 26 32 33 34 2c  |,&294,&208,&234,|
00000430  26 32 42 38 2c 26 32 45  34 0d 00 96 16 dc 20 32  |&2B8,&2E4..... 2|
00000440  2c 26 32 38 30 2c 26 32  31 43 2c 26 32 43 43 0d  |,&280,&21C,&2CC.|
00000450  00 a0 16 dc 20 32 2c 26  32 38 30 2c 26 32 31 43  |.... 2,&280,&21C|
00000460  2c 26 32 43 43 0d 00 aa  20 dc 20 34 2c 26 32 39  |,&2CC... . 4,&29|
00000470  34 2c 26 32 30 38 2c 26  32 33 34 2c 26 32 42 38  |4,&208,&234,&2B8|
00000480  2c 26 32 45 34 0d 00 b4  16 dc 20 32 2c 26 32 41  |,&2E4..... 2,&2A|
00000490  38 2c 26 32 31 43 2c 26  32 43 43 0d 00 be 2c f2  |8,&21C,&2CC...,.|
000004a0  77 61 69 74 28 54 2a 31  30 29 3a d4 20 30 2c 2d  |wait(T*10):. 0,-|
000004b0  31 35 2c 31 2c 31 3a fd  20 a6 20 31 30 30 3d 2d  |15,1,1:. . 100=-|
000004c0  31 3a ef 20 34 3a e1 0d  00 c8 20 dd 20 f2 77 61  |1:. 4:.... . .wa|
000004d0  69 74 28 54 29 3a d1 20  3d 20 30 3a f5 20 fd 20  |it(T):. = 0:. . |
000004e0  91 20 3e 20 54 3a e1 0d  ff                       |. > T:...|
000004e9
TITLE.m0
TITLE.m1
TITLE.m2
TITLE.m4
TITLE.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .