Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_09.ADF » LETMEN

LETMEN

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 ADFS disks » Electron_User_Group » EUG_09.ADF
Filename: LETMEN
Read OK:
File size: 02ED bytes
Load address: FFFF1D00
Exec address: FFFF8023
File contents
   10MODE4
   20VDU23,1,0;0;0;0;
   30PROCdouble("LETTERS",13,2)
   40PROCdouble("*******",13,4)
   50PRINT''
   60 PRINT"Some letters will load as individual"'"files, but very long submissions may"'"consist of more than one file, while"'"several short ones may be combined."
   70PRINT"At the end of each file you will be"'"given the option to either:-"''"Print-out what you have just read,"''"View the next file,or,"''"Return to the Main Menu"
   80PRINT''"Please press any key to continue....."
   90 IF GET
  100 MODE 3
  110 CHAIN"LETTS_1"
  120END
  130 DEF PROCdouble(A$,K,L)
  140LOCAL N
  150A%=135
  160A%=&A:X%=0:Y%=&A
  170D=&A00
  180FOR N=1 TO LEN(A$)
  190B$=MID$(A$,N,1)
  200?D=ASC(B$)
  210CALL (&FFF1)
  220VDU23,240,D?1,D?1,D?2,D?2,D?3,D?3,D?4,D?4
  230VDU23,241,D?5,D?5,D?6,D?6,D?7,D?7,D?8,D?8
  240PRINTTAB(K+N,L);CHR$240;TAB(K+N,L+1);CHR$241
  250NEXT N
  260ENDPROC

