FACT
FILE INFORMATION
FILENAME(S): FACT
FILE TYPE(S): PRG
FILE SIZE: 530b
FIRST SEEN: 2025-11-30 21:12:22
APPEARS ON: 1 disk(s)
FILE HASH
5683df0f11819bc3a138fcbdc642be9107e2aa4726f74fb73abed177e61f67d3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RANS ISK2 | FACT | PRG | DuncanTwain | 33 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 00 00 8F 20 46 41 43 54 20 28 57 41 |..).... FACT (WA| 00000010: 59 4E 45 20 48 41 50 50 29 20 20 20 20 20 20 20 |YNE HAPP) | 00000020: 20 20 20 20 20 20 20 20 3A 00 2F 08 01 00 3A 00 | :./...:.| 00000030: 4E 08 02 00 8F 20 30 20 53 54 41 54 45 4D 45 4E |N.... 0 STATEMEN| 00000040: 54 53 2C 20 31 20 46 55 4E 43 54 49 4F 4E 00 54 |TS, 1 FUNCTION.T| 00000050: 08 03 00 3A 00 6B 08 04 00 8F 20 4B 45 59 57 4F |...:.k.... KEYWO| 00000060: 52 44 20 43 48 41 52 53 3A 20 35 00 71 08 05 00 |RD CHARS: 5.q...| 00000070: 3A 00 98 08 06 00 8F 20 4B 45 59 57 4F 52 44 20 |:...... KEYWORD | 00000080: 20 20 20 52 4F 55 54 49 4E 45 20 20 20 4C 49 4E | ROUTINE LIN| 00000090: 45 20 20 53 45 52 20 23 00 BE 08 07 00 8F 20 46 |E SER #...... F| 000000A0: 2F 46 41 43 54 20 20 20 20 20 46 41 43 54 20 20 |/FACT FACT | 000000B0: 20 20 20 20 31 35 32 33 36 20 20 32 30 32 00 C4 | 15236 202..| 000000C0: 08 08 00 3A 00 EA 08 09 00 8F 20 3D 3D 3D 3D 3D |...:...... =====| 000000D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 000000E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 F0 08 0A 00 3A |==========.....:| 000000F0: 00 09 09 72 02 2E C6 20 22 46 41 43 54 22 3A 20 |...r... "FACT": | 00000100: 2E 42 59 54 45 20 24 41 38 00 19 09 5A 06 2E 57 |.BYTE $A8...Z..W| 00000110: B0 44 20 46 41 43 54 AB 31 00 2C 09 84 3B 46 41 |.D FACT.1.,..;FA| 00000120: 43 54 20 4A 53 52 20 24 41 45 46 34 00 3A 09 86 |CT JSR $AEF4.:..| 00000130: 3B 4A 53 52 20 24 42 37 41 31 00 42 09 88 3B 54 |;JSR $B7A1.B..;T| 00000140: 58 41 00 4F 09 8A 3B 42 4E 45 20 46 41 43 31 00 |XA.O..;BNE FAC1.| 00000150: 5A 09 8C 3B 4C 44 41 20 23 31 00 6A 09 8E 3B 46 |Z..;LDA #1.j..;F| 00000160: 41 43 31 20 53 54 41 20 54 32 00 78 09 90 3B 4A |AC1 STA T2.x..;J| 00000170: 53 52 20 24 42 43 33 43 00 8B 09 92 3B 46 41 43 |SR $BC3C....;FAC| 00000180: 32 20 4A 53 52 20 24 42 42 43 41 00 96 09 94 3B |2 JSR $BBCA....;| 00000190: 44 45 43 20 54 32 00 A1 09 96 3B 4C 44 41 20 54 |DEC T2....;LDA T| 000001A0: 32 00 AC 09 98 3B 43 4D 50 20 23 32 00 B9 09 9A |2....;CMP #2....| 000001B0: 3B 42 43 43 20 46 41 43 33 00 C7 09 9C 3B 4A 53 |;BCC FAC3....;JS| 000001C0: 52 20 24 42 43 33 43 00 D4 09 9E 3B 4C 44 41 20 |R $BC3C....;LDA | 000001D0: 23 24 35 37 00 E1 09 A0 3B 4C 44 59 20 23 24 30 |#$57....;LDY #$0| 000001E0: 30 00 EF 09 A2 3B 4A 53 52 20 24 42 41 32 38 00 |0....;JSR $BA28.| 000001F0: FC 09 A4 3B 4A 4D 50 20 46 41 43 32 00 09 0A A6 |...;JMP FAC2....| 00000200: 3B 46 41 43 33 20 52 54 53 00 0F 0A A8 3B 3B 00 |;FAC3 RTS....;;.| 00000210: 00 00 |.. |
..).... FACT (WAYNE HAPP) :./...:.N.... 0 STATEMENTS, 1 FUNCTION.T ...:.K.... KEYWORD CHARS: 5.Q...:...... KEYWORD ROUTINE LINE SER #...... F /FACT FACT 15236 202.D...:.... .. ===============================.....: ...R..F "FACT": .BYTE $A8...Z..W.D FACT. 1.,..;FACT JSR $AEF4.:..;JSR $B7A1.B..;T XA.O..;BNE FAC1.Z..;LDA #1.J..;FAC1 STA T2.X..;JSR $BC3C....;FAC2 JSR $BBCA....; DEC T2....;LDA T2....;CMP #2....;BCC FAC 3.G..;JSR $BC3C.T..;LDA #$57... ;LDY #$0 0....;JSR $BA28....;JMP FAC2....;FAC3 RT S....;;...
> CLICK IMAGE PREVIEW FOR FULL MODAL