STAARTDELING-E

FILE INFORMATION

FILENAME(S): STAARTDELING-E

FILE TYPE(S): PRG

FILE SIZE: 1.7K

FIRST SEEN: 2025-12-02 02:06:47

APPEARS ON: 1 disk(s)

FILE HASH

ebe48a0de58d00e9079460555320285b9317d1dbe2796e17f2b2d96b93dfc9f5

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
REKENEN LBO 01	STAARTDELING-E	PRG	Shocktrooper	25	10	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 0F 08 00 00 97 35  39 34 36 38 2C 31 32 00  |.......59468,12.|
00000010: 27 08 01 00 8F 20 2A 2A  2A 20 4C 4F 4E 47 20 44  |'.... *** LONG D|
00000020: 49 56 49 53 49 4F 4E 00  42 08 02 00 8F 20 20 20  |IVISION.B....   |
00000030: 20 20 45 44 57 41 52 44  20 4D 20 4C 49 43 48 54  |  EDWARD M LICHT|
00000040: 45 4E 00 48 08 03 00 8F  00 61 08 04 00 8F 20 2A  |EN.H.....a.... *|
00000050: 2A 2A 20 50 45 54 20 55  53 45 52 20 47 52 4F 55  |** PET USER GROU|
00000060: 50 00 76 08 05 00 8F 20  20 20 20 20 50 4F 20 42  |P.v....     PO B|
00000070: 4F 58 20 33 37 31 00 9A  08 06 00 8F 20 20 20 20  |OX 371......    |
00000080: 20 4D 4F 4E 54 47 4F 4D  45 52 59 56 49 4C 4C 45  | MONTGOMERYVILLE|
00000090: 2C 20 50 41 20 31 38 39  33 36 00 A0 08 07 00 8F  |, PA 18936......|
000000A0: 00 BD 08 0A 00 96 20 A5  54 28 54 29 B2 31 35 AB  |...... .T(T).15.|
000000B0: B5 28 BC 28 54 29 AD BC  28 31 30 29 29 00 D3 08  |.(.(T)..(10))...|
000000C0: 14 00 86 20 51 24 28 34  29 2C 51 28 34 29 2C 42  |... Q$(4),Q(4),B|
000000D0: 28 33 29 00 F4 08 1E 00  99 22 93 54 45 41 43 48  |(3)......".TEACH|
000000E0: 49 4E 47 20 4C 4F 4E 47  20 44 49 56 49 53 49 4F  |ING LONG DIVISIO|
000000F0: 4E 22 3A 99 00 46 09 28  00 99 22 57 45 20 57 49  |N":..F.(.."WE WI|
00000100: 4C 4C 20 54 45 41 43 48  20 59 4F 55 20 4C 4F 4E  |LL TEACH YOU LON|
00000110: 47 20 44 49 56 49 53 49  4F 4E 20 42 59 20 20 20  |G DIVISION BY   |
00000120: 20 20 20 42 52 45 41 4B  49 4E 47 20 45 56 45 52  |   BREAKING EVER|
00000130: 59 20 50 52 4F 42 4C 45  4D 20 49 4E 54 4F 20 4C  |Y PROBLEM INTO L|
00000140: 49 54 54 4C 45 22 00 94  09 32 00 99 22 4F 4E 45  |ITTLE"...2.."ONE|
00000150: 53 2E 20 46 4F 4C 4C 4F  57 20 54 48 45 20 4D 41  |S. FOLLOW THE MA|
00000160: 54 48 20 54 48 52 4F 55  47 48 20 4F 4E 45 20 53  |TH THROUGH ONE S|
00000170: 54 45 50 20 20 41 54 20  41 20 54 49 4D 45 2E 20  |TEP  AT A TIME. |
00000180: 20 57 48 45 4E 20 59 4F  55 20 47 45 54 20 47 4F  | WHEN YOU GET GO|
00000190: 4F 44 20 22 00 BD 09 3C  00 99 22 54 48 45 52 45  |OD "...<.."THERE|
000001A0: 20 57 49 4C 4C 20 42 45  20 4E 4F 20 12 43 4F 4D  | WILL BE NO .COM|
000001B0: 50 55 54 45 52 92 20 48  45 4C 50 21 22 00 DB 09  |PUTER. HELP!"...|
000001C0: 46 00 99 3A 85 22 45 4E  54 45 52 20 47 52 41 44  |F..:."ENTER GRAD|
000001D0: 45 20 4C 45 56 45 4C 20  22 3B 47 00 F8 09 50 00  |E LEVEL ";G...P.|
000001E0: 99 22 54 4F 20 53 54 4F  50 20 54 59 50 45 20 12  |."TO STOP TYPE .|
000001F0: 45 4E 44 20 11 11 11 22  00 14 0A 59 00 8F 20 4C  |END ..."...Y.. L|
00000200: 20 49 53 20 4C 49 4D 49  54 20 4F 46 20 44 49 56  | IS LIMIT OF DIV|
00000210: 49 53 4F 52 00 2A 0A 5A  00 4C B2 47 AC 32 3A 8B  |ISOR.*.Z.L.G.2:.|
00000220: 20 47 B1 36 A7 20 4C B2  39 39 00 4F 0A 64 00 41  | G.6. L.99.O.d.A|
00000230: B2 B5 28 4C AC BB 28 54  49 29 AA 31 29 3A 42 42  |..(L..(TI).1):BB|
00000240: B2 B5 28 39 39 38 AC BB  28 54 49 29 AA 31 29 00  |..(998..(TI).1).|
00000250: 64 0A 78 00 8B 41 B2 31  20 B0 20 42 42 B3 41 A7  |d.x..A.1 . BB.A.|
00000260: 20 31 30 30 00 6F 0A 82  00 44 B2 41 AC 42 42 00  | 100.o...D.A.BB.|
00000270: 7F 0A 87 00 8B 44 B3 31  30 30 30 A7 31 30 30 00  |.....D.1000.100.|
00000280: B3 0A 8B 00 8F 20 42 28  31 29 49 53 20 48 55 4E  |..... B(1)IS HUN|
00000290: 44 52 45 44 54 48 27 53  20 50 4C 41 43 45 3B 42  |DREDTH'S PLACE;B|
000002A0: 28 32 29 3B 54 45 4E 53  3B 42 28 33 29 3B 4F 4E  |(2);TENS;B(3);ON|
000002B0: 45 27 53 00 DF 0A 8C 00  42 28 31 29 B2 B5 28 42  |E'S.....B(1)..(B|
000002C0: 42 AD 31 30 30 29 3A 42  28 32 29 B2 B5 28 28 42  |B.100):B(2)..((B|
000002D0: 42 AB 31 30 30 AC 42 28  31 29 29 AD 31 30 29 00  |B.100.B(1)).10).|
000002E0: FC 0A 96 00 42 28 33 29  B2 42 42 AB 31 30 30 AC  |....B(3).BB.100.|
000002F0: 42 28 31 29 AB 31 30 AC  42 28 32 29 00 02 0B C8  |B(1).10.B(2)....|
00000300: 00 99 00 17 0B D2 00 99  A3 31 30 29 3B 22 A7 A3  |.........10);"..|
00000310: A3 A3 A3 A3 A3 A3 22 00  3D 0B DC 00 99 A3 35 29  |......".=.....5)|
00000320: 3B 41 3B A3 31 30 29 3B  22 A7 22 3B A3 A5 54 28  |;A;.10);".";..T(|
00000330: 44 29 29 3B 44 3B 3A 99  22 91 91 91 22 00 48 0B  |D));D;:."...".H.|
00000340: FA 00 81 49 B2 31 A4 33  00 73 0B 04 01 8B 53 57  |...I.1.3.s....SW|
00000350: B2 31 A7 20 51 24 28 49  29 B2 C4 28 42 28 49 29  |.1. Q$(I)..(B(I)|
00000360: 29 3A 99 A3 A5 54 28 42  42 29 29 3B 42 42 3A 89  |):...T(BB));BB:.|
00000370: 33 33 30 00 8D 0B 2B 01  A1 20 41 4E 53 57 45 52  |330...+.. ANSWER|
00000380: 20 46 52 4F 4D 20 53 54  55 44 45 4E 54 00 B0 0B  | FROM STUDENT...|
00000390: 2C 01 8B 20 49 B2 31 20  AF 20 42 28 31 29 B2 30  |,.. I.1 . B(1).0|
000003A0: A7 20 51 24 28 31 29 B2  22 30 22 3A 89 33 32 30  |. Q$(1)."0":.320|
000003B0: 00 CA 0B 31 01 A1 20 51  24 28 49 29 3A 8B 51 24  |...1.. Q$(I):.Q$|
000003C0: 28 49 29 B2 22 22 A7 33  30 35 00 DD 0B 36 01 8B  |(I)."".305...6..|
000003D0: 51 24 28 49 29 B2 22 45  22 A7 39 39 39 00 EF 0B  |Q$(I)."E".999...|
000003E0: 40 01 99 A3 31 33 AA 49  29 3B 51 24 28 49 29 00  |@...13.I);Q$(I).|
000003F0: 01 0C 4A 01 51 28 49 29  B2 C5 28 51 24 28 49 29  |..J.Q(I)..(Q$(I)|
00000400: 29 00 21 0C 4F 01 44 B2  44 AB 41 AC 51 28 49 29  |).!.O.D.D.A.Q(I)|
00000410: AC B5 28 31 30 30 30 AD  31 30 AE 49 AA 2E 30 35  |..(1000.10.I..05|
00000420: 29 00 38 0C 52 01 8B 20  4E 43 B2 31 A7 20 99 22  |).8.R.. NC.1. ."|
00000430: 91 91 22 3A 89 34 31 30  00 60 0C 53 01 8F 20 44  |..":.410.`.S.. D|
00000440: 45 54 45 52 4D 49 4E 45  20 4C 49 4E 45 20 54 4F  |ETERMINE LINE TO|
00000450: 20 50 52 49 4E 54 20 52  45 4D 41 49 4E 44 45 52  | PRINT REMAINDER|
00000460: 00 6F 0C 54 01 8B 20 49  B2 31 A7 99 22 11 22 00  |.o.T.. I.1..".".|
00000470: 80 0C 59 01 8B 49 B2 32  A7 99 22 11 11 11 11 22  |..Y..I.2.."...."|
00000480: 00 94 0C 5E 01 8B 49 B2  33 A7 99 22 11 11 11 11  |...^..I.3.."....|
00000490: 11 11 11 22 00 AF 0C 68  01 8B 20 51 28 49 29 B2  |..."...h.. Q(I).|
000004A0: 30 A7 20 99 A3 31 35 29  3B 30 3A 89 33 38 30 00  |0. ..15);0:.380.|
000004B0: D7 0C 72 01 99 A3 A5 54  28 41 AC 51 28 49 29 29  |..r....T(A.Q(I))|
000004C0: AB 33 AA 49 29 3B AB 41  AC 51 28 49 29 AC 31 30  |.3.I);.A.Q(I).10|
000004D0: 30 30 AD 31 30 AE 49 00  E9 0C 7C 01 99 A3 31 32  |00.10.I...|...12|
000004E0: 29 3B 22 2D 2D 2D 2D 2D  22 00 00 0D 90 01 8B 44  |);"-----"......D|
000004F0: B2 30 A7 20 99 A3 31 34  29 3B 30 3A 89 34 30 37  |.0. ..14);0:.407|
00000500: 00 16 0D 92 01 8B 20 44  B3 30 20 A7 20 44 B2 AB  |...... D.0 . D..|
00000510: 44 3A 89 34 32 30 00 25  0D 95 01 99 A3 A5 54 28  |D:.420.%......T(|
00000520: 44 29 29 3B 44 00 39 0D  97 01 8B 49 B2 31 A7 99  |D));D.9....I.1..|
00000530: 22 91 91 91 91 91 91 91  22 00 50 0D 99 01 8B 49  |".......".P....I|
00000540: B2 32 A7 99 22 91 91 91  91 91 91 91 91 91 91 22  |.2..".........."|
00000550: 00 57 0D 9A 01 82 49 00  63 0D 9D 01 99 22 11 11  |.W....I.c...."..|
00000560: 11 11 22 00 9C 0D 9F 01  8B 53 57 B2 31 A7 20 81  |.."......SW.1. .|
00000570: 5A B2 31 A4 35 30 30 30  3A 82 5A 3A 99 22 4C 45  |Z.1.5000:.Z:."LE|
00000580: 54 27 53 20 54 52 59 20  41 4E 4F 54 48 45 52 20  |T'S TRY ANOTHER |
00000590: 4F 4E 45 20 11 11 22 3A  89 34 34 35 00 C6 0D A4  |ONE ..":.445....|
000005A0: 01 8B 20 44 B1 30 20 A7  20 99 22 57 52 4F 4E 47  |.. D.0 . ."WRONG|
000005B0: 2D 4C 45 54 27 53 20 52  45 56 49 45 57 11 11 11  |-LET'S REVIEW...|
000005C0: 22 3A 89 35 30 30 00 F3  0D AE 01 8B 20 44 B2 30  |":.500...... D.0|
000005D0: A7 20 43 B2 43 AA 31 3A  99 22 12 43 4F 52 52 45  |. C.C.1:.".CORRE|
000005E0: 43 54 21 21 56 45 52 59  20 47 4F 4F 44 21 21 20  |CT!!VERY GOOD!! |
000005F0: 11 11 22 00 03 0E B8 01  8B 20 43 B1 31 30 20 A7  |.."...... C.10 .|
00000600: 37 30 30 00 13 0E BD 01  8B 53 57 B2 31 A7 20 53  |700......SW.1. S|
00000610: 57 B2 30 00 1C 0E CC 01  89 31 30 30 00 30 0E F4  |W.0......100.0..|
00000620: 01 8F 20 52 45 56 49 45  57 20 45 52 52 4F 52 53  |.. REVIEW ERRORS|
00000630: 00 39 0E FE 01 53 57 B2  31 00 42 0E 08 02 89 31  |.9...SW.1.B....1|
00000640: 33 30 00 87 0E BC 02 8B  46 54 B2 30 A7 85 22 49  |30......FT.0.."I|
00000650: 46 20 59 4F 55 20 44 4F  20 4E 4F 54 20 57 41 4E  |F YOU DO NOT WAN|
00000660: 54 20 43 4F 4D 50 55 54  45 52 20 48 45 4C 50 20  |T COMPUTER HELP |
00000670: 54 59 50 45 20 59 22 3B  59 24 3A 8B 59 24 B2 22  |TYPE Y";Y$:.Y$."|
00000680: 59 22 A7 53 57 B2 32 00  90 0E C6 02 46 54 B2 31  |Y".SW.2.....FT.1|
00000690: 00 99 0E D0 02 89 31 30  30 00 C6 0E E7 03 99 22  |......100......"|
000006A0: 93 59 4F 55 20 47 4F 54  20 22 3B 43 3B 22 20 4C  |.YOU GOT ";C;" L|
000006B0: 4F 4E 47 20 44 49 56 49  53 49 4F 4E 20 50 52 4F  |ONG DIVISION PRO|
000006C0: 42 4C 45 4D 53 22 00 EA  0E E8 03 99 22 43 4F 52  |BLEMS"......"COR|
000006D0: 52 45 43 54 21 20 56 45  52 59 20 47 4F 4F 44 21  |RECT! VERY GOOD!|
000006E0: 21 20 42 59 45 20 4E 4F  57 22 00 F0 0E F2 03 80  |! BYE NOW"......|
000006F0: 00 00 00 24                                       |...$            |

.......59468,12.'.... *** LONG DIVISION.
B....     EDWARD M LICHTEN.H.....A.... *
** PET USER GROUP.V....     PO BOX 371..
....     MONTGOMERYVILLE, PA 18936. ....
...... .T(T).15..(.(T)..(10)).S.... Q$(4
),Q(4),B(3)......".TEACHING LONG DIVISIO
N":..F.(.."WE WILL TEACH YOU LONG DIVISI
ON BY      BREAKING EVERY PROBLEM INTO L
ITTLE"...2.."ONES. FOLLOW THE MATH THROU
GH ONE STEP  AT A TIME.  WHEN YOU GET GO
OD "...<.."THERE WILL BE NO .COMPUTER. H
ELP!"...F..:."ENTER GRADE LEVEL ";G...P.
."TO STOP TYPE .END ..."...Y.. L IS LIMI
T OF DIVISOR.*.Z.L.G.2:. G.6. L.99.O.D.A
..(L..(TI).1):BB..(998..(TI).1).D.X..A.1
 . BB.A. 100.O...D.A.BB.....D.1000.100.
..... B(1)IS HUNDREDTH'S PLACE;B(2);TENS
;B(3);ONE'S.....B(1)..(BB.100):B(2)..((B
B.100.B(1)).10).....B(3).BB.100.B(1).10.
B(2)...H.....R...10);"........".=.....5)
;A;.10);".";..T(D));D;:."...".H....I.1.3
.S....SW.1. Q$(I).D(B(I)):...T(BB));BB:.
330...+.. ANSWER FROM STUDENT...,.. I.1 
. B(1).0. Q$(1)."0":.320.J.1.. Q$(I):.Q$
(I)."".305...6..Q$(I)."E".999...@...13.I
);Q$(I)...J.Q(I).E(Q$(I)).!.O.D.D.A.Q(I)
..(1000.10.I..05).8.R.. NC.1. ."..":.410
.`.S.. DETERMINE LINE TO PRINT REMAINDER
.O.T.. I.1.."."...Y..I.2.."...."...^..I.
3.."......."...H.. Q(I).0. ..15);0:.380.
W.R....T(A.Q(I)).3.I);.A.Q(I).1000.10.I.
..|...12);"-----"......D.0. ..14);0:.407
...... D.0 . D..D:.420.%......T(D));D.9.
...I.1..".......".P....I.2..".........."
.W....I.C...."...."......SW.1. .Z.1.5000
:.Z:."LET'S TRY ANOTHER ONE ..":.445.F..
.. D.0 . ."WRONG-LET'S REVIEW...":.500..
.... D.0. C.C.1:.".CORRECT!!VERY GOOD!! 
.."...... C.10 .700......SW.1. SW.0...L.
.100.0.... REVIEW ERRORS.9...SW.1.B....1
30......FT.0.."IF YOU DO NOT WANT COMPUT
ER HELP TYPE Y";Y$:.Y$."Y".SW.2...F.FT.1
...P..100.F....".YOU GOT ";C;" LONG DIVI
SION PROBLEMS"......"CORRECT! VERY GOOD!
! BYE NOW".........$

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL