LOGOVORMEN.LOGO
FILE INFORMATION
FILENAME(S): LOGOVORMEN.LOGO
FILE TYPE(S): PRG
FILE SIZE: 4.5K
FIRST SEEN: 2025-11-30 21:11:01
APPEARS ON: 1 disk(s)
FILE HASH
c2ceec403f5257ab7a8b49b4706cb8600a5cac5a1fa2e5ea790bd4cfda420860
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOGO | LOGOVORMEN.LOGO | PRG | DuncanTwain | 19 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 20 54 4F 20 21 56 0D 20 57 45 47 20 52 56 53 |. TO !V. WEG RVS| 00000010: 20 57 45 47 20 43 4C 52 20 57 45 47 20 4D 49 4E | WEG CLR WEG MIN| 00000020: 58 20 57 45 47 20 4D 49 4E 59 20 57 45 47 20 50 |X WEG MINY WEG P| 00000030: 4C 55 53 58 20 57 45 47 20 50 4C 55 53 59 20 57 |LUSX WEG PLUSY W| 00000040: 45 47 20 46 4C 49 50 58 20 57 45 47 20 46 4C 49 |EG FLIPX WEG FLI| 00000050: 50 59 20 57 45 47 20 46 4C 49 54 53 58 59 20 57 |PY WEG FLITSXY W| 00000060: 45 47 20 5A 45 54 58 59 20 57 45 47 20 57 45 47 |EG ZETXY WEG WEG| 00000070: 58 59 20 57 45 47 20 41 44 44 52 58 59 20 57 45 |XY WEG ADDRXY WE| 00000080: 47 20 42 49 54 58 20 57 45 47 20 42 49 54 41 41 |G BITX WEG BITAA| 00000090: 4E 3F 0D 20 57 45 47 20 4C 41 41 44 56 4F 52 4D |N?. WEG LAADVORM| 000000A0: 20 57 45 47 20 42 45 57 41 41 52 56 4F 52 4D 20 | WEG BEWAARVORM | 000000B0: 57 45 47 20 42 45 57 41 41 52 56 4F 52 4D 45 4E |WEG BEWAARVORMEN| 000000C0: 20 57 45 47 20 4D 41 41 4B 56 4F 52 4D 20 57 45 | WEG MAAKVORM WE| 000000D0: 47 20 57 45 47 56 4F 52 4D 20 57 45 47 20 53 50 |G WEGVORM WEG SP| 000000E0: 52 4F 4F 4B 56 4F 52 4D 20 57 45 47 20 53 50 52 |ROOKVORM WEG SPR| 000000F0: 4F 4F 4B 4E 52 0D 20 57 45 47 20 45 44 2E 4C 4F |OOKNR. WEG ED.LO| 00000100: 4F 50 20 57 45 47 20 45 44 2E 43 4F 4D 4D 20 57 |OP WEG ED.COMM W| 00000110: 45 47 20 45 44 2E 4F 50 4E 49 45 55 57 20 57 45 |EG ED.OPNIEUW WE| 00000120: 47 20 45 44 2E 53 54 4F 50 20 57 45 47 20 45 44 |G ED.STOP WEG ED| 00000130: 2E 52 41 4E 44 20 57 45 47 20 45 44 2E 49 4E 50 |.RAND WEG ED.INP| 00000140: 55 54 20 57 45 47 20 45 44 2E 46 4C 49 54 53 20 |UT WEG ED.FLITS | 00000150: 57 45 47 20 21 56 20 2E 47 43 4F 4C 4C 20 50 52 |WEG !V .GCOLL PR| 00000160: 20 2E 4E 4F 44 45 53 0D 45 4E 44 0D 0D 54 4F 20 | .NODES.END..TO | 00000170: 41 44 44 52 58 59 0D 20 52 45 53 20 3A 59 20 2A |ADDRXY. RES :Y *| 00000180: 20 33 20 2B 20 53 50 52 4F 4F 4B 56 4F 52 4D 20 | 3 + SPROOKVORM | 00000190: 2B 20 51 55 4F 54 49 45 4E 54 20 3A 58 20 38 0D |+ QUOTIENT :X 8.| 000001A0: 45 4E 44 0D 0D 54 4F 20 42 49 54 58 20 3A 58 0D |END..TO BITX :X.| 000001B0: 20 52 45 53 20 45 58 50 32 20 37 20 2D 20 42 49 | RES EXP2 7 - BI| 000001C0: 54 41 4E 44 20 3A 58 20 37 0D 45 4E 44 0D 0D 54 |TAND :X 7.END..T| 000001D0: 4F 20 42 49 54 41 41 4E 3F 20 3A 41 44 44 52 20 |O BITAAN? :ADDR | 000001E0: 3A 42 49 54 0D 20 52 45 53 20 30 20 3C 20 42 49 |:BIT. RES 0 < BI| 000001F0: 54 41 4E 44 20 2E 45 58 41 4D 49 4E 45 20 3A 41 |TAND .EXAMINE :A| 00000200: 44 44 52 20 3A 42 49 54 0D 45 4E 44 0D 0D 54 4F |DDR :BIT.END..TO| 00000210: 20 4C 41 41 44 56 4F 52 4D 20 3A 56 4F 52 4D 4E | LAADVORM :VORMN| 00000220: 52 20 3A 4E 41 41 4D 0D 20 42 4C 41 41 44 20 28 |R :NAAM. BLAAD (| 00000230: 20 57 4F 4F 52 44 20 3A 4E 41 41 4D 20 22 2E 56 | WOORD :NAAM ".V| 00000240: 4F 52 4D 2E 20 3A 56 4F 52 4D 4E 52 20 29 0D 20 |ORM. :VORMNR ). | 00000250: 53 50 52 4F 4F 4B 20 30 20 56 44 20 53 50 52 4F |SPROOK 0 VD SPRO| 00000260: 4F 4B 20 53 50 52 4F 4F 4B 4E 52 20 3A 56 4F 52 |OK SPROOKNR :VOR| 00000270: 4D 4E 52 20 30 20 4E 42 20 4B 4C 45 55 52 20 31 |MNR 0 NB KLEUR 1| 00000280: 20 4B 4F 4D 0D 20 28 20 50 52 49 4E 54 20 5B 56 | KOM. ( PRINT [V| 00000290: 4F 52 4D 5D 20 3A 56 4F 52 4D 4E 52 20 5B 47 45 |ORM] :VORMNR [GE| 000002A0: 4C 41 44 45 4E 5D 20 29 0D 45 4E 44 0D 0D 54 4F |LADEN] ).END..TO| 000002B0: 20 42 45 57 41 41 52 56 4F 52 4D 20 3A 56 4F 52 | BEWAARVORM :VOR| 000002C0: 4D 4E 52 20 3A 4E 41 41 4D 0D 20 4C 4F 4B 41 41 |MNR :NAAM. LOKAA| 000002D0: 4C 20 22 46 4F 55 54 20 4D 41 41 4B 20 22 46 4F |L "FOUT MAAK "FO| 000002E0: 55 54 20 53 41 4D 45 4E 20 3A 56 4F 52 4D 4E 52 |UT SAMEN :VORMNR| 000002F0: 20 5B 49 53 20 46 4F 55 54 20 56 4F 52 4D 4E 52 | [IS FOUT VORMNR| 00000300: 5D 0D 20 41 4C 53 20 4E 49 45 54 20 47 45 54 41 |]. ALS NIET GETA| 00000310: 4C 3F 20 3A 56 4F 52 4D 4E 52 20 44 41 4E 20 50 |L? :VORMNR DAN P| 00000320: 52 20 3A 46 4F 55 54 20 53 54 4F 50 0D 20 41 4C |R :FOUT STOP. AL| 00000330: 53 20 28 20 45 45 4E 56 41 4E 20 3A 56 4F 52 4D |S ( EENVAN :VORM| 00000340: 4E 52 20 3C 20 31 20 3A 56 4F 52 4D 4E 52 20 3E |NR < 1 :VORMNR >| 00000350: 20 37 20 29 20 44 41 4E 20 50 52 20 3A 46 4F 55 | 7 ) DAN PR :FOU| 00000360: 54 20 53 54 4F 50 0D 20 41 4C 53 20 39 20 3C 20 |T STOP. ALS 9 < | 00000370: 41 41 4E 54 41 4C 20 3A 4E 41 41 4D 20 44 41 4E |AANTAL :NAAM DAN| 00000380: 20 50 52 49 4E 54 20 5B 4E 41 41 4D 20 54 45 20 | PRINT [NAAM TE | 00000390: 4C 41 4E 47 5D 20 53 54 4F 50 0D 20 4C 4F 4B 41 |LANG] STOP. LOKA| 000003A0: 41 4C 20 22 53 54 41 52 54 20 4D 41 41 4B 20 22 |AL "START MAAK "| 000003B0: 53 54 41 52 54 20 33 30 37 32 20 2B 20 3A 56 4F |START 3072 + :VO| 000003C0: 52 4D 4E 52 20 2A 20 36 34 0D 20 42 42 45 57 41 |RMNR * 64. BBEWA| 000003D0: 41 52 20 28 20 57 4F 4F 52 44 20 3A 4E 41 41 4D |AR ( WOORD :NAAM| 000003E0: 20 22 2E 56 4F 52 4D 2E 20 3A 56 4F 52 4D 4E 52 | ".VORM. :VORMNR| 000003F0: 20 29 20 3A 53 54 41 52 54 20 3A 53 54 41 52 54 | ) :START :START| 00000400: 20 2B 20 36 33 0D 20 28 20 50 52 20 5B 56 4F 52 | + 63. ( PR [VOR| 00000410: 4D 5D 20 3A 56 4F 52 4D 4E 52 20 5B 42 45 57 41 |M] :VORMNR [BEWA| 00000420: 41 52 44 5D 20 29 0D 45 4E 44 0D 0D 54 4F 20 42 |ARD] ).END..TO B| 00000430: 45 57 41 41 52 56 4F 52 4D 45 4E 20 3A 4E 41 41 |EWAARVORMEN :NAA| 00000440: 4D 0D 20 41 4C 53 20 39 20 3C 20 41 41 4E 54 41 |M. ALS 9 < AANTA| 00000450: 4C 20 3A 4E 41 41 4D 20 44 41 4E 20 50 52 49 4E |L :NAAM DAN PRIN| 00000460: 54 20 5B 4E 41 41 4D 20 54 45 20 4C 41 4E 47 5D |T [NAAM TE LANG]| 00000470: 20 53 54 4F 50 0D 20 42 42 45 57 41 41 52 20 57 | STOP. BBEWAAR W| 00000480: 4F 4F 52 44 20 3A 4E 41 41 4D 20 22 2E 56 4F 52 |OORD :NAAM ".VOR| 00000490: 4D 45 4E 20 33 31 33 36 20 33 35 38 33 0D 20 28 |MEN 3136 3583. (| 000004A0: 20 50 52 20 5B 56 4F 52 4D 45 4E 5D 20 5B 42 45 | PR [VORMEN] [BE| 000004B0: 57 41 41 52 44 5D 20 29 0D 45 4E 44 0D 0D 54 4F |WAARD] ).END..TO| 000004C0: 20 4D 41 41 4B 56 4F 52 4D 20 3A 56 4F 52 4D 4E | MAAKVORM :VORMN| 000004D0: 52 0D 20 4C 4F 4B 41 41 4C 20 22 53 50 52 20 4D |R. LOKAAL "SPR M| 000004E0: 41 41 4B 20 22 53 50 52 20 53 50 52 4F 4F 4B 4E |AAK "SPR SPROOKN| 000004F0: 52 20 3A 56 4F 52 4D 4E 52 20 30 0D 20 41 4C 53 |R :VORMNR 0. ALS| 00000500: 20 3A 53 50 52 20 3D 20 28 20 2D 20 31 20 29 20 | :SPR = ( - 1 ) | 00000510: 44 41 4E 20 50 52 49 4E 54 20 5B 47 45 45 46 20 |DAN PRINT [GEEF | 00000520: 45 45 52 53 54 20 45 45 4E 20 53 50 52 4F 4F 4B |EERST EEN SPROOK| 00000530: 20 44 45 5A 45 20 56 4F 52 4D 5D 20 53 54 4F 50 | DEZE VORM] STOP| 00000540: 0D 20 53 50 52 4F 4F 4B 20 3A 53 50 52 0D 20 2E |. SPROOK :SPR. .| 00000550: 4B 45 55 5A 45 20 22 46 31 20 30 20 45 58 50 32 |KEUZE "F1 0 EXP2| 00000560: 20 57 45 4C 4B 45 0D 20 46 31 20 50 4F 20 4E 41 | WELKE. F1 PO NA| 00000570: 41 52 58 59 20 38 30 20 28 20 2D 20 34 30 20 29 |ARXY 80 ( - 40 )| 00000580: 20 57 45 47 54 45 4B 53 54 20 4B 4C 45 55 52 20 | WEGTEKST KLEUR | 00000590: 31 0D 20 2E 4B 45 55 5A 45 20 22 49 4E 54 45 52 |1. .KEUZE "INTER| 000005A0: 20 30 20 31 0D 20 45 44 2E 52 41 4E 44 20 2E 53 | 0 1. ED.RAND .S| 000005B0: 50 52 49 4E 54 20 53 50 52 4F 4F 4B 56 4F 52 4D |PRINT SPROOKVORM| 000005C0: 0D 20 45 44 2E 4C 4F 4F 50 20 30 20 30 0D 45 4E |. ED.LOOP 0 0.EN| 000005D0: 44 0D 0D 54 4F 20 57 45 47 56 4F 52 4D 20 3A 56 |D..TO WEGVORM :V| 000005E0: 4F 52 4D 4E 52 0D 20 4C 4F 4B 41 41 4C 20 22 53 |ORMNR. LOKAAL "S| 000005F0: 20 4D 41 41 4B 20 22 53 20 57 45 4C 4B 45 0D 20 | MAAK "S WELKE. | 00000600: 4C 4F 4B 41 41 4C 20 22 53 50 52 20 4D 41 41 4B |LOKAAL "SPR MAAK| 00000610: 20 22 53 50 52 20 53 50 52 4F 4F 4B 4E 52 20 3A | "SPR SPROOKNR :| 00000620: 56 4F 52 4D 4E 52 20 30 0D 20 41 4C 53 20 3A 53 |VORMNR 0. ALS :S| 00000630: 50 52 20 3D 20 28 20 2D 20 31 20 29 20 44 41 4E |PR = ( - 1 ) DAN| 00000640: 20 50 52 49 4E 54 20 5B 47 45 45 46 20 45 45 52 | PRINT [GEEF EER| 00000650: 53 54 20 45 45 4E 20 53 50 52 4F 4F 4B 20 44 45 |ST EEN SPROOK DE| 00000660: 5A 45 20 56 4F 52 4D 5D 20 53 54 4F 50 0D 20 53 |ZE VORM] STOP. S| 00000670: 50 52 4F 4F 4B 20 3A 53 50 52 20 43 4C 52 0D 20 |PROOK :SPR CLR. | 00000680: 53 50 52 4F 4F 4B 20 3A 53 0D 45 4E 44 0D 0D 54 |SPROOK :S.END..T| 00000690: 4F 20 53 50 52 4F 4F 4B 4E 52 20 3A 56 4F 52 4D |O SPROOKNR :VORM| 000006A0: 4E 52 20 3A 53 0D 20 41 4C 53 20 3A 53 20 3D 20 |NR :S. ALS :S = | 000006B0: 38 20 44 41 4E 20 52 45 53 55 4C 54 41 41 54 20 |8 DAN RESULTAAT | 000006C0: 28 20 2D 20 31 20 29 0D 20 53 50 52 4F 4F 4B 20 |( - 1 ). SPROOK | 000006D0: 3A 53 20 41 4C 53 20 56 4F 52 4D 20 3D 20 3A 56 |:S ALS VORM = :V| 000006E0: 4F 52 4D 4E 52 20 44 41 4E 20 52 45 53 20 3A 53 |ORMNR DAN RES :S| 000006F0: 0D 20 52 45 53 55 4C 54 41 41 54 20 53 50 52 4F |. RESULTAAT SPRO| 00000700: 4F 4B 4E 52 20 3A 56 4F 52 4D 4E 52 20 3A 53 20 |OKNR :VORMNR :S | 00000710: 2B 20 31 0D 45 4E 44 0D 0D 54 4F 20 45 44 2E 4C |+ 1.END..TO ED.L| 00000720: 4F 4F 50 20 3A 58 20 3A 59 0D 20 45 44 2E 43 4F |OOP :X :Y. ED.CO| 00000730: 4D 4D 20 45 44 2E 49 4E 50 55 54 0D 20 45 44 2E |MM ED.INPUT. ED.| 00000740: 4C 4F 4F 50 20 3A 58 20 3A 59 0D 45 4E 44 0D 0D |LOOP :X :Y.END..| 00000750: 54 4F 20 52 56 53 0D 20 4C 4F 4B 41 41 4C 20 22 |TO RVS. LOKAAL "| 00000760: 41 44 44 52 20 4D 41 41 4B 20 22 41 44 44 52 20 |ADDR MAAK "ADDR | 00000770: 53 50 52 4F 4F 4B 56 4F 52 4D 0D 20 48 45 52 48 |SPROOKVORM. HERH| 00000780: 41 41 4C 20 36 33 20 5B 2E 44 45 50 4F 53 49 54 |AAL 63 [.DEPOSIT| 00000790: 20 3A 41 44 44 52 20 42 49 54 58 4F 52 20 2E 45 | :ADDR BITXOR .E| 000007A0: 58 41 4D 49 4E 45 20 3A 41 44 44 52 20 32 35 35 |XAMINE :ADDR 255| 000007B0: 20 4D 41 41 4B 20 22 41 44 44 52 20 3A 41 44 44 | MAAK "ADDR :ADD| 000007C0: 52 2B 31 5D 0D 45 4E 44 0D 0D 54 4F 20 46 4C 49 |R+1].END..TO FLI| 000007D0: 50 59 0D 20 2E 44 45 50 4F 53 49 54 20 35 33 32 |PY. .DEPOSIT 532| 000007E0: 37 31 20 42 49 54 58 4F 52 20 45 58 50 32 20 57 |71 BITXOR EXP2 W| 000007F0: 45 4C 4B 45 20 2E 45 58 41 4D 49 4E 45 20 35 33 |ELKE .EXAMINE 53| 00000800: 32 37 31 0D 45 4E 44 0D 0D 54 4F 20 46 4C 49 50 |271.END..TO FLIP| 00000810: 58 0D 20 2E 44 45 50 4F 53 49 54 20 35 33 32 37 |X. .DEPOSIT 5327| 00000820: 37 20 42 49 54 58 4F 52 20 45 58 50 32 20 57 45 |7 BITXOR EXP2 WE| 00000830: 4C 4B 45 20 2E 45 58 41 4D 49 4E 45 20 35 33 32 |LKE .EXAMINE 532| 00000840: 37 37 0D 45 4E 44 0D 0D 54 4F 20 43 4C 52 0D 20 |77.END..TO CLR. | 00000850: 4C 4F 4B 41 41 4C 20 22 41 44 44 52 20 4D 41 41 |LOKAAL "ADDR MAA| 00000860: 4B 20 22 41 44 44 52 20 53 50 52 4F 4F 4B 56 4F |K "ADDR SPROOKVO| 00000870: 52 4D 0D 20 48 45 52 48 41 41 4C 20 36 33 20 5B |RM. HERHAAL 63 [| 00000880: 2E 44 45 50 4F 53 49 54 20 3A 41 44 44 52 20 30 |.DEPOSIT :ADDR 0| 00000890: 20 4D 41 41 4B 20 22 41 44 44 52 20 3A 41 44 44 | MAAK "ADDR :ADD| 000008A0: 52 2B 31 5D 0D 45 4E 44 0D 0D 54 4F 20 57 45 47 |R+1].END..TO WEG| 000008B0: 58 59 20 3A 58 20 3A 59 0D 20 4C 4F 4B 41 41 4C |XY :X :Y. LOKAAL| 000008C0: 20 22 41 44 44 52 20 4D 41 41 4B 20 22 41 44 44 | "ADDR MAAK "ADD| 000008D0: 52 20 41 44 44 52 58 59 0D 20 2E 44 45 50 4F 53 |R ADDRXY. .DEPOS| 000008E0: 49 54 20 3A 41 44 44 52 20 42 49 54 41 4E 44 20 |IT :ADDR BITAND | 000008F0: 2E 45 58 41 4D 49 4E 45 20 3A 41 44 44 52 20 32 |.EXAMINE :ADDR 2| 00000900: 35 35 20 2D 20 42 49 54 58 20 3A 58 0D 20 43 55 |55 - BITX :X. CU| 00000910: 52 53 4F 52 20 3A 58 20 2B 20 31 20 3A 59 20 2B |RSOR :X + 1 :Y +| 00000920: 20 31 20 50 52 49 4E 54 31 20 22 2E 0D 45 4E 44 | 1 PRINT1 "..END| 00000930: 0D 0D 54 4F 20 5A 45 54 58 59 20 3A 58 20 3A 59 |..TO ZETXY :X :Y| 00000940: 0D 20 4C 4F 4B 41 41 4C 20 22 41 44 44 52 20 4D |. LOKAAL "ADDR M| 00000950: 41 41 4B 20 22 41 44 44 52 20 41 44 44 52 58 59 |AAK "ADDR ADDRXY| 00000960: 0D 20 2E 44 45 50 4F 53 49 54 20 3A 41 44 44 52 |. .DEPOSIT :ADDR| 00000970: 20 42 49 54 4F 52 20 2E 45 58 41 4D 49 4E 45 20 | BITOR .EXAMINE | 00000980: 3A 41 44 44 52 20 42 49 54 58 20 3A 58 0D 20 43 |:ADDR BITX :X. C| 00000990: 55 52 53 4F 52 20 3A 58 20 2B 20 31 20 3A 59 20 |URSOR :X + 1 :Y | 000009A0: 2B 20 31 20 50 52 49 4E 54 31 20 22 D1 0D 45 4E |+ 1 PRINT1 "..EN| 000009B0: 44 0D 0D 54 4F 20 50 4C 55 53 58 0D 20 4D 41 41 |D..TO PLUSX. MAA| 000009C0: 4B 20 22 58 20 3A 58 20 2B 20 31 20 41 4C 53 20 |K "X :X + 1 ALS | 000009D0: 3A 58 20 3E 20 32 33 20 4D 41 41 4B 20 22 58 20 |:X > 23 MAAK "X | 000009E0: 30 0D 45 4E 44 0D 0D 54 4F 20 50 4C 55 53 59 0D |0.END..TO PLUSY.| 000009F0: 20 4D 41 41 4B 20 22 59 20 3A 59 20 2B 20 31 20 | MAAK "Y :Y + 1 | 00000A00: 41 4C 53 20 3A 59 20 3E 20 32 30 20 4D 41 41 4B |ALS :Y > 20 MAAK| 00000A10: 20 22 59 20 30 0D 45 4E 44 0D 0D 54 4F 20 4D 49 | "Y 0.END..TO MI| 00000A20: 4E 58 0D 20 4D 41 41 4B 20 22 58 20 3A 58 20 2D |NX. MAAK "X :X -| 00000A30: 20 31 20 41 4C 53 20 3A 58 20 3C 20 30 20 4D 41 | 1 ALS :X < 0 MA| 00000A40: 41 4B 20 22 58 20 32 33 0D 45 4E 44 0D 0D 54 4F |AK "X 23.END..TO| 00000A50: 20 4D 49 4E 59 0D 20 4D 41 41 4B 20 22 59 20 3A | MINY. MAAK "Y :| 00000A60: 59 20 2D 20 31 20 41 4C 53 20 3A 59 20 3C 20 30 |Y - 1 ALS :Y < 0| 00000A70: 20 4D 41 41 4B 20 22 59 20 32 30 0D 45 4E 44 0D | MAAK "Y 20.END.| 00000A80: 0D 54 4F 20 45 44 2E 43 4F 4D 4D 20 3A 54 0D 20 |.TO ED.COMM :T. | 00000A90: 41 4C 53 20 45 45 4E 56 41 4E 20 3A 54 20 3D 20 |ALS EENVAN :T = | 00000AA0: 22 5E 20 3A 54 20 3D 20 22 91 20 44 41 4E 20 4D |"^ :T = ". DAN M| 00000AB0: 49 4E 59 20 53 54 4F 50 0D 20 41 4C 53 20 45 45 |INY STOP. ALS EE| 00000AC0: 4E 56 41 4E 20 3A 54 20 3D 20 43 48 41 52 20 31 |NVAN :T = CHAR 1| 00000AD0: 35 37 20 3A 54 20 3D 20 22 2C 20 44 41 4E 20 4D |57 :T = ", DAN M| 00000AE0: 49 4E 58 20 53 54 4F 50 0D 20 41 4C 53 20 3A 54 |INX STOP. ALS :T| 00000AF0: 20 3D 20 22 11 20 44 41 4E 20 50 4C 55 53 59 20 | = ". DAN PLUSY | 00000B00: 53 54 4F 50 0D 20 41 4C 53 20 45 45 4E 56 41 4E |STOP. ALS EENVAN| 00000B10: 20 3A 54 20 3D 20 22 1D 20 3A 54 20 3D 20 22 2E | :T = ". :T = ".| 00000B20: 20 44 41 4E 20 50 4C 55 53 58 20 53 54 4F 50 0D | DAN PLUSX STOP.| 00000B30: 20 41 4C 53 20 3A 54 20 3D 20 22 2B 20 44 41 4E | ALS :T = "+ DAN| 00000B40: 20 5A 45 54 58 59 20 3A 58 20 3A 59 20 53 54 4F | ZETXY :X :Y STO| 00000B50: 50 0D 20 41 4C 53 20 3A 54 20 3D 20 22 2D 20 44 |P. ALS :T = "- D| 00000B60: 41 4E 20 57 45 47 58 59 20 3A 58 20 3A 59 20 53 |AN WEGXY :X :Y S| 00000B70: 54 4F 50 0D 20 41 4C 53 20 3A 54 20 3D 20 22 2A |TOP. ALS :T = "*| 00000B80: 20 44 41 4E 20 5A 45 54 58 59 20 3A 58 20 3A 59 | DAN ZETXY :X :Y| 00000B90: 20 50 4C 55 53 58 20 53 54 4F 50 0D 20 41 4C 53 | PLUSX STOP. ALS| 00000BA0: 20 3A 54 20 3D 20 22 14 20 44 41 4E 20 4D 49 4E | :T = ". DAN MIN| 00000BB0: 58 20 57 45 47 58 59 20 3A 58 20 3A 59 20 53 54 |X WEGXY :X :Y ST| 00000BC0: 4F 50 0D 20 41 4C 53 20 3A 54 20 3D 20 22 27 20 |OP. ALS :T = "' | 00000BD0: 27 20 44 41 4E 20 57 45 47 58 59 20 3A 58 20 3A |' DAN WEGXY :X :| 00000BE0: 59 20 50 4C 55 53 58 20 53 54 4F 50 0D 20 41 4C |Y PLUSX STOP. AL| 00000BF0: 53 20 3A 54 20 3D 20 43 48 41 52 20 31 33 20 44 |S :T = CHAR 13 D| 00000C00: 41 4E 20 4D 41 41 4B 20 22 58 20 30 20 50 4C 55 |AN MAAK "X 0 PLU| 00000C10: 53 59 20 53 54 4F 50 0D 20 41 4C 53 20 3A 54 20 |SY STOP. ALS :T | 00000C20: 3D 20 22 13 20 44 41 4E 20 4D 41 41 4B 20 22 58 |= ". DAN MAAK "X| 00000C30: 20 30 20 4D 41 41 4B 20 22 59 20 30 20 53 54 4F | 0 MAAK "Y 0 STO| 00000C40: 50 0D 20 41 4C 53 20 3A 54 20 3D 20 22 93 20 44 |P. ALS :T = ". D| 00000C50: 41 4E 20 43 4C 52 20 57 45 47 54 45 4B 53 54 20 |AN CLR WEGTEKST | 00000C60: 45 44 2E 4F 50 4E 49 45 55 57 20 4D 41 41 4B 20 |ED.OPNIEUW MAAK | 00000C70: 22 58 20 30 20 4D 41 41 4B 20 22 59 20 30 20 53 |"X 0 MAAK "Y 0 S| 00000C80: 54 4F 50 0D 20 41 4C 53 20 3A 54 20 3D 20 22 58 |TOP. ALS :T = "X| 00000C90: 20 44 41 4E 20 46 4C 49 50 58 20 53 54 4F 50 0D | DAN FLIPX STOP.| 00000CA0: 20 41 4C 53 20 3A 54 20 3D 20 22 59 20 44 41 4E | ALS :T = "Y DAN| 00000CB0: 20 46 4C 49 50 59 20 53 54 4F 50 0D 20 41 4C 53 | FLIPY STOP. ALS| 00000CC0: 20 3A 54 20 3D 20 22 12 20 44 41 4E 20 52 56 53 | :T = ". DAN RVS| 00000CD0: 20 45 44 2E 4F 50 4E 49 45 55 57 20 53 54 4F 50 | ED.OPNIEUW STOP| 00000CE0: 0D 20 41 4C 53 20 3A 54 20 3D 20 22 03 20 44 41 |. ALS :T = ". DA| 00000CF0: 4E 20 45 44 2E 53 54 4F 50 20 53 54 4F 50 0D 45 |N ED.STOP STOP.E| 00000D00: 4E 44 0D 0D 54 4F 20 53 50 52 4F 4F 4B 56 4F 52 |ND..TO SPROOKVOR| 00000D10: 4D 0D 20 52 45 53 20 36 34 20 2A 20 28 20 34 38 |M. RES 64 * ( 48| 00000D20: 20 2B 20 56 4F 52 4D 20 29 0D 45 4E 44 0D 0D 54 | + VORM ).END..T| 00000D30: 4F 20 45 44 2E 4F 50 4E 49 45 55 57 0D 20 46 31 |O ED.OPNIEUW. F1| 00000D40: 20 57 45 47 54 45 4B 53 54 20 45 44 2E 52 41 4E | WEGTEKST ED.RAN| 00000D50: 44 20 2E 53 50 52 49 4E 54 20 53 50 52 4F 4F 4B |D .SPRINT SPROOK| 00000D60: 56 4F 52 4D 0D 45 4E 44 0D 0D 54 4F 20 45 44 2E |VORM.END..TO ED.| 00000D70: 52 41 4E 44 0D 20 43 55 52 53 4F 52 20 30 20 30 |RAND. CURSOR 0 0| 00000D80: 20 48 45 52 48 41 41 4C 20 32 36 20 5B 50 52 49 | HERHAAL 26 [PRI| 00000D90: 4E 54 31 20 22 A6 5D 0D 20 48 45 52 48 41 41 4C |NT1 ".]. HERHAAL| 00000DA0: 20 32 31 20 5B 43 55 52 53 4F 52 20 30 20 31 2B | 21 [CURSOR 0 1+| 00000DB0: 4C 41 41 54 53 54 45 20 43 55 52 53 4F 52 50 4F |LAATSTE CURSORPO| 00000DC0: 53 20 50 52 49 4E 54 31 20 22 A6 20 43 55 52 53 |S PRINT1 ". CURS| 00000DD0: 4F 52 20 32 35 20 4C 41 41 54 53 54 45 20 43 55 |OR 25 LAATSTE CU| 00000DE0: 52 53 4F 52 50 4F 53 20 50 52 49 4E 54 31 20 22 |RSORPOS PRINT1 "| 00000DF0: A6 5D 0D 20 50 52 49 4E 54 20 28 20 53 41 4D 45 |.]. PRINT ( SAME| 00000E00: 4E 20 43 48 41 52 20 33 32 20 5B 56 4F 52 4D 5D |N CHAR 32 [VORM]| 00000E10: 20 3A 56 4F 52 4D 4E 52 20 29 0D 20 43 55 52 53 | :VORMNR ). CURS| 00000E20: 4F 52 20 30 20 32 32 20 48 45 52 48 41 41 4C 20 |OR 0 22 HERHAAL | 00000E30: 32 36 20 5B 50 52 49 4E 54 31 20 22 A6 5D 20 43 |26 [PRINT1 ".] C| 00000E40: 55 52 53 4F 52 20 30 20 30 0D 45 4E 44 0D 0D 54 |URSOR 0 0.END..T| 00000E50: 4F 20 45 44 2E 53 54 4F 50 0D 20 2E 4B 45 55 5A |O ED.STOP. .KEUZ| 00000E60: 45 20 22 46 31 20 30 20 30 0D 20 46 33 20 57 45 |E "F1 0 0. F3 WE| 00000E70: 47 54 45 4B 53 54 20 50 52 20 5B 5D 20 28 20 50 |GTEKST PR [] ( P| 00000E80: 52 20 5B 56 4F 52 4D 5D 20 3A 56 4F 52 4D 4E 52 |R [VORM] :VORMNR| 00000E90: 20 5B 47 45 4D 41 41 4B 54 5D 20 29 0D 20 2E 4B | [GEMAAKT] ). .K| 00000EA0: 45 55 5A 45 20 22 49 4E 54 45 52 20 30 20 30 0D |EUZE "INTER 0 0.| 00000EB0: 20 41 46 47 45 4C 4F 50 45 4E 0D 45 4E 44 0D 0D | AFGELOPEN.END..| 00000EC0: 54 4F 20 45 44 2E 49 4E 50 55 54 0D 20 4C 4F 4B |TO ED.INPUT. LOK| 00000ED0: 41 41 4C 20 22 54 0D 20 41 4C 53 20 54 4F 45 54 |AAL "T. ALS TOET| 00000EE0: 53 3F 20 44 41 4E 20 52 45 53 55 4C 54 41 41 54 |S? DAN RESULTAAT| 00000EF0: 20 54 4F 45 54 53 0D 20 45 44 2E 46 4C 49 54 53 | TOETS. ED.FLITS| 00000F00: 0D 20 4D 41 41 4B 20 22 54 20 54 4F 45 54 53 0D |. MAAK "T TOETS.| 00000F10: 20 41 4C 53 20 41 53 43 49 49 20 3A 54 20 3D 20 | ALS ASCII :T = | 00000F20: 37 20 44 41 4E 20 45 44 2E 53 54 4F 50 20 41 4E |7 DAN ED.STOP AN| 00000F30: 44 45 52 53 20 52 45 53 55 4C 54 41 41 54 20 3A |DERS RESULTAAT :| 00000F40: 54 0D 45 4E 44 0D 0D 54 4F 20 46 4C 49 54 53 58 |T.END..TO FLITSX| 00000F50: 59 20 3A 58 20 3A 59 0D 20 4C 4F 4B 41 41 4C 20 |Y :X :Y. LOKAAL | 00000F60: 22 41 44 44 52 20 4D 41 41 4B 20 22 41 44 44 52 |"ADDR MAAK "ADDR| 00000F70: 20 41 44 44 52 58 59 0D 20 4C 4F 4B 41 41 4C 20 | ADDRXY. LOKAAL | 00000F80: 22 46 20 4D 41 41 4B 20 22 46 20 42 49 54 58 20 |"F MAAK "F BITX | 00000F90: 3A 58 0D 20 2E 44 45 50 4F 53 49 54 20 3A 41 44 |:X. .DEPOSIT :AD| 00000FA0: 44 52 20 42 49 54 58 4F 52 20 2E 45 58 41 4D 49 |DR BITXOR .EXAMI| 00000FB0: 4E 45 20 3A 41 44 44 52 20 3A 46 0D 20 43 55 52 |NE :ADDR :F. CUR| 00000FC0: 53 4F 52 20 3A 58 20 2B 20 31 20 3A 59 20 2B 20 |SOR :X + 1 :Y + | 00000FD0: 31 0D 20 41 4C 53 20 42 49 54 41 41 4E 3F 20 3A |1. ALS BITAAN? :| 00000FE0: 41 44 44 52 20 3A 46 20 44 41 4E 20 50 52 49 4E |ADDR :F DAN PRIN| 00000FF0: 54 31 20 22 D1 20 41 4E 44 45 52 53 20 50 52 49 |T1 ". ANDERS PRI| 00001000: 4E 54 31 20 22 2E 0D 45 4E 44 0D 0D 54 4F 20 45 |NT1 "..END..TO E| 00001010: 44 2E 46 4C 49 54 53 0D 20 46 4C 49 54 53 58 59 |D.FLITS. FLITSXY| 00001020: 20 3A 58 20 3A 59 20 46 4C 49 54 53 58 59 20 3A | :X :Y FLITSXY :| 00001030: 58 20 3A 59 0D 20 41 4C 53 20 54 4F 45 54 53 3F |X :Y. ALS TOETS?| 00001040: 20 44 41 4E 20 53 54 4F 50 0D 20 45 44 2E 46 4C | DAN STOP. ED.FL| 00001050: 49 54 53 0D 45 4E 44 0D 0D 54 4F 20 45 58 50 32 |ITS.END..TO EXP2| 00001060: 20 3A 4E 0D 20 52 45 53 20 45 4C 45 4D 45 4E 54 | :N. RES ELEMENT| 00001070: 20 3A 4E 20 2B 20 31 20 5B 31 20 32 20 34 20 38 | :N + 1 [1 2 4 8| 00001080: 20 31 36 20 33 32 20 36 34 20 31 32 38 20 32 35 | 16 32 64 128 25| 00001090: 36 5D 0D 45 4E 44 0D 0D 54 4F 20 4B 4F 4D 53 50 |6].END..TO KOMSP| 000010A0: 52 4F 4B 45 4E 0D 20 4C 4F 4B 41 41 4C 20 22 53 |ROKEN. LOKAAL "S| 000010B0: 20 4D 41 41 4B 20 22 53 20 31 0D 20 46 33 20 50 | MAAK "S 1. F3 P| 000010C0: 52 20 5B 5D 20 50 52 20 5B 5D 20 50 4F 0D 20 48 |R [] PR [] PO. H| 000010D0: 45 52 48 41 41 4C 20 37 20 5B 53 50 52 4F 4F 4B |ERHAAL 7 [SPROOK| 000010E0: 20 3A 53 20 4B 4C 45 55 52 20 31 20 4E 41 41 52 | :S KLEUR 1 NAAR| 000010F0: 58 59 20 3A 53 20 2A 20 34 38 20 2D 20 32 30 30 |XY :S * 48 - 200| 00001100: 20 28 2D 35 30 29 20 4B 4F 4D 20 28 50 52 49 4E | (-50) KOM (PRIN| 00001110: 54 31 20 3A 53 20 22 28 20 56 4F 52 4D 20 22 29 |T1 :S "( VORM ")| 00001120: 20 43 48 41 52 20 33 32 20 43 48 41 52 20 33 32 | CHAR 32 CHAR 32| 00001130: 29 20 4D 41 41 4B 20 22 53 20 3A 53 20 2B 20 31 |) MAAK "S :S + 1| 00001140: 5D 0D 20 50 52 20 5B 5D 20 53 50 52 4F 4F 4B 20 |]. PR [] SPROOK | 00001150: 30 20 50 4F 20 4E 42 0D 45 4E 44 0D 0D 54 4F 20 |0 PO NB.END..TO | 00001160: 4C 41 41 44 56 4F 52 4D 45 4E 20 3A 4E 41 41 4D |LAADVORMEN :NAAM| 00001170: 0D 20 42 4C 41 41 44 20 57 4F 4F 52 44 20 3A 4E |. BLAAD WOORD :N| 00001180: 41 41 4D 20 22 2E 56 4F 52 4D 45 4E 0D 20 4E 42 |AAM ".VORMEN. NB| 00001190: 20 28 20 50 52 20 3A 4E 41 41 4D 20 5B 47 45 4C | ( PR :NAAM [GEL| 000011A0: 41 44 45 4E 5D 20 29 0D 45 4E 44 0D 0D 4D 41 41 |ADEN] ).END..MAA| 000011B0: 4B 20 22 53 50 52 20 28 2D 31 29 0D 4D 41 41 4B |K "SPR (-1).MAAK| 000011C0: 20 22 53 54 41 52 54 4F 50 20 5B 4C 41 41 44 56 | "STARTOP [LAADV| 000011D0: 4F 52 4D 45 4E 20 22 4C 45 45 55 57 5D 0D |ORMEN "LEEUW]. |
. TO !V. WEG RVS WEG CLR WEG MINX WEG MI NY WEG PLUSX WEG PLUSY WEG FLIPX WEG FLI PY WEG FLITSXY WEG ZETXY WEG WEGXY WEG A DDRXY WEG BITX WEG BITAAN?. WEG LAADVORM WEG BEWAARVORM WEG BEWAARVORMEN WEG MAA KVORM WEG WEGVORM WEG SPROOKVORM WEG SPR OOKNR. WEG ED.LOOP WEG ED.COMM WEG ED.OP NIEUW WEG ED.STOP WEG ED.RAND WEG ED.INP UT WEG ED.FLITS WEG !V .GCOLL PR .NODES. END..TO ADDRXY. RES :Y * 3 + SPROOKVORM + QUOTIENT :X 8.END..TO BITX :X. RES EXP 2 7 - BITAND :X 7.END..TO BITAAN? :ADDR :BIT. RES 0 < BITAND .EXAMINE :ADDR :BIT .END..TO LAADVORM :VORMNR :NAAM. BLAAD ( WOORD :NAAM ".VORM. :VORMNR ). SPROOK 0 VD SPROOK SPROOKNR :VORMNR 0 NB KLEUR 1 KOM. ( PRINT [VORM] :VORMNR [GELADEN] ) .END..TO BEWAARVORM :VORMNR :NAAM. LOKAA L "FOUT MAAK "FOUT SAMEN :VORMNR [IS FOU T VORMNR]. ALS NIET GETAL? :VORMNR DAN P R :FOUT STOP. ALS ( EENVAN :VORMNR < 1 : VORMNR > 7 ) DAN PR :FOUT STOP. ALS 9 < AANTAL :NAAM DAN PRINT [NAAM TE LANG] ST OP. LOKAAL "START MAAK "START 3072 + :VO RMNR * 64. BBEWAAR ( WOORD :NAAM ".VORM. :VORMNR ) :START :START + 63. ( PR [VOR M] :VORMNR [BEWAARD] ).END..TO BEWAARVOR MEN :NAAM. ALS 9 < AANTAL :NAAM DAN PRIN T [NAAM TE LANG] STOP. BBEWAAR WOORD :NA AM ".VORMEN 3136 3583. ( PR [VORMEN] [BE WAARD] ).END..TO MAAKVORM :VORMNR. LOKAA L "SPR MAAK "SPR SPROOKNR :VORMNR 0. ALS :SPR = ( - 1 ) DAN PRINT [GEEF EERST EE N SPROOK DEZE VORM] STOP. SPROOK :SPR. . KEUZE "F1 0 EXP2 WELKE. F1 PO NAARXY 80 ( - 40 ) WEGTEKST KLEUR 1. .KEUZE "INTER 0 1. ED.RAND .SPRINT SPROOKVORM. ED.LOO P 0 0.END..TO WEGVORM :VORMNR. LOKAAL "S MAAK "S WELKE. LOKAAL "SPR MAAK "SPR SP ROOKNR :VORMNR 0. ALS :SPR = ( - 1 ) DAN PRINT [GEEF EERST EEN SPROOK DEZE VORM] STOP. SPROOK :SPR CLR. SPROOK :S.END..T O SPROOKNR :VORMNR :S. ALS :S = 8 DAN RE SULTAAT ( - 1 ). SPROOK :S ALS VORM = :V ORMNR DAN RES :S. RESULTAAT SPROOKNR :VO RMNR :S + 1.END..TO ED.LOOP :X :Y. ED.CO MM ED.INPUT. ED.LOOP :X :Y.END..TO RVS. LOKAAL "ADDR MAAK "ADDR SPROOKVORM. HERH AAL 63 [.DEPOSIT :ADDR BITXOR .EXAMINE : ADDR 255 MAAK "ADDR :ADDR+1].END..TO FLI PY. .DEPOSIT 53271 BITXOR EXP2 WELKE .EX AMINE 53271.END..TO FLIPX. .DEPOSIT 5327 7 BITXOR EXP2 WELKE .EXAMINE 53277.END.. TO CLR. LOKAAL "ADDR MAAK "ADDR SPROOKVO RM. HERHAAL 63 [.DEPOSIT :ADDR 0 MAAK "A DDR :ADDR+1].END..TO WEGXY :X :Y. LOKAAL "ADDR MAAK "ADDR ADDRXY. .DEPOSIT :ADDR BITAND .EXAMINE :ADDR 255 - BITX :X. CU RSOR :X + 1 :Y + 1 PRINT1 "..END..TO ZET XY :X :Y. LOKAAL "ADDR MAAK "ADDR ADDRXY . .DEPOSIT :ADDR BITOR .EXAMINE :ADDR BI TX :X. CURSOR :X + 1 :Y + 1 PRINT1 "Q.EN D..TO PLUSX. MAAK "X :X + 1 ALS :X > 23 MAAK "X 0.END..TO PLUSY. MAAK "Y :Y + 1 ALS :Y > 20 MAAK "Y 0.END..TO MINX. MAAK "X :X - 1 ALS :X < 0 MAAK "X 23.END..TO MINY. MAAK "Y :Y - 1 ALS :Y < 0 MAAK "Y 20.END..TO ED.COMM :T. ALS EENVAN :T = "^ :T = ". DAN MINY STOP. ALS EENVAN :T = CHAR 157 :T = ", DAN MINX STOP. ALS :T = ". DAN PLUSY STOP. ALS EENVAN :T = ". :T = ". DAN PLUSX STOP. ALS :T = "+ DAN ZETXY :X :Y STOP. ALS :T = "- DAN WEGXY :X :Y STOP. ALS :T = "* DAN ZETXY :X :Y PLUSX STOP. ALS :T = ". DAN MINX WEGXY :X :Y STOP. ALS :T = "' ' DAN WEGXY :X : Y PLUSX STOP. ALS :T = CHAR 13 DAN MAAK "X 0 PLUSY STOP. ALS :T = ". DAN MAAK "X 0 MAAK "Y 0 STOP. ALS :T = ". DAN CLR W EGTEKST ED.OPNIEUW MAAK "X 0 MAAK "Y 0 S TOP. ALS :T = "X DAN FLIPX STOP. ALS :T = "Y DAN FLIPY STOP. ALS :T = ". DAN RVS ED.OPNIEUW STOP. ALS :T = ". DAN ED.STO P STOP.END..TO SPROOKVORM. RES 64 * ( 48 + VORM ).END..TO ED.OPNIEUW. F1 WEGTEKS T ED.RAND .SPRINT SPROOKVORM.END..TO ED. RAND. CURSOR 0 0 HERHAAL 26 [PRINT1 ".]. HERHAAL 21 [CURSOR 0 1+LAATSTE CURSORPO S PRINT1 ". CURSOR 25 LAATSTE CURSORPOS PRINT1 ".]. PRINT ( SAMEN CHAR 32 [VORM] :VORMNR ). CURSOR 0 22 HERHAAL 26 [PRIN T1 ".] CURSOR 0 0.END..TO ED.STOP. .KEUZ E "F1 0 0. F3 WEGTEKST PR [] ( PR [VORM] :VORMNR [GEMAAKT] ). .KEUZE "INTER 0 0. AFGELOPEN.END..TO ED.INPUT. LOKAAL "T. ALS TOETS? DAN RESULTAAT TOETS. ED.FLITS . MAAK "T TOETS. ALS ASCII :T = 7 DAN ED .STOP ANDERS RESULTAAT :T.END..TO FLITSX Y :X :Y. LOKAAL "ADDR MAAK "ADDR ADDRXY. LOKAAL "F MAAK "F BITX :X. .DEPOSIT :AD DR BITXOR .EXAMINE :ADDR :F. CURSOR :X + 1 :Y + 1. ALS BITAAN? :ADDR :F DAN PRIN T1 "Q ANDERS PRINT1 "..END..TO ED.FLITS. FLITSXY :X :Y FLITSXY :X :Y. ALS TOETS? DAN STOP. ED.FLITS.END..TO EXP2 :N. RES ELEMENT :N + 1 [1 2 4 8 16 32 64 128 25 6].END..TO KOMSPROKEN. LOKAAL "S MAAK "S 1. F3 PR [] PR [] PO. HERHAAL 7 [SPROOK :S KLEUR 1 NAARXY :S * 48 - 200 (-50) K OM (PRINT1 :S "( VORM ") CHAR 32 CHAR 32 ) MAAK "S :S + 1]. PR [] SPROOK 0 PO NB. END..TO LAADVORMEN :NAAM. BLAAD WOORD :N AAM ".VORMEN. NB ( PR :NAAM [GELADEN] ). END..MAAK "SPR (-1).MAAK "STARTOP [LAADV ORMEN "LEEUW].
> CLICK IMAGE PREVIEW FOR FULL MODAL