CREA6-1X

FILE INFORMATION

FILENAME(S): CREA6-1X

FILE TYPE(S): PRG

FILE SIZE: 1.1K

FIRST SEEN: 2025-11-30 19:55:20

APPEARS ON: 1 disk(s)

FILE HASH

6c902a798bdbf599274f9b2d1340dc3f079896b36bea372c4c3f2b9122d993cb

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
GROG	CREA6-1X	PRG	Curtcool, Hans Curt	20	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 25 08 64 00 9F 20  31 35 2C 38 2C 31 35 3A  |..%.d.. 15,8,15:|
00000010: 86 20 41 24 28 34 39 29  3A 46 24 B2 22 43 4F 4D  |. A$(49):F$."COM|
00000020: 2D 36 2D 31 22 00 40 08  6E 00 9F 32 2C 38 2C 32  |-6-1".@.n..2,8,2|
00000030: 2C 22 40 4F 3A 22 AA 46  24 AA 22 2C 53 2C 57 22  |,"@O:".F$.",S,W"|
00000040: 00 58 08 78 00 84 31 35  2C 45 31 24 2C 45 32 24  |.X.x..15,E1$,E2$|
00000050: 2C 45 33 24 2C 45 34 24  00 7B 08 7A 00 8B 20 C5  |,E3$,E4$.{.z.. .|
00000060: 28 45 31 24 29 B1 30 20  A7 20 99 20 45 31 24 2C  |(E1$).0 . . E1$,|
00000070: 45 32 24 2C 45 33 24 2C  45 34 24 00 85 08 7D 00  |E2$,E3$,E4$...}.|
00000080: 4E 53 B2 33 35 00 8B 08  82 00 8C 00 A6 08 8C 00  |NS.35...........|
00000090: 87 20 41 24 3A 8B 20 41  24 B3 B1 22 45 4F 46 22  |. A$:. A$.."EOF"|
000000A0: 20 A7 20 31 35 35 00 C0  08 96 00 8B 20 41 24 B2  | . 155...... A$.|
000000B0: 22 45 4F 46 22 20 A7 20  A0 32 3A 89 20 31 36 30  |"EOF" . .2:. 160|
000000C0: 00 D0 08 9B 00 98 32 2C  41 24 3A 89 20 31 34 30  |......2,A$:. 140|
000000D0: 00 EB 08 A0 00 9F 20 32  2C 38 2C 32 2C 22 4F 3A  |...... 2,8,2,"O:|
000000E0: 22 AA 46 24 AA 22 2C 53  2C 52 22 00 0D 09 AA 00  |".F$.",S,R".....|
000000F0: 81 20 4B B2 30 20 A4 20  4E 53 3A 84 32 2C 41 24  |. K.0 . NS:.2,A$|
00000100: 28 4B 29 3A 99 41 24 28  4B 29 3A 82 4B 00 13 09  |(K):.A$(K):.K...|
00000110: C8 00 80 00 1F 09 E9 03  83 20 22 2A 20 24 22 00  |......... "* $".|
00000120: 2B 09 EA 03 83 20 22 24  20 2A 22 00 37 09 EB 03  |+.... "$ *".7...|
00000130: 83 20 22 2A 20 24 22 00  43 09 EC 03 83 20 22 24  |. "* $".C.... "$|
00000140: 20 2A 22 00 4F 09 ED 03  83 20 22 2A 20 24 22 00  | *".O.... "* $".|
00000150: 5B 09 EE 03 83 20 22 24  20 2A 22 00 67 09 EF 03  |[.... "$ *".g...|
00000160: 83 20 22 2A 20 24 22 00  73 09 F0 03 83 20 22 24  |. "* $".s.... "$|
00000170: 20 2A 22 00 80 09 F1 03  83 20 22 2A 20 20 2A 22  | *"...... "*  *"|
00000180: 00 91 09 F2 03 83 20 22  2A 20 C4 45 41 52 20 24  |...... "* .EAR $|
00000190: 22 00 9E 09 F3 03 83 20  22 24 3B 20 2A 22 00 AB  |"...... "$; *"..|
000001A0: 09 F4 03 83 20 22 2A 20  20 2A 22 00 E1 09 F5 03  |.... "*  *".....|
000001B0: 83 20 22 2A 20 20 20 20  20 CF 4E 20 59 4F 55 52  |. "*     .N YOUR|
000001C0: 20 52 45 43 45 4E 54 20  49 4E 56 4F 49 43 45 20  | RECENT INVOICE |
000001D0: C9 20 57 41 53 20 43 48  41 52 47 45 44 20 24 24  |. WAS CHARGED $$|
000001E0: 22 00 F1 09 F6 03 83 20  22 24 20 46 4F 52 20 24  |"...... "$ FOR $|
000001F0: 22 00 07 0A F7 03 83 20  22 24 20 C9 20 52 45 43  |"...... "$ . REC|
00000200: 45 49 56 45 44 2A 22 00  1C 0A F8 03 83 20 22 2A  |EIVED*"...... "*|
00000210: 20 46 52 4F 4D 20 59 4F  55 2E 2A 22 00 29 0A F9  | FROM YOU.*".)..|
00000220: 03 83 20 22 2A 20 20 2A  22 00 4F 0A FA 03 83 20  |.. "*  *".O.... |
00000230: 22 2A 20 20 20 20 20 D4  48 49 53 20 42 49 4C 4C  |"*     .HIS BILL|
00000240: 20 57 41 53 20 50 41 49  44 20 4F 4E 20 24 22 00  | WAS PAID ON $".|
00000250: 6F 0A FB 03 83 20 22 24  20 42 59 20 4D 59 20 43  |o.... "$ BY MY C|
00000260: 48 45 51 55 45 20 4F 4E  20 54 48 45 20 24 22 00  |HEQUE ON THE $".|
00000270: 7B 0A FC 03 83 20 22 24  2E 2A 22 00 C3 0A FD 03  |{.... "$.*".....|
00000280: 83 20 22 24 20 D4 48 45  20 43 41 4E 43 45 4C 4C  |. "$ .HE CANCELL|
00000290: 45 44 20 43 48 45 51 55  45 20 57 41 53 20 52 45  |ED CHEQUE WAS RE|
000002A0: 54 55 52 4E 45 44 20 57  49 54 48 20 4D 59 20 42  |TURNED WITH MY B|
000002B0: 41 4E 4B 20 53 54 41 54  45 4D 45 4E 54 20 49 4E  |ANK STATEMENT IN|
000002C0: 20 24 22 00 CF 0A FE 03  83 20 22 24 20 2A 22 00  | $"...... "$ *".|
000002D0: 13 0B FF 03 83 20 22 2A  20 41 4E 44 20 54 48 45  |..... "* AND THE|
000002E0: 20 4E 45 58 54 20 44 41  59 20 C9 20 52 45 43 45  | NEXT DAY . RECE|
000002F0: 49 56 45 44 20 59 4F 55  52 20 42 49 4C 4C 20 53  |IVED YOUR BILL S|
00000300: 48 4F 57 49 4E 47 20 54  48 45 20 41 4D 4F 55 4E  |HOWING THE AMOUN|
00000310: 54 26 22 00 2C 0B 00 04  83 20 22 24 20 53 54 49  |T&".,.... "$ STI|
00000320: 4C 4C 20 55 4E 50 41 49  44 2E 2A 22 00 39 0B 01  |LL UNPAID.*".9..|
00000330: 04 83 20 22 2A 20 20 2A  22 00 80 0B 02 04 83 20  |.. "*  *"...... |
00000340: 22 2A 20 20 20 20 20 D7  4F 55 4C 44 20 59 4F 55  |"*     .OULD YOU|
00000350: 20 50 4C 45 41 53 45 20  53 45 45 20 54 48 41 54  | PLEASE SEE THAT|
00000360: 20 54 48 45 20 50 41 59  4D 45 4E 54 20 49 53 20  | THE PAYMENT IS |
00000370: 43 52 45 44 49 54 45 44  20 54 4F 20 4D 59 26 22  |CREDITED TO MY&"|
00000380: 00 A1 0B 03 04 83 20 22  24 20 41 43 43 4F 55 4E  |...... "$ ACCOUN|
00000390: 54 20 53 4F 20 54 48 41  54 20 C9 20 41 4D 20 2A  |T SO THAT . AM *|
000003A0: 22 00 BE 0B 04 04 83 20  22 2A 20 4E 4F 54 20 42  |"...... "* NOT B|
000003B0: 49 4C 4C 45 44 20 41 47  41 49 4E 2E 2A 22 00 CB  |ILLED AGAIN.*"..|
000003C0: 0B 05 04 83 20 22 2A 20  20 2A 22 00 D8 0B 06 04  |.... "*  *".....|
000003D0: 83 20 22 2A 20 20 2A 22  00 25 0C 07 04 83 20 22  |. "*  *".%.... "|
000003E0: 2A 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |*               |
000003F0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000400: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000410: 20 20 20 D9 4F 55 52 53  20 56 45 52 59 20 54 52  |   .OURS VERY TR|
00000420: 55 4C 59 2A 22 00 32 0C  08 04 83 20 22 2A 20 20  |ULY*".2.... "*  |
00000430: 2A 22 00 3F 0C 09 04 83  20 22 2A 20 20 2A 22 00  |*".?.... "*  *".|
00000440: 4C 0C 0A 04 83 20 22 2A  20 20 2A 22 00 59 0C 0B  |L.... "*  *".Y..|
00000450: 04 83 20 22 2A 20 20 2A  22 00 65 0C 10 04 83 20  |.. "*  *".e.... |
00000460: 22 45 4F 46 22 00 00 00                           |"EOF"...        |

..%.D.. 15,8,15:. A$(49):F$."COM-6-1".@.
N..2,8,2,"@O:".F$.",S,W".X.X..15,E1$,E2$
,E3$,E4$.{.Z.. E(E1$).0 . . E1$,E2$,E3$,
E4$...}.NS.35............ A$:. A$.."EOF"
 . 155...... A$."EOF" .  2:. 160.P....2,
A$:. 140... .. 2,8,2,"O:".F$.",S,R".....
. K.0 . NS:.2,A$(K):.A$(K):.K...H.......
. "* $".+.... "$ *".7.... "* $".C.... "$
 *".O.... "* $".[.... "$ *".G.... "* $".
S.... "$ *"...... "*  *"...... "* DEAR $
"...... "$; *"...... "*  *"...... "*    
 ON YOUR RECENT INVOICE I WAS CHARGED $$
"...... "$ FOR $"...... "$ I RECEIVED*".
..... "* FROM YOU.*".).... "*  *".O.... 
"*     THIS BILL WAS PAID ON $".O.... "$
 BY MY CHEQUE ON THE $".{.... "$.*".C...
. "$ THE CANCELLED CHEQUE WAS RETURNED W
ITH MY BANK STATEMENT IN $".O.... "$ *".
..... "* AND THE NEXT DAY I RECEIVED YOU
R BILL SHOWING THE AMOUNT&".,.... "$ STI
LL UNPAID.*".9.... "*  *"...... "*     W
OULD YOU PLEASE SEE THAT THE PAYMENT IS 
CREDITED TO MY&"...... "$ ACCOUNT SO THA
T I AM *"...... "* NOT BILLED AGAIN.*".K
.... "*  *".X.... "*  *".%.... "*       
                                        
   YOURS VERY TRULY*".2.... "*  *".?....
 "*  *".L.... "*  *".Y.... "*  *".E.... 
"EOF"...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL