CREA7-6
FILE INFORMATION
FILENAME(S): CREA7-6
FILE TYPE(S): PRG
FILE SIZE: 1.3K
FIRST SEEN: 2025-11-30 19:55:21
APPEARS ON: 1 disk(s)
FILE HASH
f1b9cc6b3ccca4fd8380da45143a213813088dc5b4981b9dec412a058ea6a2d8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GROG | CREA7-6 | PRG | Curtcool, Hans Curt | 7 | 15 | 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 37 2D 36 22 00 40 08 6E 00 9F 32 2C 38 2C 32 |-7-6".@.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 F1 09 F5 03 |.... "* *".....|
000001B0: 83 20 22 2A 20 20 20 20 20 D7 45 20 56 45 52 59 |. "* .E VERY|
000001C0: 20 4D 55 43 48 20 44 49 53 4C 49 4B 45 20 53 45 | MUCH DISLIKE SE|
000001D0: 45 49 4E 47 20 59 4F 55 52 20 41 43 43 4F 55 4E |EING YOUR ACCOUN|
000001E0: 54 20 47 4F 20 55 4E 50 41 49 44 20 46 4F 52 26 |T GO UNPAID FOR&|
000001F0: 22 00 0E 0A F6 03 83 20 22 24 20 53 4F 20 4C 4F |"...... "$ SO LO|
00000200: 4E 47 20 41 20 54 49 4D 45 20 41 53 2A 22 00 59 |NG A TIME AS*".Y|
00000210: 0A F7 03 83 20 22 2A 20 49 54 20 4D 41 59 20 43 |.... "* IT MAY C|
00000220: 41 55 53 45 20 59 4F 55 20 54 4F 20 48 45 53 49 |AUSE YOU TO HESI|
00000230: 54 41 54 45 20 49 4E 20 4F 52 44 45 52 49 4E 47 |TATE IN ORDERING|
00000240: 20 4D 4F 52 45 20 4D 41 54 45 52 49 41 4C 20 46 | MORE MATERIAL F|
00000250: 52 4F 4D 20 55 53 2E 2A 22 00 66 0A F8 03 83 20 |ROM US.*".f.... |
00000260: 22 2A 20 20 2A 22 00 AF 0A F9 03 83 20 22 2A 20 |"* *"...... "* |
00000270: 20 20 20 20 D7 48 45 4E 20 59 4F 55 20 48 41 56 | .HEN YOU HAV|
00000280: 45 20 42 45 45 4E 20 4F 57 49 4E 47 20 55 53 20 |E BEEN OWING US |
00000290: 46 4F 52 20 53 45 56 45 52 41 4C 20 4D 4F 4E 54 |FOR SEVERAL MONT|
000002A0: 48 53 20 59 4F 55 20 4D 41 59 20 42 45 26 22 00 |HS YOU MAY BE&".|
000002B0: C3 0A FA 03 83 20 22 24 20 54 49 4D 49 44 20 49 |..... "$ TIMID I|
000002C0: 4E 2A 22 00 0C 0B FB 03 83 20 22 2A 20 52 45 4F |N*"...... "* REO|
000002D0: 52 44 45 52 49 4E 47 20 45 56 45 4E 20 54 48 4F |RDERING EVEN THO|
000002E0: 55 47 48 20 59 4F 55 20 41 52 45 20 44 41 4E 47 |UGH YOU ARE DANG|
000002F0: 45 52 4F 55 53 4C 59 20 4C 4F 57 20 49 4E 20 53 |EROUSLY LOW IN S|
00000300: 4F 4D 45 20 4F 46 20 4F 55 52 26 22 00 28 0B FC |OME OF OUR&".(..|
00000310: 03 83 20 22 24 20 4D 45 52 43 48 41 4E 44 49 53 |.. "$ MERCHANDIS|
00000320: 45 2E 20 20 C9 4E 2A 22 00 4B 0B FD 03 83 20 22 |E. .N*".K.... "|
00000330: 2A 20 54 48 41 54 20 43 41 53 45 20 57 45 20 42 |* THAT CASE WE B|
00000340: 4F 54 48 20 4C 4F 53 45 2E 2A 22 00 58 0B FE 03 |OTH LOSE.*".X...|
00000350: 83 20 22 2A 20 20 2A 22 00 A1 0B FF 03 83 20 22 |. "* *"...... "|
00000360: 2A 20 20 20 20 20 C6 4F 52 20 54 48 41 54 20 52 |* .OR THAT R|
00000370: 45 41 53 4F 4E 20 57 45 20 57 49 4C 4C 20 42 4F |EASON WE WILL BO|
00000380: 54 48 20 42 45 4E 45 46 49 54 20 49 46 20 59 4F |TH BENEFIT IF YO|
00000390: 55 20 53 45 4E 44 20 41 20 43 48 45 51 55 45 26 |U SEND A CHEQUE&|
000003A0: 22 00 B2 0B 00 04 83 20 22 24 20 46 4F 52 20 24 |"...... "$ FOR $|
000003B0: 24 22 00 BE 0B 01 04 83 20 22 24 20 2A 22 00 E0 |$"...... "$ *"..|
000003C0: 0B 02 04 83 20 22 2A 20 54 4F 20 50 41 59 20 4F |.... "* TO PAY O|
000003D0: 55 52 20 49 4E 56 4F 49 43 45 20 4F 46 20 24 22 |UR INVOICE OF $"|
000003E0: 00 1C 0C 03 04 83 20 22 24 2E 20 20 D7 48 59 20 |...... "$. .HY |
000003F0: 4E 4F 54 20 43 48 45 43 4B 20 4F 56 45 52 20 59 |NOT CHECK OVER Y|
00000400: 4F 55 52 20 53 54 4F 43 4B 20 4E 4F 57 20 20 41 |OUR STOCK NOW A|
00000410: 4E 44 20 4D 41 4B 45 20 55 50 2A 22 00 65 0C 04 |ND MAKE UP*".e..|
00000420: 04 83 20 22 2A 20 41 4E 20 4F 52 44 45 52 20 41 |.. "* AN ORDER A|
00000430: 4E 44 20 4D 41 49 4C 20 49 54 20 57 49 54 48 20 |ND MAIL IT WITH |
00000440: 59 4F 55 52 20 43 48 45 51 55 45 20 49 4E 20 54 |YOUR CHEQUE IN T|
00000450: 48 45 20 45 4E 56 45 4C 4F 50 45 20 57 45 20 41 |HE ENVELOPE WE A|
00000460: 52 45 20 26 22 00 7B 0C 05 04 83 20 22 24 45 4E |RE &".{.... "$EN|
00000470: 43 4C 4F 53 49 4E 47 3F 20 2A 22 00 88 0C 06 04 |CLOSING? *".....|
00000480: 83 20 22 2A 20 20 2A 22 00 95 0C 07 04 83 20 22 |. "* *"...... "|
00000490: 2A 20 20 2A 22 00 DD 0C 08 04 83 20 22 2A 20 20 |* *"...... "* |
000004A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004C0: 20 20 20 20 20 20 20 20 20 20 20 D9 4F 55 52 53 | .OURS|
000004D0: 20 56 45 52 59 20 54 52 55 4C 59 2A 22 00 EA 0C | VERY TRULY*"...|
000004E0: 09 04 83 20 22 2A 20 20 2A 22 00 F7 0C 0A 04 83 |... "* *"......|
000004F0: 20 22 2A 20 20 2A 22 00 04 0D 0B 04 83 20 22 2A | "* *"...... "*|
00000500: 20 20 2A 22 00 10 0D 10 04 83 20 22 45 4F 46 22 | *"...... "EOF"|
00000510: 00 00 00 |... |
..%.D.. 15,8,15:. A$(49):F$."COM-7-6".@.
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 $
"...... "$; *"...... "* *"...... "*
WE VERY MUCH DISLIKE SEEING YOUR ACCOUN
T GO UNPAID FOR&"...... "$ SO LONG A TIM
E AS*".Y.... "* IT MAY CAUSE YOU TO HESI
TATE IN ORDERING MORE MATERIAL FROM US.*
".F.... "* *"...... "* WHEN YOU HAV
E BEEN OWING US FOR SEVERAL MONTHS YOU M
AY BE&".C.... "$ TIMID IN*"...... "* REO
RDERING EVEN THOUGH YOU ARE DANGEROUSLY
LOW IN SOME OF OUR&".(.... "$ MERCHANDIS
E. IN*".K.... "* THAT CASE WE BOTH LOSE
.*".X.... "* *"...... "* FOR THAT R
EASON WE WILL BOTH BENEFIT IF YOU SEND A
CHEQUE&"...... "$ FOR $$"...... "$ *"..
.... "* TO PAY OUR INVOICE OF $"...... "
$. WHY NOT CHECK OVER YOUR STOCK NOW A
ND MAKE UP*".E.... "* AN ORDER AND MAIL
IT WITH YOUR CHEQUE IN THE ENVELOPE WE A
RE &".{.... "$ENCLOSING? *"...... "* *"
...... "* *"...... "*
YOURS VERY TR
ULY*"...... "* *"...... "* *"...... "*
*"...... "EOF"...
> CLICK IMAGE PREVIEW FOR FULL MODAL