INSTANT.LOGO

FILE INFORMATION

FILENAME(S): INSTANT.LOGO

FILE TYPE(S): PRG

FILE SIZE: 1.9K

FIRST SEEN: 2025-11-02 16:30:34

APPEARS ON: 1 disk(s)

FILE HASH

d0bf44002a7ef3ffb37cd179f61b4ad6006e12aedda6dee01340ca9258163faa

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
NG USERS 11A	INSTANT.LOGO	PRG	Treasure Chest - OzzyC64	14	6	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 0D 4D 41                              |NT]..MA         |

. 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]..MA

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL