FORTG.DIVISION

FILE INFORMATION

FILENAME(S): FORTG.DIVISION

FILE TYPE(S): PRG

FILE SIZE: 912b

FIRST SEEN: 2025-12-02 23:47:50

APPEARS ON: 1 disk(s)

FILE HASH

e485a0209a4b3af84caf911d6060ef5516bd7ab23b629d148cbe97e77bc5ffe1

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
C64 MATH U STUFE	FORTG.DIVISION	PRG	swasti, flohmarkt	14	9	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 30 08 64 00 8F 20  4B 4F 4E 53 54 41 4E 54  |..0.d.. KONSTANT|
00000010: 45 20 5A 55 52 20 43 55  52 53 4F 52 53 54 45 55  |E ZUR CURSORSTEU|
00000020: 45 52 55 4E 47 20 44 45  46 49 4E 49 45 52 45 4E  |ERUNG DEFINIEREN|
00000030: 00 55 08 6E 00 43 55 24  B2 22 13 11 11 11 11 11  |.U.n.CU$."......|
00000040: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |................|
00000050: 11 11 11 11 22 00 88 08  78 00 43 52 24 B2 22 1D  |...."...x.CR$.".|
00000060: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 1D 1D 1D  |................|
00000070: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 1D 1D 1D  |................|
00000080: 1D 1D 1D 1D 1D 1D 1D 22  00 8E 08 82 00 3A 00 9F  |.......".....:..|
00000090: 08 8C 00 3A 3A 20 8F 20  45 49 4E 47 41 42 45 00  |...:: . EINGABE.|
000000A0: C1 08 96 00 99 22 93 20  20 20 12 46 4F 52 54 47  |.....".   .FORTG|
000000B0: 45 53 45 54 5A 54 45 20  44 49 56 49 53 49 4F 4E  |ESETZTE DIVISION|
000000C0: 22 00 C7 08 A0 00 99 00  03 09 AA 00 99 22 44 45  |"............"DE|
000000D0: 52 20 44 49 56 49 44 45  4E 44 20 4D 55 53 53 20  |R DIVIDEND MUSS |
000000E0: 4B 4C 45 49 4E 45 52 20  41 4C 53 20 44 45 52 20  |KLEINER ALS DER |
000000F0: 20 20 20 20 20 20 44 49  56 49 53 4F 52 20 53 45  |      DIVISOR SE|
00000100: 49 4E 21 00 09 09 B4 00  99 00 25 09 BE 00 85 22  |IN!.......%...."|
00000110: 44 49 56 49 44 45 4E 44  2C 44 49 56 49 53 4F 52  |DIVIDEND,DIVISOR|
00000120: 22 3B 5A 2C 4E 00 36 09  C8 00 8B 20 5A B1 B2 4E  |";Z,N.6.... Z..N|
00000130: 20 A7 20 31 39 30 00 58  09 D2 00 99 22 93 20 20  | . 190.X....".  |
00000140: 20 12 46 4F 52 54 47 45  53 45 54 5A 54 45 20 44  | .FORTGESETZTE D|
00000150: 49 56 49 53 49 4F 4E 22  00 5E 09 DC 00 99 00 79  |IVISION".^.....y|
00000160: 09 E6 00 99 20 C4 28 5A  29 AA 22 3A 22 AA C4 28  |.... .(Z).":"..(|
00000170: 4E 29 AA 22 3D 30 2C 22  3B 00 7F 09 F0 00 3A 00  |N)."=0,";.....:.|
00000180: A7 09 FA 00 8F 20 41 55  53 44 52 55 43 4B 50 4F  |..... AUSDRUCKPO|
00000190: 53 49 54 49 4F 4E 45 4E  20 49 4E 49 5A 49 41 4C  |SITIONEN INIZIAL|
000001A0: 49 53 49 45 52 45 4E 00  C0 09 04 01 41 4E B2 C3  |ISIEREN.....AN..|
000001B0: 28 C4 28 5A 29 29 AA C3  28 C4 28 4E 29 29 AA 34  |(.(Z))..(.(N)).4|
000001C0: 00 D1 09 0E 01 5A 31 B2  33 3A 53 31 B2 41 4E AB  |.....Z1.3:S1.AN.|
000001D0: 31 00 DA 09 18 01 42 4E  B2 34 00 F3 09 22 01 5A  |1.....BN.4...".Z|
000001E0: 32 B2 42 4E AB 31 3A 53  32 B2 C3 28 C4 28 5A 29  |2.BN.1:S2..(.(Z)|
000001F0: 29 AB 33 00 F9 09 2C 01  3A 00 0B 0A 36 01 3A 3A  |).3...,.:...6.::|
00000200: 20 8F 20 44 49 56 49 53  49 4F 4E 00 16 0A 40 01  | . DIVISION...@.|
00000210: 5A B2 5A AC 31 30 00 32  0A 4A 01 51 B2 B5 28 5A  |Z.Z.10.2.J.Q..(Z|
00000220: AD 4E 29 3A 52 B2 5A AB  51 AC 4E 3A 5A B2 52 AC  |.N):R.Z.Q.N:Z.R.|
00000230: 31 30 00 48 0A 54 01 8D  20 33 38 30 20 20 3A 8F  |10.H.T.. 380  :.|
00000240: 20 41 55 53 47 41 42 45  00 5E 0A 5E 01 A1 58 24  | AUSGABE.^.^..X$|
00000250: 3A 8B 20 58 24 B2 22 22  20 A7 20 33 35 30 00 68  |:. X$."" . 350.h|
00000260: 0A 68 01 89 20 33 33 30  00 6E 0A 72 01 3A 00 85  |.h.. 330.n.r.:..|
00000270: 0A 7C 01 3A 3A 20 8F 20  55 2D 50 52 2E 20 41 55  |.|.:: . U-PR. AU|
00000280: 53 47 41 42 45 00 8B 0A  86 01 3A 00 B8 0A 90 01  |SGABE.....:.....|
00000290: 8F 20 41 55 53 47 41 42  45 20 44 45 52 20 4E 41  |. AUSGABE DER NA|
000002A0: 45 43 48 53 54 45 4E 20  51 55 4F 54 49 45 4E 54  |ECHSTEN QUOTIENT|
000002B0: 45 4E 5A 49 46 46 45 52  00 DC 0A 9A 01 53 31 B2  |ENZIFFER.....S1.|
000002C0: 53 31 AA 31 3A 8B 20 53  31 B2 34 30 20 A7 20 5A  |S1.1:. S1.40 . Z|
000002D0: 31 B2 5A 31 AA 31 3A 53  31 B2 41 4E 00 00 0B A4  |1.Z1.1:S1.AN....|
000002E0: 01 99 20 C8 28 43 55 24  2C 5A 31 29 AA C8 28 43  |.. .(CU$,Z1)..(C|
000002F0: 52 24 2C 53 31 29 AA C9  28 C4 28 51 29 2C 31 29  |R$,S1)..(.(Q),1)|
00000300: 00 06 0B AE 01 3A 00 1F  0B B8 01 8F 20 41 55 53  |.....:...... AUS|
00000310: 47 41 42 45 20 44 45 53  20 52 45 53 54 45 53 00  |GABE DES RESTES.|
00000320: 33 0B C2 01 53 32 B2 53  32 AA 31 3A 5A 32 B2 5A  |3...S2.S2.1:Z2.Z|
00000330: 32 AA 31 00 54 0B CC 01  8B 20 5A 32 B2 32 35 20  |2.1.T.... Z2.25 |
00000340: A7 20 53 32 B2 30 3A 42  4E B2 42 4E AA 34 3A 5A  |. S2.0:BN.BN.4:Z|
00000350: 32 B2 42 4E 00 81 0B D6  01 99 20 C8 28 43 55 24  |2.BN...... .(CU$|
00000360: 2C 5A 32 29 AA C8 28 43  52 24 2C 53 32 29 AA C9  |,Z2)..(CR$,S2)..|
00000370: 28 22 20 20 22 AA C4 28  52 29 AA 22 30 22 2C 34  |("  "..(R)."0",4|
00000380: 29 00 87 0B DB 01 3A 00  8D 0B E0 01 8E 00 00 00  |).....:.........|

..0.D.. KONSTANTE ZUR CURSORSTEUERUNG DE
FINIEREN.U.N.CU$."......................
...."...X.CR$.".........................
...............".....:.....:: . EINGABE.
A....".   .FORTGESETZTE DIVISION".G. ...
....."DER DIVIDEND MUSS KLEINER ALS DER 
      DIVISOR SEIN!.......%...."DIVIDEND
,DIVISOR";Z,N.6.H.. Z..N . 190.X.R..".  
 .FORTGESETZTE DIVISION".^.....Y.... D(Z
).":".D(N)."=0,";....:...... AUSDRUCKPO
SITIONEN INIZIALISIEREN.....AN.C(D(Z)).C
(D(N)).4.Q...Z1.3:S1.AN.1.Z...BN.4...".Z
2.BN.1:S2.C(D(Z)).3...,.:...6.:: . DIVIS
ION...@.Z.Z.10.2.J.Q..(Z.N):R.Z.Q.N:Z.R.
10.H.T.. 380  :. AUSGABE.^.^..X$:. X$.""
 . 350.H.H.. 330.N.R.:...|.:: . U-PR. AU
SGABE.....:...... AUSGABE DER NAECHSTEN 
QUOTIENTENZIFFER.....S1.S1.1:. S1.40 . Z
1.Z1.1:S1.AN...... H(CU$,Z1).H(CR$,S1).I
(D(Q),1).....:...... AUSGABE DES RESTES.
3.B.S2.S2.1:Z2.Z2.1.T.L.. Z2.25 . S2.0:B
N.BN.4:Z2.BN...V.. H(CU$,Z2).H(CR$,S2).I
("  ".D(R)."0",4).....:.........

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL