INSTANT.LOGO

FILE INFORMATION

FILENAME(S): INSTANT.LOGO

FILE TYPE(S): PRG

FILE SIZE: 1.8K

FIRST SEEN: 2025-10-19 22:48:23

APPEARS ON: 8 disk(s)

FILE HASH

cccadcfc3e11d39967190fadf9fe325ed0ffcc1385df6392ffb2b6f4347cae3f

FOUND ON DISKS (8 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
UTILITIES DISK	INSTANT.LOGO	PRG	Radd Maxx	22	17	DOWNLOAD FILE
COMMODORE LOGO	INSTANT.LOGO	PRG	High Voltage Complete C64 Collection	26	5	DOWNLOAD FILE
LOGO	INSTANT.LOGO	PRG	Curtcool, LPN	10	16	DOWNLOAD FILE
BLACKSOFT 025 A	INSTANT.LOGO	PRG	DuncanTwain	10	16	DOWNLOAD FILE
CBM 64 LOGO	INSTANT.LOGO	PRG	DuncanTwain	22	1	DOWNLOAD FILE
HENNIE 521	INSTANT.LOGO	PRG	DuncanTwain	22	17	DOWNLOAD FILE
TIGA	INSTANT.LOGO	PRG	DuncanTwain	28	8	DOWNLOAD FILE
0076B	INSTANT.LOGO	PRG	hedning, Kaevlinge	4	3	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 53 45 54  55 50 0D 20 4D 41 4B 45  |. TO SETUP. MAKE|
00000010: 20 22 48 49 53 54 4F 52  59 20 5B 5D 0D 20 44 52  | "HISTORY []. DR|
00000020: 41 57 0D 20 49 4E 53 54  41 4E 54 2E 43 4F 4D 4D  |AW. INSTANT.COMM|
00000030: 41 4E 44 0D 45 4E 44 0D  0D 54 4F 20 49 4E 53 54  |AND.END..TO INST|
00000040: 41 4E 54 2E 43 4F 4D 4D  41 4E 44 0D 20 43 4F 4D  |ANT.COMMAND. COM|
00000050: 4D 41 4E 44 20 52 45 41  44 43 48 41 52 41 43 54  |MAND READCHARACT|
00000060: 45 52 0D 20 49 4E 53 54  41 4E 54 2E 43 4F 4D 4D  |ER. INSTANT.COMM|
00000070: 41 4E 44 0D 45 4E 44 0D  0D 54 4F 20 43 4F 4D 4D  |AND.END..TO COMM|
00000080: 41 4E 44 20 3A 43 4F 4D  0D 20 49 46 20 3A 43 4F  |AND :COM. IF :CO|
00000090: 4D 20 3D 20 22 46 20 52  55 4E 2E 41 4E 44 2E 52  |M = "F RUN.AND.R|
000000A0: 45 43 4F 52 44 20 5B 46  4F 52 57 41 52 44 20 31  |ECORD [FORWARD 1|
000000B0: 30 5D 20 53 54 4F 50 0D  20 49 46 20 3A 43 4F 4D  |0] STOP. IF :COM|
000000C0: 20 3D 20 22 52 20 52 55  4E 2E 41 4E 44 2E 52 45  | = "R RUN.AND.RE|
000000D0: 43 4F 52 44 20 5B 52 49  47 48 54 20 33 30 5D 20  |CORD [RIGHT 30] |
000000E0: 53 54 4F 50 0D 20 49 46  20 3A 43 4F 4D 20 3D 20  |STOP. IF :COM = |
000000F0: 22 4C 20 52 55 4E 2E 41  4E 44 2E 52 45 43 4F 52  |"L RUN.AND.RECOR|
00000100: 44 20 5B 4C 45 46 54 20  33 30 5D 20 53 54 4F 50  |D [LEFT 30] STOP|
00000110: 0D 20 49 46 20 3A 43 4F  4D 20 3D 20 22 44 20 55  |. IF :COM = "D U|
00000120: 4E 44 4F 41 4C 4C 20 53  54 4F 50 0D 20 49 46 20  |NDOALL STOP. IF |
00000130: 3A 43 4F 4D 20 3D 20 22  55 20 55 4E 44 4F 20 53  |:COM = "U UNDO S|
00000140: 54 4F 50 0D 20 49 46 20  3A 43 4F 4D 20 3D 20 22  |TOP. IF :COM = "|
00000150: 4E 20 4C 45 41 52 4E 20  53 54 4F 50 0D 20 49 46  |N LEARN STOP. IF|
00000160: 20 3A 43 4F 4D 20 3D 20  22 50 20 41 53 4B 20 53  | :COM = "P ASK S|
00000170: 54 4F 50 0D 20 49 46 20  3A 43 4F 4D 20 3D 20 22  |TOP. IF :COM = "|
00000180: 43 20 53 43 52 45 45 4E  20 53 54 4F 50 0D 20 49  |C SCREEN STOP. I|
00000190: 46 20 3A 43 4F 4D 20 3D  20 22 3F 20 48 45 4C 50  |F :COM = "? HELP|
000001A0: 0D 45 4E 44 0D 0D 54 4F  20 55 4E 44 4F 0D 20 49  |.END..TO UNDO. I|
000001B0: 46 20 3A 48 49 53 54 4F  52 59 20 3D 20 5B 5D 20  |F :HISTORY = [] |
000001C0: 53 54 4F 50 0D 20 4D 41  4B 45 20 22 48 49 53 54  |STOP. MAKE "HIST|
000001D0: 4F 52 59 20 42 55 54 4C  41 53 54 20 3A 48 49 53  |ORY BUTLAST :HIS|
000001E0: 54 4F 52 59 0D 20 44 52  41 57 0D 20 52 55 4E 2E  |TORY. DRAW. RUN.|
000001F0: 41 4C 4C 20 3A 48 49 53  54 4F 52 59 0D 45 4E 44  |ALL :HISTORY.END|
00000200: 0D 0D 54 4F 20 53 43 52  45 45 4E 0D 20 50 52 49  |..TO SCREEN. PRI|
00000210: 4E 54 20 5B 57 48 41 54  20 43 4F 4C 4F 52 20 44  |NT [WHAT COLOR D|
00000220: 4F 20 59 4F 55 20 57 41  4E 54 20 54 4F 20 4D 41  |O YOU WANT TO MA|
00000230: 4B 45 20 54 48 45 5D 0D  20 50 52 49 4E 54 20 5B  |KE THE]. PRINT [|
00000240: 53 43 52 45 45 4E 3F 20  50 49 43 4B 20 41 20 4E  |SCREEN? PICK A N|
00000250: 55 4D 42 45 52 20 46 52  4F 4D 20 30 20 54 4F 20  |UMBER FROM 0 TO |
00000260: 31 35 5D 0D 20 50 52 49  4E 54 20 5B 48 49 54 20  |15]. PRINT [HIT |
00000270: 52 45 54 55 52 4E 20 41  46 54 45 52 20 54 59 50  |RETURN AFTER TYP|
00000280: 49 4E 47 20 4E 55 4D 42  45 52 5D 0D 20 52 55 4E  |ING NUMBER]. RUN|
00000290: 2E 41 4E 44 2E 52 45 43  4F 52 44 20 53 45 20 5B  |.AND.RECORD SE [|
000002A0: 42 47 5D 20 52 45 51 55  45 53 54 0D 45 4E 44 0D  |BG] REQUEST.END.|
000002B0: 0D 54 4F 20 55 4E 44 4F  41 4C 4C 0D 20 44 52 41  |.TO UNDOALL. DRA|
000002C0: 57 0D 20 4D 41 4B 45 20  22 48 49 53 54 4F 52 59  |W. MAKE "HISTORY|
000002D0: 20 5B 5D 0D 45 4E 44 0D  0D 54 4F 20 4C 45 41 52  | [].END..TO LEAR|
000002E0: 4E 0D 20 50 52 49 4E 54  20 5B 57 48 41 54 20 44  |N. PRINT [WHAT D|
000002F0: 4F 20 59 4F 55 20 57 41  4E 54 20 54 4F 20 43 41  |O YOU WANT TO CA|
00000300: 4C 4C 20 54 48 49 53 20  50 49 43 54 55 52 45 3F  |LL THIS PICTURE?|
00000310: 5D 0D 20 50 52 49 4E 54  20 5B 48 49 54 20 52 45  |]. PRINT [HIT RE|
00000320: 54 55 52 4E 20 41 46 54  45 52 20 54 59 50 49 4E  |TURN AFTER TYPIN|
00000330: 47 20 4E 41 4D 45 5D 0D  20 4C 4F 43 41 4C 20 22  |G NAME]. LOCAL "|
00000340: 4E 41 4D 45 0D 20 4D 41  4B 45 20 22 4E 41 4D 45  |NAME. MAKE "NAME|
00000350: 20 28 20 46 49 52 53 54  20 52 45 51 55 45 53 54  | ( FIRST REQUEST|
00000360: 20 29 0D 20 44 45 46 49  4E 45 20 3A 4E 41 4D 45  | ). DEFINE :NAME|
00000370: 20 28 20 46 50 55 54 20  5B 5D 20 3A 48 49 53 54  | ( FPUT [] :HIST|
00000380: 4F 52 59 20 29 0D 20 55  4E 44 4F 41 4C 4C 0D 45  |ORY ). UNDOALL.E|
00000390: 4E 44 0D 0D 54 4F 20 52  55 4E 2E 41 4E 44 2E 52  |ND..TO RUN.AND.R|
000003A0: 45 43 4F 52 44 20 3A 41  43 54 49 4F 4E 0D 20 52  |ECORD :ACTION. R|
000003B0: 55 4E 20 3A 41 43 54 49  4F 4E 0D 20 4D 41 4B 45  |UN :ACTION. MAKE|
000003C0: 20 22 48 49 53 54 4F 52  59 20 28 20 4C 50 55 54  | "HISTORY ( LPUT|
000003D0: 20 3A 41 43 54 49 4F 4E  20 3A 48 49 53 54 4F 52  | :ACTION :HISTOR|
000003E0: 59 20 29 0D 45 4E 44 0D  0D 54 4F 20 41 53 4B 0D  |Y ).END..TO ASK.|
000003F0: 20 50 52 49 4E 54 20 5B  57 48 41 54 20 50 49 43  | PRINT [WHAT PIC|
00000400: 54 55 52 45 20 44 4F 20  59 4F 55 20 57 41 4E 54  |TURE DO YOU WANT|
00000410: 20 54 4F 20 53 48 4F 57  3F 5D 0D 20 50 52 49 4E  | TO SHOW?]. PRIN|
00000420: 54 20 5B 48 49 54 20 52  45 54 55 52 4E 20 41 46  |T [HIT RETURN AF|
00000430: 54 45 52 20 54 59 50 49  4E 47 20 4E 41 4D 45 21  |TER TYPING NAME!|
00000440: 5D 0D 20 52 55 4E 2E 41  4E 44 2E 52 45 43 4F 52  |]. RUN.AND.RECOR|
00000450: 44 20 52 45 51 55 45 53  54 0D 45 4E 44 0D 0D 54  |D REQUEST.END..T|
00000460: 4F 20 52 55 4E 2E 41 4C  4C 20 3A 43 4F 4D 4D 41  |O RUN.ALL :COMMA|
00000470: 4E 44 53 0D 20 49 46 20  3A 43 4F 4D 4D 41 4E 44  |NDS. IF :COMMAND|
00000480: 53 20 3D 20 5B 5D 20 53  54 4F 50 0D 20 52 55 4E  |S = [] STOP. RUN|
00000490: 20 46 49 52 53 54 20 3A  43 4F 4D 4D 41 4E 44 53  | FIRST :COMMANDS|
000004A0: 0D 20 52 55 4E 2E 41 4C  4C 20 28 20 42 55 54 46  |. RUN.ALL ( BUTF|
000004B0: 49 52 53 54 20 3A 43 4F  4D 4D 41 4E 44 53 20 29  |IRST :COMMANDS )|
000004C0: 0D 45 4E 44 0D 0D 54 4F  20 49 4E 53 54 41 4E 54  |.END..TO INSTANT|
000004D0: 0D 20 48 45 4C 50 0D 20  53 45 54 55 50 0D 45 4E  |. HELP. SETUP.EN|
000004E0: 44 0D 0D 54 4F 20 48 45  4C 50 0D 20 54 45 58 54  |D..TO HELP. TEXT|
000004F0: 53 43 52 45 45 4E 0D 20  43 4C 45 41 52 54 45 58  |SCREEN. CLEARTEX|
00000500: 54 0D 20 43 55 52 53 4F  52 20 30 20 30 0D 20 50  |T. CURSOR 0 0. P|
00000510: 52 49 4E 54 20 5B 46 3A  20 4D 4F 56 45 53 20 54  |RINT [F: MOVES T|
00000520: 48 45 20 54 55 52 54 4C  45 20 46 4F 52 57 41 52  |HE TURTLE FORWAR|
00000530: 44 5D 0D 20 50 52 49 4E  54 20 5B 52 3A 20 54 55  |D]. PRINT [R: TU|
00000540: 52 4E 53 20 49 54 20 52  49 47 48 54 5D 0D 20 50  |RNS IT RIGHT]. P|
00000550: 52 49 4E 54 20 5B 4C 3A  20 54 55 52 4E 53 20 49  |RINT [L: TURNS I|
00000560: 54 20 4C 45 46 54 5D 0D  20 50 52 49 4E 54 20 5B  |T LEFT]. PRINT [|
00000570: 44 3A 20 44 52 41 57 20  28 43 4C 45 41 52 53 20  |D: DRAW (CLEARS |
00000580: 54 48 45 20 53 43 52 45  45 4E 29 5D 0D 20 50 52  |THE SCREEN)]. PR|
00000590: 49 4E 54 20 5B 55 3A 20  55 4E 44 4F 20 28 45 52  |INT [U: UNDO (ER|
000005A0: 41 53 45 53 20 54 48 45  20 4C 41 53 54 20 43 4F  |ASES THE LAST CO|
000005B0: 4D 4D 41 4E 44 29 5D 0D  20 50 52 49 4E 54 20 5B  |MMAND)]. PRINT [|
000005C0: 4E 3A 20 4E 41 4D 45 53  20 54 48 45 20 50 49 43  |N: NAMES THE PIC|
000005D0: 54 55 52 45 5D 0D 20 50  52 49 4E 54 20 5B 50 3A  |TURE]. PRINT [P:|
000005E0: 20 53 48 4F 57 53 20 41  20 50 49 43 54 55 52 45  | SHOWS A PICTURE|
000005F0: 2E 20 41 53 4B 53 20 46  4F 52 20 49 54 53 20 4E  |. ASKS FOR ITS N|
00000600: 41 4D 45 2E 5D 0D 20 50  52 49 4E 54 20 5B 43 3A  |AME.]. PRINT [C:|
00000610: 20 46 4F 52 20 43 48 41  4E 47 49 4E 47 20 54 48  | FOR CHANGING TH|
00000620: 45 20 53 43 52 45 45 4E  20 43 4F 4C 4F 52 5D 0D  |E SCREEN COLOR].|
00000630: 20 50 52 49 4E 54 20 5B  3F 3A 20 47 49 56 45 53  | PRINT [?: GIVES|
00000640: 20 48 45 4C 50 5D 0D 20  50 52 49 4E 54 20 5B 5D  | HELP]. PRINT []|
00000650: 20 50 52 49 4E 54 20 5B  5D 0D 20 50 52 49 4E 54  | PRINT []. PRINT|
00000660: 20 5B 50 52 45 53 53 20  41 4E 59 20 4B 45 59 20  | [PRESS ANY KEY |
00000670: 54 4F 20 43 4F 4E 54 49  4E 55 45 5D 0D 20 50 52  |TO CONTINUE]. PR|
00000680: 49 4E 54 20 52 43 0D 20  53 50 4C 49 54 53 43 52  |INT RC. SPLITSCR|
00000690: 45 45 4E 0D 20 43 55 52  53 4F 52 20 30 20 32 30  |EEN. CURSOR 0 20|
000006A0: 0D 45 4E 44 0D 0D 54 4F  20 55 4E 54 49 4C 20 3A  |.END..TO UNTIL :|
000006B0: 43 4F 4E 44 20 3A 41 43  54 49 4F 4E 0D 20 49 46  |COND :ACTION. IF|
000006C0: 20 52 55 4E 20 3A 43 4F  4E 44 20 53 54 4F 50 0D  | RUN :COND STOP.|
000006D0: 20 52 55 4E 20 3A 41 43  54 49 4F 4E 0D 20 55 4E  | RUN :ACTION. UN|
000006E0: 54 49 4C 20 3A 43 4F 4E  44 20 3A 41 43 54 49 4F  |TIL :COND :ACTIO|
000006F0: 4E 0D 45 4E 44 0D 0D 54  4F 20 57 48 49 4C 45 20  |N.END..TO WHILE |
00000700: 3A 43 4F 4E 44 20 3A 41  43 54 49 4F 4E 0D 20 49  |:COND :ACTION. I|
00000710: 46 20 4E 4F 54 20 52 55  4E 20 3A 43 4F 4E 44 20  |F NOT RUN :COND |
00000720: 53 54 4F 50 0D 20 52 55  4E 20 3A 41 43 54 49 4F  |STOP. RUN :ACTIO|
00000730: 4E 0D 20 57 48 49 4C 45  20 3A 43 4F 4E 44 20 3A  |N. WHILE :COND :|
00000740: 41 43 54 49 4F 4E 0D 45  4E 44 0D 0D 4D 41 4B 45  |ACTION.END..MAKE|
00000750: 20 22 53 54 41 52 54 55  50 20 5B 49 4E 53 54 41  | "STARTUP [INSTA|
00000760: 4E 54 5D 0D                                       |NT].            |

. TO SETUP. MAKE "HISTORY []. DRAW. INST
ANT.COMMAND.END..TO INSTANT.COMMAND. COM
MAND READCHARACTER. INSTANT.COMMAND.END.
.TO COMMAND :COM. IF :COM = "F RUN.AND.R
ECORD [FORWARD 10] STOP. IF :COM = "R RU
N.AND.RECORD [RIGHT 30] STOP. IF :COM = 
"L RUN.AND.RECORD [LEFT 30] STOP. IF :CO
M = "D UNDOALL STOP. IF :COM = "U UNDO S
TOP. IF :COM = "N LEARN STOP. IF :COM = 
"P ASK STOP. IF :COM = "C SCREEN STOP. I
F :COM = "? HELP.END..TO UNDO. IF :HISTO
RY = [] STOP. MAKE "HISTORY BUTLAST :HIS
TORY. DRAW. RUN.ALL :HISTORY.END..TO SCR
EEN. PRINT [WHAT COLOR DO YOU WANT TO MA
KE THE]. PRINT [SCREEN? PICK A NUMBER FR
OM 0 TO 15]. PRINT [HIT RETURN AFTER TYP
ING NUMBER]. RUN.AND.RECORD SE [BG] REQU
EST.END..TO UNDOALL. DRAW. MAKE "HISTORY
 [].END..TO LEARN. PRINT [WHAT DO YOU WA
NT TO CALL THIS PICTURE?]. PRINT [HIT RE
TURN AFTER TYPING NAME]. LOCAL "NAME. MA
KE "NAME ( FIRST REQUEST ). DEFINE :NAME
 ( FPUT [] :HISTORY ). UNDOALL.END..TO R
UN.AND.RECORD :ACTION. RUN :ACTION. MAKE
 "HISTORY ( LPUT :ACTION :HISTORY ).END.
.TO ASK. PRINT [WHAT PICTURE DO YOU WANT
 TO SHOW?]. PRINT [HIT RETURN AFTER TYPI
NG NAME!]. RUN.AND.RECORD REQUEST.END..T
O RUN.ALL :COMMANDS. IF :COMMANDS = [] S
TOP. RUN FIRST :COMMANDS. RUN.ALL ( BUTF
IRST :COMMANDS ).END..TO INSTANT. HELP. 
SETUP.END..TO HELP. TEXTSCREEN. CLEARTEX
T. CURSOR 0 0. PRINT [F: MOVES THE TURTL
E FORWARD]. PRINT [R: TURNS IT RIGHT]. P
RINT [L: TURNS IT LEFT]. PRINT [D: DRAW 
(CLEARS THE SCREEN)]. PRINT [U: UNDO (ER
ASES THE LAST COMMAND)]. PRINT [N: NAMES
 THE PICTURE]. PRINT [P: SHOWS A PICTURE
. ASKS FOR ITS NAME.]. PRINT [C: FOR CHA
NGING THE SCREEN COLOR]. PRINT [?: GIVES
 HELP]. PRINT [] PRINT []. PRINT [PRESS 
ANY KEY TO CONTINUE]. PRINT RC. SPLITSCR
EEN. CURSOR 0 20.END..TO UNTIL :COND :AC
TION. IF RUN :COND STOP. RUN :ACTION. UN
TIL :COND :ACTION.END..TO WHILE :COND :A
CTION. IF NOT RUN :COND STOP. RUN :ACTIO
N. WHILE :COND :ACTION.END..MAKE "STARTU
P [INSTANT].

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL