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