COMPUSPEED
FILE INFORMATION
FILENAME(S): COMPUSPEED
FILE TYPE(S): PRG
FILE SIZE: 2.8K
FIRST SEEN: 2025-10-19 22:35:46
APPEARS ON: 1 disk(s)
FILE HASH
d79e6f41bab6c564b3db2c7a416fa61baf6e3cbd7b5f5456adb802246c457f18
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| !! | COMPUSPEED | PRG | Radd Maxx | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 19 08 64 00 97 35 33 32 38 30 2C 31 32 3A |....d..53280,12:|
00000010: 97 35 33 32 38 31 2C 31 31 00 4D 08 69 00 99 22 |.53281,11.M.i.."|
00000020: 93 9B 12 20 20 20 20 20 20 20 20 20 20 20 20 2A |... *|
00000030: 2A 2A 43 4F 4D 50 55 53 50 45 45 44 2A 2A 2A 20 |**COMPUSPEED*** |
00000040: 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 7E 08 | ";.~.|
00000050: 6E 00 99 22 12 20 20 20 20 20 4D 49 53 54 41 4B |n..". MISTAK|
00000060: 45 50 52 4F 4F 46 20 4D 4C 20 45 4E 54 52 59 20 |EPROOF ML ENTRY |
00000070: 50 52 4F 47 52 41 4D 20 20 20 20 20 20 22 00 AF |PROGRAM "..|
00000080: 08 73 00 99 22 12 20 20 20 20 20 20 20 20 20 43 |.s..". C|
00000090: 52 45 41 54 45 44 20 42 59 20 4D 41 52 43 4F 20 |REATED BY MARCO |
000000A0: 42 52 55 4E 4F 20 20 20 20 20 20 20 20 20 22 00 |BRUNO ".|
000000B0: E0 08 78 00 99 22 12 20 20 20 20 20 20 20 20 43 |..x..". C|
000000C0: 4F 50 52 2E 20 20 31 39 38 37 20 43 4F 4D 50 55 |OPR. 1987 COMPU|
000000D0: 53 43 49 20 49 4E 43 2E 20 20 20 20 20 20 20 22 |SCI INC. "|
000000E0: 00 FA 08 7D 00 81 41 B2 35 34 32 37 32 A4 35 34 |...}..A.54272.54|
000000F0: 32 39 36 3A 97 41 2C 30 3A 82 00 2F 09 82 00 97 |296:.A,0:../....|
00000100: 35 34 32 37 32 2C 34 3A 97 35 34 32 37 33 2C 34 |54272,4:.54273,4|
00000110: 38 3A 97 35 34 32 37 37 2C 30 3A 97 35 34 32 37 |8:.54277,0:.5427|
00000120: 38 2C 32 34 39 3A 97 35 34 32 39 36 2C 31 35 00 |8,249:.54296,15.|
00000130: 48 09 87 00 81 41 B2 36 38 30 A4 36 39 39 3A 87 |H....A.680.699:.|
00000140: 42 3A 97 41 2C 42 3A 82 00 73 09 8C 00 83 31 36 |B:.A,B:..s....16|
00000150: 39 2C 32 35 31 2C 31 36 36 2C 32 35 33 2C 31 36 |9,251,166,253,16|
00000160: 34 2C 32 35 34 2C 33 32 2C 32 31 36 2C 32 35 35 |4,254,32,216,255|
00000170: 2C 39 36 00 9C 09 91 00 83 31 36 39 2C 30 2C 31 |,96......169,0,1|
00000180: 36 36 2C 32 35 31 2C 31 36 34 2C 32 35 32 2C 33 |66,251,164,252,3|
00000190: 32 2C 32 31 33 2C 32 35 35 2C 39 36 00 CC 09 96 |2,213,255,96....|
000001A0: 00 42 24 B2 22 53 54 41 52 54 49 4E 47 20 41 44 |.B$."STARTING AD|
000001B0: 44 52 45 53 53 20 49 4E 20 48 45 58 22 3A 8D 34 |DRESS IN HEX":.4|
000001C0: 33 30 3A 41 44 B2 42 3A 53 52 B2 42 00 DE 09 9B |30:AD.B:SR.B....|
000001D0: 00 8D 34 38 30 3A 8B 42 B2 30 A7 31 35 30 00 06 |..480:.B.0.150..|
000001E0: 0A A0 00 97 32 35 31 2C 54 28 34 29 AA 54 28 33 |....251,T(4).T(3|
000001F0: 29 AC 31 36 3A 97 32 35 32 2C 54 28 32 29 AA 54 |).16:.252,T(2).T|
00000200: 28 31 29 AC 31 36 00 2F 0A A5 00 42 24 B2 22 45 |(1).16./...B$."E|
00000210: 4E 44 49 4E 47 20 41 44 44 52 45 53 53 20 49 4E |NDING ADDRESS IN|
00000220: 20 48 45 58 22 3A 8D 34 33 30 3A 45 4E B2 42 00 | HEX":.430:EN.B.|
00000230: 41 0A AA 00 8D 34 37 30 3A 8B 42 B2 30 A7 31 35 |A....470:.B.0.15|
00000240: 30 00 68 0A AF 00 97 32 35 34 2C 54 28 32 29 AA |0.h....254,T(2).|
00000250: 54 28 31 29 AC 31 36 3A 42 B2 54 28 34 29 AA 31 |T(1).16:B.T(4).1|
00000260: AA 54 28 33 29 AC 31 36 00 89 0A B4 00 8B 42 B1 |.T(3).16......B.|
00000270: 32 35 35 A7 42 B2 42 AB 32 35 35 3A 97 32 35 34 |255.B.B.255:.254|
00000280: 2C C2 28 32 35 34 29 AA 31 00 96 0A B9 00 97 32 |,.(254).1......2|
00000290: 35 33 2C 42 3A 99 00 A9 0A BE 00 8F 20 47 45 54 |53,B:....... GET|
000002A0: 20 48 45 58 20 4C 49 4E 45 00 C1 0A C3 00 8D 34 | HEX LINE......4|
000002B0: 39 35 3A 99 22 3A AF 9D 22 3B 3A 81 41 B2 30 A4 |95:.":..";:.A.0.|
000002C0: 38 00 D1 0A C8 00 81 42 B2 30 A4 31 3A 89 32 35 |8......B.0.1:.25|
000002D0: 30 00 D8 0A CD 00 82 42 00 FE 0A D2 00 41 25 28 |0......B.....A%(|
000002E0: 41 29 B2 54 28 31 29 AA 54 28 30 29 AC 31 36 3A |A).T(1).T(0).16:|
000002F0: 8B 41 44 AA 41 AB 31 B2 45 4E A7 33 34 30 00 09 |.AD.A.1.EN.340..|
00000300: 0B D7 00 99 22 AF 9D 22 3B 00 2A 0B DC 00 82 41 |...."..";.*....A|
00000310: 3A 54 B2 41 44 AB 28 B5 28 41 44 AD 32 35 36 29 |:T.AD.(.(AD.256)|
00000320: AC 32 35 36 29 3A 99 22 20 22 00 4E 0B E1 00 81 |.256):." ".N....|
00000330: 41 B2 30 A4 37 3A 54 B2 54 AA 41 25 28 41 29 3A |A.0.7:T.T.A%(A):|
00000340: 8B 54 B1 32 35 35 A7 54 B2 54 AB 32 35 35 00 54 |.T.255.T.T.255.T|
00000350: 0B E6 00 82 00 6C 0B EB 00 8B 41 25 28 38 29 B3 |.....l....A%(8).|
00000360: B1 54 A7 8D 33 37 35 3A 89 31 39 35 00 92 0B F0 |.T..375:.195....|
00000370: 00 81 41 B2 30 A4 37 3A 97 41 44 AA 41 2C 41 25 |..A.0.7:.AD.A,A%|
00000380: 28 41 29 3A 82 3A 41 44 B2 41 44 AA 38 3A 89 31 |(A):.:AD.AD.8:.1|
00000390: 39 35 00 B9 0B F5 00 8F 20 47 45 54 20 48 45 58 |95...... GET HEX|
000003A0: 20 49 4E 50 55 54 20 46 52 4F 4D 20 43 4F 4D 50 | INPUT FROM COMP|
000003B0: 55 53 43 49 20 43 4F 44 45 00 CC 0B FA 00 A1 41 |USCI CODE......A|
000003C0: 24 3A 8B 41 24 B2 22 22 A7 32 35 30 00 DE 0B FF |$:.A$."".250....|
000003D0: 00 8B 41 24 B2 C7 28 32 30 29 A7 33 30 35 00 F1 |..A$..(20).305..|
000003E0: 0B 04 01 8B 41 24 B2 C7 28 31 33 33 29 A7 35 33 |....A$..(133).53|
000003F0: 35 00 04 0C 09 01 8B 41 24 B2 C7 28 31 33 34 29 |5......A$..(134)|
00000400: A7 35 36 30 00 1D 0C 0E 01 8B 41 24 B2 C7 28 31 |.560......A$..(1|
00000410: 33 35 29 A7 99 22 20 22 3A 89 36 32 30 00 36 0C |35).." ":.620.6.|
00000420: 13 01 8B 41 24 B2 C7 28 31 33 36 29 A7 99 22 20 |...A$..(136).." |
00000430: 22 3A 89 36 33 35 00 5C 0C 18 01 8B 41 24 B1 22 |":.635.\....A$."|
00000440: 40 22 AF 41 24 B3 22 47 22 A7 54 28 42 29 B2 C6 |@".A$."G".T(B)..|
00000450: 28 41 24 29 AB 35 35 3A 89 32 39 35 00 82 0C 1D |(A$).55:.295....|
00000460: 01 8B 41 24 B1 22 2F 22 AF 41 24 B3 22 3A 22 A7 |..A$."/".A$.":".|
00000470: 54 28 42 29 B2 C6 28 41 24 29 AB 34 38 3A 89 32 |T(B)..(A$).48:.2|
00000480: 39 35 00 90 0C 22 01 8D 34 31 35 3A 89 32 35 30 |95..."..415:.250|
00000490: 00 9D 0C 27 01 99 41 24 22 AF 9D 22 3B 00 A6 0C |...'..A$"..";...|
000004A0: 2C 01 89 32 30 35 00 B3 0C 31 01 8B 41 B1 30 A7 |,..205...1..A.0.|
000004B0: 33 32 30 00 C5 0C 36 01 41 B2 AB 31 3A 8B 42 B2 |320...6.A..1:.B.|
000004C0: 31 A7 33 33 30 00 CE 0C 3B 01 89 32 32 30 00 E5 |1.330...;..220..|
000004D0: 0C 40 01 8B 42 B2 30 A7 99 C7 28 32 30 29 3B 3A |.@..B.0...(20);:|
000004E0: 41 B2 41 AB 31 00 EF 0C 45 01 41 B2 41 AB 31 00 |A.A.1...E.A.A.1.|
000004F0: 00 0D 4A 01 99 C7 28 32 30 29 3B 3A 89 32 32 30 |..J...(20);:.220|
00000500: 00 15 0D 4F 01 8B 41 25 B3 B1 54 A7 8D 33 37 35 |...O..A%..T..375|
00000510: 3A 89 31 39 35 00 33 0D 54 01 99 22 20 22 3A 54 |:.195.3.T.." ":T|
00000520: B2 41 44 AB 28 B5 28 41 44 AD 32 35 36 29 AC 32 |.AD.(.(AD.256).2|
00000530: 35 36 29 00 4E 0D 68 01 81 42 B2 30 A4 41 AB 31 |56).N.h..B.0.A.1|
00000540: 3A 97 41 44 AA 42 2C 41 25 28 42 29 3A 82 00 6E |:.AD.B,A%(B):..n|
00000550: 0D 6D 01 99 3A 99 22 59 4F 55 20 41 52 45 20 46 |.m..:."YOU ARE F|
00000560: 49 4E 49 53 48 45 44 21 22 3A 89 35 33 35 00 92 |INISHED!":.535..|
00000570: 0D 72 01 8F 20 42 45 4C 4C 20 26 20 45 52 52 4F |.r.. BELL & ERRO|
00000580: 52 20 4D 45 53 53 41 47 45 53 20 49 4E 20 43 4F |R MESSAGES IN CO|
00000590: 44 45 00 BB 0D 77 01 99 3A 99 22 4C 49 4E 45 20 |DE...w..:."LINE |
000005A0: 45 4E 54 45 52 45 44 20 49 4E 43 4F 52 52 45 43 |ENTERED INCORREC|
000005B0: 54 4C 59 22 3A 99 3A 89 34 31 35 00 E4 0D 7C 01 |TLY":.:.415...|.|
000005C0: 99 3A 99 22 49 4E 50 55 54 20 41 20 34 20 44 49 |.:."INPUT A 4 DI|
000005D0: 47 49 54 20 48 45 58 20 56 41 4C 55 45 21 22 3A |GIT HEX VALUE!":|
000005E0: 89 34 31 35 00 14 0E 81 01 99 3A 99 22 45 4E 44 |.415......:."END|
000005F0: 49 4E 47 20 49 53 20 4C 45 53 53 20 54 48 41 4E |ING IS LESS THAN|
00000600: 20 53 54 41 52 54 49 4E 47 21 22 3A 42 B2 30 3A | STARTING!":B.0:|
00000610: 89 34 31 35 00 48 0E 86 01 99 22 41 44 44 52 45 |.415.H...."ADDRE|
00000620: 53 53 20 4E 4F 54 20 57 49 54 48 49 4E 20 53 50 |SS NOT WITHIN SP|
00000630: 45 43 49 46 49 45 44 20 52 41 4E 47 45 21 22 3A |ECIFIED RANGE!":|
00000640: 42 B2 30 3A 89 34 31 35 00 70 0E 8B 01 99 3A 99 |B.0:.415.p....:.|
00000650: 22 4E 4F 54 20 5A 45 52 4F 20 50 41 47 45 20 4F |"NOT ZERO PAGE O|
00000660: 52 20 52 4F 4D 21 22 3A 42 B2 30 3A 89 34 31 35 |R ROM!":B.0:.415|
00000670: 00 89 0E 90 01 99 22 2A 53 41 56 45 20 45 52 52 |......"*SAVE ERR|
00000680: 4F 52 2A 22 3A 89 34 31 35 00 A2 0E 95 01 99 22 |OR*":.415......"|
00000690: 2A 4C 4F 41 44 20 45 52 52 4F 52 2A 22 3A 89 34 |*LOAD ERROR*":.4|
000006A0: 31 35 00 BE 0E 9A 01 99 3A 99 3A 99 22 45 4E 44 |15......:.:."END|
000006B0: 20 4F 46 20 4D 4C 20 41 52 45 41 22 3A 99 00 D8 | OF ML AREA":...|
000006C0: 0E 9F 01 97 35 34 32 37 36 2C 31 37 3A 97 35 34 |....54276,17:.54|
000006D0: 32 37 36 2C 31 36 3A 8E 00 F8 0E A4 01 9F 31 35 |276,16:.......15|
000006E0: 2C 38 2C 31 35 3A 84 31 35 2C 41 2C 41 24 3A A0 |,8,15:.15,A,A$:.|
000006F0: 31 35 3A 99 41 24 3A 8E 00 18 0F A9 01 8F 20 47 |15:.A$:....... G|
00000700: 45 54 20 2A 34 2A 20 44 49 47 49 54 20 48 45 58 |ET *4* DIGIT HEX|
00000710: 20 49 4E 20 43 4F 44 45 00 27 0F AE 01 99 3A 99 | IN CODE.'....:.|
00000720: 42 24 3B 3A 85 54 24 00 3F 0F B3 01 8B C3 28 54 |B$;:.T$.?.....(T|
00000730: 24 29 B3 B1 34 A7 8D 33 38 30 3A 89 34 33 30 00 |$)..4..380:.430.|
00000740: 6F 0F B8 01 81 41 B2 31 A4 34 3A 41 24 B2 CA 28 |o....A.1.4:A$..(|
00000750: 54 24 2C 41 2C 31 29 3A 8D 34 35 30 3A 8B 54 28 |T$,A,1):.450:.T(|
00000760: 41 29 B2 31 36 A7 8D 33 38 30 3A 89 34 33 30 00 |A).16..380:.430.|
00000770: 9F 0F BD 01 82 3A 42 B2 28 54 28 31 29 AC 34 30 |.....:B.(T(1).40|
00000780: 39 36 29 AA 28 54 28 32 29 AC 32 35 36 29 AA 28 |96).(T(2).256).(|
00000790: 54 28 33 29 AC 31 36 29 AA 54 28 34 29 3A 8E 00 |T(3).16).T(4):..|
000007A0: C2 0F C2 01 8B 41 24 B1 22 40 22 AF 41 24 B3 22 |.....A$."@".A$."|
000007B0: 47 22 A7 54 28 41 29 B2 C6 28 41 24 29 AB 35 35 |G".T(A)..(A$).55|
000007C0: 3A 8E 00 E5 0F C7 01 8B 41 24 B1 22 2F 22 AF 41 |:.......A$."/".A|
000007D0: 24 B3 22 3A 22 A7 54 28 41 29 B2 C6 28 41 24 29 |$.":".T(A)..(A$)|
000007E0: AB 34 38 3A 8E 00 F3 0F CC 01 54 28 41 29 B2 31 |.48:......T(A).1|
000007F0: 36 3A 8E 00 17 10 D1 01 8F 20 41 44 44 52 45 53 |6:....... ADDRES|
00000800: 53 20 43 48 45 43 4B 20 2A 21 4E 4F 54 2D 49 4E |S CHECK *!NOT-IN|
00000810: 2D 43 4F 44 45 21 2A 00 26 10 D6 01 8B 41 44 B1 |-CODE!*.&....AD.|
00000820: 45 4E A7 33 38 35 00 39 10 DB 01 8B 42 B3 53 52 |EN.385.9....B.SR|
00000830: B0 42 B1 45 4E A7 33 39 30 00 62 10 E0 01 8B 42 |.B.EN.390.b....B|
00000840: B3 32 35 36 B0 28 42 B1 34 30 39 36 30 AF 42 B3 |.256.(B.40960.B.|
00000850: 34 39 31 35 32 29 B0 42 B1 35 33 32 34 37 A7 33 |49152).B.53247.3|
00000860: 39 35 00 68 10 E5 01 8E 00 85 10 EA 01 8F 20 41 |95.h.......... A|
00000870: 44 44 52 45 53 53 20 54 4F 20 48 45 58 20 49 4E |DDRESS TO HEX IN|
00000880: 20 43 4F 44 45 00 9B 10 EF 01 41 43 B2 41 44 3A | CODE.....AC.AD:|
00000890: 41 B2 34 30 39 36 3A 8D 35 32 30 00 AA 10 F4 01 |A.4096:.520.....|
000008A0: 41 B2 32 35 36 3A 8D 35 32 30 00 B8 10 F9 01 41 |A.256:.520.....A|
000008B0: B2 31 36 3A 8D 35 32 30 00 C5 10 FE 01 41 B2 31 |.16:.520.....A.1|
000008C0: 3A 8D 35 32 30 00 CB 10 03 02 8E 00 EE 10 08 02 |:.520...........|
000008D0: 54 B2 B5 28 41 43 AD 41 29 3A 8B 54 B1 39 A7 41 |T..(AC.A):.T.9.A|
000008E0: 24 B2 C7 28 54 AA 35 35 29 3A 89 35 33 30 00 FD |$..(T.55):.530..|
000008F0: 10 0D 02 41 24 B2 C7 28 54 AA 34 38 29 00 12 11 |...A$..(T.48)...|
00000900: 12 02 99 41 24 3B 3A 41 43 B2 41 43 AB 41 AC 54 |...A$;:AC.AC.A.T|
00000910: 3A 8E 00 29 11 17 02 41 24 B2 22 2A 2A 53 41 56 |:..)...A$."**SAV|
00000920: 45 2A 2A 22 3A 8D 35 38 35 00 3F 11 1C 02 9F 31 |E**":.585.?....1|
00000930: 2C 54 2C 31 2C 41 24 3A 9E 36 38 30 3A A0 31 00 |,T,1,A$:.680:.1.|
00000940: 4B 11 21 02 8B 53 54 B2 4F A7 80 00 5E 11 26 02 |K.!..ST.O...^.&.|
00000950: 8D 34 30 30 3A 8B 54 B2 38 A7 8D 34 32 30 00 67 |.400:.T.8..420.g|
00000960: 11 2B 02 89 35 33 35 00 7E 11 30 02 41 24 B2 22 |.+..535.~.0.A$."|
00000970: 2A 2A 4C 4F 41 44 2A 2A 22 3A 8D 35 38 35 00 94 |**LOAD**":.585..|
00000980: 11 35 02 9F 31 2C 54 2C 30 2C 41 24 3A 9E 36 39 |.5..1,T,0,A$:.69|
00000990: 30 3A A0 31 00 A3 11 3A 02 8B 53 54 B2 36 34 A7 |0:.1...:..ST.64.|
000009A0: 31 39 35 00 B6 11 3F 02 8D 34 30 35 3A 8B 54 B2 |195...?..405:.T.|
000009B0: 38 A7 8D 34 32 30 00 BF 11 44 02 89 35 36 30 00 |8..420...D..560.|
000009C0: D0 11 49 02 99 22 20 22 3A 99 A3 31 34 29 41 24 |..I.." ":..14)A$|
000009D0: 00 EB 11 4E 02 99 3A 41 24 B2 22 22 3A 85 22 46 |...N..:A$."":."F|
000009E0: 49 4C 45 4E 41 4D 45 22 3B 41 24 00 FA 11 53 02 |ILENAME";A$...S.|
000009F0: 8B 41 24 B2 22 22 A7 35 39 30 00 13 12 58 02 99 |.A$."".590...X..|
00000A00: 3A 99 22 54 41 50 45 20 4F 52 20 44 49 53 4B 3F |:."TAPE OR DISK?|
00000A10: 22 3A 99 00 39 12 5D 02 A1 42 24 3A 54 B2 31 3A |":..9.]..B$:T.1:|
00000A20: 8B 42 24 B2 22 44 22 A7 54 B2 38 3A 41 24 B2 22 |.B$."D".T.8:A$."|
00000A30: 40 30 3A 22 AA 41 24 3A 8E 00 4A 12 62 02 8B 42 |@0:".A$:..J.b..B|
00000A40: 24 B3 B1 22 54 22 A7 36 30 35 00 50 12 67 02 8E |$.."T".605.P.g..|
00000A50: 00 79 12 6C 02 42 24 B2 22 43 4F 4E 54 49 4E 55 |.y.l.B$."CONTINU|
00000A60: 45 20 46 52 4F 4D 20 41 44 44 52 45 53 53 22 3A |E FROM ADDRESS":|
00000A70: 8D 34 33 30 3A 41 44 B2 42 00 8B 12 71 02 8D 34 |.430:AD.B...q..4|
00000A80: 37 35 3A 8B 42 B2 30 A7 36 32 30 00 96 12 76 02 |75:.B.0.620...v.|
00000A90: 99 3A 89 31 39 35 00 BF 12 7B 02 42 24 B2 22 42 |.:.195...{.B$."B|
00000AA0: 45 47 49 4E 20 53 43 41 4E 20 41 54 20 41 44 44 |EGIN SCAN AT ADD|
00000AB0: 52 45 53 53 22 3A 8D 34 33 30 3A 41 44 B2 42 00 |RESS":.430:AD.B.|
00000AC0: D1 12 80 02 8D 34 37 35 3A 8B 42 B2 30 A7 36 33 |.....475:.B.0.63|
00000AD0: 35 00 DC 12 85 02 99 3A 89 36 37 30 00 10 13 8A |5......:.670....|
00000AE0: 02 81 42 B2 30 A4 37 3A 41 43 B2 C2 28 41 44 AA |..B.0.7:AC..(AD.|
00000AF0: 42 29 3A 8D 35 30 35 3A 8B 41 44 AA 42 B2 45 4E |B):.505:.AD.B.EN|
00000B00: A7 41 44 B2 53 52 3A 8D 34 31 30 3A 89 31 39 35 |.AD.SR:.410:.195|
00000B10: 00 1D 13 8F 02 99 22 20 22 3B 3A 82 42 00 2B 13 |......" ";:.B.+.|
00000B20: 94 02 99 3A 41 44 B2 41 44 AA 38 00 42 13 99 02 |...:AD.AD.8.B...|
00000B30: A1 42 24 3A 8B 42 24 B2 C7 28 31 33 36 29 A7 31 |.B$:.B$..(136).1|
00000B40: 39 35 00 57 13 9E 02 8D 34 39 35 3A 99 22 3A 20 |95.W....495:.": |
00000B50: 22 3B 3A 89 36 35 30 00 00 00 |";:.650... |
....D..53280,12:.53281,11.M.I.."...
***COMPUSPEED*** ";.~.
N..". MISTAKEPROOF ML ENTRY PROGRAM
"...S..". CREATED BY MARCO
BRUNO "...X..". COPR. 19
87 COMPUSCI INC. "...}..A.54272.54
296:.A,0:../....54272,4:.54273,48:.54277
,0:.54278,249:.54296,15.H....A.680.699:.
B:.A,B:..S....169,251,166,253,164,254,32
,216,255,96......169,0,166,251,164,252,3
2,213,255,96.L...B$."STARTING ADDRESS IN
HEX":.430:AD.B:SR.B......480:.B.0.150..
. ..251,T(4).T(3).16:.252,T(2).T(1).16./
...B$."ENDING ADDRESS IN HEX":.430:EN.B.
A....470:.B.0.150.H....254,T(2).T(1).16:
B.T(4).1.T(3).16......B.255.B.B.255:.254
,B(254).1......253,B:....... GET HEX LIN
E.A.C..495:.":..";:.A.0.8.Q.H..B.0.1:.25
0.X.M..B...R.A%(A).T(1).T(0).16:.AD.A.1.
EN.340...W.."..";.*....A:T.AD.(.(AD.256)
.256):." ".N....A.0.7:T.T.A%(A):.T.255.T
.T.255.T.....L....A%(8)..T..375:.195....
..A.0.7:.AD.A,A%(A):.:AD.AD.8:.195......
GET HEX INPUT FROM COMPUSCI CODE.L....A
$:.A$."".250......A$.G(20).305......A$.G
(133).535......A$.G(134).560......A$.G(1
35).." ":.620.6....A$.G(136).." ":.635.\
....A$."@".A$."G".T(B).F(A$).55:.295....
..A$."/".A$.":".T(B).F(A$).48:.295..."..
415:.250...'..A$"..";...,..205...1..A.0.
320.E.6.A..1:.B.1.330.N.;..220...@..B.0.
.G(20);:A.A.1...E.A.A.1...J..G(20);:.220
...O..A%..T..375:.195.3.T.." ":T.AD.(.(A
D.256).256).N.H..B.0.A.1:.AD.B,A%(B):..N
.M..:."YOU ARE FINISHED!":.535...R.. BEL
L & ERROR MESSAGES IN CODE...W..:."LINE
ENTERED INCORRECTLY":.:.415...|..:."INPU
T A 4 DIGIT HEX VALUE!":.415......:."END
ING IS LESS THAN STARTING!":B.0:.415.H..
.."ADDRESS NOT WITHIN SPECIFIED RANGE!":
B.0:.415.P....:."NOT ZERO PAGE OR ROM!":
B.0:.415......"*SAVE ERROR*":.415......"
*LOAD ERROR*":.415......:.:."END OF ML A
REA":..X....54276,17:.54276,16:.......15
,8,15:.15,A,A$: 15:.A$:....... GET *4* D
IGIT HEX IN CODE.'....:.B$;:.T$.?....C(T
$)..4..380:.430.O....A.1.4:A$.J(T$,A,1):
.450:.T(A).16..380:.430......:B.(T(1).40
96).(T(2).256).(T(3).16).T(4):..B.B..A$.
"@".A$."G".T(A).F(A$).55:....G..A$."/".A
$.":".T(A).F(A$).48:....L.T(A).16:....Q.
. ADDRESS CHECK *!NOT-IN-CODE!*.&.V..AD.
EN.385.9....B.SR.B.EN.390.B....B.256.(B.
40960.B.49152).B.53247.395.H.......... A
DDRESS TO HEX IN CODE.....AC.AD:A.4096:.
520.....A.256:.520.....A.16:.520.E...A.1
:.520.K.........T..(AC.A):.T.9.A$.G(T.55
):.530.....A$.G(T.48)......A$;:AC.AC.A.T
:..)...A$."**SAVE**":.585.?....1,T,1,A$:
.680: 1.K.!..ST.O...^.&..400:.T.8..420.G
.+..535.~.0.A$."**LOAD**":.585...5..1,T,
0,A$:.690: 1...:..ST.64.195...?..405:.T.
8..420...D..560.P.I.." ":..14)A$...N..:A
$."":."FILENAME";A$...S..A$."".590...X..
:."TAPE OR DISK?":..9.]..B$:T.1:.B$."D".
T.8:A$."@0:".A$:..J.B..B$.."T".605.P.G..
.Y.L.B$."CONTINUE FROM ADDRESS":.430:AD.
B...Q..475:.B.0.620...V..:.195...{.B$."B
EGIN SCAN AT ADDRESS":.430:AD.B.Q....475
:.B.0.635......:.670......B.0.7:AC.B(AD.
B):.505:.AD.B.EN.AD.SR:.410:.195......"
";:.B.+....:AD.AD.8.B....B$:.B$.G(136).1
95.W....495:.": ";:.650...
> CLICK IMAGE PREVIEW FOR FULL MODAL