NEDSPROKEN.LOGO
FILE INFORMATION
FILENAME(S): NEDSPROKEN.LOGO
FILE TYPE(S): PRG
FILE SIZE: 4.8K
FIRST SEEN: 2025-11-30 21:27:28
APPEARS ON: 1 disk(s)
FILE HASH
0ee9ce862e077b3c713b5396132941203c3df3d756623fd70d8440cea0474b6d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HOLLYWOOD II | NEDSPROKEN.LOGO | PRG | DuncanTwain | 29 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 20 54 4F 20 54 42 3F 0D 20 4C 4F 43 41 4C 20 |. TO TB?. LOCAL | 00000010: 22 54 0D 20 4D 41 4B 45 20 22 54 20 2E 45 58 41 |"T. MAKE "T .EXA| 00000020: 4D 49 4E 45 20 35 33 32 37 39 0D 20 4F 50 20 30 |MINE 53279. OP 0| 00000030: 20 3C 20 42 49 54 41 4E 44 20 2E 45 58 41 4D 49 | < BITAND .EXAMI| 00000040: 4E 45 20 35 33 32 37 39 20 45 58 50 32 20 57 48 |NE 53279 EXP2 WH| 00000050: 4F 0D 45 4E 44 0D 0D 54 4F 20 4C 4F 4F 50 48 4F |O.END..TO LOOPHO| 00000060: 4B 0D 20 49 46 20 52 43 3F 20 53 54 4F 50 0D 20 |K. IF RC? STOP. | 00000070: 49 46 20 54 42 3F 20 42 4B 20 31 20 52 54 20 52 |IF TB? BK 1 RT R| 00000080: 41 4E 44 4F 4D 20 31 38 30 0D 20 46 44 20 31 0D |ANDOM 180. FD 1.| 00000090: 20 4C 4F 4F 50 48 4F 4B 0D 45 4E 44 0D 0D 54 4F | LOOPHOK.END..TO| 000000A0: 20 44 4F 4F 53 20 3A 41 0D 20 52 45 50 45 41 54 | DOOS :A. REPEAT| 000000B0: 20 34 20 5B 46 44 20 3A 41 20 52 54 20 39 30 5D | 4 [FD :A RT 90]| 000000C0: 0D 45 4E 44 0D 0D 54 4F 20 48 4F 4B 20 3A 5A 49 |.END..TO HOK :ZI| 000000D0: 4A 44 45 0D 20 43 53 20 42 47 20 30 0D 20 50 45 |JDE. CS BG 0. PE| 000000E0: 4E 43 4F 4C 4F 52 20 31 20 53 54 20 53 45 54 48 |NCOLOR 1 ST SETH| 000000F0: 20 30 0D 20 44 4F 4F 53 20 3A 5A 49 4A 44 45 0D | 0. DOOS :ZIJDE.| 00000100: 20 50 55 0D 20 46 44 20 3A 5A 49 4A 44 45 20 2F | PU. FD :ZIJDE /| 00000110: 20 32 20 52 54 20 39 30 0D 20 46 44 20 3A 5A 49 | 2 RT 90. FD :ZI| 00000120: 4A 44 45 20 2F 20 32 20 4C 54 20 39 30 0D 20 50 |JDE / 2 LT 90. P| 00000130: 45 4E 43 4F 4C 4F 52 20 31 0D 20 4C 4F 4F 50 48 |ENCOLOR 1. LOOPH| 00000140: 4F 4B 0D 45 4E 44 0D 0D 54 4F 20 52 41 43 45 0D |OK.END..TO RACE.| 00000150: 20 4C 4F 43 41 4C 20 22 53 31 20 4C 4F 43 41 4C | LOCAL "S1 LOCAL| 00000160: 20 22 53 32 0D 20 50 52 49 4E 54 20 5B 52 41 43 | "S2. PRINT [RAC| 00000170: 45 2D 53 50 52 4F 4F 4B 20 31 20 3F 5D 0D 20 4D |E-SPROOK 1 ?]. M| 00000180: 41 4B 45 20 22 53 31 20 46 49 52 53 54 20 52 51 |AKE "S1 FIRST RQ| 00000190: 0D 20 54 45 4C 4C 20 3A 53 31 20 53 54 20 53 45 |. TELL :S1 ST SE| 000001A0: 54 58 59 20 2D 20 31 32 35 20 33 30 0D 20 50 52 |TXY - 125 30. PR| 000001B0: 49 4E 54 20 5B 52 41 43 45 2D 53 50 52 4F 4F 4B |INT [RACE-SPROOK| 000001C0: 20 32 20 3F 5D 0D 20 4D 41 4B 45 20 22 53 32 20 | 2 ?]. MAKE "S2 | 000001D0: 46 49 52 53 54 20 52 51 0D 20 54 45 4C 4C 20 3A |FIRST RQ. TELL :| 000001E0: 53 32 20 53 54 20 53 45 54 58 59 20 2D 20 31 32 |S2 ST SETXY - 12| 000001F0: 35 20 28 20 2D 20 33 30 20 29 0D 20 52 45 50 45 |5 ( - 30 ). REPE| 00000200: 41 54 20 33 30 20 5B 54 45 4C 4C 20 3A 53 31 20 |AT 30 [TELL :S1 | 00000210: 53 50 52 49 4E 47 20 31 20 54 45 4C 4C 20 3A 53 |SPRING 1 TELL :S| 00000220: 32 20 4B 52 55 49 50 20 31 5D 0D 20 54 45 4C 4C |2 KRUIP 1]. TELL| 00000230: 20 3A 53 31 20 47 52 4F 54 45 52 0D 20 50 52 49 | :S1 GROTER. PRI| 00000240: 4E 54 20 5B 49 4B 20 48 45 42 20 47 45 57 4F 4E |NT [IK HEB GEWON| 00000250: 4E 45 4E 21 5D 0D 45 4E 44 0D 0D 54 4F 20 53 50 |NEN!].END..TO SP| 00000260: 52 49 4E 47 20 3A 41 0D 20 52 54 20 39 30 0D 20 |RING :A. RT 90. | 00000270: 52 45 50 45 41 54 20 3A 41 20 5B 46 44 20 31 30 |REPEAT :A [FD 10| 00000280: 20 4C 54 20 39 30 20 46 44 20 31 30 20 52 54 20 | LT 90 FD 10 RT | 00000290: 39 30 20 46 44 20 33 20 52 54 20 39 30 20 46 44 |90 FD 3 RT 90 FD| 000002A0: 20 31 30 20 4C 54 20 39 30 5D 0D 20 4C 54 20 39 | 10 LT 90]. LT 9| 000002B0: 30 0D 45 4E 44 0D 0D 54 4F 20 4B 52 55 49 50 20 |0.END..TO KRUIP | 000002C0: 3A 41 0D 20 52 54 20 39 30 0D 20 52 45 50 45 41 |:A. RT 90. REPEA| 000002D0: 54 20 3A 41 20 5B 46 44 20 31 20 46 44 20 52 41 |T :A [FD 1 FD RA| 000002E0: 4E 44 4F 4D 20 32 34 5D 0D 20 4C 54 20 39 30 0D |NDOM 24]. LT 90.| 000002F0: 45 4E 44 0D 0D 54 4F 20 47 52 4F 54 45 52 0D 20 |END..TO GROTER. | 00000300: 2E 44 45 50 4F 53 49 54 20 35 33 32 37 37 20 42 |.DEPOSIT 53277 B| 00000310: 49 54 4F 52 20 45 58 50 32 20 57 48 4F 20 2E 45 |ITOR EXP2 WHO .E| 00000320: 58 41 4D 49 4E 45 20 35 33 32 37 37 0D 20 2E 44 |XAMINE 53277. .D| 00000330: 45 50 4F 53 49 54 20 35 33 32 37 31 20 42 49 54 |EPOSIT 53271 BIT| 00000340: 4F 52 20 45 58 50 32 20 57 48 4F 20 2E 45 58 41 |OR EXP2 WHO .EXA| 00000350: 4D 49 4E 45 20 35 33 32 37 31 0D 45 4E 44 0D 0D |MINE 53271.END..| 00000360: 54 4F 20 4D 41 41 4B 56 4F 52 4D 20 3A 41 0D 20 |TO MAAKVORM :A. | 00000370: 54 45 4C 4C 20 3A 41 0D 20 2E 4F 50 54 49 4F 4E |TELL :A. .OPTION| 00000380: 20 22 54 45 58 54 53 43 52 45 45 4E 20 30 20 45 | "TEXTSCREEN 0 E| 00000390: 58 50 32 20 57 48 4F 0D 20 54 45 58 54 53 43 52 |XP2 WHO. TEXTSCR| 000003A0: 45 45 4E 0D 20 53 45 54 58 59 20 36 30 20 30 0D |EEN. SETXY 60 0.| 000003B0: 20 52 45 44 49 53 50 4C 41 59 0D 20 45 44 2E 4C | REDISPLAY. ED.L| 000003C0: 4F 4F 50 20 30 20 30 0D 45 4E 44 0D 0D 54 4F 20 |OOP 0 0.END..TO | 000003D0: 45 44 2E 4C 4F 4F 50 20 3A 58 20 3A 59 0D 20 45 |ED.LOOP :X :Y. E| 000003E0: 44 2E 43 4F 4D 4D 41 4E 44 20 52 43 26 46 4C 41 |D.COMMAND RC&FLA| 000003F0: 53 48 0D 20 45 44 2E 4C 4F 4F 50 20 3A 58 20 3A |SH. ED.LOOP :X :| 00000400: 59 0D 45 4E 44 0D 0D 54 4F 20 45 44 53 48 0D 20 |Y.END..TO EDSH. | 00000410: 2E 4F 50 54 49 4F 4E 20 22 54 45 58 54 53 43 52 |.OPTION "TEXTSCR| 00000420: 45 45 4E 20 30 20 45 58 50 32 20 57 48 4F 0D 20 |EEN 0 EXP2 WHO. | 00000430: 54 45 58 54 53 43 52 45 45 4E 0D 20 53 45 54 58 |TEXTSCREEN. SETX| 00000440: 59 20 36 30 20 30 0D 20 52 45 44 49 53 50 4C 41 |Y 60 0. REDISPLA| 00000450: 59 0D 20 45 44 2E 4C 4F 4F 50 20 30 20 30 0D 45 |Y. ED.LOOP 0 0.E| 00000460: 4E 44 0D 0D 54 4F 20 53 41 56 45 53 48 41 50 45 |ND..TO SAVESHAPE| 00000470: 53 20 3A 4E 41 4D 45 0D 20 42 53 41 56 45 20 57 |S :NAME. BSAVE W| 00000480: 4F 52 44 20 3A 4E 41 4D 45 20 22 2E 53 48 41 50 |ORD :NAME ".SHAP| 00000490: 45 53 20 33 31 33 36 20 33 35 38 33 0D 45 4E 44 |ES 3136 3583.END| 000004A0: 0D 0D 54 4F 20 53 45 54 55 50 0D 20 4D 41 4B 45 |..TO SETUP. MAKE| 000004B0: 20 22 52 45 54 55 52 4E 20 43 48 41 52 20 31 33 | "RETURN CHAR 13| 000004C0: 0D 20 4D 41 4B 45 20 22 56 49 43 20 31 33 20 2A |. MAKE "VIC 13 *| 000004D0: 20 34 30 39 36 0D 20 49 46 20 5B 5D 20 3D 20 54 | 4096. IF [] = T| 000004E0: 45 58 54 20 22 53 4D 41 4C 4C 58 20 52 45 41 44 |EXT "SMALLX READ| 000004F0: 20 22 53 50 52 49 54 45 53 0D 45 4E 44 0D 0D 54 | "SPRITES.END..T| 00000500: 4F 20 53 4D 41 4C 4C 58 0D 20 2E 44 45 50 4F 53 |O SMALLX. .DEPOS| 00000510: 49 54 20 35 33 32 37 37 20 42 49 54 41 4E 44 20 |IT 53277 BITAND | 00000520: 32 35 35 20 2D 20 45 58 50 32 20 57 48 4F 20 2E |255 - EXP2 WHO .| 00000530: 45 58 41 4D 49 4E 45 20 35 33 32 37 37 0D 45 4E |EXAMINE 53277.EN| 00000540: 44 0D 0D 54 4F 20 42 49 54 4F 4E 3F 20 3A 41 44 |D..TO BITON? :AD| 00000550: 44 52 20 3A 42 49 54 0D 20 4F 50 20 30 20 3C 20 |DR :BIT. OP 0 < | 00000560: 42 49 54 41 4E 44 20 2E 45 58 41 4D 49 4E 45 20 |BITAND .EXAMINE | 00000570: 3A 41 44 44 52 20 3A 42 49 54 0D 45 4E 44 0D 0D |:ADDR :BIT.END..| 00000580: 54 4F 20 54 4F 47 47 4C 45 50 4F 49 4E 54 20 3A |TO TOGGLEPOINT :| 00000590: 58 20 3A 59 0D 20 4C 4F 43 41 4C 20 22 41 44 44 |X :Y. LOCAL "ADD| 000005A0: 52 20 4D 41 4B 45 20 22 41 44 44 52 20 53 50 2E |R MAKE "ADDR SP.| 000005B0: 41 44 44 52 0D 20 4C 4F 43 41 4C 20 22 46 20 4D |ADDR. LOCAL "F M| 000005C0: 41 4B 45 20 22 46 20 53 50 2E 42 49 54 20 3A 58 |AKE "F SP.BIT :X| 000005D0: 0D 20 2E 44 45 50 4F 53 49 54 20 3A 41 44 44 52 |. .DEPOSIT :ADDR| 000005E0: 20 42 49 54 58 4F 52 20 2E 45 58 41 4D 49 4E 45 | BITXOR .EXAMINE| 000005F0: 20 3A 41 44 44 52 20 3A 46 0D 20 43 55 52 53 4F | :ADDR :F. CURSO| 00000600: 52 20 3A 58 20 2B 20 31 20 3A 59 20 2B 20 31 0D |R :X + 1 :Y + 1.| 00000610: 20 49 46 20 42 49 54 4F 4E 3F 20 3A 41 44 44 52 | IF BITON? :ADDR| 00000620: 20 3A 46 20 50 52 49 4E 54 31 20 22 D1 20 45 4C | :F PRINT1 ". EL| 00000630: 53 45 20 50 52 49 4E 54 31 20 22 2E 0D 45 4E 44 |SE PRINT1 "..END| 00000640: 0D 0D 54 4F 20 57 48 4F 53 48 50 0D 20 4F 50 20 |..TO WHOSHP. OP | 00000650: 36 34 20 2A 20 28 20 34 38 20 2B 20 53 48 41 50 |64 * ( 48 + SHAP| 00000660: 45 20 29 0D 45 4E 44 0D 0D 54 4F 20 53 50 2E 42 |E ).END..TO SP.B| 00000670: 49 54 20 3A 58 0D 20 4F 50 20 45 58 50 32 20 37 |IT :X. OP EXP2 7| 00000680: 20 2D 20 42 49 54 41 4E 44 20 3A 58 20 37 0D 45 | - BITAND :X 7.E| 00000690: 4E 44 0D 0D 54 4F 20 53 50 2E 41 44 44 52 0D 20 |ND..TO SP.ADDR. | 000006A0: 4F 50 20 3A 59 20 2A 20 33 20 2B 20 57 48 4F 53 |OP :Y * 3 + WHOS| 000006B0: 48 50 20 2B 20 51 55 4F 54 49 45 4E 54 20 3A 58 |HP + QUOTIENT :X| 000006C0: 20 38 0D 45 4E 44 0D 0D 54 4F 20 45 44 2E 46 52 | 8.END..TO ED.FR| 000006D0: 41 4D 45 0D 20 43 55 52 53 4F 52 20 30 20 30 0D |AME. CURSOR 0 0.| 000006E0: 20 52 45 50 45 41 54 20 32 36 20 5B 50 52 49 4E | REPEAT 26 [PRIN| 000006F0: 54 31 20 22 A6 5D 0D 20 52 45 50 45 41 54 20 32 |T1 ".]. REPEAT 2| 00000700: 31 20 5B 43 55 52 53 4F 52 20 30 20 31 2B 4C 41 |1 [CURSOR 0 1+LA| 00000710: 53 54 20 43 55 52 53 4F 52 50 4F 53 20 50 52 49 |ST CURSORPOS PRI| 00000720: 4E 54 31 20 22 A6 20 43 55 52 53 4F 52 20 32 35 |NT1 ". CURSOR 25| 00000730: 20 4C 41 53 54 20 43 55 52 53 4F 52 50 4F 53 20 | LAST CURSORPOS | 00000740: 50 52 49 4E 54 31 20 22 A6 5D 0D 20 43 55 52 53 |PRINT1 ".]. CURS| 00000750: 4F 52 20 30 20 32 32 0D 20 52 45 50 45 41 54 20 |OR 0 22. REPEAT | 00000760: 32 36 20 5B 50 52 49 4E 54 31 20 22 A6 5D 0D 20 |26 [PRINT1 ".]. | 00000770: 43 55 52 53 4F 52 20 30 20 30 0D 45 4E 44 0D 0D |CURSOR 0 0.END..| 00000780: 54 4F 20 46 4C 41 53 48 26 57 41 49 54 0D 20 54 |TO FLASH&WAIT. T| 00000790: 4F 47 47 4C 45 50 4F 49 4E 54 20 3A 58 20 3A 59 |OGGLEPOINT :X :Y| 000007A0: 20 54 4F 47 47 4C 45 50 4F 49 4E 54 20 3A 58 20 | TOGGLEPOINT :X | 000007B0: 3A 59 20 49 46 20 52 43 3F 20 53 54 4F 50 0D 20 |:Y IF RC? STOP. | 000007C0: 46 4C 41 53 48 26 57 41 49 54 0D 45 4E 44 0D 0D |FLASH&WAIT.END..| 000007D0: 54 4F 20 52 43 26 46 4C 41 53 48 0D 20 4C 4F 43 |TO RC&FLASH. LOC| 000007E0: 41 4C 20 22 43 48 41 52 0D 20 49 46 20 52 43 3F |AL "CHAR. IF RC?| 000007F0: 20 4F 50 20 52 43 0D 20 2E 4F 50 54 49 4F 4E 20 | OP RC. .OPTION | 00000800: 22 52 43 20 30 20 31 0D 20 46 4C 41 53 48 26 57 |"RC 0 1. FLASH&W| 00000810: 41 49 54 0D 20 4D 41 4B 45 20 22 43 48 41 52 20 |AIT. MAKE "CHAR | 00000820: 52 43 0D 20 2E 4F 50 54 49 4F 4E 20 22 52 43 20 |RC. .OPTION "RC | 00000830: 30 20 30 0D 20 49 46 20 41 53 43 49 49 20 3A 43 |0 0. IF ASCII :C| 00000840: 48 41 52 20 3D 20 37 20 45 44 2E 51 55 49 54 20 |HAR = 7 ED.QUIT | 00000850: 45 4C 53 45 20 4F 50 20 3A 43 48 41 52 0D 45 4E |ELSE OP :CHAR.EN| 00000860: 44 0D 0D 54 4F 20 45 44 2E 51 55 49 54 0D 20 2E |D..TO ED.QUIT. .| 00000870: 4F 50 54 49 4F 4E 20 22 54 45 58 54 53 43 52 45 |OPTION "TEXTSCRE| 00000880: 45 4E 20 30 20 30 0D 20 53 50 4C 49 54 53 43 52 |EN 0 0. SPLITSCR| 00000890: 45 45 4E 0D 20 43 4C 45 41 52 54 45 58 54 20 54 |EEN. CLEARTEXT T| 000008A0: 4F 50 4C 45 56 45 4C 0D 45 4E 44 0D 0D 54 4F 20 |OPLEVEL.END..TO | 000008B0: 52 56 53 2E 53 48 41 50 45 0D 20 4C 4F 43 41 4C |RVS.SHAPE. LOCAL| 000008C0: 20 22 41 44 44 52 20 4D 41 4B 45 20 22 41 44 44 | "ADDR MAKE "ADD| 000008D0: 52 20 57 48 4F 53 48 50 0D 20 52 45 50 45 41 54 |R WHOSHP. REPEAT| 000008E0: 20 36 33 20 5B 2E 44 45 50 4F 53 49 54 20 3A 41 | 63 [.DEPOSIT :A| 000008F0: 44 44 52 20 42 49 54 58 4F 52 20 2E 45 58 41 4D |DDR BITXOR .EXAM| 00000900: 49 4E 45 20 3A 41 44 44 52 20 32 35 35 20 4D 41 |INE :ADDR 255 MA| 00000910: 4B 45 20 22 41 44 44 52 20 3A 41 44 44 52 2B 31 |KE "ADDR :ADDR+1| 00000920: 5D 0D 45 4E 44 0D 0D 54 4F 20 54 4F 47 47 4C 45 |].END..TO TOGGLE| 00000930: 59 0D 20 2E 44 45 50 4F 53 49 54 20 35 33 32 37 |Y. .DEPOSIT 5327| 00000940: 31 20 42 49 54 58 4F 52 20 45 58 50 32 20 57 48 |1 BITXOR EXP2 WH| 00000950: 4F 20 2E 45 58 41 4D 49 4E 45 20 35 33 32 37 31 |O .EXAMINE 53271| 00000960: 0D 45 4E 44 0D 0D 54 4F 20 54 4F 47 47 4C 45 58 |.END..TO TOGGLEX| 00000970: 0D 20 2E 44 45 50 4F 53 49 54 20 35 33 32 37 37 |. .DEPOSIT 53277| 00000980: 20 42 49 54 58 4F 52 20 45 58 50 32 20 57 48 4F | BITXOR EXP2 WHO| 00000990: 20 2E 45 58 41 4D 49 4E 45 20 35 33 32 37 37 0D | .EXAMINE 53277.| 000009A0: 45 4E 44 0D 0D 54 4F 20 52 45 44 49 53 50 4C 41 |END..TO REDISPLA| 000009B0: 59 0D 20 54 45 58 54 53 43 52 45 45 4E 20 43 4C |Y. TEXTSCREEN CL| 000009C0: 45 41 52 54 45 58 54 0D 20 45 44 2E 46 52 41 4D |EARTEXT. ED.FRAM| 000009D0: 45 0D 20 2E 53 50 52 49 4E 54 20 57 48 4F 53 48 |E. .SPRINT WHOSH| 000009E0: 50 0D 45 4E 44 0D 0D 54 4F 20 43 4C 45 41 52 53 |P.END..TO CLEARS| 000009F0: 48 41 50 45 0D 20 4C 4F 43 41 4C 20 22 41 44 44 |HAPE. LOCAL "ADD| 00000A00: 52 20 4D 41 4B 45 20 22 41 44 44 52 20 57 48 4F |R MAKE "ADDR WHO| 00000A10: 53 48 50 0D 20 52 45 50 45 41 54 20 36 33 20 5B |SHP. REPEAT 63 [| 00000A20: 2E 44 45 50 4F 53 49 54 20 3A 41 44 44 52 20 30 |.DEPOSIT :ADDR 0| 00000A30: 20 4D 41 4B 45 20 22 41 44 44 52 20 3A 41 44 44 | MAKE "ADDR :ADD| 00000A40: 52 2B 31 5D 0D 45 4E 44 0D 0D 54 4F 20 45 52 41 |R+1].END..TO ERA| 00000A50: 53 45 50 4F 49 4E 54 20 3A 58 20 3A 59 0D 20 4C |SEPOINT :X :Y. L| 00000A60: 4F 43 41 4C 20 22 41 44 44 52 20 4D 41 4B 45 20 |OCAL "ADDR MAKE | 00000A70: 22 41 44 44 52 20 53 50 2E 41 44 44 52 0D 20 2E |"ADDR SP.ADDR. .| 00000A80: 44 45 50 4F 53 49 54 20 3A 41 44 44 52 20 42 49 |DEPOSIT :ADDR BI| 00000A90: 54 41 4E 44 20 2E 45 58 41 4D 49 4E 45 20 3A 41 |TAND .EXAMINE :A| 00000AA0: 44 44 52 20 32 35 35 20 2D 20 53 50 2E 42 49 54 |DDR 255 - SP.BIT| 00000AB0: 20 3A 58 0D 20 43 55 52 53 4F 52 20 3A 58 20 2B | :X. CURSOR :X +| 00000AC0: 20 31 20 3A 59 20 2B 20 31 0D 20 50 52 49 4E 54 | 1 :Y + 1. PRINT| 00000AD0: 31 20 22 2E 0D 45 4E 44 0D 0D 54 4F 20 53 45 54 |1 "..END..TO SET| 00000AE0: 50 4F 49 4E 54 20 3A 58 20 3A 59 0D 20 4C 4F 43 |POINT :X :Y. LOC| 00000AF0: 41 4C 20 22 41 44 44 52 20 4D 41 4B 45 20 22 41 |AL "ADDR MAKE "A| 00000B00: 44 44 52 20 53 50 2E 41 44 44 52 0D 20 2E 44 45 |DDR SP.ADDR. .DE| 00000B10: 50 4F 53 49 54 20 3A 41 44 44 52 20 42 49 54 4F |POSIT :ADDR BITO| 00000B20: 52 20 2E 45 58 41 4D 49 4E 45 20 3A 41 44 44 52 |R .EXAMINE :ADDR| 00000B30: 20 53 50 2E 42 49 54 20 3A 58 0D 20 43 55 52 53 | SP.BIT :X. CURS| 00000B40: 4F 52 20 3A 58 20 2B 20 31 20 3A 59 20 2B 20 31 |OR :X + 1 :Y + 1| 00000B50: 20 50 52 49 4E 54 31 20 22 D1 0D 45 4E 44 0D 0D | PRINT1 "..END..| 00000B60: 54 4F 20 49 4E 43 58 0D 20 4D 41 4B 45 20 22 58 |TO INCX. MAKE "X| 00000B70: 20 3A 58 20 2B 20 31 20 49 46 20 3A 58 20 3E 20 | :X + 1 IF :X > | 00000B80: 32 33 20 4D 41 4B 45 20 22 58 20 30 0D 45 4E 44 |23 MAKE "X 0.END| 00000B90: 0D 0D 54 4F 20 49 4E 43 59 0D 20 4D 41 4B 45 20 |..TO INCY. MAKE | 00000BA0: 22 59 20 3A 59 20 2B 20 31 20 49 46 20 3A 59 20 |"Y :Y + 1 IF :Y | 00000BB0: 3E 20 32 30 20 4D 41 4B 45 20 22 59 20 30 0D 45 |> 20 MAKE "Y 0.E| 00000BC0: 4E 44 0D 0D 54 4F 20 44 45 43 58 0D 20 4D 41 4B |ND..TO DECX. MAK| 00000BD0: 45 20 22 58 20 3A 58 20 2D 20 31 20 49 46 20 3A |E "X :X - 1 IF :| 00000BE0: 58 20 3C 20 30 20 4D 41 4B 45 20 22 58 20 32 33 |X < 0 MAKE "X 23| 00000BF0: 0D 45 4E 44 0D 0D 54 4F 20 44 45 43 59 0D 20 4D |.END..TO DECY. M| 00000C00: 41 4B 45 20 22 59 20 3A 59 20 2D 20 31 20 49 46 |AKE "Y :Y - 1 IF| 00000C10: 20 3A 59 20 3C 20 30 20 4D 41 4B 45 20 22 59 20 | :Y < 0 MAKE "Y | 00000C20: 32 30 0D 45 4E 44 0D 0D 54 4F 20 45 44 2E 43 4F |20.END..TO ED.CO| 00000C30: 4D 4D 41 4E 44 20 3A 43 48 41 52 0D 20 49 46 20 |MMAND :CHAR. IF | 00000C40: 41 4E 59 4F 46 20 3A 43 48 41 52 20 3D 20 22 5E |ANYOF :CHAR = "^| 00000C50: 20 3A 43 48 41 52 20 3D 20 22 91 20 44 45 43 59 | :CHAR = ". DECY| 00000C60: 20 53 54 4F 50 0D 20 49 46 20 41 4E 59 4F 46 20 | STOP. IF ANYOF | 00000C70: 3A 43 48 41 52 20 3D 20 22 5F 20 3A 43 48 41 52 |:CHAR = "_ :CHAR| 00000C80: 20 3D 20 22 9D 20 44 45 43 58 20 53 54 4F 50 0D | = ". DECX STOP.| 00000C90: 20 49 46 20 3A 43 48 41 52 20 3D 20 22 11 20 49 | IF :CHAR = ". I| 00000CA0: 4E 43 59 20 53 54 4F 50 0D 20 49 46 20 3A 43 48 |NCY STOP. IF :CH| 00000CB0: 41 52 20 3D 20 22 1D 20 49 4E 43 58 20 53 54 4F |AR = ". INCX STO| 00000CC0: 50 0D 20 49 46 20 3A 43 48 41 52 20 3D 20 22 2A |P. IF :CHAR = "*| 00000CD0: 20 53 45 54 50 4F 49 4E 54 20 3A 58 20 3A 59 20 | SETPOINT :X :Y | 00000CE0: 49 4E 43 58 20 53 54 4F 50 0D 20 49 46 20 3A 43 |INCX STOP. IF :C| 00000CF0: 48 41 52 20 3D 20 22 14 20 44 45 43 58 20 45 52 |HAR = ". DECX ER| 00000D00: 41 53 45 50 4F 49 4E 54 20 3A 58 20 3A 59 20 53 |ASEPOINT :X :Y S| 00000D10: 54 4F 50 0D 20 49 46 20 3A 43 48 41 52 20 3D 20 |TOP. IF :CHAR = | 00000D20: 22 27 20 27 20 45 52 41 53 45 50 4F 49 4E 54 20 |"' ' ERASEPOINT | 00000D30: 3A 58 20 3A 59 20 49 4E 43 58 20 53 54 4F 50 0D |:X :Y INCX STOP.| 00000D40: 20 49 46 20 3A 43 48 41 52 20 3D 20 22 2B 20 53 | IF :CHAR = "+ S| 00000D50: 45 54 50 4F 49 4E 54 20 3A 58 20 3A 59 20 53 54 |ETPOINT :X :Y ST| 00000D60: 4F 50 0D 20 49 46 20 3A 43 48 41 52 20 3D 20 22 |OP. IF :CHAR = "| 00000D70: 2D 20 45 52 41 53 45 50 4F 49 4E 54 20 3A 58 20 |- ERASEPOINT :X | 00000D80: 3A 59 20 53 54 4F 50 0D 20 49 46 20 3A 43 48 41 |:Y STOP. IF :CHA| 00000D90: 52 20 3D 20 3A 52 45 54 55 52 4E 20 4D 41 4B 45 |R = :RETURN MAKE| 00000DA0: 20 22 58 20 30 20 49 4E 43 59 20 53 54 4F 50 0D | "X 0 INCY STOP.| 00000DB0: 20 49 46 20 3A 43 48 41 52 20 3D 20 22 13 20 4D | IF :CHAR = ". M| 00000DC0: 41 4B 45 20 22 58 20 30 20 4D 41 4B 45 20 22 59 |AKE "X 0 MAKE "Y| 00000DD0: 20 30 20 53 54 4F 50 0D 20 49 46 20 3A 43 48 41 | 0 STOP. IF :CHA| 00000DE0: 52 20 3D 20 22 93 20 43 4C 45 41 52 53 48 41 50 |R = ". CLEARSHAP| 00000DF0: 45 20 43 4C 45 41 52 54 45 58 54 20 52 45 44 49 |E CLEARTEXT REDI| 00000E00: 53 50 4C 41 59 20 4D 41 4B 45 20 22 58 20 30 20 |SPLAY MAKE "X 0 | 00000E10: 4D 41 4B 45 20 22 59 20 30 20 53 54 4F 50 0D 20 |MAKE "Y 0 STOP. | 00000E20: 49 46 20 3A 43 48 41 52 20 3D 20 22 58 20 54 4F |IF :CHAR = "X TO| 00000E30: 47 47 4C 45 58 20 53 54 4F 50 0D 20 49 46 20 3A |GGLEX STOP. IF :| 00000E40: 43 48 41 52 20 3D 20 22 59 20 54 4F 47 47 4C 45 |CHAR = "Y TOGGLE| 00000E50: 59 20 53 54 4F 50 0D 20 49 46 20 3A 43 48 41 52 |Y STOP. IF :CHAR| 00000E60: 20 3D 20 22 12 20 52 56 53 2E 53 48 41 50 45 20 | = ". RVS.SHAPE | 00000E70: 52 45 44 49 53 50 4C 41 59 20 53 54 4F 50 0D 20 |REDISPLAY STOP. | 00000E80: 49 46 20 3A 43 48 41 52 20 3D 20 22 03 20 45 44 |IF :CHAR = ". ED| 00000E90: 2E 51 55 49 54 0D 45 4E 44 0D 0D 54 4F 20 4B 4C |.QUIT.END..TO KL| 00000EA0: 45 49 4E 45 52 0D 20 2E 44 45 50 4F 53 49 54 20 |EINER. .DEPOSIT | 00000EB0: 35 33 32 37 37 20 42 49 54 41 4E 44 20 32 35 35 |53277 BITAND 255| 00000EC0: 20 2D 20 45 58 50 32 20 57 48 4F 20 2E 45 58 41 | - EXP2 WHO .EXA| 00000ED0: 4D 49 4E 45 20 35 33 32 37 37 0D 20 2E 44 45 50 |MINE 53277. .DEP| 00000EE0: 4F 53 49 54 20 35 33 32 37 31 20 42 49 54 41 4E |OSIT 53271 BITAN| 00000EF0: 44 20 32 35 35 20 2D 20 45 58 50 32 20 57 48 4F |D 255 - EXP2 WHO| 00000F00: 20 2E 45 58 41 4D 49 4E 45 20 35 33 32 37 31 0D | .EXAMINE 53271.| 00000F10: 45 4E 44 0D 0D 54 4F 20 56 45 52 44 57 49 4A 4E |END..TO VERDWIJN| 00000F20: 0D 20 48 54 0D 45 4E 44 0D 0D 54 4F 20 4B 4F 4D |. HT.END..TO KOM| 00000F30: 0D 20 53 54 0D 45 4E 44 0D 0D 54 4F 20 57 4F 52 |. ST.END..TO WOR| 00000F40: 44 54 20 3A 41 0D 20 53 54 20 53 45 54 53 48 41 |DT :A. ST SETSHA| 00000F50: 50 45 20 3A 41 0D 45 4E 44 0D 0D 54 4F 20 53 50 |PE :A.END..TO SP| 00000F60: 52 4F 4F 4B 20 3A 41 0D 20 54 45 4C 4C 20 3A 41 |ROOK :A. TELL :A| 00000F70: 0D 45 4E 44 0D 0D 54 4F 20 52 45 41 44 53 48 41 |.END..TO READSHA| 00000F80: 50 45 53 20 3A 4E 41 4D 45 0D 20 42 4C 4F 41 44 |PES :NAME. BLOAD| 00000F90: 20 57 4F 52 44 20 3A 4E 41 4D 45 20 22 2E 53 48 | WORD :NAME ".SH| 00000FA0: 41 50 45 53 0D 45 4E 44 0D 0D 54 4F 20 42 49 47 |APES.END..TO BIG| 00000FB0: 59 0D 20 2E 44 45 50 4F 53 49 54 20 35 33 32 37 |Y. .DEPOSIT 5327| 00000FC0: 31 20 42 49 54 4F 52 20 45 58 50 32 20 57 48 4F |1 BITOR EXP2 WHO| 00000FD0: 20 2E 45 58 41 4D 49 4E 45 20 35 33 32 37 31 0D | .EXAMINE 53271.| 00000FE0: 45 4E 44 0D 0D 54 4F 20 53 4D 41 4C 4C 59 0D 20 |END..TO SMALLY. | 00000FF0: 2E 44 45 50 4F 53 49 54 20 35 33 32 37 31 20 42 |.DEPOSIT 53271 B| 00001000: 49 54 41 4E 44 20 32 35 35 20 2D 20 45 58 50 32 |ITAND 255 - EXP2| 00001010: 20 57 48 4F 20 2E 45 58 41 4D 49 4E 45 20 35 33 | WHO .EXAMINE 53| 00001020: 32 37 31 0D 45 4E 44 0D 0D 54 4F 20 42 49 47 58 |271.END..TO BIGX| 00001030: 0D 20 2E 44 45 50 4F 53 49 54 20 35 33 32 37 37 |. .DEPOSIT 53277| 00001040: 20 42 49 54 4F 52 20 45 58 50 32 20 57 48 4F 20 | BITOR EXP2 WHO | 00001050: 2E 45 58 41 4D 49 4E 45 20 35 33 32 37 37 0D 45 |.EXAMINE 53277.E| 00001060: 4E 44 0D 0D 54 4F 20 41 53 4B 20 3A 4E 20 3A 43 |ND..TO ASK :N :C| 00001070: 4F 4D 4D 41 4E 44 2E 4C 49 53 54 0D 20 4C 4F 43 |OMMAND.LIST. LOC| 00001080: 41 4C 20 22 43 55 52 52 45 4E 54 0D 20 4D 41 4B |AL "CURRENT. MAK| 00001090: 45 20 22 43 55 52 52 45 4E 54 20 57 48 4F 0D 20 |E "CURRENT WHO. | 000010A0: 54 45 4C 4C 20 3A 4E 20 52 55 4E 20 3A 43 4F 4D |TELL :N RUN :COM| 000010B0: 4D 41 4E 44 2E 4C 49 53 54 0D 20 54 45 4C 4C 20 |MAND.LIST. TELL | 000010C0: 3A 43 55 52 52 45 4E 54 0D 45 4E 44 0D 0D 54 4F |:CURRENT.END..TO| 000010D0: 20 45 41 43 48 20 3A 45 2E 57 48 4F 20 3A 45 2E | EACH :E.WHO :E.| 000010E0: 57 48 41 54 0D 20 4C 4F 43 41 4C 20 22 4F 2E 57 |WHAT. LOCAL "O.W| 000010F0: 48 4F 20 4D 41 4B 45 20 22 4F 2E 57 48 4F 20 57 |HO MAKE "O.WHO W| 00001100: 48 4F 0D 20 45 41 43 48 31 20 3A 45 2E 57 48 4F |HO. EACH1 :E.WHO| 00001110: 0D 20 54 45 4C 4C 20 3A 4F 2E 57 48 4F 0D 45 4E |. TELL :O.WHO.EN| 00001120: 44 0D 0D 54 4F 20 45 41 43 48 31 20 3A 45 2E 57 |D..TO EACH1 :E.W| 00001130: 48 4F 0D 20 49 46 20 45 4D 50 54 59 3F 20 3A 45 |HO. IF EMPTY? :E| 00001140: 2E 57 48 4F 20 53 54 4F 50 0D 20 54 45 4C 4C 20 |.WHO STOP. TELL | 00001150: 46 49 52 53 54 20 3A 45 2E 57 48 4F 20 52 55 4E |FIRST :E.WHO RUN| 00001160: 20 3A 45 2E 57 48 41 54 0D 20 45 41 43 48 31 20 | :E.WHAT. EACH1 | 00001170: 42 46 20 3A 45 2E 57 48 4F 0D 45 4E 44 0D 0D 54 |BF :E.WHO.END..T| 00001180: 4F 20 45 58 50 32 20 3A 4E 0D 20 4F 50 20 49 54 |O EXP2 :N. OP IT| 00001190: 45 4D 20 31 20 2B 20 3A 4E 20 5B 31 20 32 20 34 |EM 1 + :N [1 2 4| 000011A0: 20 38 20 31 36 20 33 32 20 36 34 20 31 32 38 5D | 8 16 32 64 128]| 000011B0: 0D 45 4E 44 0D 0D 54 4F 20 54 53 3F 0D 20 4C 4F |.END..TO TS?. LO| 000011C0: 43 41 4C 20 22 54 0D 20 4D 41 4B 45 20 22 54 20 |CAL "T. MAKE "T | 000011D0: 2E 45 58 41 4D 49 4E 45 20 35 33 32 37 38 0D 20 |.EXAMINE 53278. | 000011E0: 4F 50 20 30 20 3C 20 42 49 54 41 4E 44 20 2E 45 |OP 0 < BITAND .E| 000011F0: 58 41 4D 49 4E 45 20 35 33 32 37 38 20 45 58 50 |XAMINE 53278 EXP| 00001200: 32 20 57 48 4F 0D 45 4E 44 0D 0D 4D 41 4B 45 20 |2 WHO.END..MAKE | 00001210: 22 56 4C 49 4E 44 45 52 20 28 37 29 0D 4D 41 4B |"VLINDER (7).MAK| 00001220: 45 20 22 4B 41 54 20 28 36 29 0D 4D 41 4B 45 20 |E "KAT (6).MAKE | 00001230: 22 50 41 41 52 44 20 28 35 29 0D 4D 41 4B 45 20 |"PAARD (5).MAKE | 00001240: 22 44 4F 4C 46 49 4A 4E 20 28 34 29 0D 4D 41 4B |"DOLFIJN (4).MAK| 00001250: 45 20 22 4C 55 49 53 20 28 33 29 0D 4D 41 4B 45 |E "LUIS (3).MAKE| 00001260: 20 22 4B 41 4E 47 4F 45 52 4F 45 20 28 32 29 0D | "KANGOEROE (2).| 00001270: 4D 41 4B 45 20 22 44 49 4E 4F 53 41 55 52 55 53 |MAKE "DINOSAURUS| 00001280: 20 28 31 29 0D 4D 41 4B 45 20 22 44 49 4E 4F 53 | (1).MAKE "DINOS| 00001290: 41 55 52 20 28 31 29 0D 4D 41 4B 45 20 22 4B 41 |AUR (1).MAKE "KA| 000012A0: 4E 47 41 52 4F 4F 20 28 32 29 0D 4D 41 4B 45 20 |NGAROO (2).MAKE | 000012B0: 22 42 55 47 20 28 33 29 0D 4D 41 4B 45 20 22 44 |"BUG (3).MAKE "D| 000012C0: 4F 4C 50 48 49 4E 20 28 34 29 0D 4D 41 4B 45 20 |OLPHIN (4).MAKE | 000012D0: 22 48 4F 52 53 45 20 28 35 29 0D 4D 41 4B 45 20 |"HORSE (5).MAKE | 000012E0: 22 43 41 54 20 28 36 29 0D 4D 41 4B 45 20 22 42 |"CAT (6).MAKE "B| 000012F0: 55 54 54 45 52 46 4C 59 20 28 37 29 0D 4D 41 4B |UTTERFLY (7).MAK| 00001300: 45 20 22 56 49 43 20 28 35 33 32 34 38 29 0D 4D |E "VIC (53248).M| 00001310: 41 4B 45 20 22 52 45 54 55 52 4E 20 22 0D 4D 41 |AKE "RETURN ".MA| 00001320: 4B 45 20 22 53 54 41 52 54 55 50 20 5B 42 4C 4F |KE "STARTUP [BLO| 00001330: 41 44 20 22 41 4E 49 4D 41 4C 53 2E 53 48 41 50 |AD "ANIMALS.SHAP| 00001340: 45 53 5D 0D |ES]. |
. TO TB?. LOCAL "T. MAKE "T .EXAMINE 532 79. OP 0 < BITAND .EXAMINE 53279 EXP2 WH O.END..TO LOOPHOK. IF RC? STOP. IF TB? B K 1 RT RANDOM 180. FD 1. LOOPHOK.END..TO DOOS :A. REPEAT 4 [FD :A RT 90].END..TO HOK :ZIJDE. CS BG 0. PENCOLOR 1 ST SETH 0. DOOS :ZIJDE. PU. FD :ZIJDE / 2 RT 90 . FD :ZIJDE / 2 LT 90. PENCOLOR 1. LOOPH OK.END..TO RACE. LOCAL "S1 LOCAL "S2. PR INT [RACE-SPROOK 1 ?]. MAKE "S1 FIRST RQ . TELL :S1 ST SETXY - 125 30. PRINT [RAC E-SPROOK 2 ?]. MAKE "S2 FIRST RQ. TELL : S2 ST SETXY - 125 ( - 30 ). REPEAT 30 [T ELL :S1 SPRING 1 TELL :S2 KRUIP 1]. TELL :S1 GROTER. PRINT [IK HEB GEWONNEN!].EN D..TO SPRING :A. RT 90. REPEAT :A [FD 10 LT 90 FD 10 RT 90 FD 3 RT 90 FD 10 LT 9 0]. LT 90.END..TO KRUIP :A. RT 90. REPEA T :A [FD 1 FD RANDOM 24]. LT 90.END..TO GROTER. .DEPOSIT 53277 BITOR EXP2 WHO .E XAMINE 53277. .DEPOSIT 53271 BITOR EXP2 WHO .EXAMINE 53271.END..TO MAAKVORM :A. TELL :A. .OPTION "TEXTSCREEN 0 EXP2 WHO. TEXTSCREEN. SETXY 60 0. REDISPLAY. ED.L OOP 0 0.END..TO ED.LOOP :X :Y. ED.COMMAN D RC&FLASH. ED.LOOP :X :Y.END..TO EDSH. .OPTION "TEXTSCREEN 0 EXP2 WHO. TEXTSCRE EN. SETXY 60 0. REDISPLAY. ED.LOOP 0 0.E ND..TO SAVESHAPES :NAME. BSAVE WORD :NAM E ".SHAPES 3136 3583.END..TO SETUP. MAKE "RETURN CHAR 13. MAKE "VIC 13 * 4096. I F [] = TEXT "SMALLX READ "SPRITES.END..T O SMALLX. .DEPOSIT 53277 BITAND 255 - EX P2 WHO .EXAMINE 53277.END..TO BITON? :AD DR :BIT. OP 0 < BITAND .EXAMINE :ADDR :B IT.END..TO TOGGLEPOINT :X :Y. LOCAL "ADD R MAKE "ADDR SP.ADDR. LOCAL "F MAKE "F S P.BIT :X. .DEPOSIT :ADDR BITXOR .EXAMINE :ADDR :F. CURSOR :X + 1 :Y + 1. IF BITO N? :ADDR :F PRINT1 "Q ELSE PRINT1 "..END ..TO WHOSHP. OP 64 * ( 48 + SHAPE ).END. .TO SP.BIT :X. OP EXP2 7 - BITAND :X 7.E ND..TO SP.ADDR. OP :Y * 3 + WHOSHP + QUO TIENT :X 8.END..TO ED.FRAME. CURSOR 0 0. REPEAT 26 [PRINT1 ".]. REPEAT 21 [CURSO R 0 1+LAST CURSORPOS PRINT1 ". CURSOR 25 LAST CURSORPOS PRINT1 ".]. CURSOR 0 22. REPEAT 26 [PRINT1 ".]. CURSOR 0 0.END.. TO FLASH&WAIT. TOGGLEPOINT :X :Y TOGGLEP OINT :X :Y IF RC? STOP. FLASH&WAIT.END.. TO RC&FLASH. LOCAL "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.QUIT. . OPTION "TEXTSCREEN 0 0. SPLITSCREEN. CLE ARTEXT TOPLEVEL.END..TO RVS.SHAPE. LOCAL "ADDR MAKE "ADDR WHOSHP. REPEAT 63 [.DE POSIT :ADDR BITXOR .EXAMINE :ADDR 255 MA KE "ADDR :ADDR+1].END..TO TOGGLEY. .DEPO SIT 53271 BITXOR EXP2 WHO .EXAMINE 53271 .END..TO TOGGLEX. .DEPOSIT 53277 BITXOR EXP2 WHO .EXAMINE 53277.END..TO REDISPLA Y. TEXTSCREEN CLEARTEXT. ED.FRAME. .SPRI NT WHOSHP.END..TO CLEARSHAPE. LOCAL "ADD R MAKE "ADDR WHOSHP. REPEAT 63 [.DEPOSIT :ADDR 0 MAKE "ADDR :ADDR+1].END..TO ERA SEPOINT :X :Y. LOCAL "ADDR MAKE "ADDR SP .ADDR. .DEPOSIT :ADDR BITAND .EXAMINE :A DDR 255 - SP.BIT :X. CURSOR :X + 1 :Y + 1. PRINT1 "..END..TO SETPOINT :X :Y. LOC AL "ADDR MAKE "ADDR SP.ADDR. .DEPOSIT :A DDR BITOR .EXAMINE :ADDR SP.BIT :X. CURS OR :X + 1 :Y + 1 PRINT1 "Q.END..TO INCX. MAKE "X :X + 1 IF :X > 23 MAKE "X 0.END ..TO INCY. MAKE "Y :Y + 1 IF :Y > 20 MAK E "Y 0.END..TO DECX. MAKE "X :X - 1 IF : X < 0 MAKE "X 23.END..TO DECY. MAKE "Y : Y - 1 IF :Y < 0 MAKE "Y 20.END..TO ED.CO MMAND :CHAR. IF ANYOF :CHAR = "^ :CHAR = ". DECY STOP. IF ANYOF :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 :CHA R = "+ SETPOINT :X :Y STOP. IF :CHAR = " - ERASEPOINT :X :Y STOP. IF :CHAR = :RET URN MAKE "X 0 INCY STOP. IF :CHAR = ". M AKE "X 0 MAKE "Y 0 STOP. IF :CHAR = ". C LEARSHAPE CLEARTEXT REDISPLAY MAKE "X 0 MAKE "Y 0 STOP. IF :CHAR = "X TOGGLEX ST OP. IF :CHAR = "Y TOGGLEY STOP. IF :CHAR = ". RVS.SHAPE REDISPLAY STOP. IF :CHAR = ". ED.QUIT.END..TO KLEINER. .DEPOSIT 53277 BITAND 255 - EXP2 WHO .EXAMINE 532 77. .DEPOSIT 53271 BITAND 255 - EXP2 WHO .EXAMINE 53271.END..TO VERDWIJN. HT.END ..TO KOM. ST.END..TO WORDT :A. ST SETSHA PE :A.END..TO SPROOK :A. TELL :A.END..TO READSHAPES :NAME. BLOAD WORD :NAME ".SH APES.END..TO BIGY. .DEPOSIT 53271 BITOR EXP2 WHO .EXAMINE 53271.END..TO SMALLY. .DEPOSIT 53271 BITAND 255 - EXP2 WHO .EX AMINE 53271.END..TO BIGX. .DEPOSIT 53277 BITOR EXP2 WHO .EXAMINE 53277.END..TO A SK :N :COMMAND.LIST. LOCAL "CURRENT. MAK E "CURRENT WHO. TELL :N RUN :COMMAND.LIS T. TELL :CURRENT.END..TO EACH :E.WHO :E. WHAT. LOCAL "O.WHO MAKE "O.WHO WHO. EACH 1 :E.WHO. TELL :O.WHO.END..TO EACH1 :E.W HO. IF EMPTY? :E.WHO STOP. TELL FIRST :E .WHO RUN :E.WHAT. EACH1 BF :E.WHO.END..T O 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 5 3278 EXP2 WHO.END..MAKE "VLINDER (7).MAK E "KAT (6).MAKE "PAARD (5).MAKE "DOLFIJN (4).MAKE "LUIS (3).MAKE "KANGOEROE (2). MAKE "DINOSAURUS (1).MAKE "DINOSAUR (1). MAKE "KANGAROO (2).MAKE "BUG (3).MAKE "D OLPHIN (4).MAKE "HORSE (5).MAKE "CAT (6) .MAKE "BUTTERFLY (7).MAKE "VIC (53248).M AKE "RETURN ".MAKE "STARTUP [BLOAD "ANIM ALS.SHAPES].
> CLICK IMAGE PREVIEW FOR FULL MODAL