_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

TEACH.LOGO

FILE INFORMATION

FILENAME(S): TEACH.LOGO

FILE TYPE(S): PRG

FILE SIZE: 410b

FIRST SEEN: 2025-11-30 16:23:23

APPEARS ON: 1 disk(s)

FILE HASH

754936d48c8941ab4951f50fc7450856bd76349a9069ef9cded1d817353a9bcc

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
PROGRAMM 127 2 TEACH.LOGO PRG BrainSkull, Michi Christian 22 0 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 54 45 41  43 48 2E 42 4F 44 59 0D  |. TO TEACH.BODY.|
00000010: 20 4C 4F 43 41 4C 20 22  4C 49 4E 45 0D 20 4D 41  | LOCAL "LINE. MA|
00000020: 4B 45 20 22 4C 49 4E 45  20 41 53 4B 20 22 3E 0D  |KE "LINE ASK ">.|
00000030: 20 49 46 20 3A 4C 49 4E  45 20 3D 20 5B 45 4E 44  | IF :LINE = [END|
00000040: 5D 20 4F 50 20 5B 5D 0D  20 4F 50 20 46 50 55 54  |] OP []. OP FPUT|
00000050: 20 3A 4C 49 4E 45 20 54  45 41 43 48 2E 42 4F 44  | :LINE TEACH.BOD|
00000060: 59 0D 45 4E 44 0D 0D 54  4F 20 41 53 4B 20 3A 51  |Y.END..TO ASK :Q|
00000070: 55 45 53 54 49 4F 4E 0D  20 4C 4F 43 41 4C 20 22  |UESTION. LOCAL "|
00000080: 41 4E 53 57 45 52 0D 20  50 52 49 4E 54 31 20 3A  |ANSWER. PRINT1 :|
00000090: 51 55 45 53 54 49 4F 4E  0D 20 4D 41 4B 45 20 22  |QUESTION. MAKE "|
000000A0: 41 4E 53 57 45 52 20 52  45 51 55 45 53 54 0D 20  |ANSWER REQUEST. |
000000B0: 49 46 20 45 4D 50 54 59  3F 20 3A 41 4E 53 57 45  |IF EMPTY? :ANSWE|
000000C0: 52 20 4F 50 20 41 53 4B  20 3A 51 55 45 53 54 49  |R OP ASK :QUESTI|
000000D0: 4F 4E 0D 20 4F 50 20 3A  41 4E 53 57 45 52 0D 45  |ON. OP :ANSWER.E|
000000E0: 4E 44 0D 0D 54 4F 20 54  45 41 43 48 0D 20 4C 4F  |ND..TO TEACH. LO|
000000F0: 43 41 4C 20 22 4E 41 4D  45 2E 41 52 47 53 0D 20  |CAL "NAME.ARGS. |
00000100: 4D 41 4B 45 20 22 4E 41  4D 45 2E 41 52 47 53 20  |MAKE "NAME.ARGS |
00000110: 41 53 4B 20 5B 4E 41 4D  45 3A 5D 0D 20 28 20 50  |ASK [NAME:]. ( P|
00000120: 52 20 22 54 4F 20 3A 4E  41 4D 45 2E 41 52 47 53  |R "TO :NAME.ARGS|
00000130: 20 29 0D 20 44 45 46 49  4E 45 20 46 49 52 53 54  | ). DEFINE FIRST|
00000140: 20 3A 4E 41 4D 45 2E 41  52 47 53 20 46 50 55 54  | :NAME.ARGS FPUT|
00000150: 20 42 46 20 3A 4E 41 4D  45 2E 41 52 47 53 20 54  | BF :NAME.ARGS T|
00000160: 45 41 43 48 2E 42 4F 44  59 0D 20 28 20 50 52 49  |EACH.BODY. ( PRI|
00000170: 4E 54 20 28 20 46 49 52  53 54 20 3A 4E 41 4D 45  |NT ( FIRST :NAME|
00000180: 2E 41 52 47 53 20 29 20  22 44 45 46 49 4E 45 44  |.ARGS ) "DEFINED|
00000190: 20 29 0D 45 4E 44 0D 0D  1F C8                    | ).END....      |

. TO TEACH.BODY. LOCAL "LINE. MAKE "LINE
 ASK ">. IF :LINE = [END] OP []. OP FPUT
 :LINE TEACH.BODY.END..TO ASK :QUESTION.
 LOCAL "ANSWER. PRINT1 :QUESTION. MAKE "
ANSWER REQUEST. IF EMPTY? :ANSWER OP ASK
 :QUESTION. OP :ANSWER.END..TO TEACH. LO
CAL "NAME.ARGS. MAKE "NAME.ARGS ASK [NAM
E:]. ( PR "TO :NAME.ARGS ). DEFINE FIRST
 :NAME.ARGS FPUT BF :NAME.ARGS TEACH.BOD
Y. ( PRINT ( FIRST :NAME.ARGS ) "DEFINED
 ).END...H
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL