Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_21B.ADF » P/C/STRINGS
P/C/STRINGS
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_21B.ADF |
| Filename: | P/C/STRINGS |
| Read OK: | ✔ |
| File size: | 049F bytes |
| Load address: | FFFF2000 |
| Exec address: | FFFF2000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- AEW website » eug » eug_5_25_discs_Eug-21_D-EUG21B.dsd » C.STRINGS
- Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_21B.ADF » P/C/STRINGS
File contents
10REM >STRINGS 20REM STRINGS V 0.2 (c) M Comley 1995 30VDU19,1,2;0; 40RESTORE 50 60PROCread 70*ACCESS $.$&C00 80*SAVE $.$&C00 C00 CFF 90*ACCESS $.$&C00 L 100 110PROCread 120*ACCESS $.$&C01 130*SAVE $.$&C01 C00 CFF 140*ACCESS $.$&C01 L 150 160PROCread 170*ACCESS $.$&C02 180*SAVE $.$&C02 C00 CFF 190*ACCESS $.$&C02 L 200 210PROCread 220*ACCESS $.$&C03 230*SAVE $.$&C03 C00 CFF 240*ACCESS $.$&C03 L 250 260END 270 280DEFPROCread:READ$&C00:$&C00=$&C00+" ":PRINT'$&C00"End "LEN$&C00 290IF LEN$&C00>254 PRINT'''"String too long for memory":END 300ENDPROC 310 320REM Flex 330DATA SPACE-date C.heque D.eposit T.ransfer V.oid cheque W.ithdrawal I.nterest A.mendment P.rint L.ook at payments Z-visa card J-Adjust data E.dit data F.orward planning 340REM Plan 350DATA SPACE-date C.heque D.eposit T.ransfer V.oid cheque W.ithdrawal I.nterest A.mendment Z-visa card J-Adjust data E.dit data B.ank account program 360REM Adjust 370DATA L.ook at data C.hange current date M.egafont codes N.ew item W.eek odd/even D-change number of credit slots B.ank account program I.ncrement date E.dit data 380REM Edit 390DATA L.ook at data D.elete transaction C.heck linked list R.e-do linked list B.ank account program J-Adjust data
� >STRINGS %� STRINGS V 0.2 (c) M Comley 1995 �19,1,2;0; (� 2 < �read F*ACCESS $.$&C00 P*SAVE $.$&C00 C00 CFF Z*ACCESS $.$&C00 L d n �read x*ACCESS $.$&C01 �*SAVE $.$&C01 C00 CFF �*ACCESS $.$&C01 L � � �read �*ACCESS $.$&C02 �*SAVE $.$&C02 C00 CFF �*ACCESS $.$&C02 L � � �read �*ACCESS $.$&C03 �*SAVE $.$&C03 C00 CFF �*ACCESS $.$&C03 L � � 7��read:�$&C00:$&C00=$&C00+" ":�'$&C00"End "�$&C00 "3� �$&C00>254 �'''"String too long for memory":� ,� 6 @ � Flex J�� SPACE-date C.heque D.eposit T.ransfer V.oid cheque W.ithdrawal I.nterest A.mendment P.rint L.ook at payments Z-visa card J-Adjust data E.dit data F.orward planning T � Plan ^�� SPACE-date C.heque D.eposit T.ransfer V.oid cheque W.ithdrawal I.nterest A.mendment Z-visa card J-Adjust data E.dit data B.ank account program h � Adjust r�� L.ook at data C.hange current date M.egafont codes N.ew item W.eek odd/even D-change number of credit slots B.ank account program I.ncrement date E.dit data | � Edit �v� L.ook at data D.elete transaction C.heck linked list R.e-do linked list B.ank account program J-Adjust data �
00000000 0d 00 0a 0e f4 20 3e 53 54 52 49 4e 47 53 0d 00 |..... >STRINGS..| 00000010 14 25 f4 20 53 54 52 49 4e 47 53 20 56 20 30 2e |.%. STRINGS V 0.| 00000020 32 20 28 63 29 20 4d 20 43 6f 6d 6c 65 79 20 31 |2 (c) M Comley 1| 00000030 39 39 35 0d 00 1e 0e ef 31 39 2c 31 2c 32 3b 30 |995.....19,1,2;0| 00000040 3b 0d 00 28 05 f7 0d 00 32 04 0d 00 3c 09 f2 72 |;..(....2...<..r| 00000050 65 61 64 0d 00 46 13 2a 41 43 43 45 53 53 20 24 |ead..F.*ACCESS $| 00000060 2e 24 26 43 30 30 0d 00 50 19 2a 53 41 56 45 20 |.$&C00..P.*SAVE | 00000070 24 2e 24 26 43 30 30 20 43 30 30 20 43 46 46 0d |$.$&C00 C00 CFF.| 00000080 00 5a 15 2a 41 43 43 45 53 53 20 24 2e 24 26 43 |.Z.*ACCESS $.$&C| 00000090 30 30 20 4c 0d 00 64 04 0d 00 6e 09 f2 72 65 61 |00 L..d...n..rea| 000000a0 64 0d 00 78 13 2a 41 43 43 45 53 53 20 24 2e 24 |d..x.*ACCESS $.$| 000000b0 26 43 30 31 0d 00 82 19 2a 53 41 56 45 20 24 2e |&C01....*SAVE $.| 000000c0 24 26 43 30 31 20 43 30 30 20 43 46 46 0d 00 8c |$&C01 C00 CFF...| 000000d0 15 2a 41 43 43 45 53 53 20 24 2e 24 26 43 30 31 |.*ACCESS $.$&C01| 000000e0 20 4c 0d 00 96 04 0d 00 a0 09 f2 72 65 61 64 0d | L.........read.| 000000f0 00 aa 13 2a 41 43 43 45 53 53 20 24 2e 24 26 43 |...*ACCESS $.$&C| 00000100 30 32 0d 00 b4 19 2a 53 41 56 45 20 24 2e 24 26 |02....*SAVE $.$&| 00000110 43 30 32 20 43 30 30 20 43 46 46 0d 00 be 15 2a |C02 C00 CFF....*| 00000120 41 43 43 45 53 53 20 24 2e 24 26 43 30 32 20 4c |ACCESS $.$&C02 L| 00000130 0d 00 c8 04 0d 00 d2 09 f2 72 65 61 64 0d 00 dc |.........read...| 00000140 13 2a 41 43 43 45 53 53 20 24 2e 24 26 43 30 33 |.*ACCESS $.$&C03| 00000150 0d 00 e6 19 2a 53 41 56 45 20 24 2e 24 26 43 30 |....*SAVE $.$&C0| 00000160 33 20 43 30 30 20 43 46 46 0d 00 f0 15 2a 41 43 |3 C00 CFF....*AC| 00000170 43 45 53 53 20 24 2e 24 26 43 30 33 20 4c 0d 00 |CESS $.$&C03 L..| 00000180 fa 04 0d 01 04 05 e0 0d 01 0e 04 0d 01 18 37 dd |..............7.| 00000190 f2 72 65 61 64 3a f3 24 26 43 30 30 3a 24 26 43 |.read:.$&C00:$&C| 000001a0 30 30 3d 24 26 43 30 30 2b 22 20 20 22 3a f1 27 |00=$&C00+" ":.'| 000001b0 24 26 43 30 30 22 45 6e 64 20 20 22 a9 24 26 43 |$&C00"End ".$&C| 000001c0 30 30 0d 01 22 33 e7 20 a9 24 26 43 30 30 3e 32 |00.."3. .$&C00>2| 000001d0 35 34 20 f1 27 27 27 22 53 74 72 69 6e 67 20 74 |54 .'''"String t| 000001e0 6f 6f 20 6c 6f 6e 67 20 66 6f 72 20 6d 65 6d 6f |oo long for memo| 000001f0 72 79 22 3a e0 0d 01 2c 05 e1 0d 01 36 04 0d 01 |ry":...,....6...| 00000200 40 0a f4 20 46 6c 65 78 0d 01 4a b6 dc 20 53 50 |@.. Flex..J.. SP| 00000210 41 43 45 2d 64 61 74 65 20 20 43 2e 68 65 71 75 |ACE-date C.hequ| 00000220 65 20 20 44 2e 65 70 6f 73 69 74 20 20 54 2e 72 |e D.eposit T.r| 00000230 61 6e 73 66 65 72 20 20 56 2e 6f 69 64 20 63 68 |ansfer V.oid ch| 00000240 65 71 75 65 20 20 57 2e 69 74 68 64 72 61 77 61 |eque W.ithdrawa| 00000250 6c 20 20 49 2e 6e 74 65 72 65 73 74 20 20 41 2e |l I.nterest A.| 00000260 6d 65 6e 64 6d 65 6e 74 20 20 50 2e 72 69 6e 74 |mendment P.rint| 00000270 20 20 4c 2e 6f 6f 6b 20 61 74 20 70 61 79 6d 65 | L.ook at payme| 00000280 6e 74 73 20 20 5a 2d 76 69 73 61 20 63 61 72 64 |nts Z-visa card| 00000290 20 20 4a 2d 41 64 6a 75 73 74 20 64 61 74 61 20 | J-Adjust data | 000002a0 20 45 2e 64 69 74 20 64 61 74 61 20 20 46 2e 6f | E.dit data F.o| 000002b0 72 77 61 72 64 20 70 6c 61 6e 6e 69 6e 67 0d 01 |rward planning..| 000002c0 54 0a f4 20 50 6c 61 6e 0d 01 5e 9f dc 20 53 50 |T.. Plan..^.. SP| 000002d0 41 43 45 2d 64 61 74 65 20 20 43 2e 68 65 71 75 |ACE-date C.hequ| 000002e0 65 20 20 44 2e 65 70 6f 73 69 74 20 20 54 2e 72 |e D.eposit T.r| 000002f0 61 6e 73 66 65 72 20 20 56 2e 6f 69 64 20 63 68 |ansfer V.oid ch| 00000300 65 71 75 65 20 20 57 2e 69 74 68 64 72 61 77 61 |eque W.ithdrawa| 00000310 6c 20 20 49 2e 6e 74 65 72 65 73 74 20 20 41 2e |l I.nterest A.| 00000320 6d 65 6e 64 6d 65 6e 74 20 20 5a 2d 76 69 73 61 |mendment Z-visa| 00000330 20 63 61 72 64 20 20 4a 2d 41 64 6a 75 73 74 20 | card J-Adjust | 00000340 64 61 74 61 20 20 45 2e 64 69 74 20 64 61 74 61 |data E.dit data| 00000350 20 20 42 2e 61 6e 6b 20 61 63 63 6f 75 6e 74 20 | B.ank account | 00000360 70 72 6f 67 72 61 6d 0d 01 68 0c f4 20 41 64 6a |program..h.. Adj| 00000370 75 73 74 0d 01 72 aa dc 20 4c 2e 6f 6f 6b 20 61 |ust..r.. L.ook a| 00000380 74 20 64 61 74 61 20 20 43 2e 68 61 6e 67 65 20 |t data C.hange | 00000390 63 75 72 72 65 6e 74 20 64 61 74 65 20 20 4d 2e |current date M.| 000003a0 65 67 61 66 6f 6e 74 20 63 6f 64 65 73 20 20 4e |egafont codes N| 000003b0 2e 65 77 20 69 74 65 6d 20 20 57 2e 65 65 6b 20 |.ew item W.eek | 000003c0 6f 64 64 2f 65 76 65 6e 20 20 44 2d 63 68 61 6e |odd/even D-chan| 000003d0 67 65 20 6e 75 6d 62 65 72 20 6f 66 20 63 72 65 |ge number of cre| 000003e0 64 69 74 20 73 6c 6f 74 73 20 20 42 2e 61 6e 6b |dit slots B.ank| 000003f0 20 61 63 63 6f 75 6e 74 20 70 72 6f 67 72 61 6d | account program| 00000400 20 20 49 2e 6e 63 72 65 6d 65 6e 74 20 64 61 74 | I.ncrement dat| 00000410 65 20 20 45 2e 64 69 74 20 64 61 74 61 0d 01 7c |e E.dit data..|| 00000420 0a f4 20 45 64 69 74 0d 01 86 76 dc 20 4c 2e 6f |.. Edit...v. L.o| 00000430 6f 6b 20 61 74 20 64 61 74 61 20 20 44 2e 65 6c |ok at data D.el| 00000440 65 74 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 |ete transaction | 00000450 20 43 2e 68 65 63 6b 20 6c 69 6e 6b 65 64 20 6c | C.heck linked l| 00000460 69 73 74 20 20 52 2e 65 2d 64 6f 20 6c 69 6e 6b |ist R.e-do link| 00000470 65 64 20 6c 69 73 74 20 20 42 2e 61 6e 6b 20 61 |ed list B.ank a| 00000480 63 63 6f 75 6e 74 20 70 72 6f 67 72 61 6d 20 20 |ccount program | 00000490 4a 2d 41 64 6a 75 73 74 20 64 61 74 61 0d ff |J-Adjust data..| 0000049f
P/C/STRINGS.m0
P/C/STRINGS.m1
P/C/STRINGS.m2
P/C/STRINGS.m4
P/C/STRINGS.m5
.