LOGOHULP.LOGO
FILE INFORMATION
FILENAME(S): LOGOHULP.LOGO
FILE TYPE(S): PRG
FILE SIZE: 6.2K
FIRST SEEN: 2025-11-30 21:27:28
APPEARS ON: 1 disk(s)
FILE HASH
42e612470bfb813b4520c3e1767b346f3c8a67bb21f4d59e91c1f28aa84ce66a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HOLLYWOOD II | LOGOHULP.LOGO | PRG | DuncanTwain | 28 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 20 54 4F 20 53 41 56 45 53 50 52 4F 4B 45 4E |. TO SAVESPROKEN| 00000010: 20 3A 46 49 4C 45 20 3A 53 54 41 52 54 20 3A 45 | :FILE :START :E| 00000020: 4E 44 0D 20 42 53 41 56 45 20 57 4F 52 44 20 3A |ND. BSAVE WORD :| 00000030: 46 49 4C 45 20 22 2E 53 50 52 4F 4B 45 4E 20 33 |FILE ".SPROKEN 3| 00000040: 30 37 32 20 2B 20 3A 53 54 41 52 54 20 2A 20 36 |072 + :START * 6| 00000050: 34 20 33 30 37 32 20 2B 20 3A 45 4E 44 20 2A 20 |4 3072 + :END * | 00000060: 36 34 20 2B 20 36 33 0D 45 4E 44 0D 0D 54 4F 20 |64 + 63.END..TO | 00000070: 4C 45 45 53 53 50 52 4F 4B 45 4E 20 3A 4E 41 4D |LEESSPROKEN :NAM| 00000080: 45 0D 20 42 4C 4F 41 44 20 57 4F 52 44 20 3A 4E |E. BLOAD WORD :N| 00000090: 41 4D 45 20 22 2E 53 50 52 4F 4B 45 4E 0D 45 4E |AME ".SPROKEN.EN| 000000A0: 44 0D 0D 54 4F 20 53 41 56 45 53 50 52 49 54 45 |D..TO SAVESPRITE| 000000B0: 53 20 3A 46 49 4C 45 20 3A 53 54 41 52 54 20 3A |S :FILE :START :| 000000C0: 45 4E 44 0D 20 42 53 41 56 45 20 57 4F 52 44 20 |END. BSAVE WORD | 000000D0: 3A 46 49 4C 45 20 22 2E 53 48 41 50 45 53 20 33 |:FILE ".SHAPES 3| 000000E0: 30 37 32 20 2B 20 3A 53 54 41 52 54 20 2A 20 36 |072 + :START * 6| 000000F0: 34 20 33 30 37 32 20 2B 20 3A 45 4E 44 20 2A 20 |4 3072 + :END * | 00000100: 36 34 20 2B 20 36 33 0D 45 4E 44 0D 0D 54 4F 20 |64 + 63.END..TO | 00000110: 56 4C 49 4E 44 45 52 0D 20 4F 50 20 37 0D 45 4E |VLINDER. OP 7.EN| 00000120: 44 0D 0D 54 4F 20 4B 41 54 0D 20 4F 50 20 36 0D |D..TO KAT. OP 6.| 00000130: 45 4E 44 0D 0D 54 4F 20 50 41 41 52 44 0D 20 4F |END..TO PAARD. O| 00000140: 50 20 35 0D 45 4E 44 0D 0D 54 4F 20 44 4F 4C 46 |P 5.END..TO DOLF| 00000150: 49 4A 4E 0D 20 4F 50 20 34 0D 45 4E 44 0D 0D 54 |IJN. OP 4.END..T| 00000160: 4F 20 4C 55 49 53 0D 20 4F 50 20 33 0D 45 4E 44 |O LUIS. OP 3.END| 00000170: 0D 0D 54 4F 20 4B 41 4E 47 4F 45 52 4F 45 0D 20 |..TO KANGOEROE. | 00000180: 4F 50 20 32 0D 45 4E 44 0D 0D 54 4F 20 44 49 4E |OP 2.END..TO DIN| 00000190: 4F 53 41 55 52 55 53 0D 20 4F 50 20 31 0D 45 4E |OSAURUS. OP 1.EN| 000001A0: 44 0D 0D 54 4F 20 4D 41 41 4B 53 50 52 4F 4F 4B |D..TO MAAKSPROOK| 000001B0: 0D 20 2E 4F 50 54 49 4F 4E 20 22 54 45 58 54 53 |. .OPTION "TEXTS| 000001C0: 43 52 45 45 4E 20 30 20 45 58 50 32 20 57 48 4F |CREEN 0 EXP2 WHO| 000001D0: 0D 20 54 45 58 54 53 43 52 45 45 4E 0D 20 53 45 |. TEXTSCREEN. SE| 000001E0: 54 58 59 20 36 30 20 30 0D 20 52 45 44 49 53 50 |TXY 60 0. REDISP| 000001F0: 4C 41 59 0D 20 45 44 2E 4C 4F 4F 50 20 30 20 30 |LAY. ED.LOOP 0 0| 00000200: 0D 45 4E 44 0D 0D 54 4F 20 45 44 53 48 0D 20 2E |.END..TO EDSH. .| 00000210: 4F 50 54 49 4F 4E 20 22 54 45 58 54 53 43 52 45 |OPTION "TEXTSCRE| 00000220: 45 4E 20 30 20 45 58 50 32 20 57 48 4F 0D 20 54 |EN 0 EXP2 WHO. T| 00000230: 45 58 54 53 43 52 45 45 4E 0D 20 53 45 54 58 59 |EXTSCREEN. SETXY| 00000240: 20 36 30 20 30 0D 20 52 45 44 49 53 50 4C 41 59 | 60 0. REDISPLAY| 00000250: 0D 20 45 44 2E 4C 4F 4F 50 20 30 20 30 0D 45 4E |. ED.LOOP 0 0.EN| 00000260: 44 0D 0D 54 4F 20 53 41 56 45 53 48 41 50 45 53 |D..TO SAVESHAPES| 00000270: 20 3A 4E 41 4D 45 0D 20 42 53 41 56 45 20 57 4F | :NAME. BSAVE WO| 00000280: 52 44 20 3A 4E 41 4D 45 20 22 2E 53 48 41 50 45 |RD :NAME ".SHAPE| 00000290: 53 20 33 31 33 36 20 33 35 38 33 0D 45 4E 44 0D |S 3136 3583.END.| 000002A0: 0D 54 4F 20 53 45 54 55 50 0D 20 4D 41 4B 45 20 |.TO SETUP. MAKE | 000002B0: 22 52 45 54 55 52 4E 20 43 48 41 52 20 31 33 0D |"RETURN CHAR 13.| 000002C0: 20 4D 41 4B 45 20 22 56 49 43 20 31 33 20 2A 20 | MAKE "VIC 13 * | 000002D0: 34 30 39 36 0D 20 49 46 20 5B 5D 20 3D 20 54 45 |4096. IF [] = TE| 000002E0: 58 54 20 22 53 4D 41 4C 4C 58 20 52 45 41 44 20 |XT "SMALLX READ | 000002F0: 22 53 50 52 49 54 45 53 0D 45 4E 44 0D 0D 54 4F |"SPRITES.END..TO| 00000300: 20 42 49 54 4F 4E 3F 20 3A 41 44 44 52 20 3A 42 | BITON? :ADDR :B| 00000310: 49 54 0D 20 4F 50 20 30 20 3C 20 42 49 54 41 4E |IT. OP 0 < BITAN| 00000320: 44 20 2E 45 58 41 4D 49 4E 45 20 3A 41 44 44 52 |D .EXAMINE :ADDR| 00000330: 20 3A 42 49 54 0D 45 4E 44 0D 0D 54 4F 20 54 4F | :BIT.END..TO TO| 00000340: 47 47 4C 45 50 4F 49 4E 54 20 3A 58 20 3A 59 0D |GGLEPOINT :X :Y.| 00000350: 20 4C 4F 43 41 4C 20 22 41 44 44 52 20 4D 41 4B | LOCAL "ADDR MAK| 00000360: 45 20 22 41 44 44 52 20 53 50 2E 41 44 44 52 0D |E "ADDR SP.ADDR.| 00000370: 20 4C 4F 43 41 4C 20 22 46 20 4D 41 4B 45 20 22 | LOCAL "F MAKE "| 00000380: 46 20 53 50 2E 42 49 54 20 3A 58 0D 20 2E 44 45 |F SP.BIT :X. .DE| 00000390: 50 4F 53 49 54 20 3A 41 44 44 52 20 42 49 54 58 |POSIT :ADDR BITX| 000003A0: 4F 52 20 2E 45 58 41 4D 49 4E 45 20 3A 41 44 44 |OR .EXAMINE :ADD| 000003B0: 52 20 3A 46 0D 20 43 55 52 53 4F 52 20 3A 58 20 |R :F. CURSOR :X | 000003C0: 2B 20 31 20 3A 59 20 2B 20 31 0D 20 49 46 20 42 |+ 1 :Y + 1. IF B| 000003D0: 49 54 4F 4E 3F 20 3A 41 44 44 52 20 3A 46 20 50 |ITON? :ADDR :F P| 000003E0: 52 49 4E 54 31 20 22 D1 20 45 4C 53 45 20 50 52 |RINT1 ". ELSE PR| 000003F0: 49 4E 54 31 20 22 2E 0D 45 4E 44 0D 0D 54 4F 20 |INT1 "..END..TO | 00000400: 53 50 2E 42 49 54 20 3A 58 0D 20 4F 50 20 45 58 |SP.BIT :X. OP EX| 00000410: 50 32 20 37 20 2D 20 42 49 54 41 4E 44 20 3A 58 |P2 7 - BITAND :X| 00000420: 20 37 0D 45 4E 44 0D 0D 54 4F 20 53 50 2E 41 44 | 7.END..TO SP.AD| 00000430: 44 52 0D 20 4F 50 20 3A 59 20 2A 20 33 20 2B 20 |DR. OP :Y * 3 + | 00000440: 57 48 4F 53 48 50 20 2B 20 51 55 4F 54 49 45 4E |WHOSHP + QUOTIEN| 00000450: 54 20 3A 58 20 38 0D 45 4E 44 0D 0D 54 4F 20 46 |T :X 8.END..TO F| 00000460: 4C 41 53 48 26 57 41 49 54 0D 20 54 4F 47 47 4C |LASH&WAIT. TOGGL| 00000470: 45 50 4F 49 4E 54 20 3A 58 20 3A 59 20 54 4F 47 |EPOINT :X :Y TOG| 00000480: 47 4C 45 50 4F 49 4E 54 20 3A 58 20 3A 59 20 49 |GLEPOINT :X :Y I| 00000490: 46 20 52 43 3F 20 53 54 4F 50 0D 20 46 4C 41 53 |F RC? STOP. FLAS| 000004A0: 48 26 57 41 49 54 0D 45 4E 44 0D 0D 54 4F 20 45 |H&WAIT.END..TO E| 000004B0: 44 2E 51 55 49 54 0D 20 2E 4F 50 54 49 4F 4E 20 |D.QUIT. .OPTION | 000004C0: 22 54 45 58 54 53 43 52 45 45 4E 20 30 20 30 0D |"TEXTSCREEN 0 0.| 000004D0: 20 53 50 4C 49 54 53 43 52 45 45 4E 0D 20 43 4C | SPLITSCREEN. CL| 000004E0: 45 41 52 54 45 58 54 20 54 4F 50 4C 45 56 45 4C |EARTEXT TOPLEVEL| 000004F0: 0D 45 4E 44 0D 0D 54 4F 20 52 56 53 2E 53 48 41 |.END..TO RVS.SHA| 00000500: 50 45 0D 20 4C 4F 43 41 4C 20 22 41 44 44 52 20 |PE. LOCAL "ADDR | 00000510: 4D 41 4B 45 20 22 41 44 44 52 20 57 48 4F 53 48 |MAKE "ADDR WHOSH| 00000520: 50 0D 20 52 45 50 45 41 54 20 36 33 20 5B 2E 44 |P. REPEAT 63 [.D| 00000530: 45 50 4F 53 49 54 20 3A 41 44 44 52 20 42 49 54 |EPOSIT :ADDR BIT| 00000540: 58 4F 52 20 2E 45 58 41 4D 49 4E 45 20 3A 41 44 |XOR .EXAMINE :AD| 00000550: 44 52 20 32 35 35 20 4D 41 4B 45 20 22 41 44 44 |DR 255 MAKE "ADD| 00000560: 52 20 3A 41 44 44 52 2B 31 5D 0D 45 4E 44 0D 0D |R :ADDR+1].END..| 00000570: 54 4F 20 54 4F 47 47 4C 45 59 0D 20 2E 44 45 50 |TO TOGGLEY. .DEP| 00000580: 4F 53 49 54 20 35 33 32 37 31 20 42 49 54 58 4F |OSIT 53271 BITXO| 00000590: 52 20 45 58 50 32 20 57 48 4F 20 2E 45 58 41 4D |R EXP2 WHO .EXAM| 000005A0: 49 4E 45 20 35 33 32 37 31 0D 45 4E 44 0D 0D 54 |INE 53271.END..T| 000005B0: 4F 20 54 4F 47 47 4C 45 58 0D 20 2E 44 45 50 4F |O TOGGLEX. .DEPO| 000005C0: 53 49 54 20 35 33 32 37 37 20 42 49 54 58 4F 52 |SIT 53277 BITXOR| 000005D0: 20 45 58 50 32 20 57 48 4F 20 2E 45 58 41 4D 49 | EXP2 WHO .EXAMI| 000005E0: 4E 45 20 35 33 32 37 37 0D 45 4E 44 0D 0D 54 4F |NE 53277.END..TO| 000005F0: 20 43 4C 45 41 52 53 48 41 50 45 0D 20 4C 4F 43 | CLEARSHAPE. LOC| 00000600: 41 4C 20 22 41 44 44 52 20 4D 41 4B 45 20 22 41 |AL "ADDR MAKE "A| 00000610: 44 44 52 20 57 48 4F 53 48 50 0D 20 52 45 50 45 |DDR WHOSHP. REPE| 00000620: 41 54 20 36 33 20 5B 2E 44 45 50 4F 53 49 54 20 |AT 63 [.DEPOSIT | 00000630: 3A 41 44 44 52 20 30 20 4D 41 4B 45 20 22 41 44 |:ADDR 0 MAKE "AD| 00000640: 44 52 20 3A 41 44 44 52 2B 31 5D 0D 45 4E 44 0D |DR :ADDR+1].END.| 00000650: 0D 54 4F 20 45 52 41 53 45 50 4F 49 4E 54 20 3A |.TO ERASEPOINT :| 00000660: 58 20 3A 59 0D 20 4C 4F 43 41 4C 20 22 41 44 44 |X :Y. LOCAL "ADD| 00000670: 52 20 4D 41 4B 45 20 22 41 44 44 52 20 53 50 2E |R MAKE "ADDR SP.| 00000680: 41 44 44 52 0D 20 2E 44 45 50 4F 53 49 54 20 3A |ADDR. .DEPOSIT :| 00000690: 41 44 44 52 20 42 49 54 41 4E 44 20 2E 45 58 41 |ADDR BITAND .EXA| 000006A0: 4D 49 4E 45 20 3A 41 44 44 52 20 32 35 35 20 2D |MINE :ADDR 255 -| 000006B0: 20 53 50 2E 42 49 54 20 3A 58 0D 20 43 55 52 53 | SP.BIT :X. CURS| 000006C0: 4F 52 20 3A 58 20 2B 20 31 20 3A 59 20 2B 20 31 |OR :X + 1 :Y + 1| 000006D0: 0D 20 50 52 49 4E 54 31 20 22 2E 0D 45 4E 44 0D |. PRINT1 "..END.| 000006E0: 0D 54 4F 20 53 45 54 50 4F 49 4E 54 20 3A 58 20 |.TO SETPOINT :X | 000006F0: 3A 59 0D 20 4C 4F 43 41 4C 20 22 41 44 44 52 20 |:Y. LOCAL "ADDR | 00000700: 4D 41 4B 45 20 22 41 44 44 52 20 53 50 2E 41 44 |MAKE "ADDR SP.AD| 00000710: 44 52 0D 20 2E 44 45 50 4F 53 49 54 20 3A 41 44 |DR. .DEPOSIT :AD| 00000720: 44 52 20 42 49 54 4F 52 20 2E 45 58 41 4D 49 4E |DR BITOR .EXAMIN| 00000730: 45 20 3A 41 44 44 52 20 53 50 2E 42 49 54 20 3A |E :ADDR SP.BIT :| 00000740: 58 0D 20 43 55 52 53 4F 52 20 3A 58 20 2B 20 31 |X. CURSOR :X + 1| 00000750: 20 3A 59 20 2B 20 31 20 50 52 49 4E 54 31 20 22 | :Y + 1 PRINT1 "| 00000760: D1 0D 45 4E 44 0D 0D 54 4F 20 49 4E 43 58 0D 20 |..END..TO INCX. | 00000770: 4D 41 4B 45 20 22 58 20 3A 58 20 2B 20 31 20 49 |MAKE "X :X + 1 I| 00000780: 46 20 3A 58 20 3E 20 32 33 20 4D 41 4B 45 20 22 |F :X > 23 MAKE "| 00000790: 58 20 30 0D 45 4E 44 0D 0D 54 4F 20 49 4E 43 59 |X 0.END..TO INCY| 000007A0: 0D 20 4D 41 4B 45 20 22 59 20 3A 59 20 2B 20 31 |. MAKE "Y :Y + 1| 000007B0: 20 49 46 20 3A 59 20 3E 20 32 30 20 4D 41 4B 45 | IF :Y > 20 MAKE| 000007C0: 20 22 59 20 30 0D 45 4E 44 0D 0D 54 4F 20 44 45 | "Y 0.END..TO DE| 000007D0: 43 58 0D 20 4D 41 4B 45 20 22 58 20 3A 58 20 2D |CX. MAKE "X :X -| 000007E0: 20 31 20 49 46 20 3A 58 20 3C 20 30 20 4D 41 4B | 1 IF :X < 0 MAK| 000007F0: 45 20 22 58 20 32 33 0D 45 4E 44 0D 0D 54 4F 20 |E "X 23.END..TO | 00000800: 44 45 43 59 0D 20 4D 41 4B 45 20 22 59 20 3A 59 |DECY. MAKE "Y :Y| 00000810: 20 2D 20 31 20 49 46 20 3A 59 20 3C 20 30 20 4D | - 1 IF :Y < 0 M| 00000820: 41 4B 45 20 22 59 20 32 30 0D 45 4E 44 0D 0D 54 |AKE "Y 20.END..T| 00000830: 4F 20 57 48 4F 53 48 50 0D 20 4F 50 20 36 34 20 |O WHOSHP. OP 64 | 00000840: 2A 20 28 20 34 38 20 2B 20 53 48 41 50 45 20 29 |* ( 48 + SHAPE )| 00000850: 0D 45 4E 44 0D 0D 54 4F 20 45 44 2E 46 52 41 4D |.END..TO ED.FRAM| 00000860: 45 0D 20 43 55 52 53 4F 52 20 30 20 30 0D 20 52 |E. CURSOR 0 0. R| 00000870: 45 50 45 41 54 20 32 36 20 5B 50 52 49 4E 54 31 |EPEAT 26 [PRINT1| 00000880: 20 22 A6 5D 0D 20 52 45 50 45 41 54 20 32 31 20 | ".]. REPEAT 21 | 00000890: 5B 43 55 52 53 4F 52 20 30 20 31 2B 4C 41 53 54 |[CURSOR 0 1+LAST| 000008A0: 20 43 55 52 53 4F 52 50 4F 53 20 50 52 49 4E 54 | CURSORPOS PRINT| 000008B0: 31 20 22 A6 20 43 55 52 53 4F 52 20 32 35 20 4C |1 ". CURSOR 25 L| 000008C0: 41 53 54 20 43 55 52 53 4F 52 50 4F 53 20 50 52 |AST CURSORPOS PR| 000008D0: 49 4E 54 31 20 22 A6 5D 0D 20 43 55 52 53 4F 52 |INT1 ".]. CURSOR| 000008E0: 20 30 20 32 32 0D 20 52 45 50 45 41 54 20 32 36 | 0 22. REPEAT 26| 000008F0: 20 5B 50 52 49 4E 54 31 20 22 A6 5D 0D 20 43 55 | [PRINT1 ".]. CU| 00000900: 52 53 4F 52 20 30 20 30 0D 45 4E 44 0D 0D 54 4F |RSOR 0 0.END..TO| 00000910: 20 52 45 44 49 53 50 4C 41 59 0D 20 54 45 58 54 | REDISPLAY. TEXT| 00000920: 53 43 52 45 45 4E 20 43 4C 45 41 52 54 45 58 54 |SCREEN CLEARTEXT| 00000930: 0D 20 45 44 2E 46 52 41 4D 45 0D 20 2E 53 50 52 |. ED.FRAME. .SPR| 00000940: 49 4E 54 20 57 48 4F 53 48 50 0D 45 4E 44 0D 0D |INT WHOSHP.END..| 00000950: 54 4F 20 52 43 26 46 4C 41 53 48 0D 20 4C 4F 43 |TO RC&FLASH. LOC| 00000960: 41 4C 20 22 43 48 41 52 0D 20 49 46 20 52 43 3F |AL "CHAR. IF RC?| 00000970: 20 4F 50 20 52 43 0D 20 2E 4F 50 54 49 4F 4E 20 | OP RC. .OPTION | 00000980: 22 52 43 20 30 20 31 0D 20 46 4C 41 53 48 26 57 |"RC 0 1. FLASH&W| 00000990: 41 49 54 0D 20 4D 41 4B 45 20 22 43 48 41 52 20 |AIT. MAKE "CHAR | 000009A0: 52 43 0D 20 2E 4F 50 54 49 4F 4E 20 22 52 43 20 |RC. .OPTION "RC | 000009B0: 30 20 30 0D 20 49 46 20 41 53 43 49 49 20 3A 43 |0 0. IF ASCII :C| 000009C0: 48 41 52 20 3D 20 37 20 45 44 2E 51 55 49 54 20 |HAR = 7 ED.QUIT | 000009D0: 45 4C 53 45 20 4F 50 20 3A 43 48 41 52 0D 45 4E |ELSE OP :CHAR.EN| 000009E0: 44 0D 0D 54 4F 20 45 44 2E 43 4F 4D 4D 41 4E 44 |D..TO ED.COMMAND| 000009F0: 20 3A 43 48 41 52 0D 20 49 46 20 41 4E 59 4F 46 | :CHAR. IF ANYOF| 00000A00: 20 3A 43 48 41 52 20 3D 20 22 5E 20 3A 43 48 41 | :CHAR = "^ :CHA| 00000A10: 52 20 3D 20 22 91 20 44 45 43 59 20 53 54 4F 50 |R = ". DECY STOP| 00000A20: 0D 20 49 46 20 41 4E 59 4F 46 20 3A 43 48 41 52 |. IF ANYOF :CHAR| 00000A30: 20 3D 20 22 5F 20 3A 43 48 41 52 20 3D 20 22 9D | = "_ :CHAR = ".| 00000A40: 20 44 45 43 58 20 53 54 4F 50 0D 20 49 46 20 3A | DECX STOP. IF :| 00000A50: 43 48 41 52 20 3D 20 22 11 20 49 4E 43 59 20 53 |CHAR = ". INCY S| 00000A60: 54 4F 50 0D 20 49 46 20 3A 43 48 41 52 20 3D 20 |TOP. IF :CHAR = | 00000A70: 22 1D 20 49 4E 43 58 20 53 54 4F 50 0D 20 49 46 |". INCX STOP. IF| 00000A80: 20 3A 43 48 41 52 20 3D 20 22 2A 20 53 45 54 50 | :CHAR = "* SETP| 00000A90: 4F 49 4E 54 20 3A 58 20 3A 59 20 49 4E 43 58 20 |OINT :X :Y INCX | 00000AA0: 53 54 4F 50 0D 20 49 46 20 3A 43 48 41 52 20 3D |STOP. IF :CHAR =| 00000AB0: 20 22 14 20 44 45 43 58 20 45 52 41 53 45 50 4F | ". DECX ERASEPO| 00000AC0: 49 4E 54 20 3A 58 20 3A 59 20 53 54 4F 50 0D 20 |INT :X :Y STOP. | 00000AD0: 49 46 20 3A 43 48 41 52 20 3D 20 22 27 20 27 20 |IF :CHAR = "' ' | 00000AE0: 45 52 41 53 45 50 4F 49 4E 54 20 3A 58 20 3A 59 |ERASEPOINT :X :Y| 00000AF0: 20 49 4E 43 58 20 53 54 4F 50 0D 20 49 46 20 3A | INCX STOP. IF :| 00000B00: 43 48 41 52 20 3D 20 22 2B 20 53 45 54 50 4F 49 |CHAR = "+ SETPOI| 00000B10: 4E 54 20 3A 58 20 3A 59 20 53 54 4F 50 0D 20 49 |NT :X :Y STOP. I| 00000B20: 46 20 3A 43 48 41 52 20 3D 20 22 2D 20 45 52 41 |F :CHAR = "- ERA| 00000B30: 53 45 50 4F 49 4E 54 20 3A 58 20 3A 59 20 53 54 |SEPOINT :X :Y ST| 00000B40: 4F 50 0D 20 49 46 20 3A 43 48 41 52 20 3D 20 3A |OP. IF :CHAR = :| 00000B50: 52 45 54 55 52 4E 20 4D 41 4B 45 20 22 58 20 30 |RETURN MAKE "X 0| 00000B60: 20 49 4E 43 59 20 53 54 4F 50 0D 20 49 46 20 3A | INCY STOP. IF :| 00000B70: 43 48 41 52 20 3D 20 22 13 20 4D 41 4B 45 20 22 |CHAR = ". MAKE "| 00000B80: 58 20 30 20 4D 41 4B 45 20 22 59 20 30 20 53 54 |X 0 MAKE "Y 0 ST| 00000B90: 4F 50 0D 20 49 46 20 3A 43 48 41 52 20 3D 20 22 |OP. IF :CHAR = "| 00000BA0: 93 20 43 4C 45 41 52 53 48 41 50 45 20 43 4C 45 |. CLEARSHAPE CLE| 00000BB0: 41 52 54 45 58 54 20 52 45 44 49 53 50 4C 41 59 |ARTEXT REDISPLAY| 00000BC0: 20 4D 41 4B 45 20 22 58 20 30 20 4D 41 4B 45 20 | MAKE "X 0 MAKE | 00000BD0: 22 59 20 30 20 53 54 4F 50 0D 20 49 46 20 3A 43 |"Y 0 STOP. IF :C| 00000BE0: 48 41 52 20 3D 20 22 58 20 54 4F 47 47 4C 45 58 |HAR = "X TOGGLEX| 00000BF0: 20 53 54 4F 50 0D 20 49 46 20 3A 43 48 41 52 20 | STOP. IF :CHAR | 00000C00: 3D 20 22 59 20 54 4F 47 47 4C 45 59 20 53 54 4F |= "Y TOGGLEY STO| 00000C10: 50 0D 20 49 46 20 3A 43 48 41 52 20 3D 20 22 12 |P. IF :CHAR = ".| 00000C20: 20 52 56 53 2E 53 48 41 50 45 20 52 45 44 49 53 | RVS.SHAPE REDIS| 00000C30: 50 4C 41 59 20 53 54 4F 50 0D 20 49 46 20 3A 43 |PLAY STOP. IF :C| 00000C40: 48 41 52 20 3D 20 22 03 20 45 44 2E 51 55 49 54 |HAR = ". ED.QUIT| 00000C50: 0D 45 4E 44 0D 0D 54 4F 20 45 44 2E 4C 4F 4F 50 |.END..TO ED.LOOP| 00000C60: 20 3A 58 20 3A 59 0D 20 45 44 2E 43 4F 4D 4D 41 | :X :Y. ED.COMMA| 00000C70: 4E 44 20 52 43 26 46 4C 41 53 48 0D 20 45 44 2E |ND RC&FLASH. ED.| 00000C80: 4C 4F 4F 50 20 3A 58 20 3A 59 0D 45 4E 44 0D 0D |LOOP :X :Y.END..| 00000C90: 54 4F 20 4C 41 0D 20 52 51 0D 45 4E 44 0D 0D 54 |TO LA. RQ.END..T| 00000CA0: 4F 20 4C 45 45 53 41 4E 54 57 4F 4F 52 44 0D 20 |O LEESANTWOORD. | 00000CB0: 52 45 51 55 45 53 54 0D 45 4E 44 0D 0D 54 4F 20 |REQUEST.END..TO | 00000CC0: 4D 41 41 4B 4C 45 54 54 45 52 20 3A 41 0D 20 53 |MAAKLETTER :A. S| 00000CD0: 54 41 4D 50 43 48 41 52 20 3A 41 0D 45 4E 44 0D |TAMPCHAR :A.END.| 00000CE0: 0D 54 4F 20 52 41 41 4B 53 50 52 4F 4F 4B 3F 0D |.TO RAAKSPROOK?.| 00000CF0: 20 4C 4F 43 41 4C 20 22 54 0D 20 4D 41 4B 45 20 | LOCAL "T. MAKE | 00000D00: 22 54 20 2E 45 58 41 4D 49 4E 45 20 35 33 32 37 |"T .EXAMINE 5327| 00000D10: 38 0D 20 4F 50 20 30 20 3C 20 42 49 54 41 4E 44 |8. OP 0 < BITAND| 00000D20: 20 2E 45 58 41 4D 49 4E 45 20 35 33 32 37 38 20 | .EXAMINE 53278 | 00000D30: 45 58 50 32 20 57 48 4F 0D 45 4E 44 0D 0D 54 4F |EXP2 WHO.END..TO| 00000D40: 20 42 4F 54 53 49 4E 47 3F 0D 20 4C 4F 43 41 4C | BOTSING?. LOCAL| 00000D50: 20 22 54 0D 20 4D 41 4B 45 20 22 54 20 2E 45 58 | "T. MAKE "T .EX| 00000D60: 41 4D 49 4E 45 20 35 33 32 37 39 0D 20 4F 50 20 |AMINE 53279. OP | 00000D70: 30 20 3C 20 42 49 54 41 4E 44 20 2E 45 58 41 4D |0 < BITAND .EXAM| 00000D80: 49 4E 45 20 35 33 32 37 39 20 45 58 50 32 20 57 |INE 53279 EXP2 W| 00000D90: 48 4F 0D 45 4E 44 0D 0D 54 4F 20 56 45 52 44 57 |HO.END..TO VERDW| 00000DA0: 49 4A 4E 0D 20 48 54 0D 45 4E 44 0D 0D 54 4F 20 |IJN. HT.END..TO | 00000DB0: 4B 4F 4D 0D 20 53 54 0D 45 4E 44 0D 0D 54 4F 20 |KOM. ST.END..TO | 00000DC0: 53 50 20 3A 41 0D 20 54 45 4C 4C 20 3A 41 0D 45 |SP :A. TELL :A.E| 00000DD0: 4E 44 0D 0D 54 4F 20 4B 4F 52 54 0D 20 2E 44 45 |ND..TO KORT. .DE| 00000DE0: 50 4F 53 49 54 20 35 33 32 37 31 20 42 49 54 41 |POSIT 53271 BITA| 00000DF0: 4E 44 20 32 35 35 20 2D 20 45 58 50 32 20 57 48 |ND 255 - EXP2 WH| 00000E00: 4F 20 2E 45 58 41 4D 49 4E 45 20 35 33 32 37 31 |O .EXAMINE 53271| 00000E10: 0D 45 4E 44 0D 0D 54 4F 20 53 4D 41 4C 0D 20 2E |.END..TO SMAL. .| 00000E20: 44 45 50 4F 53 49 54 20 35 33 32 37 37 20 42 49 |DEPOSIT 53277 BI| 00000E30: 54 41 4E 44 20 32 35 35 20 2D 20 45 58 50 32 20 |TAND 255 - EXP2 | 00000E40: 57 48 4F 20 2E 45 58 41 4D 49 4E 45 20 35 33 32 |WHO .EXAMINE 532| 00000E50: 37 37 0D 45 4E 44 0D 0D 54 4F 20 4C 41 4E 47 0D |77.END..TO LANG.| 00000E60: 20 2E 44 45 50 4F 53 49 54 20 35 33 32 37 31 20 | .DEPOSIT 53271 | 00000E70: 42 49 54 4F 52 20 45 58 50 32 20 57 48 4F 20 2E |BITOR EXP2 WHO .| 00000E80: 45 58 41 4D 49 4E 45 20 35 33 32 37 31 0D 45 4E |EXAMINE 53271.EN| 00000E90: 44 0D 0D 54 4F 20 42 52 45 45 44 0D 20 2E 44 45 |D..TO BREED. .DE| 00000EA0: 50 4F 53 49 54 20 35 33 32 37 37 20 42 49 54 4F |POSIT 53277 BITO| 00000EB0: 52 20 45 58 50 32 20 57 48 4F 20 2E 45 58 41 4D |R EXP2 WHO .EXAM| 00000EC0: 49 4E 45 20 35 33 32 37 37 0D 45 4E 44 0D 0D 54 |INE 53277.END..T| 00000ED0: 4F 20 52 45 41 44 53 48 41 50 45 53 20 3A 4E 41 |O READSHAPES :NA| 00000EE0: 4D 45 0D 20 42 4C 4F 41 44 20 57 4F 52 44 20 3A |ME. BLOAD WORD :| 00000EF0: 4E 41 4D 45 20 22 2E 53 48 41 50 45 53 0D 45 4E |NAME ".SHAPES.EN| 00000F00: 44 0D 0D 54 4F 20 54 42 3F 0D 20 4C 4F 43 41 4C |D..TO TB?. LOCAL| 00000F10: 20 22 54 0D 20 4D 41 4B 45 20 22 54 20 2E 45 58 | "T. MAKE "T .EX| 00000F20: 41 4D 49 4E 45 20 35 33 32 37 39 0D 20 4F 50 20 |AMINE 53279. OP | 00000F30: 30 20 3C 20 42 49 54 41 4E 44 20 2E 45 58 41 4D |0 < BITAND .EXAM| 00000F40: 49 4E 45 20 35 33 32 37 39 20 45 58 50 32 20 57 |INE 53279 EXP2 W| 00000F50: 48 4F 0D 45 4E 44 0D 0D 54 4F 20 42 49 47 59 0D |HO.END..TO BIGY.| 00000F60: 20 2E 44 45 50 4F 53 49 54 20 35 33 32 37 31 20 | .DEPOSIT 53271 | 00000F70: 42 49 54 4F 52 20 45 58 50 32 20 57 48 4F 20 2E |BITOR EXP2 WHO .| 00000F80: 45 58 41 4D 49 4E 45 20 35 33 32 37 31 0D 45 4E |EXAMINE 53271.EN| 00000F90: 44 0D 0D 54 4F 20 53 4D 41 4C 4C 59 0D 20 2E 44 |D..TO SMALLY. .D| 00000FA0: 45 50 4F 53 49 54 20 35 33 32 37 31 20 42 49 54 |EPOSIT 53271 BIT| 00000FB0: 41 4E 44 20 32 35 35 20 2D 20 45 58 50 32 20 57 |AND 255 - EXP2 W| 00000FC0: 48 4F 20 2E 45 58 41 4D 49 4E 45 20 35 33 32 37 |HO .EXAMINE 5327| 00000FD0: 31 0D 45 4E 44 0D 0D 54 4F 20 42 49 47 58 0D 20 |1.END..TO BIGX. | 00000FE0: 2E 44 45 50 4F 53 49 54 20 35 33 32 37 37 20 42 |.DEPOSIT 53277 B| 00000FF0: 49 54 4F 52 20 45 58 50 32 20 57 48 4F 20 2E 45 |ITOR EXP2 WHO .E| 00001000: 58 41 4D 49 4E 45 20 35 33 32 37 37 0D 45 4E 44 |XAMINE 53277.END| 00001010: 0D 0D 54 4F 20 53 4D 41 4C 4C 58 0D 20 2E 44 45 |..TO SMALLX. .DE| 00001020: 50 4F 53 49 54 20 35 33 32 37 37 20 42 49 54 41 |POSIT 53277 BITA| 00001030: 4E 44 20 32 35 35 20 2D 20 45 58 50 32 20 57 48 |ND 255 - EXP2 WH| 00001040: 4F 20 2E 45 58 41 4D 49 4E 45 20 35 33 32 37 37 |O .EXAMINE 53277| 00001050: 0D 45 4E 44 0D 0D 54 4F 20 41 53 4B 20 3A 4E 20 |.END..TO ASK :N | 00001060: 3A 43 4F 4D 4D 41 4E 44 2E 4C 49 53 54 0D 20 4C |:COMMAND.LIST. L| 00001070: 4F 43 41 4C 20 22 43 55 52 52 45 4E 54 0D 20 4D |OCAL "CURRENT. M| 00001080: 41 4B 45 20 22 43 55 52 52 45 4E 54 20 57 48 4F |AKE "CURRENT WHO| 00001090: 0D 20 54 45 4C 4C 20 3A 4E 20 52 55 4E 20 3A 43 |. TELL :N RUN :C| 000010A0: 4F 4D 4D 41 4E 44 2E 4C 49 53 54 0D 20 54 45 4C |OMMAND.LIST. TEL| 000010B0: 4C 20 3A 43 55 52 52 45 4E 54 0D 45 4E 44 0D 0D |L :CURRENT.END..| 000010C0: 54 4F 20 45 41 43 48 20 3A 45 2E 57 48 4F 20 3A |TO EACH :E.WHO :| 000010D0: 45 2E 57 48 41 54 0D 20 4C 4F 43 41 4C 20 22 4F |E.WHAT. LOCAL "O| 000010E0: 2E 57 48 4F 20 4D 41 4B 45 20 22 4F 2E 57 48 4F |.WHO MAKE "O.WHO| 000010F0: 20 57 48 4F 0D 20 45 41 43 48 31 20 3A 45 2E 57 | WHO. EACH1 :E.W| 00001100: 48 4F 0D 20 54 45 4C 4C 20 3A 4F 2E 57 48 4F 0D |HO. TELL :O.WHO.| 00001110: 45 4E 44 0D 0D 54 4F 20 45 41 43 48 31 20 3A 45 |END..TO EACH1 :E| 00001120: 2E 57 48 4F 0D 20 49 46 20 45 4D 50 54 59 3F 20 |.WHO. IF EMPTY? | 00001130: 3A 45 2E 57 48 4F 20 53 54 4F 50 0D 20 54 45 4C |:E.WHO STOP. TEL| 00001140: 4C 20 46 49 52 53 54 20 3A 45 2E 57 48 4F 20 52 |L FIRST :E.WHO R| 00001150: 55 4E 20 3A 45 2E 57 48 41 54 0D 20 45 41 43 48 |UN :E.WHAT. EACH| 00001160: 31 20 42 46 20 3A 45 2E 57 48 4F 0D 45 4E 44 0D |1 BF :E.WHO.END.| 00001170: 0D 54 4F 20 45 58 50 32 20 3A 4E 0D 20 4F 50 20 |.TO EXP2 :N. OP | 00001180: 49 54 45 4D 20 31 20 2B 20 3A 4E 20 5B 31 20 32 |ITEM 1 + :N [1 2| 00001190: 20 34 20 38 20 31 36 20 33 32 20 36 34 20 31 32 | 4 8 16 32 64 12| 000011A0: 38 5D 0D 45 4E 44 0D 0D 54 4F 20 54 53 3F 0D 20 |8].END..TO TS?. | 000011B0: 4C 4F 43 41 4C 20 22 54 0D 20 4D 41 4B 45 20 22 |LOCAL "T. MAKE "| 000011C0: 54 20 2E 45 58 41 4D 49 4E 45 20 35 33 32 37 38 |T .EXAMINE 53278| 000011D0: 0D 20 4F 50 20 30 20 3C 20 42 49 54 41 4E 44 20 |. OP 0 < BITAND | 000011E0: 2E 45 58 41 4D 49 4E 45 20 35 33 32 37 38 20 45 |.EXAMINE 53278 E| 000011F0: 58 50 32 20 57 48 4F 0D 45 4E 44 0D 0D 54 4F 20 |XP2 WHO.END..TO | 00001200: 57 4F 52 44 54 20 3A 41 0D 20 53 54 20 53 45 54 |WORDT :A. ST SET| 00001210: 53 48 41 50 45 20 3A 41 0D 45 4E 44 0D 0D 54 4F |SHAPE :A.END..TO| 00001220: 20 53 50 52 4F 4F 4B 20 3A 41 0D 20 54 45 4C 4C | SPROOK :A. TELL| 00001230: 20 3A 41 0D 45 4E 44 0D 0D 54 4F 20 57 45 4C 4B | :A.END..TO WELK| 00001240: 45 0D 20 4F 50 20 57 48 4F 0D 45 4E 44 0D 0D 54 |E. OP WHO.END..T| 00001250: 4F 20 41 43 20 3A 41 0D 20 42 4B 20 3A 41 0D 45 |O AC :A. BK :A.E| 00001260: 4E 44 0D 0D 54 4F 20 4C 49 20 3A 41 0D 20 4C 54 |ND..TO LI :A. LT| 00001270: 20 3A 41 0D 45 4E 44 0D 0D 54 4F 20 52 45 43 48 | :A.END..TO RECH| 00001280: 54 53 20 3A 41 0D 20 52 54 20 3A 41 0D 45 4E 44 |TS :A. RT :A.END| 00001290: 0D 0D 54 4F 20 4C 49 4E 4B 53 20 3A 41 0D 20 4C |..TO LINKS :A. L| 000012A0: 54 20 3A 41 0D 45 4E 44 0D 0D 54 4F 20 56 4F 4F |T :A.END..TO VOO| 000012B0: 52 55 49 54 20 3A 41 0D 20 46 44 20 3A 41 0D 45 |RUIT :A. FD :A.E| 000012C0: 4E 44 0D 0D 54 4F 20 56 54 20 3A 41 0D 20 46 44 |ND..TO VT :A. FD| 000012D0: 20 3A 41 0D 45 4E 44 0D 0D 54 4F 20 41 43 48 54 | :A.END..TO ACHT| 000012E0: 45 52 55 49 54 20 3A 41 0D 20 42 4B 20 3A 41 0D |ERUIT :A. BK :A.| 000012F0: 45 4E 44 0D 0D 54 4F 20 41 54 20 3A 41 0D 20 42 |END..TO AT :A. B| 00001300: 4B 20 3A 41 0D 45 4E 44 0D 0D 54 4F 20 4E 58 20 |K :A.END..TO NX | 00001310: 3A 58 0D 20 53 45 54 58 20 3A 58 0D 45 4E 44 0D |:X. SETX :X.END.| 00001320: 0D 54 4F 20 4E 59 20 3A 59 0D 20 53 45 54 59 20 |.TO NY :Y. SETY | 00001330: 3A 59 0D 45 4E 44 0D 0D 54 4F 20 4E 41 41 52 59 |:Y.END..TO NAARY| 00001340: 20 3A 59 0D 20 53 45 54 59 20 3A 59 0D 45 4E 44 | :Y. SETY :Y.END| 00001350: 0D 0D 54 4F 20 4E 41 41 52 20 3A 58 20 3A 59 0D |..TO NAAR :X :Y.| 00001360: 20 53 45 54 58 59 20 3A 58 20 3A 59 0D 45 4E 44 | SETXY :X :Y.END| 00001370: 0D 0D 54 4F 20 4B 4C 45 55 52 4C 49 4A 4E 20 3A |..TO KLEURLIJN :| 00001380: 4B 0D 20 50 45 4E 43 4F 4C 4F 52 20 3A 4B 0D 45 |K. PENCOLOR :K.E| 00001390: 4E 44 0D 0D 54 4F 20 4B 4C 20 3A 4B 0D 20 50 45 |ND..TO KL :K. PE| 000013A0: 4E 43 4F 4C 4F 52 20 3A 4B 0D 45 4E 44 0D 0D 54 |NCOLOR :K.END..T| 000013B0: 4F 20 4B 4C 45 55 52 53 43 48 45 52 4D 20 3A 4B |O KLEURSCHERM :K| 000013C0: 0D 20 42 47 20 3A 4B 0D 45 4E 44 0D 0D 54 4F 20 |. BG :K.END..TO | 000013D0: 4B 53 20 3A 4B 0D 20 42 47 20 3A 4B 0D 45 4E 44 |KS :K. BG :K.END| 000013E0: 0D 0D 54 4F 20 53 4F 0D 20 50 55 0D 45 4E 44 0D |..TO SO. PU.END.| 000013F0: 0D 54 4F 20 53 4E 0D 20 50 44 0D 45 4E 44 0D 0D |.TO SN. PD.END..| 00001400: 54 4F 20 4E 41 41 52 58 20 3A 58 0D 20 53 45 54 |TO NAARX :X. SET| 00001410: 58 20 3A 58 0D 45 4E 44 0D 0D 54 4F 20 56 55 0D |X :X.END..TO VU.| 00001420: 20 43 53 0D 45 4E 44 0D 0D 54 4F 20 56 45 45 47 | CS.END..TO VEEG| 00001430: 55 49 54 0D 20 43 53 0D 45 4E 44 0D 0D 54 4F 20 |UIT. CS.END..TO | 00001440: 4E 42 0D 20 48 4F 4D 45 0D 45 4E 44 0D 0D 54 4F |NB. HOME.END..TO| 00001450: 20 4E 41 41 52 42 45 47 49 4E 0D 20 48 4F 4D 45 | NAARBEGIN. HOME| 00001460: 0D 45 4E 44 0D 0D 54 4F 20 58 59 20 3A 58 20 3A |.END..TO XY :X :| 00001470: 59 0D 20 53 45 54 58 59 20 3A 58 20 3A 59 0D 45 |Y. SETXY :X :Y.E| 00001480: 4E 44 0D 0D 54 4F 20 4C 45 45 52 2E 52 45 47 45 |ND..TO LEER.REGE| 00001490: 4C 53 0D 20 4C 4F 43 41 4C 20 22 52 45 47 45 4C |LS. LOCAL "REGEL| 000014A0: 0D 20 4D 41 4B 45 20 22 52 45 47 45 4C 20 56 52 |. MAKE "REGEL VR| 000014B0: 41 41 47 20 22 3E 0D 20 49 46 20 3A 52 45 47 45 |AAG ">. IF :REGE| 000014C0: 4C 20 3D 20 5B 4B 4C 41 41 52 5D 20 4F 55 54 50 |L = [KLAAR] OUTP| 000014D0: 55 54 20 5B 5D 0D 20 4F 55 54 50 55 54 20 46 50 |UT []. OUTPUT FP| 000014E0: 55 54 20 3A 52 45 47 45 4C 20 4C 45 45 52 2E 52 |UT :REGEL LEER.R| 000014F0: 45 47 45 4C 53 0D 45 4E 44 0D 0D 54 4F 20 56 52 |EGELS.END..TO VR| 00001500: 41 41 47 20 3A 4E 41 41 4D 0D 20 4C 4F 43 41 4C |AAG :NAAM. LOCAL| 00001510: 20 22 41 4E 54 57 4F 4F 52 44 0D 20 50 52 49 4E | "ANTWOORD. PRIN| 00001520: 54 31 20 3A 4E 41 41 4D 0D 20 4D 41 4B 45 20 22 |T1 :NAAM. MAKE "| 00001530: 41 4E 54 57 4F 4F 52 44 20 52 45 51 55 45 53 54 |ANTWOORD REQUEST| 00001540: 0D 20 49 46 20 45 4D 50 54 59 3F 20 3A 41 4E 54 |. IF EMPTY? :ANT| 00001550: 57 4F 4F 52 44 20 4F 55 54 50 55 54 20 56 52 41 |WOORD OUTPUT VRA| 00001560: 41 47 20 3A 4E 41 41 4D 0D 20 4F 55 54 50 55 54 |AG :NAAM. OUTPUT| 00001570: 20 3A 41 4E 54 57 4F 4F 52 44 0D 45 4E 44 0D 0D | :ANTWOORD.END..| 00001580: 54 4F 20 4C 45 45 52 0D 20 54 45 58 54 42 47 20 |TO LEER. TEXTBG | 00001590: 31 0D 20 4C 4F 43 41 4C 20 22 4E 41 41 4D 2E 56 |1. LOCAL "NAAM.V| 000015A0: 41 52 49 41 42 45 4C 45 4E 0D 20 4D 41 4B 45 20 |ARIABELEN. MAKE | 000015B0: 22 4E 41 41 4D 2E 56 41 52 49 41 42 45 4C 45 4E |"NAAM.VARIABELEN| 000015C0: 20 56 52 41 41 47 20 5B 4E 41 41 4D 3A 5D 0D 20 | VRAAG [NAAM:]. | 000015D0: 28 20 50 52 49 4E 54 20 22 4C 45 45 52 20 3A 4E |( PRINT "LEER :N| 000015E0: 41 41 4D 2E 56 41 52 49 41 42 45 4C 45 4E 20 29 |AAM.VARIABELEN )| 000015F0: 0D 20 44 45 46 49 4E 45 20 46 49 52 53 54 20 3A |. DEFINE FIRST :| 00001600: 4E 41 41 4D 2E 56 41 52 49 41 42 45 4C 45 4E 20 |NAAM.VARIABELEN | 00001610: 46 50 55 54 20 42 55 54 46 49 52 53 54 20 3A 4E |FPUT BUTFIRST :N| 00001620: 41 41 4D 2E 56 41 52 49 41 42 45 4C 45 4E 20 4C |AAM.VARIABELEN L| 00001630: 45 45 52 2E 52 45 47 45 4C 53 0D 20 28 20 50 52 |EER.REGELS. ( PR| 00001640: 49 4E 54 20 28 20 46 49 52 53 54 20 3A 4E 41 41 |INT ( FIRST :NAA| 00001650: 4D 2E 56 41 52 49 41 42 45 4C 45 4E 20 29 20 22 |M.VARIABELEN ) "| 00001660: 47 45 4C 45 45 52 44 20 29 0D 20 54 45 58 54 42 |GELEERD ). TEXTB| 00001670: 47 20 34 0D 45 4E 44 0D 0D 54 4F 20 52 45 20 3A |G 4.END..TO RE :| 00001680: 41 0D 20 52 54 20 3A 41 0D 45 4E 44 0D 0D 54 4F |A. RT :A.END..TO| 00001690: 20 56 4F 20 3A 41 0D 20 46 44 20 3A 41 0D 45 4E | VO :A. FD :A.EN| 000016A0: 44 0D 0D 54 4F 20 48 45 52 48 41 41 4C 20 3A 4E |D..TO HERHAAL :N| 000016B0: 20 3A 42 0D 20 52 45 50 45 41 54 20 3A 4E 20 5B | :B. REPEAT :N [| 000016C0: 52 55 4E 20 3A 42 5D 0D 45 4E 44 0D 0D 4D 41 4B |RUN :B].END..MAK| 000016D0: 45 20 22 44 49 4E 4F 53 41 55 52 20 28 31 29 0D |E "DINOSAUR (1).| 000016E0: 4D 41 4B 45 20 22 4B 41 4E 47 41 52 4F 4F 20 28 |MAKE "KANGAROO (| 000016F0: 32 29 0D 4D 41 4B 45 20 22 42 55 47 20 28 33 29 |2).MAKE "BUG (3)| 00001700: 0D 4D 41 4B 45 20 22 44 4F 4C 50 48 49 4E 20 28 |.MAKE "DOLPHIN (| 00001710: 34 29 0D 4D 41 4B 45 20 22 48 4F 52 53 45 20 28 |4).MAKE "HORSE (| 00001720: 35 29 0D 4D 41 4B 45 20 22 43 41 54 20 28 36 29 |5).MAKE "CAT (6)| 00001730: 0D 4D 41 4B 45 20 22 42 55 54 54 45 52 46 4C 59 |.MAKE "BUTTERFLY| 00001740: 20 28 37 29 0D 4D 41 4B 45 20 22 56 49 43 20 28 | (7).MAKE "VIC (| 00001750: 35 33 32 34 38 29 0D 4D 41 4B 45 20 22 52 45 54 |53248).MAKE "RET| 00001760: 55 52 4E 20 22 0D 0D 4D 41 4B 45 20 22 57 20 5B |URN "..MAKE "W [| 00001770: 5D 0D 4D 41 4B 45 20 22 46 4F 52 43 45 20 28 33 |].MAKE "FORCE (3| 00001780: 29 0D 4D 41 4B 45 20 22 56 59 20 28 2D 34 2E 33 |).MAKE "VY (-4.3| 00001790: 39 32 32 34 29 0D 4D 41 4B 45 20 22 56 58 20 28 |9224).MAKE "VX (| 000017A0: 36 29 0D 4D 41 4B 45 20 22 50 45 4E 50 4F 53 20 |6).MAKE "PENPOS | 000017B0: 5B 44 4F 57 4E 5D 0D 4D 41 4B 45 20 22 54 41 42 |[DOWN].MAKE "TAB| 000017C0: 45 4C 4E 49 45 55 57 20 5B 36 20 37 20 38 20 39 |ELNIEUW [6 7 8 9| 000017D0: 20 39 20 31 20 32 20 30 20 34 20 39 39 20 36 20 | 9 1 2 0 4 99 6 | 000017E0: 37 20 38 20 39 5D 0D 4D 41 4B 45 20 22 41 52 52 |7 8 9].MAKE "ARR| 000017F0: 41 59 20 5B 31 20 32 20 33 20 34 20 35 20 36 20 |AY [1 2 3 4 5 6 | 00001800: 37 20 38 20 39 20 31 30 20 31 31 20 31 32 20 31 |7 8 9 10 11 12 1| 00001810: 33 20 31 34 20 31 35 20 31 36 20 31 37 20 31 38 |3 14 15 16 17 18| 00001820: 20 31 39 20 32 30 20 32 31 20 32 32 20 32 33 20 | 19 20 21 22 23 | 00001830: 32 34 20 32 35 20 32 36 20 32 37 20 32 38 20 32 |24 25 26 27 28 2| 00001840: 39 20 33 30 5D 0D 4D 41 4B 45 20 22 42 45 4B 45 |9 30].MAKE "BEKE| 00001850: 4E 44 20 5B 5B 4A 4F 53 5D 5D 0D 4D 41 4B 45 20 |ND [[JOS]].MAKE | 00001860: 22 41 20 28 36 29 0D 4D 41 4B 45 20 22 45 4C 45 |"A (6).MAKE "ELE| 00001870: 4D 45 4E 54 20 28 31 29 0D 4D 41 4B 45 20 22 54 |MENT (1).MAKE "T| 00001880: 41 42 45 4C 20 5B 31 20 32 20 33 20 39 20 30 20 |ABEL [1 2 3 9 0 | 00001890: 36 20 37 20 38 20 39 5D 0D 4D 41 4B 45 20 22 53 |6 7 8 9].MAKE "S| 000018A0: 54 41 52 54 55 50 20 5B 42 4C 4F 41 44 20 22 41 |TARTUP [BLOAD "A| 000018B0: 4E 49 4D 41 4C 53 2E 53 48 41 50 45 53 5D 0D |NIMALS.SHAPES]. |
. TO SAVESPROKEN :FILE :START :END. BSAV E WORD :FILE ".SPROKEN 3072 + :START * 6 4 3072 + :END * 64 + 63.END..TO LEESSPRO KEN :NAME. BLOAD WORD :NAME ".SPROKEN.EN D..TO SAVESPRITES :FILE :START :END. BSA VE WORD :FILE ".SHAPES 3072 + :START * 6 4 3072 + :END * 64 + 63.END..TO VLINDER. OP 7.END..TO KAT. OP 6.END..TO PAARD. O P 5.END..TO DOLFIJN. OP 4.END..TO LUIS. OP 3.END..TO KANGOEROE. OP 2.END..TO DIN OSAURUS. OP 1.END..TO MAAKSPROOK. .OPTIO N "TEXTSCREEN 0 EXP2 WHO. TEXTSCREEN. SE TXY 60 0. REDISPLAY. ED.LOOP 0 0.END..TO EDSH. .OPTION "TEXTSCREEN 0 EXP2 WHO. T EXTSCREEN. SETXY 60 0. REDISPLAY. ED.LOO P 0 0.END..TO SAVESHAPES :NAME. BSAVE WO RD :NAME ".SHAPES 3136 3583.END..TO SETU P. MAKE "RETURN CHAR 13. MAKE "VIC 13 * 4096. IF [] = TEXT "SMALLX READ "SPRITES .END..TO BITON? :ADDR :BIT. OP 0 < BITAN D .EXAMINE :ADDR :BIT.END..TO TOGGLEPOIN T :X :Y. LOCAL "ADDR MAKE "ADDR SP.ADDR. LOCAL "F MAKE "F SP.BIT :X. .DEPOSIT :A DDR BITXOR .EXAMINE :ADDR :F. CURSOR :X + 1 :Y + 1. IF BITON? :ADDR :F PRINT1 "Q ELSE PRINT1 "..END..TO SP.BIT :X. OP EX P2 7 - BITAND :X 7.END..TO SP.ADDR. OP : Y * 3 + WHOSHP + QUOTIENT :X 8.END..TO F LASH&WAIT. TOGGLEPOINT :X :Y TOGGLEPOINT :X :Y IF RC? STOP. FLASH&WAIT.END..TO E D.QUIT. .OPTION "TEXTSCREEN 0 0. SPLITSC REEN. CLEARTEXT TOPLEVEL.END..TO RVS.SHA PE. LOCAL "ADDR MAKE "ADDR WHOSHP. REPEA T 63 [.DEPOSIT :ADDR BITXOR .EXAMINE :AD DR 255 MAKE "ADDR :ADDR+1].END..TO TOGGL EY. .DEPOSIT 53271 BITXOR EXP2 WHO .EXAM INE 53271.END..TO TOGGLEX. .DEPOSIT 5327 7 BITXOR EXP2 WHO .EXAMINE 53277.END..TO CLEARSHAPE. LOCAL "ADDR MAKE "ADDR WHOS HP. REPEAT 63 [.DEPOSIT :ADDR 0 MAKE "AD DR :ADDR+1].END..TO ERASEPOINT :X :Y. LO CAL "ADDR MAKE "ADDR SP.ADDR. .DEPOSIT : ADDR BITAND .EXAMINE :ADDR 255 - SP.BIT :X. CURSOR :X + 1 :Y + 1. PRINT1 "..END. .TO SETPOINT :X :Y. LOCAL "ADDR MAKE "AD DR SP.ADDR. .DEPOSIT :ADDR BITOR .EXAMIN E :ADDR SP.BIT :X. CURSOR :X + 1 :Y + 1 PRINT1 "Q.END..TO INCX. MAKE "X :X + 1 I F :X > 23 MAKE "X 0.END..TO INCY. MAKE " Y :Y + 1 IF :Y > 20 MAKE "Y 0.END..TO DE CX. MAKE "X :X - 1 IF :X < 0 MAKE "X 23. END..TO DECY. MAKE "Y :Y - 1 IF :Y < 0 M AKE "Y 20.END..TO WHOSHP. OP 64 * ( 48 + SHAPE ).END..TO ED.FRAME. CURSOR 0 0. R EPEAT 26 [PRINT1 ".]. REPEAT 21 [CURSOR 0 1+LAST CURSORPOS PRINT1 ". CURSOR 25 L AST CURSORPOS PRINT1 ".]. CURSOR 0 22. R EPEAT 26 [PRINT1 ".]. CURSOR 0 0.END..TO REDISPLAY. TEXTSCREEN CLEARTEXT. ED.FRA ME. .SPRINT WHOSHP.END..TO RC&FLASH. LOC AL "CHAR. IF RC? OP RC. .OPTION "RC 0 1. FLASH&WAIT. MAKE "CHAR RC. .OPTION "RC 0 0. IF ASCII :CHAR = 7 ED.QUIT ELSE OP :CHAR.END..TO ED.COMMAND :CHAR. IF ANYOF :CHAR = "^ :CHAR = ". DECY STOP. IF ANY OF :CHAR = "_ :CHAR = ". DECX STOP. IF : CHAR = ". INCY STOP. IF :CHAR = ". INCX STOP. IF :CHAR = "* SETPOINT :X :Y INCX STOP. IF :CHAR = ". DECX ERASEPOINT :X : Y STOP. IF :CHAR = "' ' ERASEPOINT :X :Y INCX STOP. IF :CHAR = "+ SETPOINT :X :Y STOP. IF :CHAR = "- ERASEPOINT :X :Y ST OP. IF :CHAR = :RETURN MAKE "X 0 INCY ST OP. IF :CHAR = ". MAKE "X 0 MAKE "Y 0 ST OP. IF :CHAR = ". CLEARSHAPE CLEARTEXT R EDISPLAY MAKE "X 0 MAKE "Y 0 STOP. IF :C HAR = "X TOGGLEX STOP. IF :CHAR = "Y TOG GLEY STOP. IF :CHAR = ". RVS.SHAPE REDIS PLAY STOP. IF :CHAR = ". ED.QUIT.END..TO ED.LOOP :X :Y. ED.COMMAND RC&FLASH. ED. LOOP :X :Y.END..TO LA. RQ.END..TO LEESAN TWOORD. REQUEST.END..TO MAAKLETTER :A. S TAMPCHAR :A.END..TO RAAKSPROOK?. LOCAL " T. MAKE "T .EXAMINE 53278. OP 0 < BITAND .EXAMINE 53278 EXP2 WHO.END..TO BOTSING ?. LOCAL "T. MAKE "T .EXAMINE 53279. OP 0 < BITAND .EXAMINE 53279 EXP2 WHO.END.. TO VERDWIJN. HT.END..TO KOM. ST.END..TO SP :A. TELL :A.END..TO KORT. .DEPOSIT 53 271 BITAND 255 - EXP2 WHO .EXAMINE 53271 .END..TO SMAL. .DEPOSIT 53277 BITAND 255 - EXP2 WHO .EXAMINE 53277.END..TO LANG. .DEPOSIT 53271 BITOR EXP2 WHO .EXAMINE 53271.END..TO BREED. .DEPOSIT 53277 BITO R EXP2 WHO .EXAMINE 53277.END..TO READSH APES :NAME. BLOAD WORD :NAME ".SHAPES.EN D..TO TB?. LOCAL "T. MAKE "T .EXAMINE 53 279. OP 0 < BITAND .EXAMINE 53279 EXP2 W HO.END..TO BIGY. .DEPOSIT 53271 BITOR EX P2 WHO .EXAMINE 53271.END..TO SMALLY. .D EPOSIT 53271 BITAND 255 - EXP2 WHO .EXAM INE 53271.END..TO BIGX. .DEPOSIT 53277 B ITOR EXP2 WHO .EXAMINE 53277.END..TO SMA LLX. .DEPOSIT 53277 BITAND 255 - EXP2 WH O .EXAMINE 53277.END..TO ASK :N :COMMAND .LIST. LOCAL "CURRENT. MAKE "CURRENT WHO . TELL :N RUN :COMMAND.LIST. TELL :CURRE NT.END..TO EACH :E.WHO :E.WHAT. LOCAL "O .WHO MAKE "O.WHO WHO. EACH1 :E.WHO. TELL :O.WHO.END..TO EACH1 :E.WHO. IF EMPTY? :E.WHO STOP. TELL FIRST :E.WHO RUN :E.WH AT. EACH1 BF :E.WHO.END..TO EXP2 :N. OP ITEM 1 + :N [1 2 4 8 16 32 64 128].END.. TO TS?. LOCAL "T. MAKE "T .EXAMINE 53278 . OP 0 < BITAND .EXAMINE 53278 EXP2 WHO. END..TO WORDT :A. ST SETSHAPE :A.END..TO SPROOK :A. TELL :A.END..TO WELKE. OP WH O.END..TO AC :A. BK :A.END..TO LI :A. LT :A.END..TO RECHTS :A. RT :A.END..TO LIN KS :A. LT :A.END..TO VOORUIT :A. FD :A.E ND..TO VT :A. FD :A.END..TO ACHTERUIT :A . BK :A.END..TO AT :A. BK :A.END..TO NX :X. SETX :X.END..TO NY :Y. SETY :Y.END.. TO NAARY :Y. SETY :Y.END..TO NAAR :X :Y. SETXY :X :Y.END..TO KLEURLIJN :K. PENCO LOR :K.END..TO KL :K. PENCOLOR :K.END..T O KLEURSCHERM :K. BG :K.END..TO KS :K. B G :K.END..TO SO. PU.END..TO SN. PD.END.. TO NAARX :X. SETX :X.END..TO VU. CS.END. .TO VEEGUIT. CS.END..TO NB. HOME.END..TO NAARBEGIN. HOME.END..TO XY :X :Y. SETXY :X :Y.END..TO LEER.REGELS. LOCAL "REGEL . MAKE "REGEL VRAAG ">. IF :REGEL = [KLA AR] OUTPUT []. OUTPUT FPUT :REGEL LEER.R EGELS.END..TO VRAAG :NAAM. LOCAL "ANTWOO RD. PRINT1 :NAAM. MAKE "ANTWOORD REQUEST . IF EMPTY? :ANTWOORD OUTPUT VRAAG :NAAM . OUTPUT :ANTWOORD.END..TO LEER. TEXTBG 1. LOCAL "NAAM.VARIABELEN. MAKE "NAAM.VA RIABELEN VRAAG [NAAM:]. ( PRINT "LEER :N AAM.VARIABELEN ). DEFINE FIRST :NAAM.VAR IABELEN FPUT BUTFIRST :NAAM.VARIABELEN L EER.REGELS. ( PRINT ( FIRST :NAAM.VARIAB ELEN ) "GELEERD ). TEXTBG 4.END..TO RE : A. RT :A.END..TO VO :A. FD :A.END..TO HE RHAAL :N :B. REPEAT :N [RUN :B].END..MAK E "DINOSAUR (1).MAKE "KANGAROO (2).MAKE "BUG (3).MAKE "DOLPHIN (4).MAKE "HORSE ( 5).MAKE "CAT (6).MAKE "BUTTERFLY (7).MAK E "VIC (53248).MAKE "RETURN "..MAKE "W [ ].MAKE "FORCE (3).MAKE "VY (-4.39224).MA KE "VX (6).MAKE "PENPOS [DOWN].MAKE "TAB ELNIEUW [6 7 8 9 9 1 2 0 4 99 6 7 8 9].M AKE "ARRAY [1 2 3 4 5 6 7 8 9 10 11 12 1 3 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30].MAKE "BEKEND [[JOS]].MAKE "A (6).MAKE "ELEMENT (1).MAKE "TABEL [1 2 3 9 0 6 7 8 9].MAKE "STARTUP [BLOAD "A NIMALS.SHAPES].
> CLICK IMAGE PREVIEW FOR FULL MODAL