LONG DIVISION.C
FILE INFORMATION
FILENAME(S): LONG DIVISION.C
FILE TYPE(S): PRG
FILE SIZE: 1.5K
FIRST SEEN: 2025-11-30 21:07:08
APPEARS ON: 1 disk(s)
FILE HASH
a19e129932240f1aa36867a4188405164823f2142a4c618ac484198661aa741e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG NOV 83 C | LONG DIVISION.C | PRG | DuncanTwain | 28 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 15 08 64 00 8F 20 4C 4F 4E 47 20 44 49 56 |....d.. LONG DIV|
00000010: 49 53 49 4F 4E 00 1E 08 65 00 99 22 1F 22 00 36 |ISION...e..".".6|
00000020: 08 82 00 97 35 33 32 38 31 2C 31 35 3A 97 35 33 |....53281,15:.53|
00000030: 32 38 30 2C 31 35 00 57 08 8C 00 99 22 93 11 11 |280,15.W...."...|
00000040: 3D 3D 3D 3D 20 4C 4F 4E 47 20 44 49 56 49 53 49 |==== LONG DIVISI|
00000050: 4F 4E 20 3D 3D 3D 22 00 78 08 96 00 99 22 11 54 |ON ===".x....".T|
00000060: 4F 52 4F 4E 54 4F 20 50 45 54 20 55 53 45 52 53 |ORONTO PET USERS|
00000070: 20 47 52 50 11 11 11 22 00 92 08 BE 00 99 22 11 | GRP..."......".|
00000080: 50 52 45 53 53 20 27 45 27 20 54 4F 20 53 54 4F |PRESS 'E' TO STO|
00000090: 50 22 00 B2 08 DC 00 99 22 11 11 20 4C 45 56 45 |P"......".. LEVE|
000000A0: 4C 20 4F 46 20 44 49 46 46 49 43 55 4C 54 59 20 |L OF DIFFICULTY |
000000B0: 3F 22 00 CE 08 E6 00 96 A5 54 28 54 29 B2 31 35 |?".......T(T).15|
000000C0: AB B5 28 BC 28 54 29 AD BC 28 31 30 29 29 00 E3 |..(.(T)..(10))..|
000000D0: 08 F0 00 86 51 24 28 34 29 2C 51 28 34 29 2C 42 |....Q$(4),Q(4),B|
000000E0: 28 33 29 00 01 09 FA 00 85 22 11 20 20 20 20 20 |(3)......". |
000000F0: 28 30 2D 39 29 22 3B 47 3A 8B 47 B2 30 A7 47 B2 |(0-9)";G:.G.0.G.|
00000100: 31 00 0B 09 04 01 99 22 93 90 22 00 1F 09 0E 01 |1......"..".....|
00000110: 4C B2 47 AC 32 3A 8B 47 B1 36 A7 4C B2 39 39 00 |L.G.2:.G.6.L.99.|
00000120: 44 09 18 01 41 B2 B5 28 4C AC BB 28 54 49 29 AA |D...A..(L..(TI).|
00000130: 31 29 3A 42 42 B2 B5 28 39 39 38 AC BB 28 54 49 |1):BB..(998..(TI|
00000140: 29 AA 31 29 00 56 09 22 01 8B 41 B2 31 B0 42 42 |).1).V."..A.1.BB|
00000150: B3 41 A7 32 38 30 00 61 09 2C 01 44 B2 41 AC 42 |.A.280.a.,.D.A.B|
00000160: 42 00 71 09 36 01 8B 44 B3 31 30 30 30 A7 32 38 |B.q.6..D.1000.28|
00000170: 30 00 9D 09 40 01 42 28 31 29 B2 B5 28 42 42 AD |0...@.B(1)..(BB.|
00000180: 31 30 30 29 3A 42 28 32 29 B2 B5 28 28 42 42 AB |100):B(2)..((BB.|
00000190: 31 30 30 AC 42 28 31 29 29 AD 31 30 29 00 BA 09 |100.B(1)).10)...|
000001A0: 4A 01 42 28 33 29 B2 42 42 AB 31 30 30 AC 42 28 |J.B(3).BB.100.B(|
000001B0: 31 29 AB 31 30 AC 42 28 32 29 00 C6 09 54 01 99 |1).10.B(2)...T..|
000001C0: 22 93 11 11 1F 22 00 DA 09 5E 01 99 A3 35 29 3B |"...."...^...5);|
000001D0: 22 A7 A3 A3 A3 A3 A3 A3 A3 22 00 FD 09 68 01 99 |"........"...h..|
000001E0: 41 3B A3 35 29 3B 22 AA 22 3B A3 A5 54 28 44 29 |A;.5);".";..T(D)|
000001F0: AB 35 29 3B 44 3B 3A 99 22 91 91 91 22 00 08 0A |.5);D;:."..."...|
00000200: 72 01 81 49 B2 31 A4 33 00 34 0A 7C 01 8B 53 57 |r..I.1.3.4.|..SW|
00000210: B2 31 A7 51 24 28 49 29 B2 C4 28 42 28 49 29 29 |.1.Q$(I)..(B(I))|
00000220: 3A 99 A3 A5 54 28 42 42 29 AB 35 29 3B 42 42 3A |:...T(BB).5);BB:|
00000230: 89 34 33 30 00 53 0A 86 01 8B 49 B2 31 AF 42 28 |.430.S....I.1.B(|
00000240: 31 29 B2 30 A7 51 24 28 31 29 B2 22 30 22 3A 89 |1).0.Q$(1)."0":.|
00000250: 34 32 30 00 6C 0A 90 01 A1 51 24 28 49 29 3A 8B |420.l....Q$(I):.|
00000260: 51 24 28 49 29 B2 22 22 A7 34 30 30 00 7F 0A 9A |Q$(I)."".400....|
00000270: 01 8B 51 24 28 49 29 B2 22 45 22 A7 36 36 30 00 |..Q$(I)."E".660.|
00000280: 90 0A A4 01 99 A3 38 AA 49 29 3B 51 24 28 49 29 |......8.I);Q$(I)|
00000290: 00 A2 0A AE 01 51 28 49 29 B2 C5 28 51 24 28 49 |.....Q(I)..(Q$(I|
000002A0: 29 29 00 C2 0A B8 01 44 B2 44 AB 41 AC 51 28 49 |)).....D.D.A.Q(I|
000002B0: 29 AC B5 28 31 30 30 30 AD 31 30 AE 49 AA 2E 30 |)..(1000.10.I..0|
000002C0: 35 29 00 D7 0A C2 01 8B 4E 43 B2 31 A7 99 22 91 |5)......NC.1..".|
000002D0: 91 22 3A 89 35 37 30 00 E5 0A CC 01 8B 49 B2 31 |.":.570......I.1|
000002E0: A7 99 22 11 22 00 F6 0A D6 01 8B 49 B2 32 A7 99 |.."."......I.2..|
000002F0: 22 11 11 11 11 22 00 0A 0B E0 01 8B 49 B2 33 A7 |"...."......I.3.|
00000300: 99 22 11 11 11 11 11 11 11 22 00 23 0B EA 01 8B |.".......".#....|
00000310: 51 28 49 29 B2 30 A7 99 A3 31 30 29 3B 30 3A 89 |Q(I).0...10);0:.|
00000320: 35 31 30 00 41 0B F4 01 99 A3 A5 54 28 41 AC 51 |510.A......T(A.Q|
00000330: 28 49 29 29 AB 38 AA 49 29 3B AB 41 AC 51 28 49 |(I)).8.I);.A.Q(I|
00000340: 29 00 52 0B FE 01 99 A3 37 29 3B 22 2D 2D 2D 2D |).R.....7);"----|
00000350: 2D 22 00 68 0B 08 02 8B 44 B2 30 A7 99 A3 31 30 |-".h....D.0...10|
00000360: 29 3B 30 3A 89 35 35 30 00 7B 0B 12 02 8B 44 B3 |);0:.550.{....D.|
00000370: 30 A7 44 B2 AB 44 3A 89 36 30 30 00 98 0B 1C 02 |0.D..D:.600.....|
00000380: 99 A3 A5 54 28 44 29 AB 35 29 3B B5 28 44 AD 31 |...T(D).5);.(D.1|
00000390: 30 AE 28 32 AB 49 29 29 00 AC 0B 26 02 8B 49 B2 |0.(2.I))...&..I.|
000003A0: 31 A7 99 22 91 91 91 91 91 91 91 22 00 C3 0B 30 |1.."......."...0|
000003B0: 02 8B 49 B2 32 A7 99 22 91 91 91 91 91 91 91 91 |..I.2.."........|
000003C0: 91 91 22 00 CA 0B 3A 02 82 49 00 D6 0B 44 02 99 |.."...:..I...D..|
000003D0: 22 11 11 11 11 22 00 EA 0B 4E 02 8B 53 57 B2 31 |"...."...N..SW.1|
000003E0: A7 8D 37 31 30 3A 89 36 32 30 00 1E 0C 58 02 8B |..710:.620...X..|
000003F0: 44 B1 30 A7 99 22 12 1F 53 4F 52 52 59 2D 20 59 |D.0.."..SORRY- Y|
00000400: 4F 55 20 41 52 45 20 57 52 4F 4E 47 22 3A 81 54 |OU ARE WRONG":.T|
00000410: B2 31 A4 31 35 30 30 3A 82 3A 89 36 34 30 00 51 |.1.1500:.:.640.Q|
00000420: 0C 62 02 8B 44 B2 30 A7 43 B2 43 AA 31 3A 99 22 |.b..D.0.C.C.1:."|
00000430: 1F 59 4F 55 20 41 52 45 20 52 49 47 48 54 2D 20 |.YOU ARE RIGHT- |
00000440: 47 4F 4F 44 22 3A 81 54 B2 31 A4 32 30 30 30 3A |GOOD":.T.1.2000:|
00000450: 82 00 60 0C 6C 02 8B 53 57 B2 31 A7 53 57 B2 30 |..`.l..SW.1.SW.0|
00000460: 00 69 0C 76 02 89 32 38 30 00 7A 0C 80 02 53 57 |.i.v..280.z...SW|
00000470: B2 31 3A 43 31 B2 43 31 AA 31 00 83 0C 8A 02 89 |.1:C1.C1.1......|
00000480: 33 30 30 00 99 0C 94 02 4D 24 B2 22 53 22 3A 8B |300.....M$."S":.|
00000490: 43 B2 31 A7 4D 24 B2 22 22 00 D7 0C 9E 02 97 35 |C.1.M$.""......5|
000004A0: 33 32 38 31 2C 31 35 3A 97 35 33 32 38 30 2C 31 |3281,15:.53280,1|
000004B0: 35 3A 99 22 93 11 90 59 4F 55 20 47 41 56 45 22 |5:."...YOU GAVE"|
000004C0: 3B 43 3A 99 22 43 4F 52 52 45 43 54 20 41 4E 53 |;C:."CORRECT ANS|
000004D0: 57 45 52 22 3B 4D 24 00 EE 0C A8 02 4D 24 B2 22 |WER";M$.....M$."|
000004E0: 53 22 3A 8B 43 31 B2 31 A7 4D 24 B2 22 22 00 0D |S":.C1.1.M$.""..|
000004F0: 0D B2 02 99 22 11 41 4E 44 22 43 31 22 57 52 4F |....".AND"C1"WRO|
00000500: 4E 47 20 41 4E 53 57 45 52 22 3B 4D 24 00 13 0D |NG ANSWER";M$...|
00000510: BC 02 80 00 31 0D C6 02 99 22 13 54 48 45 20 43 |....1....".THE C|
00000520: 4F 52 52 45 43 54 20 41 4E 53 57 45 52 20 49 53 |ORRECT ANSWER IS|
00000530: 22 00 44 0D D0 02 A1 41 24 3A 8B 41 24 B2 22 22 |".D....A$:.A$.""|
00000540: A7 37 32 30 00 4A 0D DA 02 8E 00 00 00 20 53 43 |.720.J....... SC|
00000550: 48 45 52 4D 00 FB 17 8A 02 99 22 11 20 4B 4F 4D |HERM......". KOM|
00000560: 54 20 54 45 20 53 54 41 41 4E 2E 00 13 18 94 02 |T TE STAAN......|
00000570: 99 22 11 11 11 C4 52 55 4B 20 45 45 4E 20 54 4F |."....RUK EEN TO|
00000580: 45 54 53 00 29 18 9E 02 99 22 11 20 4F 4D 20 54 |ETS.)....". OM T|
00000590: 45 20 53 54 41 52 54 45 4E 00 3C 18 A8 02 A1 41 |E STARTEN.<....A|
000005A0: 24 3A 8B 41 24 B2 22 22 A7 36 38 30 00 47 18 B2 |$:.A$."".680.G..|
000005B0: 02 97 31 39 38 2C 30 00 5D 18 BC 02 99 22 93 22 |..198,0.]...."."|
000005C0: 3A 97 33 36 38 36 39 2C 32 34 30 3A 8E 00 00 |:.36869,240:... |
....D.. LONG DIVISION...E..".".6....5328
1,15:.53280,15.W...."...==== LONG DIVISI
ON ===".X....".TORONTO PET USERS GRP..."
......".PRESS 'E' TO STOP"......".. LEVE
L OF DIFFICULTY ?".N.....T(T).15..(.(T).
.(10))......Q$(4),Q(4),B(3)......".
(0-9)";G:.G.0.G.1......"..".....L.G.2:.G
.6.L.99.D...A..(L..(TI).1):BB..(998..(TI
).1).V."..A.1.BB.A.280.A.,.D.A.BB.Q.6..D
.1000.280...@.B(1)..(BB.100):B(2)..((BB.
100.B(1)).10)...J.B(3).BB.100.B(1).10.B(
2).F.T.."....".Z.^...5);"........"...H..
A;.5);".";..T(D).5);D;:."..."...R..I.1.3
.4.|..SW.1.Q$(I).D(B(I)):...T(BB).5);BB:
.430.S....I.1.B(1).0.Q$(1)."0":.420.L...
.Q$(I):.Q$(I)."".400.....Q$(I)."E".660.
......8.I);Q$(I).....Q(I).E(Q$(I)).B...D
.D.A.Q(I)..(1000.10.I..05).W.B..NC.1..".
.":.570...L..I.1.."."...V..I.2.."...."..
....I.3..".......".#....Q(I).0...10);0:.
510.A......T(A.Q(I)).8.I);.A.Q(I).R.....
7);"-----".H....D.0...10);0:.550.{....D.
0.D..D:.600........T(D).5);.(D.10.(2.I))
...&..I.1..".......".C.0..I.2.."........
..".J.:..I.V.D.."...."...N..SW.1..710:.6
20...X..D.0.."..SORRY- YOU ARE WRONG":.T
.1.1500:.:.640.Q.B..D.0.C.C.1:.".YOU ARE
RIGHT- GOOD":.T.1.2000:..`.L..SW.1.SW.0
.I.V..280.Z...SW.1:C1.C1.1......300.....
M$."S":.C.1.M$."".W....53281,15:.53280,1
5:."...YOU GAVE";C:."CORRECT ANSWER";M$.
....M$."S":.C1.1.M$.""......".AND"C1"WRO
NG ANSWER";M$.......1.F..".THE CORRECT A
NSWER IS".D.P..A$:.A$."".720.J.Z..... SC
HERM......". KOMT TE STAAN......."...DRU
K EEN TOETS.)....". OM TE STARTEN.<....A
$:.A$."".680.G....198,0.]....".":.36869,
240:...
> CLICK IMAGE PREVIEW FOR FULL MODAL