Home » Archimedes archive » Acorn User » AU 1994-11.adf » !StarInfo_StarInfo » Borcherds/BBCkeys/BBCKeysSrc
Borcherds/BBCkeys/BBCKeysSrc
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 » Archimedes archive » Acorn User » AU 1994-11.adf » !StarInfo_StarInfo |
Filename: | Borcherds/BBCkeys/BBCKeysSrc |
Read OK: | ✔ |
File size: | 09CD bytes |
Load address: | 0000 |
Exec address: | 0000 |
File contents
10REM > ch7 20line%=10000 30*K.1PROCinkey|M 40DIM code 10000 50FOR p=4 TO 7 STEP 2 60O%=code 70P%=0 80[OPT p 90EQUD 0 ;start 100EQUD keyson ;init 110EQUD fin 120EQUD serv 130EQUD title 140EQUD help 150EQUD tbl 160EQUD 0 170EQUD 0 180EQUD 0 190EQUD 0 200.start 210MOV pc,R14 220SWI "OS_Exit" 250.serv 260MOV pc,R14 270.title 280EQUS "KeysModule" 290EQUB0 300ALIGN 310.help 320EQUS"KeysModule"+CHR$9+"0.01 ("+MID$(TIME$,5,11)+")" 330EQUB 0 340ALIGN 350.tbl 360EQUS "KeysOn" 370EQUB 0 380ALIGN 390EQUD keyson 400EQUD 0 410EQUD keysonsyn 420EQUD keysonhlp 430EQUS "KeysOff" 440EQUB 0 450ALIGN 460EQUD keysoff 470EQUD 0 480EQUD keysoffsyn 490EQUD keysoffhlp 500EQUD 0 510.keysonsyn 520EQUS "Syntax: *KeysOn" 530EQUB 0 540.keysoffsyn 550EQUS "Syntax: *KeysOff" 560EQUB 0 570.keysoffhlp 580EQUS "*KeysOff turns off the OS_Byte121 and OS_Byte129 key mapping." 590EQUB13:EQUS "Syntax: *KeysOff" 600EQUB 0 610.keysonhlp 620EQUS "*KeysOn turns on the OS_Byte121 and OS_Byte129 key mapping." 630EQUB13:EQUS "Syntax: *KeysOn" 640EQUB 0 650ALIGN 660.fin 670STMFD R13!,{R7-R11,R14} 680MOV R0,#6:ADR R1,os_byte:ADR R2,end:SWI "XOS_Claim" 690SWI "XOS_Release" 700LDMFD R13!,{R7-R11,pc} 710.keysoff 720STMFD R13!,{R0-R12,R14} 730MOV R0,#6 740ADR R1,os_byte 750ADR R2,end 760SWI "XOS_Release" 770LDMFD R13!,{R0-R12,PC} 780.keyson 790STMFD R13!,{R0-R12,R14} 800MOV R0,#6 810ADR R1,os_byte 820ADR R2,end 830SWI "XOS_Claim" 840LDMFD R13!,{R0-R12,PC} 850.os_byte 860TEQ R0,#129 870BEQ os_byte129 880TEQ R0,#121 890MOVNES pc,R14 900AND R2,R1,#%10000000 910TEQ R2,#%10000000 920MOVNES pc,R14 930] 940RESTORE line% 950READ N% 960FORI%=1 TO N% 970READ A%,B% 980[OPT p:TEQ R1,#A% EOR &80:MOVEQ R1,#B% EOR &80:] 990IF I%<>N% [OPT p:MOVEQS pc,R14:] 1000NEXT 1010[OPT p:MOVS pc,R14 1020.os_byte129 1030TEQ R2,#&FF:MOVNES pc,R14 1040AND R2,R1,#%10000000 1050TEQ R2,#%10000000 1060MOV R2,#&FF 1070] 1080RESTORE line% 1090READ N% 1100FORI%=1 TO N% 1110READ A%,B% 1120[OPT p:TEQ R1,#A% EOR &FF:MOVEQ R1,#B% EOR &FF:] 1130IF I%<>N% [OPT p:MOVEQS pc,R14:] 1140NEXT 1150[OPT p:MOVS pc,R14 1160.end 1170] 1180NEXT 1190OSCLI"SAVE KeysMod "+STR$~code+" "+STR$~O%:*SETTYPE KeysMod MODULE 1200*RMRUN KEYSMOD 1210*RMKILL KEYSMODULE 1220*RMRUN KEYSMOD 1230*KEYSON 1240END 2000DEFPROCinkey 2007MODE12 2010REPEAT 2020FORI%=1 TO 127 2030SYS "OS_Byte",129,I% EOR &FF,&FF TO ,A%:IF A%=&FF THEN COLOUR1:PRINT;I%;" "; 2040SYS "OS_Byte",121,I% EOR &80 TO ,A%:IF A%=&FF THEN COLOUR2:PRINT;I%;" "; 2050NEXT 2060PRINT 2070UNTIL0 2080ENDPROC 2090DATA 1, 72,79 : REM 'Snapper' type keys 2100DATA 2, 64,65, 1,81 : REM Arcadians A,S,Return 2110DATA 2, 25,102, 121,103 : REM Firebird <,>,Tab 10000DATA 8, 72,79, 64,65, 1,81, 25,102, 121,103, 71,88, 80,5, 89,8 : REM Dogfight
� > ch7 line%=10000 *K.1PROCinkey|M (� code 10000 2� p=4 � 7 � 2 <O%=code FP%=0 P [OPT p ZEQUD 0 ;start dEQUD keyson ;init nEQUD fin x EQUD serv �EQUD title � EQUD help �EQUD tbl � EQUD 0 � EQUD 0 � EQUD 0 � EQUD 0 � .start �MOV pc,R14 �SWI "OS_Exit" � .serv MOV pc,R14 .title EQUS "KeysModule" " EQUB0 , ALIGN 6 .help @.EQUS"KeysModule"+�9+"0.01 ("+��$,5,11)+")" J EQUB 0 T ALIGN ^.tbl hEQUS "KeysOn" r EQUB 0 | ALIGN �EQUD keyson � EQUD 0 �EQUD keysonsyn �EQUD keysonhlp �EQUS "KeysOff" � EQUB 0 � ALIGN �EQUD keysoff � EQUD 0 �EQUD keysoffsyn �EQUD keysoffhlp � EQUD 0 �.keysonsyn EQUS "Syntax: *KeysOn" EQUB 0 .keysoffsyn &EQUS "Syntax: *KeysOff" 0 EQUB 0 :.keysoffhlp DHEQUS "*KeysOff turns off the OS_Byte121 and OS_Byte129 key mapping." N"EQUB13:EQUS "Syntax: *KeysOff" X EQUB 0 b.keysonhlp lFEQUS "*KeysOn turns on the OS_Byte121 and OS_Byte129 key mapping." v!EQUB13:EQUS "Syntax: *KeysOn" � EQUB 0 � ALIGN �.fin �STMFD R13!,{R7-R11,R14} �7MOV R0,#6:ADR R1,os_byte:ADR R2,end:SWI "XOS_Claim" �SWI "XOS_Release" �LDMFD R13!,{R7-R11,pc} �.keysoff �STMFD R13!,{R0-R12,R14} � MOV R0,#6 �ADR R1,os_byte �ADR R2,end �SWI "XOS_Release" LDMFD R13!,{R0-R12,PC} .keyson STMFD R13!,{R0-R12,R14} MOV R0,#6 *ADR R1,os_byte 4ADR R2,end >SWI "XOS_Claim" HLDMFD R13!,{R0-R12,PC} R.os_byte \TEQ R0,#129 fBEQ os_byte129 pTEQ R0,#121 zMOVNES pc,R14 �� R2,R1,#%10000000 �TEQ R2,#%10000000 �MOVNES pc,R14 �] �� line% �� N% ��I%=1 � N% �� A%,B% �-[OPT p:TEQ R1,#A% � &80:�Q R1,#B% � &80:] � � I%<>N% [OPT p:�QS pc,R14:] �� �[OPT p:MOVS pc,R14 �.os_byte129 TEQ R2,#&FF:MOVNES pc,R14 � R2,R1,#%10000000 TEQ R2,#%10000000 $MOV R2,#&FF .] 8� line% B� N% L�I%=1 � N% V� A%,B% `-[OPT p:TEQ R1,#A% � &FF:�Q R1,#B% � &FF:] j � I%<>N% [OPT p:�QS pc,R14:] t� ~[OPT p:MOVS pc,R14 �.end �] �� �<�"SAVE KeysMod "+�~code+" "+�~O%:*SETTYPE KeysMod MODULE �*RMRUN KEYSMOD �*RMKILL KEYSMODULE �*RMRUN KEYSMOD �*KEYSON �� ���inkey ��12 �� ��I%=1 � 127 �?ș "OS_Byte",129,I% � &FF,&FF � ,A%:� A%=&FF � �1:�;I%;" "; �;ș "OS_Byte",121,I% � &80 � ,A%:� A%=&FF � �2:�;I%;" "; � � �0 � *(� 1, 72,79 : REM 'Snapper' type keys 4/� 2, 64,65, 1,81 : REM Arcadians A,S,Return >/� 2, 25,102, 121,103 : REM Firebird <,>,Tab 'N� 8, 72,79, 64,65, 1,81, 25,102, 121,103, 71,88, 80,5, 89,8 : REM Dogfight �
00000000 0d 00 0a 0b f4 20 3e 20 63 68 37 0d 00 14 0f 6c |..... > ch7....l| 00000010 69 6e 65 25 3d 31 30 30 30 30 0d 00 1e 13 2a 4b |ine%=10000....*K| 00000020 2e 31 50 52 4f 43 69 6e 6b 65 79 7c 4d 0d 00 28 |.1PROCinkey|M..(| 00000030 10 de 20 63 6f 64 65 20 31 30 30 30 30 0d 00 32 |.. code 10000..2| 00000040 11 e3 20 70 3d 34 20 b8 20 37 20 88 20 32 0d 00 |.. p=4 . 7 . 2..| 00000050 3c 0b 4f 25 3d 63 6f 64 65 0d 00 46 08 50 25 3d |<.O%=code..F.P%=| 00000060 30 0d 00 50 0a 5b 4f 50 54 20 70 0d 00 5a 11 45 |0..P.[OPT p..Z.E| 00000070 51 55 44 20 30 20 3b 73 74 61 72 74 0d 00 64 15 |QUD 0 ;start..d.| 00000080 45 51 55 44 20 6b 65 79 73 6f 6e 20 3b 69 6e 69 |EQUD keyson ;ini| 00000090 74 0d 00 6e 0c 45 51 55 44 20 66 69 6e 0d 00 78 |t..n.EQUD fin..x| 000000a0 0d 45 51 55 44 20 73 65 72 76 0d 00 82 0e 45 51 |.EQUD serv....EQ| 000000b0 55 44 20 74 69 74 6c 65 0d 00 8c 0d 45 51 55 44 |UD title....EQUD| 000000c0 20 68 65 6c 70 0d 00 96 0c 45 51 55 44 20 74 62 | help....EQUD tb| 000000d0 6c 0d 00 a0 0a 45 51 55 44 20 30 0d 00 aa 0a 45 |l....EQUD 0....E| 000000e0 51 55 44 20 30 0d 00 b4 0a 45 51 55 44 20 30 0d |QUD 0....EQUD 0.| 000000f0 00 be 0a 45 51 55 44 20 30 0d 00 c8 0a 2e 73 74 |...EQUD 0.....st| 00000100 61 72 74 0d 00 d2 0e 4d 4f 56 20 70 63 2c 52 31 |art....MOV pc,R1| 00000110 34 0d 00 dc 11 53 57 49 20 22 4f 53 5f 45 78 69 |4....SWI "OS_Exi| 00000120 74 22 0d 00 fa 09 2e 73 65 72 76 0d 01 04 0e 4d |t".....serv....M| 00000130 4f 56 20 70 63 2c 52 31 34 0d 01 0e 0a 2e 74 69 |OV pc,R14.....ti| 00000140 74 6c 65 0d 01 18 15 45 51 55 53 20 22 4b 65 79 |tle....EQUS "Key| 00000150 73 4d 6f 64 75 6c 65 22 0d 01 22 09 45 51 55 42 |sModule"..".EQUB| 00000160 30 0d 01 2c 09 41 4c 49 47 4e 0d 01 36 09 2e 68 |0..,.ALIGN..6..h| 00000170 65 6c 70 0d 01 40 2e 45 51 55 53 22 4b 65 79 73 |elp..@.EQUS"Keys| 00000180 4d 6f 64 75 6c 65 22 2b bd 39 2b 22 30 2e 30 31 |Module"+.9+"0.01| 00000190 20 28 22 2b c1 91 24 2c 35 2c 31 31 29 2b 22 29 | ("+..$,5,11)+")| 000001a0 22 0d 01 4a 0a 45 51 55 42 20 30 0d 01 54 09 41 |"..J.EQUB 0..T.A| 000001b0 4c 49 47 4e 0d 01 5e 08 2e 74 62 6c 0d 01 68 11 |LIGN..^..tbl..h.| 000001c0 45 51 55 53 20 22 4b 65 79 73 4f 6e 22 0d 01 72 |EQUS "KeysOn"..r| 000001d0 0a 45 51 55 42 20 30 0d 01 7c 09 41 4c 49 47 4e |.EQUB 0..|.ALIGN| 000001e0 0d 01 86 0f 45 51 55 44 20 6b 65 79 73 6f 6e 0d |....EQUD keyson.| 000001f0 01 90 0a 45 51 55 44 20 30 0d 01 9a 12 45 51 55 |...EQUD 0....EQU| 00000200 44 20 6b 65 79 73 6f 6e 73 79 6e 0d 01 a4 12 45 |D keysonsyn....E| 00000210 51 55 44 20 6b 65 79 73 6f 6e 68 6c 70 0d 01 ae |QUD keysonhlp...| 00000220 12 45 51 55 53 20 22 4b 65 79 73 4f 66 66 22 0d |.EQUS "KeysOff".| 00000230 01 b8 0a 45 51 55 42 20 30 0d 01 c2 09 41 4c 49 |...EQUB 0....ALI| 00000240 47 4e 0d 01 cc 10 45 51 55 44 20 6b 65 79 73 6f |GN....EQUD keyso| 00000250 66 66 0d 01 d6 0a 45 51 55 44 20 30 0d 01 e0 13 |ff....EQUD 0....| 00000260 45 51 55 44 20 6b 65 79 73 6f 66 66 73 79 6e 0d |EQUD keysoffsyn.| 00000270 01 ea 13 45 51 55 44 20 6b 65 79 73 6f 66 66 68 |...EQUD keysoffh| 00000280 6c 70 0d 01 f4 0a 45 51 55 44 20 30 0d 01 fe 0e |lp....EQUD 0....| 00000290 2e 6b 65 79 73 6f 6e 73 79 6e 0d 02 08 1a 45 51 |.keysonsyn....EQ| 000002a0 55 53 20 22 53 79 6e 74 61 78 3a 20 2a 4b 65 79 |US "Syntax: *Key| 000002b0 73 4f 6e 22 0d 02 12 0a 45 51 55 42 20 30 0d 02 |sOn"....EQUB 0..| 000002c0 1c 0f 2e 6b 65 79 73 6f 66 66 73 79 6e 0d 02 26 |...keysoffsyn..&| 000002d0 1b 45 51 55 53 20 22 53 79 6e 74 61 78 3a 20 2a |.EQUS "Syntax: *| 000002e0 4b 65 79 73 4f 66 66 22 0d 02 30 0a 45 51 55 42 |KeysOff"..0.EQUB| 000002f0 20 30 0d 02 3a 0f 2e 6b 65 79 73 6f 66 66 68 6c | 0..:..keysoffhl| 00000300 70 0d 02 44 48 45 51 55 53 20 22 2a 4b 65 79 73 |p..DHEQUS "*Keys| 00000310 4f 66 66 20 74 75 72 6e 73 20 6f 66 66 20 74 68 |Off turns off th| 00000320 65 20 4f 53 5f 42 79 74 65 31 32 31 20 61 6e 64 |e OS_Byte121 and| 00000330 20 4f 53 5f 42 79 74 65 31 32 39 20 6b 65 79 20 | OS_Byte129 key | 00000340 6d 61 70 70 69 6e 67 2e 22 0d 02 4e 22 45 51 55 |mapping."..N"EQU| 00000350 42 31 33 3a 45 51 55 53 20 22 53 79 6e 74 61 78 |B13:EQUS "Syntax| 00000360 3a 20 2a 4b 65 79 73 4f 66 66 22 0d 02 58 0a 45 |: *KeysOff"..X.E| 00000370 51 55 42 20 30 0d 02 62 0e 2e 6b 65 79 73 6f 6e |QUB 0..b..keyson| 00000380 68 6c 70 0d 02 6c 46 45 51 55 53 20 22 2a 4b 65 |hlp..lFEQUS "*Ke| 00000390 79 73 4f 6e 20 74 75 72 6e 73 20 6f 6e 20 74 68 |ysOn turns on th| 000003a0 65 20 4f 53 5f 42 79 74 65 31 32 31 20 61 6e 64 |e OS_Byte121 and| 000003b0 20 4f 53 5f 42 79 74 65 31 32 39 20 6b 65 79 20 | OS_Byte129 key | 000003c0 6d 61 70 70 69 6e 67 2e 22 0d 02 76 21 45 51 55 |mapping."..v!EQU| 000003d0 42 31 33 3a 45 51 55 53 20 22 53 79 6e 74 61 78 |B13:EQUS "Syntax| 000003e0 3a 20 2a 4b 65 79 73 4f 6e 22 0d 02 80 0a 45 51 |: *KeysOn"....EQ| 000003f0 55 42 20 30 0d 02 8a 09 41 4c 49 47 4e 0d 02 94 |UB 0....ALIGN...| 00000400 08 2e 66 69 6e 0d 02 9e 1b 53 54 4d 46 44 20 52 |..fin....STMFD R| 00000410 31 33 21 2c 7b 52 37 2d 52 31 31 2c 52 31 34 7d |13!,{R7-R11,R14}| 00000420 0d 02 a8 37 4d 4f 56 20 52 30 2c 23 36 3a 41 44 |...7MOV R0,#6:AD| 00000430 52 20 52 31 2c 6f 73 5f 62 79 74 65 3a 41 44 52 |R R1,os_byte:ADR| 00000440 20 52 32 2c 65 6e 64 3a 53 57 49 20 22 58 4f 53 | R2,end:SWI "XOS| 00000450 5f 43 6c 61 69 6d 22 0d 02 b2 15 53 57 49 20 22 |_Claim"....SWI "| 00000460 58 4f 53 5f 52 65 6c 65 61 73 65 22 0d 02 bc 1a |XOS_Release"....| 00000470 4c 44 4d 46 44 20 52 31 33 21 2c 7b 52 37 2d 52 |LDMFD R13!,{R7-R| 00000480 31 31 2c 70 63 7d 0d 02 c6 0c 2e 6b 65 79 73 6f |11,pc}.....keyso| 00000490 66 66 0d 02 d0 1b 53 54 4d 46 44 20 52 31 33 21 |ff....STMFD R13!| 000004a0 2c 7b 52 30 2d 52 31 32 2c 52 31 34 7d 0d 02 da |,{R0-R12,R14}...| 000004b0 0d 4d 4f 56 20 52 30 2c 23 36 0d 02 e4 12 41 44 |.MOV R0,#6....AD| 000004c0 52 20 52 31 2c 6f 73 5f 62 79 74 65 0d 02 ee 0e |R R1,os_byte....| 000004d0 41 44 52 20 52 32 2c 65 6e 64 0d 02 f8 15 53 57 |ADR R2,end....SW| 000004e0 49 20 22 58 4f 53 5f 52 65 6c 65 61 73 65 22 0d |I "XOS_Release".| 000004f0 03 02 1a 4c 44 4d 46 44 20 52 31 33 21 2c 7b 52 |...LDMFD R13!,{R| 00000500 30 2d 52 31 32 2c 50 43 7d 0d 03 0c 0b 2e 6b 65 |0-R12,PC}.....ke| 00000510 79 73 6f 6e 0d 03 16 1b 53 54 4d 46 44 20 52 31 |yson....STMFD R1| 00000520 33 21 2c 7b 52 30 2d 52 31 32 2c 52 31 34 7d 0d |3!,{R0-R12,R14}.| 00000530 03 20 0d 4d 4f 56 20 52 30 2c 23 36 0d 03 2a 12 |. .MOV R0,#6..*.| 00000540 41 44 52 20 52 31 2c 6f 73 5f 62 79 74 65 0d 03 |ADR R1,os_byte..| 00000550 34 0e 41 44 52 20 52 32 2c 65 6e 64 0d 03 3e 13 |4.ADR R2,end..>.| 00000560 53 57 49 20 22 58 4f 53 5f 43 6c 61 69 6d 22 0d |SWI "XOS_Claim".| 00000570 03 48 1a 4c 44 4d 46 44 20 52 31 33 21 2c 7b 52 |.H.LDMFD R13!,{R| 00000580 30 2d 52 31 32 2c 50 43 7d 0d 03 52 0c 2e 6f 73 |0-R12,PC}..R..os| 00000590 5f 62 79 74 65 0d 03 5c 0f 54 45 51 20 52 30 2c |_byte..\.TEQ R0,| 000005a0 23 31 32 39 0d 03 66 12 42 45 51 20 6f 73 5f 62 |#129..f.BEQ os_b| 000005b0 79 74 65 31 32 39 0d 03 70 0f 54 45 51 20 52 30 |yte129..p.TEQ R0| 000005c0 2c 23 31 32 31 0d 03 7a 11 4d 4f 56 4e 45 53 20 |,#121..z.MOVNES | 000005d0 70 63 2c 52 31 34 0d 03 84 16 80 20 52 32 2c 52 |pc,R14..... R2,R| 000005e0 31 2c 23 25 31 30 30 30 30 30 30 30 0d 03 8e 15 |1,#%10000000....| 000005f0 54 45 51 20 52 32 2c 23 25 31 30 30 30 30 30 30 |TEQ R2,#%1000000| 00000600 30 0d 03 98 11 4d 4f 56 4e 45 53 20 70 63 2c 52 |0....MOVNES pc,R| 00000610 31 34 0d 03 a2 05 5d 0d 03 ac 0b f7 20 6c 69 6e |14....]..... lin| 00000620 65 25 0d 03 b6 08 f3 20 4e 25 0d 03 c0 0e e3 49 |e%..... N%.....I| 00000630 25 3d 31 20 b8 20 4e 25 0d 03 ca 0b f3 20 41 25 |%=1 . N%..... A%| 00000640 2c 42 25 0d 03 d4 2d 5b 4f 50 54 20 70 3a 54 45 |,B%...-[OPT p:TE| 00000650 51 20 52 31 2c 23 41 25 20 82 20 26 38 30 3a ec |Q R1,#A% . &80:.| 00000660 51 20 52 31 2c 23 42 25 20 82 20 26 38 30 3a 5d |Q R1,#B% . &80:]| 00000670 0d 03 de 20 e7 20 49 25 3c 3e 4e 25 20 5b 4f 50 |... . I%<>N% [OP| 00000680 54 20 70 3a ec 51 53 20 70 63 2c 52 31 34 3a 5d |T p:.QS pc,R14:]| 00000690 0d 03 e8 05 ed 0d 03 f2 16 5b 4f 50 54 20 70 3a |.........[OPT p:| 000006a0 4d 4f 56 53 20 70 63 2c 52 31 34 0d 03 fc 0f 2e |MOVS pc,R14.....| 000006b0 6f 73 5f 62 79 74 65 31 32 39 0d 04 06 1d 54 45 |os_byte129....TE| 000006c0 51 20 52 32 2c 23 26 46 46 3a 4d 4f 56 4e 45 53 |Q R2,#&FF:MOVNES| 000006d0 20 70 63 2c 52 31 34 0d 04 10 16 80 20 52 32 2c | pc,R14..... R2,| 000006e0 52 31 2c 23 25 31 30 30 30 30 30 30 30 0d 04 1a |R1,#%10000000...| 000006f0 15 54 45 51 20 52 32 2c 23 25 31 30 30 30 30 30 |.TEQ R2,#%100000| 00000700 30 30 0d 04 24 0f 4d 4f 56 20 52 32 2c 23 26 46 |00..$.MOV R2,#&F| 00000710 46 0d 04 2e 05 5d 0d 04 38 0b f7 20 6c 69 6e 65 |F....]..8.. line| 00000720 25 0d 04 42 08 f3 20 4e 25 0d 04 4c 0e e3 49 25 |%..B.. N%..L..I%| 00000730 3d 31 20 b8 20 4e 25 0d 04 56 0b f3 20 41 25 2c |=1 . N%..V.. A%,| 00000740 42 25 0d 04 60 2d 5b 4f 50 54 20 70 3a 54 45 51 |B%..`-[OPT p:TEQ| 00000750 20 52 31 2c 23 41 25 20 82 20 26 46 46 3a ec 51 | R1,#A% . &FF:.Q| 00000760 20 52 31 2c 23 42 25 20 82 20 26 46 46 3a 5d 0d | R1,#B% . &FF:].| 00000770 04 6a 20 e7 20 49 25 3c 3e 4e 25 20 5b 4f 50 54 |.j . I%<>N% [OPT| 00000780 20 70 3a ec 51 53 20 70 63 2c 52 31 34 3a 5d 0d | p:.QS pc,R14:].| 00000790 04 74 05 ed 0d 04 7e 16 5b 4f 50 54 20 70 3a 4d |.t....~.[OPT p:M| 000007a0 4f 56 53 20 70 63 2c 52 31 34 0d 04 88 08 2e 65 |OVS pc,R14.....e| 000007b0 6e 64 0d 04 92 05 5d 0d 04 9c 05 ed 0d 04 a6 3c |nd....]........<| 000007c0 ff 22 53 41 56 45 20 4b 65 79 73 4d 6f 64 20 22 |."SAVE KeysMod "| 000007d0 2b c3 7e 63 6f 64 65 2b 22 20 22 2b c3 7e 4f 25 |+.~code+" "+.~O%| 000007e0 3a 2a 53 45 54 54 59 50 45 20 4b 65 79 73 4d 6f |:*SETTYPE KeysMo| 000007f0 64 20 4d 4f 44 55 4c 45 0d 04 b0 12 2a 52 4d 52 |d MODULE....*RMR| 00000800 55 4e 20 4b 45 59 53 4d 4f 44 0d 04 ba 16 2a 52 |UN KEYSMOD....*R| 00000810 4d 4b 49 4c 4c 20 4b 45 59 53 4d 4f 44 55 4c 45 |MKILL KEYSMODULE| 00000820 0d 04 c4 12 2a 52 4d 52 55 4e 20 4b 45 59 53 4d |....*RMRUN KEYSM| 00000830 4f 44 0d 04 ce 0b 2a 4b 45 59 53 4f 4e 0d 04 d8 |OD....*KEYSON...| 00000840 05 e0 0d 07 d0 0b dd f2 69 6e 6b 65 79 0d 07 d7 |........inkey...| 00000850 07 eb 31 32 0d 07 da 05 f5 0d 07 e4 0f e3 49 25 |..12..........I%| 00000860 3d 31 20 b8 20 31 32 37 0d 07 ee 3f c8 99 20 22 |=1 . 127...?.. "| 00000870 4f 53 5f 42 79 74 65 22 2c 31 32 39 2c 49 25 20 |OS_Byte",129,I% | 00000880 82 20 26 46 46 2c 26 46 46 20 b8 20 2c 41 25 3a |. &FF,&FF . ,A%:| 00000890 e7 20 41 25 3d 26 46 46 20 8c 20 fb 31 3a f1 3b |. A%=&FF . .1:.;| 000008a0 49 25 3b 22 20 22 3b 0d 07 f8 3b c8 99 20 22 4f |I%;" ";...;.. "O| 000008b0 53 5f 42 79 74 65 22 2c 31 32 31 2c 49 25 20 82 |S_Byte",121,I% .| 000008c0 20 26 38 30 20 b8 20 2c 41 25 3a e7 20 41 25 3d | &80 . ,A%:. A%=| 000008d0 26 46 46 20 8c 20 fb 32 3a f1 3b 49 25 3b 22 20 |&FF . .2:.;I%;" | 000008e0 22 3b 0d 08 02 05 ed 0d 08 0c 05 f1 0d 08 16 06 |";..............| 000008f0 fd 30 0d 08 20 05 e1 0d 08 2a 28 dc 20 31 2c 20 |.0.. ....*(. 1, | 00000900 37 32 2c 37 39 20 3a 20 52 45 4d 20 27 53 6e 61 |72,79 : REM 'Sna| 00000910 70 70 65 72 27 20 74 79 70 65 20 6b 65 79 73 0d |pper' type keys.| 00000920 08 34 2f dc 20 32 2c 20 36 34 2c 36 35 2c 20 31 |.4/. 2, 64,65, 1| 00000930 2c 38 31 20 3a 20 52 45 4d 20 41 72 63 61 64 69 |,81 : REM Arcadi| 00000940 61 6e 73 20 41 2c 53 2c 52 65 74 75 72 6e 0d 08 |ans A,S,Return..| 00000950 3e 2f dc 20 32 2c 20 32 35 2c 31 30 32 2c 20 31 |>/. 2, 25,102, 1| 00000960 32 31 2c 31 30 33 20 3a 20 52 45 4d 20 46 69 72 |21,103 : REM Fir| 00000970 65 62 69 72 64 20 3c 2c 3e 2c 54 61 62 0d 27 10 |ebird <,>,Tab.'.| 00000980 4e dc 20 38 2c 20 37 32 2c 37 39 2c 20 36 34 2c |N. 8, 72,79, 64,| 00000990 36 35 2c 20 31 2c 38 31 2c 20 32 35 2c 31 30 32 |65, 1,81, 25,102| 000009a0 2c 20 31 32 31 2c 31 30 33 2c 20 37 31 2c 38 38 |, 121,103, 71,88| 000009b0 2c 20 38 30 2c 35 2c 20 38 39 2c 38 20 3a 20 52 |, 80,5, 89,8 : R| 000009c0 45 4d 20 44 6f 67 66 69 67 68 74 0d ff |EM Dogfight..| 000009cd