�4
�23,1,0;0;0;0;
�double("LETTERS",13,2)
(�double("*******",13,4)
2�''
<� �"Some letters will load as individual"'"files, but very long submissions may"'"consist of more than one file, while"'"several short ones may be combined."
F��"At the end of each file you will be"'"given the option to either:-"''"Print-out what you have just read,"''"View the next file,or,"''"Return to the Main Menu"
P.�''"Please press any key to continue....."
Z � �
d � 3
n �"LETTS_1"
x�
� � �double(A$,K,L)
�� N
�
A%=135
�A%=&A:X%=0:Y%=&A
�
D=&A00
�� N=1 � �(A$)
�B$=�A$,N,1)
�?D=�(B$)
�
� (&FFF1)
�+�23,240,D?1,D?1,D?2,D?2,D?3,D?3,D?4,D?4
�+�23,241,D?5,D?5,D?6,D?6,D?7,D?7,D?8,D?8
� �K+N,L);�240;�K+N,L+1);�241
�� N
�
�
00000000  0d 00 0a 06 eb 34 0d 00  14 12 ef 32 33 2c 31 2c  |.....4.....23,1,|
00000010  30 3b 30 3b 30 3b 30 3b  0d 00 1e 1b f2 64 6f 75  |0;0;0;0;.....dou|
00000020  62 6c 65 28 22 4c 45 54  54 45 52 53 22 2c 31 33  |ble("LETTERS",13|
00000030  2c 32 29 0d 00 28 1b f2  64 6f 75 62 6c 65 28 22  |,2)..(..double("|
00000040  2a 2a 2a 2a 2a 2a 2a 22  2c 31 33 2c 34 29 0d 00  |*******",13,4)..|
00000050  32 07 f1 27 27 0d 00 3c  a0 20 f1 22 53 6f 6d 65  |2..''..<. ."Some|
00000060  20 6c 65 74 74 65 72 73  20 77 69 6c 6c 20 6c 6f  | letters will lo|
00000070  61 64 20 61 73 20 69 6e  64 69 76 69 64 75 61 6c  |ad as individual|
00000080  22 27 22 66 69 6c 65 73  2c 20 62 75 74 20 76 65  |"'"files, but ve|
00000090  72 79 20 6c 6f 6e 67 20  73 75 62 6d 69 73 73 69  |ry long submissi|
000000a0  6f 6e 73 20 6d 61 79 22  27 22 63 6f 6e 73 69 73  |ons may"'"consis|
000000b0  74 20 6f 66 20 6d 6f 72  65 20 74 68 61 6e 20 6f  |t of more than o|
000000c0  6e 65 20 66 69 6c 65 2c  20 77 68 69 6c 65 22 27  |ne file, while"'|
000000d0  22 73 65 76 65 72 61 6c  20 73 68 6f 72 74 20 6f  |"several short o|
000000e0  6e 65 73 20 6d 61 79 20  62 65 20 63 6f 6d 62 69  |nes may be combi|
000000f0  6e 65 64 2e 22 0d 00 46  a4 f1 22 41 74 20 74 68  |ned."..F.."At th|
00000100  65 20 65 6e 64 20 6f 66  20 65 61 63 68 20 66 69  |e end of each fi|
00000110  6c 65 20 79 6f 75 20 77  69 6c 6c 20 62 65 22 27  |le you will be"'|
00000120  22 67 69 76 65 6e 20 74  68 65 20 6f 70 74 69 6f  |"given the optio|
00000130  6e 20 74 6f 20 65 69 74  68 65 72 3a 2d 22 27 27  |n to either:-"''|
00000140  22 50 72 69 6e 74 2d 6f  75 74 20 77 68 61 74 20  |"Print-out what |
00000150  79 6f 75 20 68 61 76 65  20 6a 75 73 74 20 72 65  |you have just re|
00000160  61 64 2c 22 27 27 22 56  69 65 77 20 74 68 65 20  |ad,"''"View the |
00000170  6e 65 78 74 20 66 69 6c  65 2c 6f 72 2c 22 27 27  |next file,or,"''|
00000180  22 52 65 74 75 72 6e 20  74 6f 20 74 68 65 20 4d  |"Return to the M|
00000190  61 69 6e 20 4d 65 6e 75  22 0d 00 50 2e f1 27 27  |ain Menu"..P..''|
000001a0  22 50 6c 65 61 73 65 20  70 72 65 73 73 20 61 6e  |"Please press an|
000001b0  79 20 6b 65 79 20 74 6f  20 63 6f 6e 74 69 6e 75  |y key to continu|
000001c0  65 2e 2e 2e 2e 2e 22 0d  00 5a 08 20 e7 20 a5 0d  |e....."..Z. . ..|
000001d0  00 64 08 20 eb 20 33 0d  00 6e 0f 20 d7 22 4c 45  |.d. . 3..n. ."LE|
000001e0  54 54 53 5f 31 22 0d 00  78 05 e0 0d 00 82 16 20  |TTS_1"..x...... |
000001f0  dd 20 f2 64 6f 75 62 6c  65 28 41 24 2c 4b 2c 4c  |. .double(A$,K,L|
00000200  29 0d 00 8c 07 ea 20 4e  0d 00 96 0a 41 25 3d 31  |)..... N....A%=1|
00000210  33 35 0d 00 a0 14 41 25  3d 26 41 3a 58 25 3d 30  |35....A%=&A:X%=0|
00000220  3a 59 25 3d 26 41 0d 00  aa 0a 44 3d 26 41 30 30  |:Y%=&A....D=&A00|
00000230  0d 00 b4 11 e3 20 4e 3d  31 20 b8 20 a9 28 41 24  |..... N=1 . .(A$|
00000240  29 0d 00 be 0f 42 24 3d  c1 41 24 2c 4e 2c 31 29  |)....B$=.A$,N,1)|
00000250  0d 00 c8 0c 3f 44 3d 97  28 42 24 29 0d 00 d2 0d  |....?D=.(B$)....|
00000260  d6 20 28 26 46 46 46 31  29 0d 00 dc 2b ef 32 33  |. (&FFF1)...+.23|
00000270  2c 32 34 30 2c 44 3f 31  2c 44 3f 31 2c 44 3f 32  |,240,D?1,D?1,D?2|
00000280  2c 44 3f 32 2c 44 3f 33  2c 44 3f 33 2c 44 3f 34  |,D?2,D?3,D?3,D?4|
00000290  2c 44 3f 34 0d 00 e6 2b  ef 32 33 2c 32 34 31 2c  |,D?4...+.23,241,|
000002a0  44 3f 35 2c 44 3f 35 2c  44 3f 36 2c 44 3f 36 2c  |D?5,D?5,D?6,D?6,|
000002b0  44 3f 37 2c 44 3f 37 2c  44 3f 38 2c 44 3f 38 0d  |D?7,D?7,D?8,D?8.|
000002c0  00 f0 20 f1 8a 4b 2b 4e  2c 4c 29 3b bd 32 34 30  |.. ..K+N,L);.240|
000002d0  3b 8a 4b 2b 4e 2c 4c 2b  31 29 3b bd 32 34 31 0d  |;.K+N,L+1);.241.|
000002e0  00 fa 07 ed 20 4e 0d 01  04 05 e1 0d ff           |.... N.......|
000002ed
LETMEN.m0
LETMEN.m1
LETMEN.m2
LETMEN.m4
LETMEN.m5