CREA3-8

FILE INFORMATION

FILENAME(S): CREA3-8

FILE TYPE(S): PRG

FILE SIZE: 1.1K

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

APPEARS ON: 1 disk(s)

FILE HASH

3b6bff1cafd3f734febb8ca167250d09af1edcdd4c631c66273cf764d02b5125

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
GROG	CREA3-8	PRG	Curtcool, Hans Curt	24	2	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 50 41 59  |. A$(49):F$."PAY|
00000020: 2D 33 2D 38 22 00 40 08  6E 00 9F 32 2C 38 2C 32  |-3-8".@.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 20 20 2A 22 00 AB  |"...... "$  *"..|
000001A0: 09 F4 03 83 20 22 2A 20  20 2A 22 00 CC 09 F5 03  |.... "*  *".....|
000001B0: 83 20 22 2A 20 20 20 20  20 D9 4F 55 52 20 43 48  |. "*     .OUR CH|
000001C0: 45 51 55 45 20 46 4F 52  20 24 24 22 00 F8 09 F6  |EQUE FOR $$"....|
000001D0: 03 83 20 22 24 20 41 53  20 50 41 59 4D 45 4E 54  |.. "$ AS PAYMENT|
000001E0: 20 4F 46 20 4F 55 52 20  49 4E 56 4F 49 43 45 20  | OF OUR INVOICE |
000001F0: 44 41 54 45 44 20 24 22  00 0D 0A F7 03 83 20 22  |DATED $"...... "|
00000200: 24 20 49 53 20 41 50 50  52 45 2D 2A 22 00 3D 0A  |$ IS APPRE-*".=.|
00000210: F8 03 83 20 22 2A 20 43  49 41 54 45 44 2E 20 C8  |... "* CIATED. .|
00000220: 4F 57 45 56 45 52 20 57  45 20 43 41 4E 4E 4F 54  |OWEVER WE CANNOT|
00000230: 20 41 4C 4C 4F 57 20 54  48 45 20 24 22 00 6D 0A  | ALLOW THE $".m.|
00000240: F9 03 83 20 22 24 25 20  44 49 53 43 4F 55 4E 54  |... "$% DISCOUNT|
00000250: 20 44 45 44 55 43 54 45  44 20 42 45 43 41 55 53  | DEDUCTED BECAUS|
00000260: 45 20 54 48 49 53 20 52  45 50 2D 2A 22 00 B6 0A  |E THIS REP-*"...|
00000270: FA 03 83 20 22 2A 20 52  45 53 45 4E 54 53 20 41  |... "* RESENTS A|
00000280: 20 50 52 45 4D 49 55 4D  20 46 4F 52 20 50 52 4F  | PREMIUM FOR PRO|
00000290: 4D 50 54 20 50 41 59 4D  45 4E 54 20 41 4E 44 20  |MPT PAYMENT AND |
000002A0: 43 41 4E 20 42 45 20 44  45 44 55 43 54 45 44 20  |CAN BE DEDUCTED |
000002B0: 4F 4E 4C 59 26 22 00 D2  0A FB 03 83 20 22 24 20  |ONLY&"...... "$ |
000002C0: 57 48 45 4E 20 54 48 45  20 50 41 59 4D 45 4E 54  |WHEN THE PAYMENT|
000002D0: 2A 22 00 EE 0A FC 03 83  20 22 2A 20 49 53 20 44  |*"...... "* IS D|
000002E0: 41 54 45 44 20 57 49 54  48 49 4E 20 24 22 00 35  |ATED WITHIN $".5|
000002F0: 0B FD 03 83 20 22 24 20  44 41 59 53 20 4F 46 20  |.... "$ DAYS OF |
00000300: 54 48 45 20 44 41 54 45  20 4F 46 20 49 4E 56 4F  |THE DATE OF INVO|
00000310: 49 43 49 4E 47 2E 20 20  D7 45 20 48 4F 50 45 20  |ICING.  .E HOPE |
00000320: 59 4F 55 20 57 49 4C 4C  20 55 4E 44 45 52 53 54  |YOU WILL UNDERST|
00000330: 41 4E 44 2A 22 00 53 0B  FE 03 83 20 22 2A 20 57  |AND*".S.... "* W|
00000340: 48 59 20 57 45 20 43 41  4E 27 54 20 41 4C 4C 4F  |HY WE CAN'T ALLO|
00000350: 57 26 22 00 94 0B FF 03  83 20 22 24 20 53 55 43  |W&"...... "$ SUC|
00000360: 48 20 41 20 44 49 53 43  4F 55 4E 54 2E 20 D7 45  |H A DISCOUNT. .E|
00000370: 20 57 4F 55 4C 44 20 41  50 50 52 45 43 49 41 54  | WOULD APPRECIAT|
00000380: 45 20 59 4F 55 52 20 43  48 45 51 55 45 20 46 4F  |E YOUR CHEQUE FO|
00000390: 52 20 2A 22 00 A1 0B 00  04 83 20 22 2A 20 24 24  |R *"...... "* $$|
000003A0: 22 00 CA 0B 01 04 83 20  22 24 20 41 54 20 59 4F  |"...... "$ AT YO|
000003B0: 55 52 20 45 41 52 4C 49  45 53 54 20 43 4F 4E 56  |UR EARLIEST CONV|
000003C0: 45 4E 49 45 4E 43 45 2E  2A 22 00 D7 0B 02 04 83  |ENIENCE.*"......|
000003D0: 20 22 2A 20 20 2A 22 00  E4 0B 03 04 83 20 22 2A  | "*  *"...... "*|
000003E0: 20 20 2A 22 00 2C 0C 04  04 83 20 22 2A 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 20 20 20 20 20  20 20 D9 4F 55 52 53 20  |          .OURS |
00000420: 56 45 52 59 20 54 52 55  4C 59 2A 22 00 39 0C 05  |VERY TRULY*".9..|
00000430: 04 83 20 22 2A 20 20 2A  22 00 46 0C 06 04 83 20  |.. "*  *".F.... |
00000440: 22 2A 20 20 2A 22 00 53  0C 07 04 83 20 22 2A 20  |"*  *".S.... "* |
00000450: 20 2A 22 00 60 0C 08 04  83 20 22 2A 20 20 2A 22  | *".`.... "*  *"|
00000460: 00 6C 0C 10 04 83 20 22  45 4F 46 22 00 00 00     |.l.... "EOF"... |

..%.D.. 15,8,15:. A$(49):F$."PAY-3-8".@.
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 $
"...... "$  *"...... "*  *".L.... "*    
 YOUR CHEQUE FOR $$"...... "$ AS PAYMENT
 OF OUR INVOICE DATED $"...... "$ IS APP
RE-*".=.... "* CIATED. HOWEVER WE CANNOT
 ALLOW THE $".M.... "$% DISCOUNT DEDUCTE
D BECAUSE THIS REP-*"...... "* RESENTS A
 PREMIUM FOR PROMPT PAYMENT AND CAN BE D
EDUCTED ONLY&".R.... "$ WHEN THE PAYMENT
*"...... "* IS DATED WITHIN $".5.... "$ 
DAYS OF THE DATE OF INVOICING.  WE HOPE 
YOU WILL UNDERSTAND*".S.... "* WHY WE CA
N'T ALLOW&"...... "$ SUCH A DISCOUNT. WE
 WOULD APPRECIATE YOUR CHEQUE FOR *"....
.. "* $$".J.... "$ AT YOUR EARLIEST CONV
ENIENCE.*".W.... "*  *"...... "*  *".,..
.. "*                                   
          YOURS VERY TRULY*".9.... "*  *
".F.... "*  *".S.... "*  *".`.... "*  *"
.L.... "EOF"...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL