DIVISION/ENG

FILE INFORMATION

FILENAME(S): DIVISION/ENG

FILE TYPE(S): PRG

FILE SIZE: 1.8K

FIRST SEEN: 2025-11-30 01:08:24

APPEARS ON: 2 disk(s)

FILE HASH

9e54fe3b5c3c085502c8f2d083bf05070235e4fde7893c103cf322b0f21be7d5

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
L EHRNEN	DIVISION/ENG	PRG	Treasure Chest - Wolfgang Rauprich	17	6	DOWNLOAD FILE
FREESOFT DISK NR	DIVISION/ENG	PRG	Treasure Chest - Wolfgang Rauprich	17	6	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 19 08 01 00 8F 20  2A 2A 2A 20 4C 4F 4E 47  |....... *** LONG|
00000010: 20 44 49 56 49 53 49 4F  4E 00 34 08 02 00 8F 20  | DIVISION.4.... |
00000020: 20 20 20 20 45 44 57 41  52 44 20 4D 20 4C 49 43  |    EDWARD M LIC|
00000030: 48 54 45 4E 00 3A 08 03  00 8F 00 5A 08 04 00 8F  |HTEN.:.....Z....|
00000040: 20 2A 2A 2A 20 41 44 41  50 54 45 44 20 28 47 45  | *** ADAPTED (GE|
00000050: 52 4D 41 4E 20 4D 4F 44  45 29 00 78 08 05 00 8F  |RMAN MODE).x....|
00000060: 20 20 20 20 20 42 59 20  43 20 57 20 53 20 20 57  |     BY C W S  W|
00000070: 55 45 52 5A 42 55 52 47  00 9C 08 06 00 8F 20 20  |UERZBURG......  |
00000080: 20 20 20 44 49 45 20 4E  41 43 48 46 4F 4C 47 45  |   DIE NACHFOLGE|
00000090: 4E 44 45 4E 20 53 54 45  4C 4C 45 4E 00 C5 08 07  |NDEN STELLEN....|
000000A0: 00 8F 20 20 20 20 20 57  45 52 44 45 4E 20 4E 4F  |..     WERDEN NO|
000000B0: 43 48 20 4E 49 43 48 54  20 55 4E 54 45 52 44 52  |CH NICHT UNTERDR|
000000C0: 55 45 43 4B 54 00 E2 08  0A 00 96 20 A5 54 28 54  |UECKT...... .T(T|
000000D0: 29 B2 31 35 AB B5 28 BC  28 54 29 AD BC 28 31 30  |).15..(.(T)..(10|
000000E0: 29 29 00 F8 08 14 00 86  20 51 24 28 34 29 2C 51  |))...... Q$(4),Q|
000000F0: 28 34 29 2C 42 28 33 29  00 19 09 1E 00 99 22 93  |(4),B(3)......".|
00000100: 54 45 41 43 48 49 4E 47  20 4C 4F 4E 47 20 44 49  |TEACHING LONG DI|
00000110: 56 49 53 49 4F 4E 22 3A  99 00 6B 09 28 00 99 22  |VISION":..k.(.."|
00000120: 57 45 20 57 49 4C 4C 20  54 45 41 43 48 20 59 4F  |WE WILL TEACH YO|
00000130: 55 20 4C 4F 4E 47 20 44  49 56 49 53 49 4F 4E 20  |U LONG DIVISION |
00000140: 42 59 20 20 20 20 20 20  42 52 45 41 4B 49 4E 47  |BY      BREAKING|
00000150: 20 45 56 45 52 59 20 50  52 4F 42 4C 45 4D 20 48  | EVERY PROBLEM H|
00000160: 4E 54 4F 20 4C 49 54 54  4C 45 22 00 B9 09 32 00  |NTO LITTLE"...2.|
00000170: 99 22 4F 4E 45 53 2E 20  46 4F 4C 4C 4F 57 20 54  |."ONES. FOLLOW T|
00000180: 48 45 20 4D 41 54 48 20  54 48 52 4F 55 47 48 20  |HE MATH THROUGH |
00000190: 4F 4E 45 20 53 54 45 50  20 20 41 54 20 41 20 54  |ONE STEP  AT A T|
000001A0: 49 4D 45 2E 20 20 57 48  45 4E 20 59 4F 55 20 47  |IME.  WHEN YOU G|
000001B0: 45 54 20 47 4F 4F 44 20  22 00 E2 09 3C 00 99 22  |ET GOOD "...<.."|
000001C0: 54 48 45 52 45 20 57 49  4C 4C 20 42 45 20 4E 4F  |THERE WILL BE NO|
000001D0: 20 12 43 4F 4D 50 55 54  45 52 92 20 48 45 4C 50  | .COMPUTER. HELP|
000001E0: 21 22 00 00 0A 46 00 99  3A 85 22 45 4E 54 45 52  |!"...F..:."ENTER|
000001F0: 20 47 52 41 44 45 20 4C  45 56 45 4C 20 22 3B 47  | GRADE LEVEL ";G|
00000200: 00 1D 0A 50 00 99 22 54  4F 20 53 54 4F 50 20 54  |...P.."TO STOP T|
00000210: 59 50 45 20 12 45 4E 44  20 11 11 11 22 00 39 0A  |YPE .END ...".9.|
00000220: 59 00 8F 20 4C 20 49 53  20 4C 49 4D 49 54 20 4F  |Y.. L IS LIMIT O|
00000230: 46 20 44 49 56 49 53 4F  52 00 4F 0A 5A 00 4C B2  |F DIVISOR.O.Z.L.|
00000240: 47 AC 32 3A 8B 20 47 B1  36 A7 20 4C B2 39 39 00  |G.2:. G.6. L.99.|
00000250: 74 0A 64 00 41 B2 B5 28  4C AC BB 28 54 49 29 AA  |t.d.A..(L..(TI).|
00000260: 31 29 3A 42 42 B2 B5 28  39 39 38 AC BB 28 54 49  |1):BB..(998..(TI|
00000270: 29 AA 31 29 00 89 0A 78  00 8B 41 B2 31 20 B0 20  |).1)...x..A.1 . |
00000280: 42 42 B3 41 A7 20 31 30  30 00 94 0A 82 00 44 B2  |BB.A. 100.....D.|
00000290: 41 AC 42 42 00 A4 0A 87  00 8B 44 B3 31 30 30 30  |A.BB......D.1000|
000002A0: A7 31 30 30 00 D8 0A 8B  00 8F 20 42 28 31 29 49  |.100...... B(1)I|
000002B0: 53 20 48 55 4E 44 52 45  44 54 48 27 53 20 50 4C  |S HUNDREDTH'S PL|
000002C0: 41 43 45 3B 42 28 32 29  3B 54 45 4E 53 3B 42 28  |ACE;B(2);TENS;B(|
000002D0: 33 29 3B 4F 4E 45 27 53  00 04 0B 8C 00 42 28 31  |3);ONE'S.....B(1|
000002E0: 29 B2 B5 28 42 42 AD 31  30 30 29 3A 42 28 32 29  |)..(BB.100):B(2)|
000002F0: B2 B5 28 28 42 42 AB 31  30 30 AC 42 28 31 29 29  |..((BB.100.B(1))|
00000300: AD 31 30 29 00 21 0B 96  00 42 28 33 29 B2 42 42  |.10).!...B(3).BB|
00000310: AB 31 30 30 AC 42 28 31  29 AB 31 30 AC 42 28 32  |.100.B(1).10.B(2|
00000320: 29 00 27 0B C8 00 99 00  50 0B DC 00 99 A3 A5 54  |).'.....P......T|
00000330: 28 44 29 29 3B 44 3B A3  31 30 29 3B 22 3A 22 3B  |(D));D;.10);":";|
00000340: A3 31 35 29 3B 41 3B 22  3D 22 3A 99 22 91 91 22  |.15);A;"=":.".."|
00000350: 00 5B 0B FA 00 81 49 B2  31 A4 33 00 93 0B 04 01  |.[....I.1.3.....|
00000360: 8B 53 57 B2 31 A7 20 51  24 28 49 29 B2 C4 28 42  |.SW.1. Q$(I)..(B|
00000370: 28 49 29 29 3A 99 A3 A5  54 28 42 42 29 29 3B 22  |(I)):...T(BB));"|
00000380: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 22 3B 42 42 3A 89  |..........";BB:.|
00000390: 33 33 30 00 B1 0B 2B 01  8F 20 47 45 54 20 41 4E  |330...+.. GET AN|
000003A0: 53 57 45 52 20 46 52 4F  4D 20 53 54 55 44 45 4E  |SWER FROM STUDEN|
000003B0: 54 00 D4 0B 2C 01 8B 20  49 B2 31 20 AF 20 42 28  |T...,.. I.1 . B(|
000003C0: 31 29 B2 30 A7 20 51 24  28 31 29 B2 22 30 22 3A  |1).0. Q$(1)."0":|
000003D0: 89 33 32 30 00 EE 0B 31  01 A1 20 51 24 28 49 29  |.320...1.. Q$(I)|
000003E0: 3A 8B 51 24 28 49 29 B2  22 22 A7 33 30 35 00 01  |:.Q$(I)."".305..|
000003F0: 0C 36 01 8B 51 24 28 49  29 B2 22 45 22 A7 39 39  |.6..Q$(I)."E".99|
00000400: 39 00 20 0C 40 01 99 A3  31 33 AA 49 29 3B 22 1D  |9. .@...13.I);".|
00000410: 1D 1D 1D 1D 1D 1D 1D 1D  1D 22 3B 51 24 28 49 29  |.........";Q$(I)|
00000420: 00 32 0C 4A 01 51 28 49  29 B2 C5 28 51 24 28 49  |.2.J.Q(I)..(Q$(I|
00000430: 29 29 00 52 0C 4F 01 44  B2 44 AB 41 AC 51 28 49  |)).R.O.D.D.A.Q(I|
00000440: 29 AC B5 28 31 30 30 30  AD 31 30 AE 49 AA 2E 30  |)..(1000.10.I..0|
00000450: 35 29 00 68 0C 52 01 8B  20 4E 43 B2 31 A7 99 22  |5).h.R.. NC.1.."|
00000460: 91 91 22 3A 89 34 31 30  00 90 0C 53 01 8F 20 44  |..":.410...S.. D|
00000470: 45 54 45 52 4D 49 4E 45  20 4C 49 4E 45 20 54 4F  |ETERMINE LINE TO|
00000480: 20 50 52 49 4E 54 20 52  45 4D 41 49 4E 44 45 52  | PRINT REMAINDER|
00000490: 00 9F 0C 59 01 8B 49 B2  32 A7 99 22 11 11 22 00  |...Y..I.2.."..".|
000004A0: B1 0C 5E 01 8B 49 B2 33  A7 99 22 11 11 11 11 11  |..^..I.3..".....|
000004B0: 22 00 CC 0C 68 01 8B 20  51 28 49 29 B2 30 A7 20  |"...h.. Q(I).0. |
000004C0: 99 A3 31 35 29 3B 30 3A  89 33 38 30 00 F4 0C 72  |..15);0:.380...r|
000004D0: 01 99 A3 A5 54 28 41 AC  51 28 49 29 29 AB 33 AA  |....T(A.Q(I)).3.|
000004E0: 49 29 3B AB 41 AC 51 28  49 29 AC 31 30 30 30 AD  |I);.A.Q(I).1000.|
000004F0: 31 30 AE 49 00 06 0D 7C  01 99 A3 31 32 29 3B 22  |10.I...|...12);"|
00000500: 2D 2D 2D 2D 2D 22 00 1D  0D 90 01 8B 44 B2 30 A7  |-----"......D.0.|
00000510: 20 99 A3 31 34 29 3B 30  3A 89 34 30 37 00 33 0D  | ..14);0:.407.3.|
00000520: 92 01 8B 20 44 B3 30 20  A7 20 44 B2 AB 44 3A 89  |... D.0 . D..D:.|
00000530: 34 32 30 00 42 0D 95 01  99 A3 A5 54 28 44 29 29  |420.B......T(D))|
00000540: 3B 44 00 54 0D 97 01 8B  49 B2 31 A7 99 22 91 91  |;D.T....I.1.."..|
00000550: 91 91 91 22 00 69 0D 99  01 8B 49 B2 32 A7 99 22  |...".i....I.2.."|
00000560: 91 91 91 91 91 91 91 91  22 00 70 0D 9A 01 82 49  |........".p....I|
00000570: 00 7C 0D 9D 01 99 22 11  11 11 11 22 00 B5 0D 9F  |.|...."...."....|
00000580: 01 8B 53 57 B2 31 A7 20  81 5A B2 31 A4 35 30 30  |..SW.1. .Z.1.500|
00000590: 30 3A 82 5A 3A 99 22 4C  45 54 27 53 20 54 52 59  |0:.Z:."LET'S TRY|
000005A0: 20 41 4E 4F 54 48 45 52  20 4F 4E 45 20 11 11 22  | ANOTHER ONE .."|
000005B0: 3A 89 34 34 35 00 DF 0D  A4 01 8B 20 44 B1 30 20  |:.445...... D.0 |
000005C0: A7 20 99 22 57 52 4F 4E  47 2D 4C 45 54 27 53 20  |. ."WRONG-LET'S |
000005D0: 52 45 56 49 45 57 11 11  11 22 3A 89 35 30 30 00  |REVIEW...":.500.|
000005E0: 0C 0E AE 01 8B 20 44 B2  30 A7 20 43 B2 43 AA 31  |..... D.0. C.C.1|
000005F0: 3A 99 22 12 43 4F 52 52  45 43 54 21 21 56 45 52  |:.".CORRECT!!VER|
00000600: 59 20 47 4F 4F 44 21 21  20 11 11 22 00 1C 0E B8  |Y GOOD!! .."....|
00000610: 01 8B 20 43 B1 31 30 20  A7 37 30 30 00 2C 0E BD  |.. C.10 .700.,..|
00000620: 01 8B 53 57 B2 31 A7 20  53 57 B2 30 00 35 0E CC  |..SW.1. SW.0.5..|
00000630: 01 89 31 30 30 00 49 0E  F4 01 8F 20 52 45 56 49  |..100.I.... REVI|
00000640: 45 57 20 45 52 52 4F 52  53 00 52 0E FE 01 53 57  |EW ERRORS.R...SW|
00000650: B2 31 00 5B 0E 08 02 89  31 33 30 00 A0 0E BC 02  |.1.[....130.....|
00000660: 8B 46 54 B2 30 A7 85 22  49 46 20 59 4F 55 20 44  |.FT.0.."IF YOU D|
00000670: 4F 20 4E 4F 54 20 57 41  4E 54 20 43 4F 4D 50 55  |O NOT WANT COMPU|
00000680: 54 45 52 20 48 45 4C 50  20 54 59 50 45 20 59 22  |TER HELP TYPE Y"|
00000690: 3B 59 24 3A 8B 59 24 B2  22 59 22 A7 53 57 B2 32  |;Y$:.Y$."Y".SW.2|
000006A0: 00 A9 0E C6 02 46 54 B2  31 00 B2 0E D0 02 89 31  |.....FT.1......1|
000006B0: 30 30 00 DF 0E E7 03 99  22 93 59 4F 55 20 47 4F  |00......".YOU GO|
000006C0: 54 20 22 3B 43 3B 22 20  4C 4F 4E 47 20 44 49 56  |T ";C;" LONG DIV|
000006D0: 49 53 49 4F 4E 20 50 52  4F 42 4C 45 4D 53 22 00  |ISION PROBLEMS".|
000006E0: 03 0F E8 03 99 22 43 4F  52 52 45 43 54 21 20 56  |....."CORRECT! V|
000006F0: 45 52 59 20 47 4F 4F 44  21 21 20 42 59 45 20 4E  |ERY GOOD!! BYE N|
00000700: 4F 57 22 00 09 0F F2 03  80 00 00 00 24           |OW".........$   |

....... *** LONG DIVISION.4....     EDWA
RD M LICHTEN.:.....Z.... *** ADAPTED (GE
RMAN MODE).X....     BY C W S  WUERZBURG
......     DIE NACHFOLGENDEN STELLEN.E..
..     WERDEN NOCH NICHT UNTERDRUECKT...
... .T(T).15..(.(T)..(10))...... Q$(4),Q
(4),B(3)......".TEACHING LONG DIVISION":
..K.(.."WE WILL TEACH YOU LONG DIVISION 
BY      BREAKING EVERY PROBLEM HNTO LITT
LE"...2.."ONES. FOLLOW THE MATH THROUGH 
ONE STEP  AT A TIME.  WHEN YOU GET GOOD 
"...<.."THERE WILL BE NO .COMPUTER. HELP
!"...F..:."ENTER GRADE LEVEL ";G...P.."T
O STOP TYPE .END ...".9.Y.. L IS LIMIT O
F DIVISOR.O.Z.L.G.2:. G.6. L.99.T.D.A..(
L..(TI).1):BB..(998..(TI).1)...X..A.1 . 
BB.A. 100.....D.A.BB......D.1000.100.X..
.. B(1)IS HUNDREDTH'S PLACE;B(2);TENS;B(
3);ONE'S.....B(1)..(BB.100):B(2)..((BB.1
00.B(1)).10).!...B(3).BB.100.B(1).10.B(2
).'.H...P......T(D));D;.10);":";.15);A;"
=":."..".[....I.1.3......SW.1. Q$(I).D(B
(I)):...T(BB));"..........";BB:.330...+.
. GET ANSWER FROM STUDENT.T.,.. I.1 . B(
1).0. Q$(1)."0":.320...1.. Q$(I):.Q$(I).
"".305...6..Q$(I)."E".999. .@...13.I);".
.........";Q$(I).2.J.Q(I).E(Q$(I)).R.O.D
.D.A.Q(I)..(1000.10.I..05).H.R.. NC.1.."
..":.410...S.. DETERMINE LINE TO PRINT R
EMAINDER...Y..I.2..".."...^..I.3..".....
".L.H.. Q(I).0. ..15);0:.380...R....T(A.
Q(I)).3.I);.A.Q(I).1000.10.I...|...12);"
-----"......D.0. ..14);0:.407.3.... D.0 
. D..D:.420.B......T(D));D.T....I.1.."..
...".I....I.2.."........".P....I.|....".
..."......SW.1. .Z.1.5000:.Z:."LET'S TRY
 ANOTHER ONE ..":.445...... D.0 . ."WRON
G-LET'S REVIEW...":.500...... D.0. C.C.1
:.".CORRECT!!VERY GOOD!! .."...... C.10 
.700.,....SW.1. SW.0.5.L..100.I.... REVI
EW ERRORS.R...SW.1.[....130. ....FT.0.."
IF YOU DO NOT WANT COMPUTER HELP TYPE Y"
;Y$:.Y$."Y".SW.2...F.FT.1...P..100......
".YOU GOT ";C;" LONG DIVISION PROBLEMS".
....."CORRECT! VERY GOOD!! BYE NOW".....
....$

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL