DIV.WORKSHEET
FILE INFORMATION
FILENAME(S): DIV.WORKSHEET
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-10-19 22:48:42
APPEARS ON: 1 disk(s)
FILE HASH
b0949aef23f42c4c8d69feed21661f85dd4a6c5057256755c444947b6778805b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAZETTE FEB 87 | DIV.WORKSHEET | PRG | Radd Maxx | 12 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 4B 08 C6 02 86 20 58 28 35 30 29 2C 59 28 |..K.... X(50),Y(| 00000010: 35 30 29 2C 5A 28 35 30 29 2C 52 28 35 30 29 3A |50),Z(50),R(50):| 00000020: 53 50 24 B2 22 20 20 20 20 20 20 20 22 3A 50 52 |SP$." ":PR| 00000030: B2 31 3A 8F 20 53 45 54 20 50 52 3D 30 20 46 4F |.1:. SET PR=0 FO| 00000040: 52 20 31 35 32 36 2C 20 38 30 32 00 61 08 D0 02 |R 1526, 802.a...| 00000050: 99 22 93 12 90 44 49 56 49 53 49 4F 4E 92 22 3A |."...DIVISION.":| 00000060: 99 00 9D 08 DA 02 99 22 45 4E 54 45 52 20 41 20 |......."ENTER A | 00000070: 12 31 92 20 46 4F 52 20 55 50 20 54 4F 20 39 39 |.1. FOR UP TO 99| 00000080: 2F 39 22 3A 99 A3 38 29 22 12 32 92 20 46 4F 52 |/9":..8)".2. FOR| 00000090: 20 55 50 20 54 4F 20 39 39 39 2F 39 22 00 BF 08 | UP TO 999/9"...| 000000A0: E4 02 99 A3 38 29 22 12 33 92 20 46 4F 52 20 55 |....8)".3. FOR U| 000000B0: 50 20 54 4F 20 39 39 39 39 2F 39 39 3A 22 3B 00 |P TO 9999/99:";.| 000000C0: D3 08 EE 02 85 41 3A 8B 41 B3 31 B0 41 B1 33 A7 |.....A:.A.1.A.3.| 000000D0: 37 32 30 00 F4 08 F8 02 58 4C B2 39 39 3A 5A 4C |720.....XL.99:ZL| 000000E0: B2 31 30 32 3A 8B 41 B2 31 A7 58 4C B2 39 3A 5A |.102:.A.1.XL.9:Z| 000000F0: 4C B2 31 32 00 09 09 02 03 8B 41 B2 32 A7 58 4C |L.12......A.2.XL| 00000100: B2 39 3A 5A 4C B2 31 31 32 00 3B 09 0C 03 85 22 |.9:ZL.112.;...."| 00000110: 11 11 52 45 4D 41 49 4E 44 45 52 53 20 28 59 2F |..REMAINDERS (Y/| 00000120: 4E 29 22 3B 52 24 3A 8B 52 24 B3 B1 22 4E 22 AF |N)";R$:.R$.."N".| 00000130: 52 24 B3 B1 22 59 22 A7 37 38 30 00 6A 09 16 03 |R$.."Y".780.j...| 00000140: 85 22 11 11 41 4E 53 57 45 52 53 20 28 59 2F 4E |."..ANSWERS (Y/N| 00000150: 29 22 3B 41 24 3A 8B 41 24 B3 B1 22 4E 22 AF 41 |)";A$:.A$.."N".A| 00000160: 24 B3 B1 22 59 22 A7 37 39 30 00 91 09 20 03 99 |$.."Y".790... ..| 00000170: 22 11 47 45 4E 45 52 41 54 49 4E 47 20 50 52 4F |".GENERATING PRO| 00000180: 42 4C 45 4D 53 2E 2E 2E 22 3A 81 49 B2 31 A4 35 |BLEMS...":.I.1.5| 00000190: 30 00 B7 09 2A 03 58 28 49 29 B2 B5 28 BB 28 30 |0...*.X(I)..(.(0| 000001A0: 29 AC 58 4C 29 AA 31 3A 5A 28 49 29 B2 B5 28 BB |).XL).1:Z(I)..(.| 000001B0: 28 30 29 AC 5A 4C 29 00 DC 09 34 03 52 28 49 29 |(0).ZL)...4.R(I)| 000001C0: B2 30 3A 8B 52 24 B2 22 59 22 A7 52 28 49 29 B2 |.0:.R$."Y".R(I).| 000001D0: B5 28 BB 28 30 29 AC 58 28 49 29 29 00 08 0A 3E |.(.(0).X(I))...>| 000001E0: 03 59 28 49 29 B2 58 28 49 29 AC 5A 28 49 29 AA |.Y(I).X(I).Z(I).| 000001F0: 52 28 49 29 3A 8B 59 28 49 29 B1 58 4C AC 28 5A |R(I):.Y(I).XL.(Z| 00000200: 4C AB 31 29 A7 38 31 30 00 15 0A 48 03 8B 49 B2 |L.1).810...H..I.| 00000210: 31 A7 38 37 30 00 4F 0A 52 03 81 4A B2 31 A4 49 |1.870.O.R..J.1.I| 00000220: AB 31 3A 8B 58 28 49 29 B2 58 28 4A 29 AF 59 28 |.1:.X(I).X(J).Y(| 00000230: 49 29 B2 59 28 4A 29 AF 52 28 49 29 B2 52 28 4A |I).Y(J).R(I).R(J| 00000240: 29 A7 4A B2 49 AB 31 3A 82 4A 3A 89 38 31 30 00 |).J.I.1:.J:.810.| 00000250: 56 0A 5C 03 82 4A 00 5D 0A 66 03 82 49 00 87 0A |V.\..J.].f..I...| 00000260: 70 03 99 22 11 50 4F 53 49 54 49 4F 4E 20 50 52 |p..".POSITION PR| 00000270: 49 4E 54 48 45 41 44 20 41 42 4F 55 54 20 31 2F |INTHEAD ABOUT 1/| 00000280: 38 20 49 4E 43 48 22 00 A7 0A 7A 03 99 22 42 45 |8 INCH"...z.."BE| 00000290: 4C 4F 57 20 50 41 50 45 52 20 50 45 52 46 4F 52 |LOW PAPER PERFOR| 000002A0: 41 54 49 4F 4E 2E 22 00 D1 0A 84 03 99 22 11 50 |ATION."......".P| 000002B0: 52 45 53 53 20 12 41 4E 59 20 4B 45 59 92 20 54 |RESS .ANY KEY. T| 000002C0: 4F 20 53 54 41 52 54 20 50 52 49 4E 54 49 4E 47 |O START PRINTING| 000002D0: 22 00 E4 0A 8E 03 A1 4B 24 3A 8B 4B 24 B2 22 22 |"......K$:.K$.""| 000002E0: A7 39 31 30 00 ED 0A 98 03 9F 34 2C 34 00 2D 0B |.910......4,4.-.| 000002F0: A2 03 98 34 2C C7 28 31 34 29 22 20 20 20 20 20 |...4,.(14)" | 00000300: 20 20 20 20 20 20 20 44 49 56 49 53 49 4F 4E 20 | DIVISION | 00000310: 50 52 4F 42 4C 45 4D 53 22 3A 8F 20 31 34 20 49 |PROBLEMS":. 14 I| 00000320: 53 20 44 4F 55 42 4C 45 20 57 49 44 45 00 62 0B |S DOUBLE WIDE.b.| 00000330: AC 03 98 34 2C 3A 98 34 2C C7 28 31 34 29 22 4E |...4,:.4,.(14)"N| 00000340: 41 4D 45 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |AME.............| 00000350: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................| 00000360: A4 22 00 74 0B B6 03 81 49 B2 31 A4 33 3A 98 34 |.".t....I.1.3:.4| 00000370: 2C 3A 82 49 00 9A 0B C0 03 98 34 2C C7 28 31 35 |,:.I......4,.(15| 00000380: 29 3A 8F 20 52 45 54 55 52 4E 20 54 4F 20 4E 4F |):. RETURN TO NO| 00000390: 52 4D 41 4C 20 57 49 44 54 48 00 AA 0B CA 03 81 |RMAL WIDTH......| 000003A0: 4A B2 30 A4 38 3A 4C 4D B2 36 00 D2 0B D4 03 8B |J.0.8:LM.6......| 000003B0: 50 52 B2 30 A7 9F 36 2C 34 2C 36 3A 98 36 2C C7 |PR.0..6,4,6:.6,.| 000003C0: 28 32 32 29 3A A0 36 3A 8F 20 31 35 32 36 2C 38 |(22):.6:. 1526,8| 000003D0: 30 32 00 EB 0B DE 03 81 49 B2 31 A4 36 3A 8B 4A |02......I.1.6:.J| 000003E0: B2 38 AF 49 B2 33 A7 31 30 31 30 00 04 0C E8 03 |.8.I.3.1010.....| 000003F0: 98 34 2C A6 4C 4D 29 22 B0 C0 C0 C0 C0 C0 C0 22 |.4,.LM)"......."| 00000400: 3B 3A 82 49 00 20 0C F2 03 98 34 2C C7 28 38 29 |;:.I. ....4,.(8)| 00000410: 3A 8F 20 47 52 41 50 48 49 43 53 20 4D 4F 44 45 |:. GRAPHICS MODE| 00000420: 00 3E 0C FC 03 81 49 B2 31 A4 36 3A 8B 4A B2 38 |.>....I.1.6:.J.8| 00000430: AF 49 B2 33 A7 49 B2 36 3A 89 31 30 37 30 00 70 |.I.3.I.6:.1070.p| 00000440: 0C 06 04 58 24 B2 C4 28 58 28 4A AC 36 AA 49 29 |...X$..(X(J.6.I)| 00000450: 29 3A 59 24 B2 C4 28 59 28 49 AA 4A AC 36 29 29 |):Y$..(Y(I.J.6))| 00000460: 3A 58 B2 C3 28 58 24 29 3A 59 B2 C3 28 59 24 29 |:X..(X$):Y..(Y$)| 00000470: 00 82 0C 10 04 58 53 B2 36 AB 58 3A 59 53 B2 35 |.....XS.6.X:YS.5| 00000480: AB 59 00 A8 0C 1A 04 98 34 2C C7 28 31 35 29 3B |.Y......4,.(15);| 00000490: 3A 8F 20 52 45 54 55 52 4E 20 54 4F 20 4E 4F 52 |:. RETURN TO NOR| 000004A0: 4D 41 4C 20 4D 4F 44 45 00 C6 0C 24 04 98 34 2C |MAL MODE...$..4,| 000004B0: A6 58 53 29 58 24 C7 28 32 32 31 29 59 24 A6 59 |.XS)X$.(221)Y$.Y| 000004C0: 53 29 22 20 22 3B 00 CD 0C 2E 04 82 49 00 FD 0C |S)" ";......I...| 000004D0: 38 04 8B 50 52 B2 30 A7 98 34 3A 9F 36 2C 34 2C |8..PR.0..4:.6,4,| 000004E0: 36 3A 98 36 2C C7 28 33 36 29 3A A0 36 3A 8F 20 |6:.6,.(36):.6:. | 000004F0: 46 4F 52 20 31 35 32 36 2C 20 38 30 32 00 18 0D |FOR 1526, 802...| 00000500: 42 04 8B 4A B3 B1 38 A7 81 49 B2 31 A4 50 52 AA |B..J..8..I.1.PR.| 00000510: 34 3A 98 34 2C 3A 82 49 00 1F 0D 4C 04 82 4A 00 |4:.4,:.I...L..J.| 00000520: 2E 0D 56 04 8B 41 24 B3 B1 22 59 22 A7 80 00 58 |..V..A$.."Y"...X| 00000530: 0D 60 04 81 49 B2 31 A4 32 3A 98 34 3A 82 49 3A |.`..I.1.2:.4:.I:| 00000540: 81 4A B2 30 A4 38 3A 98 34 2C 22 20 20 20 20 22 |.J.0.8:.4," "| 00000550: 3B 3A 81 49 B2 31 A4 36 00 6F 0D 6A 04 8B 4A B2 |;:.I.1.6.o.j..J.| 00000560: 38 AF 49 B2 33 A7 49 B2 36 3A 89 31 31 38 30 00 |8.I.3.I.6:.1180.| 00000570: 9A 0D 74 04 5A 24 B2 C8 28 53 50 24 2C 34 AB C3 |..t.Z$..(SP$,4..| 00000580: 28 C4 28 5A 28 4A AC 36 AA 49 29 29 29 29 AA C4 |(.(Z(J.6.I))))..| 00000590: 28 5A 28 4A AC 36 AA 49 29 29 00 C6 0D 7E 04 52 |(Z(J.6.I))...~.R| 000005A0: 52 24 B2 C8 28 53 50 24 2C 34 AB C3 28 C4 28 52 |R$..(SP$,4..(.(R| 000005B0: 28 4A AC 36 AA 49 29 29 29 29 AA C4 28 52 28 4A |(J.6.I))))..(R(J| 000005C0: AC 36 AA 49 29 29 00 EB 0D 88 04 98 34 2C 5A 24 |.6.I))......4,Z$| 000005D0: 22 20 22 3B 3A 8B 52 24 B2 22 59 22 A7 98 34 2C |" ";:.R$."Y"..4,| 000005E0: 22 52 22 52 52 24 3B 22 20 22 3B 00 00 0E 92 04 |"R"RR$;" ";.....| 000005F0: 8B 52 24 B3 B1 22 59 22 A7 98 34 2C 53 50 24 3B |.R$.."Y"..4,SP$;| 00000600: 00 0D 0E 9C 04 82 49 3A 98 34 3A 82 4A 00 17 0E |......I:.4:.J...| 00000610: A6 04 98 34 3A A0 34 00 43 0E B0 04 99 22 11 50 |...4:.4.C....".P| 00000620: 52 45 53 53 20 12 20 52 20 92 20 54 4F 20 44 4F |RESS . R . TO DO| 00000630: 20 41 4E 4F 54 48 45 52 20 57 4F 52 4B 53 48 45 | ANOTHER WORKSHE| 00000640: 45 54 22 00 5E 0E BA 04 99 22 11 50 52 45 53 53 |ET".^....".PRESS| 00000650: 20 12 20 51 20 92 20 54 4F 20 51 55 49 54 00 74 | . Q . TO QUIT.t| 00000660: 0E C4 04 A1 20 4B 24 3A 8B 20 4B 24 B2 22 52 22 |.... K$:. K$."R"| 00000670: 20 A7 20 8A 00 85 0E CE 04 8B 20 4B 24 B2 22 51 | . ....... K$."Q| 00000680: 22 20 A7 20 80 00 8F 0E D8 04 89 31 32 32 30 00 |" . .......1220.| 00000690: 00 00 |.. |
..K.F.. X(50),Y(50),Z(50),R(50):SP$."
":PR.1:. SET PR=0 FOR 1526, 802.A.P.
."...DIVISION.":....Z.."ENTER A .1. FOR
UP TO 99/9":..8)".2. FOR UP TO 999/9"...
....8)".3. FOR UP TO 9999/99:";.S....A:.
A.1.A.3.720.....XL.99:ZL.102:.A.1.XL.9:Z
L.12......A.2.XL.9:ZL.112.;...."..REMAIN
DERS (Y/N)";R$:.R$.."N".R$.."Y".780.J...
."..ANSWERS (Y/N)";A$:.A$.."N".A$.."Y".7
90... ..".GENERATING PROBLEMS...":.I.1.5
0...*.X(I)..(.(0).XL).1:Z(I)..(.(0).ZL).
..4.R(I).0:.R$."Y".R(I)..(.(0).X(I))...>
.Y(I).X(I).Z(I).R(I):.Y(I).XL.(ZL.1).810
...H..I.1.870.O.R..J.1.I.1:.X(I).X(J).Y(
I).Y(J).R(I).R(J).J.I.1:.J:.810.V.\..J.]
.F..I...P..".POSITION PRINTHEAD ABOUT 1/
8 INCH"...Z.."BELOW PAPER PERFORATION.".
Q....".PRESS .ANY KEY. TO START PRINTING
"......K$:.K$."".910......4,4.-....4,G(1
4)" DIVISION PROBLEMS":. 14 I
S DOUBLE WIDE.B....4,:.4,G(14)"NAME.....
.........................".T....I.1.3:.4
,:.I......4,G(15):. RETURN TO NORMAL WID
TH...J..J.0.8:LM.6.R.T..PR.0..6,4,6:.6,G
(22): 6:. 1526,802......I.1.6:.J.8.I.3.1
010......4,.LM)".......";:.I. ....4,G(8)
:. GRAPHICS MODE.>....I.1.6:.J.8.I.3.I.6
:.1070.P...X$.D(X(J.6.I)):Y$.D(Y(I.J.6))
:X.C(X$):Y.C(Y$).....XS.6.X:YS.5.Y......
4,G(15);:. RETURN TO NORMAL MODE.F.$..4,
.XS)X$G(221)Y$.YS)" ";.M....I...8..PR.0.
.4:.6,4,6:.6,G(36): 6:. FOR 1526, 802...
B..J..8..I.1.PR.4:.4,:.I...L..J...V..A$.
."Y"...X.`..I.1.2:.4:.I:.J.0.8:.4," "
;:.I.1.6.O.J..J.8.I.3.I.6:.1180...T.Z$.H
(SP$,4.C(D(Z(J.6.I)))).D(Z(J.6.I)).F.~.R
R$.H(SP$,4.C(D(R(J.6.I)))).D(R(J.6.I))..
....4,Z$" ";:.R$."Y"..4,"R"RR$;" ";.....
.R$.."Y"..4,SP$;......I:.4:.J......4: 4.
C....".PRESS . R . TO DO ANOTHER WORKSHE
ET".^....".PRESS . Q . TO QUIT.T.D.. K$:
. K$."R" . ....N.. K$."Q" . ....X..1220.
..
> CLICK IMAGE PREVIEW FOR FULL MODAL