Home » Personal collection » Acorn tapes » Own_Work » box04_tape18a_acorn_d60_memlist.wav » MEMLIST5

MEMLIST5

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 » Own_Work » box04_tape18a_acorn_d60_memlist.wav
Filename: MEMLIST5
Read OK: ✔
File size: 06B5 bytes
Load address: FFFF0E00
Exec address: FFFF8023
File contents
   10 ON ERROR VDU 3:REPORT:VDU13:END
   20 MODE 6:PRINT TAB(0,5)"Please insert data tape and press play."
   30 *LOAD ABOOK 3000
   40 ADDRESS=&3002
   50 CLS:PRINT TAB(0,5)"Please ensure that printer is on line"''"and press any key..."
   60 key$=GET$:PRINT TAB(0,15)"Printing..."
   70 HIMEM=&2FFF
   80 VDU 2
   90 VDU 1,27,1,77
  100 NAME$=""
  110 IF ADDRESS MOD 8<>4 AND ADDRESS MOD 8<>0 THEN ADDRESS=ADDRESS+1:GOTO 110
  120 IF ?ADDRESS=0 THEN VDU 3:END
  130 ADDRESS=ADDRESS+1:IF ?ADDRESS<>&D AND ?ADDRESS<>&20 AND ?ADDRESS<>&2E THEN NAME$=NAME$+CHR$(?ADDRESS)
  140 IF ?ADDRESS=&20 THEN NAME$=NAME$+CHR$32
  150 IF ?ADDRESS=&2E THEN NAME$=NAME$+"."
  160 IF LEN(NAME$)>25 THEN VDU 3:CLS:PRINT TAB(10,10)"End of Data":END
  170 IF ?ADDRESS<>&D THEN 130
  180 ADDRESS$=""
  190 ADDRESS=ADDRESS+1
  200 IF ?ADDRESS<>&D THEN 190
  210 ADDRESS$=ADDRESS$+" "
  220 PROCaddress
  230 IF ?ADDRESS<>&D THEN 220
  240 ADDRESS$=ADDRESS$+" "
  250 PROCaddress
  260 IF ?ADDRESS<>&D THEN 250
  270 ADDRESS$=ADDRESS$+" "
  280 PROCaddress
  290 IF ?ADDRESS<>&D THEN 280
  300 ADDRESS$=ADDRESS$+" "
  310 PROCaddress
  320 IF ?ADDRESS<>&D THEN 310
  330 ADDRESS$=ADDRESS$+" "
  340 TELEPHONE$=""
  350 ADDRESS=ADDRESS+1:IF ?ADDRESS<>&2E AND ?ADDRESS<>&20 AND ?ADDRESS<>&D THEN TELEPHONE$=TELEPHONE$+CHR$(?ADDRESS)
  360 IF ?ADDRESS=&20 THEN TELEPHONE$=TELEPHONE$+" "
  370 IF ?ADDRESS=&2E THEN TELEPHONE$=TELEPHONE$+"."
  380 IF LEN(TELEPHONE$)>20 THEN VDU 3:CLS:PRINT TAB(10,10)"End of Data":END
  390 IF ?ADDRESS<>&D THEN 350
  400 FORloop=1 TO 2
  410 ADDRESS=ADDRESS+1
  420 IF ?ADDRESS<>&D THEN 410
  430 NEXT
  440 PRINT NAME$;SPC(22-LEN(NAME$));ADDRESS$;SPC(63-LEN(ADDRESS$));TELEPHONE$;CHR$13
  450 ADDRESS=ADDRESS+2
  460 GOTO 100
  470 DEFPROCaddress
  480 ADDRESS=ADDRESS+1:IF ?ADDRESS<>&2E AND ?ADDRESS<>&20 AND ?ADDRESS<>&D THEN ADDRESS$=ADDRESS$+CHR$(?ADDRESS):Sp=0
  490 IF ?ADDRESS=&20 AND Sp=0 THEN ADDRESS$=ADDRESS$+" ":Sp=1
  500 IF ?ADDRESS=&2E THEN ADDRESS$=ADDRESS$+".":Sp=0
  510 IF LEN(ADDRESS$)>65 THEN VDU 3:CLS:PRINT TAB(10,10)"End of Data":END
  520 ENDPROC


 � � � 3:�:�13:�
9 � 6:� �0,5)"Please insert data tape and press play."
 *LOAD ABOOK 3000
( ADDRESS=&3002
2M �:� �0,5)"Please ensure that printer is on line"''"and press any key..."
<! key$=�:� �0,15)"Printing..."
F �=&2FFF
P � 2
Z � 1,27,1,77
d
 NAME$=""
nA � ADDRESS � 8<>4 � ADDRESS � 8<>0 � ADDRESS=ADDRESS+1:� �Dn@
x � ?ADDRESS=0 � � 3:�
�_ ADDRESS=ADDRESS+1:� ?ADDRESS<>&D � ?ADDRESS<>&20 � ?ADDRESS<>&2E � NAME$=NAME$+�(?ADDRESS)
�% � ?ADDRESS=&20 � NAME$=NAME$+�32
�% � ?ADDRESS=&2E � NAME$=NAME$+"."
�3 � �(NAME$)>25 � � 3:�:� �10,10)"End of Data":�
� � ?ADDRESS<>&D � �tB@
� ADDRESS$=""
� ADDRESS=ADDRESS+1
� � ?ADDRESS<>&D � �t~@
� ADDRESS$=ADDRESS$+" "
�
 �address
� � ?ADDRESS<>&D � �d\@
� ADDRESS$=ADDRESS$+" "
�
 �address
 � ?ADDRESS<>&D � �dz@
 ADDRESS$=ADDRESS$+" "

 �address
" � ?ADDRESS<>&D � �TXA
, ADDRESS$=ADDRESS$+" "
6
 �address
@ � ?ADDRESS<>&D � �TvA
J ADDRESS$=ADDRESS$+" "
T TELEPHONE$=""
^i ADDRESS=ADDRESS+1:� ?ADDRESS<>&2E � ?ADDRESS<>&20 � ?ADDRESS<>&D � TELEPHONE$=TELEPHONE$+�(?ADDRESS)
h/ � ?ADDRESS=&20 � TELEPHONE$=TELEPHONE$+" "
r/ � ?ADDRESS=&2E � TELEPHONE$=TELEPHONE$+"."
|8 � �(TELEPHONE$)>20 � � 3:�:� �10,10)"End of Data":�
� � ?ADDRESS<>&D � �D^A
� �loop=1 � 2
� ADDRESS=ADDRESS+1
� � ?ADDRESS<>&D � �tZA
� �
�E � NAME$;�(22-�(NAME$));ADDRESS$;�(63-�(ADDRESS$));TELEPHONE$;�13
� ADDRESS=ADDRESS+2
� � �Dd@
� ��address
�j ADDRESS=ADDRESS+1:� ?ADDRESS<>&2E � ?ADDRESS<>&20 � ?ADDRESS<>&D � ADDRESS$=ADDRESS$+�(?ADDRESS):Sp=0
�7 � ?ADDRESS=&20 � Sp=0 � ADDRESS$=ADDRESS$+" ":Sp=1
�0 � ?ADDRESS=&2E � ADDRESS$=ADDRESS$+".":Sp=0
�6 � �(ADDRESS$)>65 � � 3:�:� �10,10)"End of Data":�
 �
�
00000000  0d 00 0a 14 20 ee 20 85  20 ef 20 33 3a f6 3a ef  |.... . . . 3:.:.|
00000010  31 33 3a e0 0d 00 14 39  20 eb 20 36 3a f1 20 8a  |13:....9 . 6:. .|
00000020  30 2c 35 29 22 50 6c 65  61 73 65 20 69 6e 73 65  |0,5)"Please inse|
00000030  72 74 20 64 61 74 61 20  74 61 70 65 20 61 6e 64  |rt data tape and|
00000040  20 70 72 65 73 73 20 70  6c 61 79 2e 22 0d 00 1e  | press play."...|
00000050  15 20 2a 4c 4f 41 44 20  41 42 4f 4f 4b 20 33 30  |. *LOAD ABOOK 30|
00000060  30 30 0d 00 28 12 20 41  44 44 52 45 53 53 3d 26  |00..(. ADDRESS=&|
00000070  33 30 30 32 0d 00 32 4d  20 db 3a f1 20 8a 30 2c  |3002..2M .:. .0,|
00000080  35 29 22 50 6c 65 61 73  65 20 65 6e 73 75 72 65  |5)"Please ensure|
00000090  20 74 68 61 74 20 70 72  69 6e 74 65 72 20 69 73  | that printer is|
000000a0  20 6f 6e 20 6c 69 6e 65  22 27 27 22 61 6e 64 20  | on line"''"and |
000000b0  70 72 65 73 73 20 61 6e  79 20 6b 65 79 2e 2e 2e  |press any key...|
000000c0  22 0d 00 3c 21 20 6b 65  79 24 3d be 3a f1 20 8a  |"..<! key$=.:. .|
000000d0  30 2c 31 35 29 22 50 72  69 6e 74 69 6e 67 2e 2e  |0,15)"Printing..|
000000e0  2e 22 0d 00 46 0c 20 d3  3d 26 32 46 46 46 0d 00  |."..F. .=&2FFF..|
000000f0  50 08 20 ef 20 32 0d 00  5a 10 20 ef 20 31 2c 32  |P. . 2..Z. . 1,2|
00000100  37 2c 31 2c 37 37 0d 00  64 0d 20 4e 41 4d 45 24  |7,1,77..d. NAME$|
00000110  3d 22 22 0d 00 6e 41 20  e7 20 41 44 44 52 45 53  |=""..nA . ADDRES|
00000120  53 20 83 20 38 3c 3e 34  20 80 20 41 44 44 52 45  |S . 8<>4 . ADDRE|
00000130  53 53 20 83 20 38 3c 3e  30 20 8c 20 41 44 44 52  |SS . 8<>0 . ADDR|
00000140  45 53 53 3d 41 44 44 52  45 53 53 2b 31 3a e5 20  |ESS=ADDRESS+1:. |
00000150  8d 44 6e 40 0d 00 78 19  20 e7 20 3f 41 44 44 52  |.Dn@..x. . ?ADDR|
00000160  45 53 53 3d 30 20 8c 20  ef 20 33 3a e0 0d 00 82  |ESS=0 . . 3:....|
00000170  5f 20 41 44 44 52 45 53  53 3d 41 44 44 52 45 53  |_ ADDRESS=ADDRES|
00000180  53 2b 31 3a e7 20 3f 41  44 44 52 45 53 53 3c 3e  |S+1:. ?ADDRESS<>|
00000190  26 44 20 80 20 3f 41 44  44 52 45 53 53 3c 3e 26  |&D . ?ADDRESS<>&|
000001a0  32 30 20 80 20 3f 41 44  44 52 45 53 53 3c 3e 26  |20 . ?ADDRESS<>&|
000001b0  32 45 20 8c 20 4e 41 4d  45 24 3d 4e 41 4d 45 24  |2E . NAME$=NAME$|
000001c0  2b bd 28 3f 41 44 44 52  45 53 53 29 0d 00 8c 25  |+.(?ADDRESS)...%|
000001d0  20 e7 20 3f 41 44 44 52  45 53 53 3d 26 32 30 20  | . ?ADDRESS=&20 |
000001e0  8c 20 4e 41 4d 45 24 3d  4e 41 4d 45 24 2b bd 33  |. NAME$=NAME$+.3|
000001f0  32 0d 00 96 25 20 e7 20  3f 41 44 44 52 45 53 53  |2...% . ?ADDRESS|
00000200  3d 26 32 45 20 8c 20 4e  41 4d 45 24 3d 4e 41 4d  |=&2E . NAME$=NAM|
00000210  45 24 2b 22 2e 22 0d 00  a0 33 20 e7 20 a9 28 4e  |E$+"."...3 . .(N|
00000220  41 4d 45 24 29 3e 32 35  20 8c 20 ef 20 33 3a db  |AME$)>25 . . 3:.|
00000230  3a f1 20 8a 31 30 2c 31  30 29 22 45 6e 64 20 6f  |:. .10,10)"End o|
00000240  66 20 44 61 74 61 22 3a  e0 0d 00 aa 1a 20 e7 20  |f Data":..... . |
00000250  3f 41 44 44 52 45 53 53  3c 3e 26 44 20 8c 20 8d  |?ADDRESS<>&D . .|
00000260  74 42 40 0d 00 b4 10 20  41 44 44 52 45 53 53 24  |tB@.... ADDRESS$|
00000270  3d 22 22 0d 00 be 16 20  41 44 44 52 45 53 53 3d  |="".... ADDRESS=|
00000280  41 44 44 52 45 53 53 2b  31 0d 00 c8 1a 20 e7 20  |ADDRESS+1.... . |
00000290  3f 41 44 44 52 45 53 53  3c 3e 26 44 20 8c 20 8d  |?ADDRESS<>&D . .|
000002a0  74 7e 40 0d 00 d2 1a 20  41 44 44 52 45 53 53 24  |t~@.... ADDRESS$|
000002b0  3d 41 44 44 52 45 53 53  24 2b 22 20 22 0d 00 dc  |=ADDRESS$+" "...|
000002c0  0d 20 f2 61 64 64 72 65  73 73 0d 00 e6 1a 20 e7  |. .address.... .|
000002d0  20 3f 41 44 44 52 45 53  53 3c 3e 26 44 20 8c 20  | ?ADDRESS<>&D . |
000002e0  8d 64 5c 40 0d 00 f0 1a  20 41 44 44 52 45 53 53  |.d\@.... ADDRESS|
000002f0  24 3d 41 44 44 52 45 53  53 24 2b 22 20 22 0d 00  |$=ADDRESS$+" "..|
00000300  fa 0d 20 f2 61 64 64 72  65 73 73 0d 01 04 1a 20  |.. .address.... |
00000310  e7 20 3f 41 44 44 52 45  53 53 3c 3e 26 44 20 8c  |. ?ADDRESS<>&D .|
00000320  20 8d 64 7a 40 0d 01 0e  1a 20 41 44 44 52 45 53  | .dz@.... ADDRES|
00000330  53 24 3d 41 44 44 52 45  53 53 24 2b 22 20 22 0d  |S$=ADDRESS$+" ".|
00000340  01 18 0d 20 f2 61 64 64  72 65 73 73 0d 01 22 1a  |... .address..".|
00000350  20 e7 20 3f 41 44 44 52  45 53 53 3c 3e 26 44 20  | . ?ADDRESS<>&D |
00000360  8c 20 8d 54 58 41 0d 01  2c 1a 20 41 44 44 52 45  |. .TXA..,. ADDRE|
00000370  53 53 24 3d 41 44 44 52  45 53 53 24 2b 22 20 22  |SS$=ADDRESS$+" "|
00000380  0d 01 36 0d 20 f2 61 64  64 72 65 73 73 0d 01 40  |..6. .address..@|
00000390  1a 20 e7 20 3f 41 44 44  52 45 53 53 3c 3e 26 44  |. . ?ADDRESS<>&D|
000003a0  20 8c 20 8d 54 76 41 0d  01 4a 1a 20 41 44 44 52  | . .TvA..J. ADDR|
000003b0  45 53 53 24 3d 41 44 44  52 45 53 53 24 2b 22 20  |ESS$=ADDRESS$+" |
000003c0  22 0d 01 54 12 20 54 45  4c 45 50 48 4f 4e 45 24  |"..T. TELEPHONE$|
000003d0  3d 22 22 0d 01 5e 69 20  41 44 44 52 45 53 53 3d  |=""..^i ADDRESS=|
000003e0  41 44 44 52 45 53 53 2b  31 3a e7 20 3f 41 44 44  |ADDRESS+1:. ?ADD|
000003f0  52 45 53 53 3c 3e 26 32  45 20 80 20 3f 41 44 44  |RESS<>&2E . ?ADD|
00000400  52 45 53 53 3c 3e 26 32  30 20 80 20 3f 41 44 44  |RESS<>&20 . ?ADD|
00000410  52 45 53 53 3c 3e 26 44  20 8c 20 54 45 4c 45 50  |RESS<>&D . TELEP|
00000420  48 4f 4e 45 24 3d 54 45  4c 45 50 48 4f 4e 45 24  |HONE$=TELEPHONE$|
00000430  2b bd 28 3f 41 44 44 52  45 53 53 29 0d 01 68 2f  |+.(?ADDRESS)..h/|
00000440  20 e7 20 3f 41 44 44 52  45 53 53 3d 26 32 30 20  | . ?ADDRESS=&20 |
00000450  8c 20 54 45 4c 45 50 48  4f 4e 45 24 3d 54 45 4c  |. TELEPHONE$=TEL|
00000460  45 50 48 4f 4e 45 24 2b  22 20 22 0d 01 72 2f 20  |EPHONE$+" "..r/ |
00000470  e7 20 3f 41 44 44 52 45  53 53 3d 26 32 45 20 8c  |. ?ADDRESS=&2E .|
00000480  20 54 45 4c 45 50 48 4f  4e 45 24 3d 54 45 4c 45  | TELEPHONE$=TELE|
00000490  50 48 4f 4e 45 24 2b 22  2e 22 0d 01 7c 38 20 e7  |PHONE$+"."..|8 .|
000004a0  20 a9 28 54 45 4c 45 50  48 4f 4e 45 24 29 3e 32  | .(TELEPHONE$)>2|
000004b0  30 20 8c 20 ef 20 33 3a  db 3a f1 20 8a 31 30 2c  |0 . . 3:.:. .10,|
000004c0  31 30 29 22 45 6e 64 20  6f 66 20 44 61 74 61 22  |10)"End of Data"|
000004d0  3a e0 0d 01 86 1a 20 e7  20 3f 41 44 44 52 45 53  |:..... . ?ADDRES|
000004e0  53 3c 3e 26 44 20 8c 20  8d 44 5e 41 0d 01 90 10  |S<>&D . .D^A....|
000004f0  20 e3 6c 6f 6f 70 3d 31  20 b8 20 32 0d 01 9a 16  | .loop=1 . 2....|
00000500  20 41 44 44 52 45 53 53  3d 41 44 44 52 45 53 53  | ADDRESS=ADDRESS|
00000510  2b 31 0d 01 a4 1a 20 e7  20 3f 41 44 44 52 45 53  |+1.... . ?ADDRES|
00000520  53 3c 3e 26 44 20 8c 20  8d 74 5a 41 0d 01 ae 06  |S<>&D . .tZA....|
00000530  20 ed 0d 01 b8 45 20 f1  20 4e 41 4d 45 24 3b 89  | ....E . NAME$;.|
00000540  28 32 32 2d a9 28 4e 41  4d 45 24 29 29 3b 41 44  |(22-.(NAME$));AD|
00000550  44 52 45 53 53 24 3b 89  28 36 33 2d a9 28 41 44  |DRESS$;.(63-.(AD|
00000560  44 52 45 53 53 24 29 29  3b 54 45 4c 45 50 48 4f  |DRESS$));TELEPHO|
00000570  4e 45 24 3b bd 31 33 0d  01 c2 16 20 41 44 44 52  |NE$;.13.... ADDR|
00000580  45 53 53 3d 41 44 44 52  45 53 53 2b 32 0d 01 cc  |ESS=ADDRESS+2...|
00000590  0b 20 e5 20 8d 44 64 40  0d 01 d6 0e 20 dd f2 61  |. . .Dd@.... ..a|
000005a0  64 64 72 65 73 73 0d 01  e0 6a 20 41 44 44 52 45  |ddress...j ADDRE|
000005b0  53 53 3d 41 44 44 52 45  53 53 2b 31 3a e7 20 3f  |SS=ADDRESS+1:. ?|
000005c0  41 44 44 52 45 53 53 3c  3e 26 32 45 20 80 20 3f  |ADDRESS<>&2E . ?|
000005d0  41 44 44 52 45 53 53 3c  3e 26 32 30 20 80 20 3f  |ADDRESS<>&20 . ?|
000005e0  41 44 44 52 45 53 53 3c  3e 26 44 20 8c 20 41 44  |ADDRESS<>&D . AD|
000005f0  44 52 45 53 53 24 3d 41  44 44 52 45 53 53 24 2b  |DRESS$=ADDRESS$+|
00000600  bd 28 3f 41 44 44 52 45  53 53 29 3a 53 70 3d 30  |.(?ADDRESS):Sp=0|
00000610  0d 01 ea 37 20 e7 20 3f  41 44 44 52 45 53 53 3d  |...7 . ?ADDRESS=|
00000620  26 32 30 20 80 20 53 70  3d 30 20 8c 20 41 44 44  |&20 . Sp=0 . ADD|
00000630  52 45 53 53 24 3d 41 44  44 52 45 53 53 24 2b 22  |RESS$=ADDRESS$+"|
00000640  20 22 3a 53 70 3d 31 0d  01 f4 30 20 e7 20 3f 41  | ":Sp=1...0 . ?A|
00000650  44 44 52 45 53 53 3d 26  32 45 20 8c 20 41 44 44  |DDRESS=&2E . ADD|
00000660  52 45 53 53 24 3d 41 44  44 52 45 53 53 24 2b 22  |RESS$=ADDRESS$+"|
00000670  2e 22 3a 53 70 3d 30 0d  01 fe 36 20 e7 20 a9 28  |.":Sp=0...6 . .(|
00000680  41 44 44 52 45 53 53 24  29 3e 36 35 20 8c 20 ef  |ADDRESS$)>65 . .|
00000690  20 33 3a db 3a f1 20 8a  31 30 2c 31 30 29 22 45  | 3:.:. .10,10)"E|
000006a0  6e 64 20 6f 66 20 44 61  74 61 22 3a e0 0d 02 08  |nd of Data":....|
000006b0  06 20 e1 0d ff                                    |. ...|
000006b5
MEMLIST5.m0
MEMLIST5.m1
MEMLIST5.m2
MEMLIST5.m4
MEMLIST5.m5

© Dominic Ford 2021–2024.

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