Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape20b_acorn_eu_1991_march.wav » R.Keywrds
R.Keywrds
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 » Electron_User » Electron_User_tape20b_acorn_eu_1991_march.wav |
| Filename: | R.Keywrds |
| Read OK: | ✔ |
| File size: | 014F bytes |
| Load address: | FFFF1A00 |
| Exec address: | FFFF8023 |
Duplicates
There are 3 duplicate copies of this file in the archive:
- AEW website » mu » mu_5_25_discs_Micro_User_09_01_D-MU09_01.ssd » R.Keywrds
- AEW website » mu » mu_Micro_User_09_01_MU9-1_B.uef » R.Keywrds
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape20a_acorn_eu_1991_march.wav » R.Keywrds
- Personal collection » Acorn tapes » Electron_User » Electron_User_tape20b_acorn_eu_1991_march.wav » R.Keywrds
File contents
10REM Print Basic keywords 20REM by Graham Kendall 30REM (c) The Micro User 40REM March 1991 50MODE 7:PROCInit:PROCDisp:END 60DEF PROCInit 70I%=&8000:Found=FALSE 80REPEAT:I%=I%+1 90IF ?I%=&41 AND ?(I%+1)=&4E AND ?(I%+2)=&44 THEN Found=TRUE 100UNTIL Found:ENDPROC 110DEF PROCDisp 120REPEAT:REPEAT:PRINT CHR$(?I%); 130I%=I%+1:UNTIL ?I%>127 140PRINT TAB(12);~?I%;:I%=I%+1 150PRINT TAB(15);~?I%:I%=I%+1 160UNTIL ?(I%-2)=&D3:ENDPROC
� Print Basic keywords � by Graham Kendall � (c) The Micro User (� March 1991 2� 7:�Init:�Disp:� < � �Init FI%=&8000:Found=� P �:I%=I%+1 Z3� ?I%=&41 � ?(I%+1)=&4E � ?(I%+2)=&44 � Found=� d � Found:� n � �Disp x�:�:� �(?I%); �I%=I%+1:� ?I%>127 �� �12);~?I%;:I%=I%+1 �� �15);~?I%:I%=I%+1 �� ?(I%-2)=&D3:� �
00000000 0d 00 0a 1a f4 20 50 72 69 6e 74 20 42 61 73 69 |..... Print Basi| 00000010 63 20 6b 65 79 77 6f 72 64 73 0d 00 14 17 f4 20 |c keywords..... | 00000020 62 79 20 47 72 61 68 61 6d 20 4b 65 6e 64 61 6c |by Graham Kendal| 00000030 6c 0d 00 1e 18 f4 20 28 63 29 20 54 68 65 20 4d |l..... (c) The M| 00000040 69 63 72 6f 20 55 73 65 72 0d 00 28 10 f4 20 4d |icro User..(.. M| 00000050 61 72 63 68 20 31 39 39 31 0d 00 32 15 eb 20 37 |arch 1991..2.. 7| 00000060 3a f2 49 6e 69 74 3a f2 44 69 73 70 3a e0 0d 00 |:.Init:.Disp:...| 00000070 3c 0b dd 20 f2 49 6e 69 74 0d 00 46 14 49 25 3d |<.. .Init..F.I%=| 00000080 26 38 30 30 30 3a 46 6f 75 6e 64 3d a3 0d 00 50 |&8000:Found=...P| 00000090 0d f5 3a 49 25 3d 49 25 2b 31 0d 00 5a 33 e7 20 |..:I%=I%+1..Z3. | 000000a0 3f 49 25 3d 26 34 31 20 80 20 3f 28 49 25 2b 31 |?I%=&41 . ?(I%+1| 000000b0 29 3d 26 34 45 20 80 20 3f 28 49 25 2b 32 29 3d |)=&4E . ?(I%+2)=| 000000c0 26 34 34 20 8c 20 46 6f 75 6e 64 3d b9 0d 00 64 |&44 . Found=...d| 000000d0 0d fd 20 46 6f 75 6e 64 3a e1 0d 00 6e 0b dd 20 |.. Found:...n.. | 000000e0 f2 44 69 73 70 0d 00 78 11 f5 3a f5 3a f1 20 bd |.Disp..x..:.:. .| 000000f0 28 3f 49 25 29 3b 0d 00 82 15 49 25 3d 49 25 2b |(?I%);....I%=I%+| 00000100 31 3a fd 20 3f 49 25 3e 31 32 37 0d 00 8c 18 f1 |1:. ?I%>127.....| 00000110 20 8a 31 32 29 3b 7e 3f 49 25 3b 3a 49 25 3d 49 | .12);~?I%;:I%=I| 00000120 25 2b 31 0d 00 96 17 f1 20 8a 31 35 29 3b 7e 3f |%+1..... .15);~?| 00000130 49 25 3a 49 25 3d 49 25 2b 31 0d 00 a0 13 fd 20 |I%:I%=I%+1..... | 00000140 3f 28 49 25 2d 32 29 3d 26 44 33 3a e1 0d ff |?(I%-2)=&D3:...| 0000014f
.