LOGOVORMEN.LOGO
FILE INFORMATION
FILENAME(S): LOGOVORMEN.LOGO
FILE TYPE(S): PRG
FILE SIZE: 4.4K
FIRST SEEN: 2025-11-30 21:12:55
APPEARS ON: 3 disk(s)
FILE HASH
557dfe573485abc49360b656684abd7f1e6de36294812c368c458b31b580e316
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOGO NEDERLANDS | LOGOVORMEN.LOGO | PRG | DuncanTwain | 19 | 10 | DOWNLOAD FILE |
| LOGO NEDERLANDS | LOGOVORMEN.LOGO | PRG | DuncanTwain | 19 | 10 | DOWNLOAD FILE |
| LOGO NEDERLANDS | LOGOVORMEN.LOGO | PRG | DuncanTwain | 19 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 20 54 4F 20 21 56 0D 20 57 45 47 20 5B 52 56 |. TO !V. WEG [RV| 00000010: 53 20 43 4C 52 20 4D 49 4E 58 20 4D 49 4E 59 20 |S CLR MINX MINY | 00000020: 50 4C 55 53 58 20 50 4C 55 53 59 20 46 4C 49 50 |PLUSX PLUSY FLIP| 00000030: 58 20 46 4C 49 50 59 20 46 4C 49 54 53 58 59 20 |X FLIPY FLITSXY | 00000040: 5A 45 54 58 59 20 57 45 47 58 59 20 41 44 44 52 |ZETXY WEGXY ADDR| 00000050: 58 59 20 42 49 54 58 20 42 49 54 41 41 4E 3F 20 |XY BITX BITAAN? | 00000060: 4C 41 41 44 56 4F 52 4D 20 42 45 57 41 41 52 56 |LAADVORM BEWAARV| 00000070: 4F 52 4D 20 42 45 57 41 41 52 56 4F 52 4D 45 4E |ORM BEWAARVORMEN| 00000080: 20 4D 41 41 4B 56 4F 52 4D 20 57 45 47 56 4F 52 | MAAKVORM WEGVOR| 00000090: 4D 20 53 50 52 4F 4F 4B 56 4F 52 4D 20 53 50 52 |M SPROOKVORM SPR| 000000A0: 4F 4F 4B 4E 52 20 45 44 2E 4C 4F 4F 50 20 45 44 |OOKNR ED.LOOP ED| 000000B0: 2E 43 4F 4D 4D 20 45 44 2E 4F 50 4E 49 45 55 57 |.COMM ED.OPNIEUW| 000000C0: 20 45 44 2E 53 54 4F 50 20 45 44 2E 52 41 4E 44 | ED.STOP ED.RAND| 000000D0: 20 45 44 2E 49 4E 50 55 54 20 45 44 2E 46 4C 49 | ED.INPUT ED.FLI| 000000E0: 54 53 20 4B 4F 4D 53 50 52 4F 4B 45 4E 20 45 58 |TS KOMSPROKEN EX| 000000F0: 50 32 20 21 56 5D 0D 20 2E 47 43 4F 4C 4C 20 50 |P2 !V]. .GCOLL P| 00000100: 52 20 2E 4E 4F 44 45 53 0D 45 4E 44 0D 0D 54 4F |R .NODES.END..TO| 00000110: 20 41 44 44 52 58 59 0D 20 52 45 53 20 3A 59 20 | ADDRXY. RES :Y | 00000120: 2A 20 33 20 2B 20 53 50 52 4F 4F 4B 56 4F 52 4D |* 3 + SPROOKVORM| 00000130: 20 2B 20 51 55 4F 54 49 45 4E 54 20 3A 58 20 38 | + QUOTIENT :X 8| 00000140: 0D 45 4E 44 0D 0D 54 4F 20 42 49 54 58 20 3A 58 |.END..TO BITX :X| 00000150: 0D 20 52 45 53 20 45 58 50 32 20 37 20 2D 20 42 |. RES EXP2 7 - B| 00000160: 49 54 41 4E 44 20 3A 58 20 37 0D 45 4E 44 0D 0D |ITAND :X 7.END..| 00000170: 54 4F 20 42 49 54 41 41 4E 3F 20 3A 41 44 44 52 |TO BITAAN? :ADDR| 00000180: 20 3A 42 49 54 0D 20 52 45 53 20 30 20 3C 20 42 | :BIT. RES 0 < B| 00000190: 49 54 41 4E 44 20 2E 45 58 41 4D 49 4E 45 20 3A |ITAND .EXAMINE :| 000001A0: 41 44 44 52 20 3A 42 49 54 0D 45 4E 44 0D 0D 54 |ADDR :BIT.END..T| 000001B0: 4F 20 4C 41 41 44 56 4F 52 4D 20 3A 56 4F 52 4D |O LAADVORM :VORM| 000001C0: 4E 52 20 3A 4E 41 41 4D 0D 20 42 4C 41 41 44 20 |NR :NAAM. BLAAD | 000001D0: 28 20 57 4F 4F 52 44 20 3A 4E 41 41 4D 20 22 2E |( WOORD :NAAM ".| 000001E0: 56 4F 52 4D 2E 20 3A 56 4F 52 4D 4E 52 20 29 0D |VORM. :VORMNR ).| 000001F0: 20 53 50 52 4F 4F 4B 20 30 20 56 44 20 53 50 52 | SPROOK 0 VD SPR| 00000200: 4F 4F 4B 20 53 50 52 4F 4F 4B 4E 52 20 3A 56 4F |OOK SPROOKNR :VO| 00000210: 52 4D 4E 52 20 30 20 4E 42 20 4B 4C 45 55 52 20 |RMNR 0 NB KLEUR | 00000220: 31 20 4B 4F 4D 0D 20 28 20 50 52 49 4E 54 20 5B |1 KOM. ( PRINT [| 00000230: 56 4F 52 4D 5D 20 3A 56 4F 52 4D 4E 52 20 5B 47 |VORM] :VORMNR [G| 00000240: 45 4C 41 44 45 4E 5D 20 29 0D 45 4E 44 0D 0D 54 |ELADEN] ).END..T| 00000250: 4F 20 42 45 57 41 41 52 56 4F 52 4D 20 3A 56 4F |O BEWAARVORM :VO| 00000260: 52 4D 4E 52 20 3A 4E 41 41 4D 0D 20 4C 4F 4B 41 |RMNR :NAAM. LOKA| 00000270: 41 4C 20 22 46 4F 55 54 20 4D 41 41 4B 20 22 46 |AL "FOUT MAAK "F| 00000280: 4F 55 54 20 53 41 4D 45 4E 20 3A 56 4F 52 4D 4E |OUT SAMEN :VORMN| 00000290: 52 20 5B 49 53 20 46 4F 55 54 20 56 4F 52 4D 4E |R [IS FOUT VORMN| 000002A0: 52 5D 0D 20 41 4C 53 20 4E 49 45 54 20 47 45 54 |R]. ALS NIET GET| 000002B0: 41 4C 3F 20 3A 56 4F 52 4D 4E 52 20 44 41 4E 20 |AL? :VORMNR DAN | 000002C0: 50 52 20 3A 46 4F 55 54 20 53 54 4F 50 0D 20 41 |PR :FOUT STOP. A| 000002D0: 4C 53 20 28 20 45 45 4E 56 41 4E 20 3A 56 4F 52 |LS ( EENVAN :VOR| 000002E0: 4D 4E 52 20 3C 20 31 20 3A 56 4F 52 4D 4E 52 20 |MNR < 1 :VORMNR | 000002F0: 3E 20 37 20 29 20 44 41 4E 20 50 52 20 3A 46 4F |> 7 ) DAN PR :FO| 00000300: 55 54 20 53 54 4F 50 0D 20 41 4C 53 20 39 20 3C |UT STOP. ALS 9 <| 00000310: 20 41 41 4E 54 41 4C 20 3A 4E 41 41 4D 20 44 41 | AANTAL :NAAM DA| 00000320: 4E 20 50 52 49 4E 54 20 5B 4E 41 41 4D 20 54 45 |N PRINT [NAAM TE| 00000330: 20 4C 41 4E 47 5D 20 53 54 4F 50 0D 20 4C 4F 4B | LANG] STOP. LOK| 00000340: 41 41 4C 20 22 53 54 41 52 54 20 4D 41 41 4B 20 |AAL "START MAAK | 00000350: 22 53 54 41 52 54 20 33 30 37 32 20 2B 20 3A 56 |"START 3072 + :V| 00000360: 4F 52 4D 4E 52 20 2A 20 36 34 0D 20 42 42 45 57 |ORMNR * 64. BBEW| 00000370: 41 41 52 20 28 20 57 4F 4F 52 44 20 3A 4E 41 41 |AAR ( WOORD :NAA| 00000380: 4D 20 22 2E 56 4F 52 4D 2E 20 3A 56 4F 52 4D 4E |M ".VORM. :VORMN| 00000390: 52 20 29 20 3A 53 54 41 52 54 20 3A 53 54 41 52 |R ) :START :STAR| 000003A0: 54 20 2B 20 36 33 0D 20 28 20 50 52 20 5B 56 4F |T + 63. ( PR [VO| 000003B0: 52 4D 5D 20 3A 56 4F 52 4D 4E 52 20 5B 42 45 57 |RM] :VORMNR [BEW| 000003C0: 41 41 52 44 5D 20 29 0D 45 4E 44 0D 0D 54 4F 20 |AARD] ).END..TO | 000003D0: 42 45 57 41 41 52 56 4F 52 4D 45 4E 20 3A 4E 41 |BEWAARVORMEN :NA| 000003E0: 41 4D 0D 20 41 4C 53 20 39 20 3C 20 41 41 4E 54 |AM. ALS 9 < AANT| 000003F0: 41 4C 20 3A 4E 41 41 4D 20 44 41 4E 20 50 52 49 |AL :NAAM DAN PRI| 00000400: 4E 54 20 5B 4E 41 41 4D 20 54 45 20 4C 41 4E 47 |NT [NAAM TE LANG| 00000410: 5D 20 53 54 4F 50 0D 20 42 42 45 57 41 41 52 20 |] STOP. BBEWAAR | 00000420: 57 4F 4F 52 44 20 3A 4E 41 41 4D 20 22 2E 56 4F |WOORD :NAAM ".VO| 00000430: 52 4D 45 4E 20 33 31 33 36 20 33 35 38 33 0D 20 |RMEN 3136 3583. | 00000440: 28 20 50 52 20 5B 56 4F 52 4D 45 4E 5D 20 5B 42 |( PR [VORMEN] [B| 00000450: 45 57 41 41 52 44 5D 20 29 0D 45 4E 44 0D 0D 54 |EWAARD] ).END..T| 00000460: 4F 20 4D 41 41 4B 56 4F 52 4D 20 3A 56 4F 52 4D |O MAAKVORM :VORM| 00000470: 4E 52 0D 20 4C 4F 4B 41 41 4C 20 22 53 50 52 20 |NR. LOKAAL "SPR | 00000480: 4D 41 41 4B 20 22 53 50 52 20 53 50 52 4F 4F 4B |MAAK "SPR SPROOK| 00000490: 4E 52 20 3A 56 4F 52 4D 4E 52 20 30 0D 20 41 4C |NR :VORMNR 0. AL| 000004A0: 53 20 3A 53 50 52 20 3D 20 28 20 2D 20 31 20 29 |S :SPR = ( - 1 )| 000004B0: 20 44 41 4E 20 50 52 49 4E 54 20 5B 47 45 45 46 | DAN PRINT [GEEF| 000004C0: 20 45 45 52 53 54 20 45 45 4E 20 53 50 52 4F 4F | EERST EEN SPROO| 000004D0: 4B 20 44 45 5A 45 20 56 4F 52 4D 5D 20 53 54 4F |K DEZE VORM] STO| 000004E0: 50 0D 20 53 50 52 4F 4F 4B 20 3A 53 50 52 0D 20 |P. SPROOK :SPR. | 000004F0: 2E 4B 45 55 5A 45 20 22 46 31 20 30 20 45 58 50 |.KEUZE "F1 0 EXP| 00000500: 32 20 57 45 4C 4B 45 0D 20 46 31 20 50 4F 20 4E |2 WELKE. F1 PO N| 00000510: 41 41 52 58 59 20 38 30 20 28 20 2D 20 34 30 20 |AARXY 80 ( - 40 | 00000520: 29 20 57 45 47 54 45 4B 53 54 20 4B 4C 45 55 52 |) WEGTEKST KLEUR| 00000530: 20 31 0D 20 2E 4B 45 55 5A 45 20 22 49 4E 54 45 | 1. .KEUZE "INTE| 00000540: 52 20 30 20 31 0D 20 45 44 2E 52 41 4E 44 20 2E |R 0 1. ED.RAND .| 00000550: 53 50 52 49 4E 54 20 53 50 52 4F 4F 4B 56 4F 52 |SPRINT SPROOKVOR| 00000560: 4D 0D 20 45 44 2E 4C 4F 4F 50 20 30 20 30 0D 45 |M. ED.LOOP 0 0.E| 00000570: 4E 44 0D 0D 54 4F 20 57 45 47 56 4F 52 4D 20 3A |ND..TO WEGVORM :| 00000580: 56 4F 52 4D 4E 52 0D 20 4C 4F 4B 41 41 4C 20 22 |VORMNR. LOKAAL "| 00000590: 53 20 4D 41 41 4B 20 22 53 20 57 45 4C 4B 45 0D |S MAAK "S WELKE.| 000005A0: 20 4C 4F 4B 41 41 4C 20 22 53 50 52 20 4D 41 41 | LOKAAL "SPR MAA| 000005B0: 4B 20 22 53 50 52 20 53 50 52 4F 4F 4B 4E 52 20 |K "SPR SPROOKNR | 000005C0: 3A 56 4F 52 4D 4E 52 20 30 0D 20 41 4C 53 20 3A |:VORMNR 0. ALS :| 000005D0: 53 50 52 20 3D 20 28 20 2D 20 31 20 29 20 44 41 |SPR = ( - 1 ) DA| 000005E0: 4E 20 50 52 49 4E 54 20 5B 47 45 45 46 20 45 45 |N PRINT [GEEF EE| 000005F0: 52 53 54 20 45 45 4E 20 53 50 52 4F 4F 4B 20 44 |RST EEN SPROOK D| 00000600: 45 5A 45 20 56 4F 52 4D 5D 20 53 54 4F 50 0D 20 |EZE VORM] STOP. | 00000610: 53 50 52 4F 4F 4B 20 3A 53 50 52 20 43 4C 52 0D |SPROOK :SPR CLR.| 00000620: 20 53 50 52 4F 4F 4B 20 3A 53 0D 45 4E 44 0D 0D | SPROOK :S.END..| 00000630: 54 4F 20 53 50 52 4F 4F 4B 4E 52 20 3A 56 4F 52 |TO SPROOKNR :VOR| 00000640: 4D 4E 52 20 3A 53 0D 20 41 4C 53 20 3A 53 20 3D |MNR :S. ALS :S =| 00000650: 20 38 20 44 41 4E 20 52 45 53 55 4C 54 41 41 54 | 8 DAN RESULTAAT| 00000660: 20 28 20 2D 20 31 20 29 0D 20 53 50 52 4F 4F 4B | ( - 1 ). SPROOK| 00000670: 20 3A 53 20 41 4C 53 20 56 4F 52 4D 20 3D 20 3A | :S ALS VORM = :| 00000680: 56 4F 52 4D 4E 52 20 44 41 4E 20 52 45 53 20 3A |VORMNR DAN RES :| 00000690: 53 0D 20 52 45 53 55 4C 54 41 41 54 20 53 50 52 |S. RESULTAAT SPR| 000006A0: 4F 4F 4B 4E 52 20 3A 56 4F 52 4D 4E 52 20 3A 53 |OOKNR :VORMNR :S| 000006B0: 20 2B 20 31 0D 45 4E 44 0D 0D 54 4F 20 45 44 2E | + 1.END..TO ED.| 000006C0: 4C 4F 4F 50 20 3A 58 20 3A 59 0D 20 45 44 2E 43 |LOOP :X :Y. ED.C| 000006D0: 4F 4D 4D 20 45 44 2E 49 4E 50 55 54 0D 20 45 44 |OMM ED.INPUT. ED| 000006E0: 2E 4C 4F 4F 50 20 3A 58 20 3A 59 0D 45 4E 44 0D |.LOOP :X :Y.END.| 000006F0: 0D 54 4F 20 52 56 53 0D 20 4C 4F 4B 41 41 4C 20 |.TO RVS. LOKAAL | 00000700: 22 41 44 44 52 20 4D 41 41 4B 20 22 41 44 44 52 |"ADDR MAAK "ADDR| 00000710: 20 53 50 52 4F 4F 4B 56 4F 52 4D 0D 20 48 45 52 | SPROOKVORM. HER| 00000720: 48 41 41 4C 20 36 33 20 5B 2E 44 45 50 4F 53 49 |HAAL 63 [.DEPOSI| 00000730: 54 20 3A 41 44 44 52 20 42 49 54 58 4F 52 20 2E |T :ADDR BITXOR .| 00000740: 45 58 41 4D 49 4E 45 20 3A 41 44 44 52 20 32 35 |EXAMINE :ADDR 25| 00000750: 35 20 4D 41 41 4B 20 22 41 44 44 52 20 3A 41 44 |5 MAAK "ADDR :AD| 00000760: 44 52 20 2B 20 31 5D 0D 45 4E 44 0D 0D 54 4F 20 |DR + 1].END..TO | 00000770: 46 4C 49 50 59 0D 20 2E 44 45 50 4F 53 49 54 20 |FLIPY. .DEPOSIT | 00000780: 35 33 32 37 31 20 42 49 54 58 4F 52 20 45 58 50 |53271 BITXOR EXP| 00000790: 32 20 57 45 4C 4B 45 20 2E 45 58 41 4D 49 4E 45 |2 WELKE .EXAMINE| 000007A0: 20 35 33 32 37 31 0D 45 4E 44 0D 0D 54 4F 20 46 | 53271.END..TO F| 000007B0: 4C 49 50 58 0D 20 2E 44 45 50 4F 53 49 54 20 35 |LIPX. .DEPOSIT 5| 000007C0: 33 32 37 37 20 42 49 54 58 4F 52 20 45 58 50 32 |3277 BITXOR EXP2| 000007D0: 20 57 45 4C 4B 45 20 2E 45 58 41 4D 49 4E 45 20 | WELKE .EXAMINE | 000007E0: 35 33 32 37 37 0D 45 4E 44 0D 0D 54 4F 20 43 4C |53277.END..TO CL| 000007F0: 52 0D 20 4C 4F 4B 41 41 4C 20 22 41 44 44 52 20 |R. LOKAAL "ADDR | 00000800: 4D 41 41 4B 20 22 41 44 44 52 20 53 50 52 4F 4F |MAAK "ADDR SPROO| 00000810: 4B 56 4F 52 4D 0D 20 48 45 52 48 41 41 4C 20 36 |KVORM. HERHAAL 6| 00000820: 33 20 5B 2E 44 45 50 4F 53 49 54 20 3A 41 44 44 |3 [.DEPOSIT :ADD| 00000830: 52 20 30 20 4D 41 41 4B 20 22 41 44 44 52 20 3A |R 0 MAAK "ADDR :| 00000840: 41 44 44 52 20 2B 20 31 5D 0D 45 4E 44 0D 0D 54 |ADDR + 1].END..T| 00000850: 4F 20 57 45 47 58 59 20 3A 58 20 3A 59 0D 20 4C |O WEGXY :X :Y. L| 00000860: 4F 4B 41 41 4C 20 22 41 44 44 52 20 4D 41 41 4B |OKAAL "ADDR MAAK| 00000870: 20 22 41 44 44 52 20 41 44 44 52 58 59 0D 20 2E | "ADDR ADDRXY. .| 00000880: 44 45 50 4F 53 49 54 20 3A 41 44 44 52 20 42 49 |DEPOSIT :ADDR BI| 00000890: 54 41 4E 44 20 2E 45 58 41 4D 49 4E 45 20 3A 41 |TAND .EXAMINE :A| 000008A0: 44 44 52 20 32 35 35 20 2D 20 42 49 54 58 20 3A |DDR 255 - BITX :| 000008B0: 58 0D 20 43 55 52 53 4F 52 20 3A 58 20 2B 20 31 |X. CURSOR :X + 1| 000008C0: 20 3A 59 20 2B 20 31 20 50 52 49 4E 54 31 20 22 | :Y + 1 PRINT1 "| 000008D0: 2E 0D 45 4E 44 0D 0D 54 4F 20 5A 45 54 58 59 20 |..END..TO ZETXY | 000008E0: 3A 58 20 3A 59 0D 20 4C 4F 4B 41 41 4C 20 22 41 |:X :Y. LOKAAL "A| 000008F0: 44 44 52 20 4D 41 41 4B 20 22 41 44 44 52 20 41 |DDR MAAK "ADDR A| 00000900: 44 44 52 58 59 0D 20 2E 44 45 50 4F 53 49 54 20 |DDRXY. .DEPOSIT | 00000910: 3A 41 44 44 52 20 42 49 54 4F 52 20 2E 45 58 41 |:ADDR BITOR .EXA| 00000920: 4D 49 4E 45 20 3A 41 44 44 52 20 42 49 54 58 20 |MINE :ADDR BITX | 00000930: 3A 58 0D 20 43 55 52 53 4F 52 20 3A 58 20 2B 20 |:X. CURSOR :X + | 00000940: 31 20 3A 59 20 2B 20 31 20 50 52 49 4E 54 31 20 |1 :Y + 1 PRINT1 | 00000950: 22 D1 0D 45 4E 44 0D 0D 54 4F 20 50 4C 55 53 58 |"..END..TO PLUSX| 00000960: 0D 20 4D 41 41 4B 20 22 58 20 3A 58 20 2B 20 31 |. MAAK "X :X + 1| 00000970: 20 41 4C 53 20 3A 58 20 3E 20 32 33 20 4D 41 41 | ALS :X > 23 MAA| 00000980: 4B 20 22 58 20 30 0D 45 4E 44 0D 0D 54 4F 20 50 |K "X 0.END..TO P| 00000990: 4C 55 53 59 0D 20 4D 41 41 4B 20 22 59 20 3A 59 |LUSY. MAAK "Y :Y| 000009A0: 20 2B 20 31 20 41 4C 53 20 3A 59 20 3E 20 32 30 | + 1 ALS :Y > 20| 000009B0: 20 4D 41 41 4B 20 22 59 20 30 0D 45 4E 44 0D 0D | MAAK "Y 0.END..| 000009C0: 54 4F 20 4D 49 4E 58 0D 20 4D 41 41 4B 20 22 58 |TO MINX. MAAK "X| 000009D0: 20 3A 58 20 2D 20 31 20 41 4C 53 20 3A 58 20 3C | :X - 1 ALS :X <| 000009E0: 20 30 20 4D 41 41 4B 20 22 58 20 32 33 0D 45 4E | 0 MAAK "X 23.EN| 000009F0: 44 0D 0D 54 4F 20 4D 49 4E 59 0D 20 4D 41 41 4B |D..TO MINY. MAAK| 00000A00: 20 22 59 20 3A 59 20 2D 20 31 20 41 4C 53 20 3A | "Y :Y - 1 ALS :| 00000A10: 59 20 3C 20 30 20 4D 41 41 4B 20 22 59 20 32 30 |Y < 0 MAAK "Y 20| 00000A20: 0D 45 4E 44 0D 0D 54 4F 20 45 44 2E 43 4F 4D 4D |.END..TO ED.COMM| 00000A30: 20 3A 54 0D 20 41 4C 53 20 45 45 4E 56 41 4E 20 | :T. ALS EENVAN | 00000A40: 3A 54 20 3D 20 22 5E 20 3A 54 20 3D 20 22 91 20 |:T = "^ :T = ". | 00000A50: 44 41 4E 20 4D 49 4E 59 20 53 54 4F 50 0D 20 41 |DAN MINY STOP. A| 00000A60: 4C 53 20 28 20 45 45 4E 56 41 4E 20 3A 54 20 3D |LS ( EENVAN :T =| 00000A70: 20 22 9D 20 3A 54 20 3D 20 22 2C 20 3A 54 20 3D | ". :T = ", :T =| 00000A80: 20 22 5F 20 29 20 44 41 4E 20 4D 49 4E 58 20 53 | "_ ) DAN MINX S| 00000A90: 54 4F 50 0D 20 41 4C 53 20 3A 54 20 3D 20 22 11 |TOP. ALS :T = ".| 00000AA0: 20 44 41 4E 20 50 4C 55 53 59 20 53 54 4F 50 0D | DAN PLUSY STOP.| 00000AB0: 20 41 4C 53 20 45 45 4E 56 41 4E 20 3A 54 20 3D | ALS EENVAN :T =| 00000AC0: 20 22 1D 20 3A 54 20 3D 20 22 2E 20 44 41 4E 20 | ". :T = ". DAN | 00000AD0: 50 4C 55 53 58 20 53 54 4F 50 0D 20 41 4C 53 20 |PLUSX STOP. ALS | 00000AE0: 3A 54 20 3D 20 22 2B 20 44 41 4E 20 5A 45 54 58 |:T = "+ DAN ZETX| 00000AF0: 59 20 3A 58 20 3A 59 20 53 54 4F 50 0D 20 41 4C |Y :X :Y STOP. AL| 00000B00: 53 20 3A 54 20 3D 20 22 2D 20 44 41 4E 20 57 45 |S :T = "- DAN WE| 00000B10: 47 58 59 20 3A 58 20 3A 59 20 53 54 4F 50 0D 20 |GXY :X :Y STOP. | 00000B20: 41 4C 53 20 3A 54 20 3D 20 22 2A 20 44 41 4E 20 |ALS :T = "* DAN | 00000B30: 5A 45 54 58 59 20 3A 58 20 3A 59 20 50 4C 55 53 |ZETXY :X :Y PLUS| 00000B40: 58 20 53 54 4F 50 0D 20 41 4C 53 20 3A 54 20 3D |X STOP. ALS :T =| 00000B50: 20 22 14 20 44 41 4E 20 4D 49 4E 58 20 57 45 47 | ". DAN MINX WEG| 00000B60: 58 59 20 3A 58 20 3A 59 20 53 54 4F 50 0D 20 41 |XY :X :Y STOP. A| 00000B70: 4C 53 20 3A 54 20 3D 20 22 27 20 27 20 44 41 4E |LS :T = "' ' DAN| 00000B80: 20 57 45 47 58 59 20 3A 58 20 3A 59 20 50 4C 55 | WEGXY :X :Y PLU| 00000B90: 53 58 20 53 54 4F 50 0D 20 41 4C 53 20 3A 54 20 |SX STOP. ALS :T | 00000BA0: 3D 20 43 48 41 52 20 31 33 20 44 41 4E 20 4D 41 |= CHAR 13 DAN MA| 00000BB0: 41 4B 20 22 58 20 30 20 50 4C 55 53 59 20 53 54 |AK "X 0 PLUSY ST| 00000BC0: 4F 50 0D 20 41 4C 53 20 3A 54 20 3D 20 22 13 20 |OP. ALS :T = ". | 00000BD0: 44 41 4E 20 4D 41 41 4B 20 22 58 20 30 20 4D 41 |DAN MAAK "X 0 MA| 00000BE0: 41 4B 20 22 59 20 30 20 53 54 4F 50 0D 20 41 4C |AK "Y 0 STOP. AL| 00000BF0: 53 20 3A 54 20 3D 20 22 93 20 44 41 4E 20 43 4C |S :T = ". DAN CL| 00000C00: 52 20 57 45 47 54 45 4B 53 54 20 45 44 2E 4F 50 |R WEGTEKST ED.OP| 00000C10: 4E 49 45 55 57 20 4D 41 41 4B 20 22 58 20 30 20 |NIEUW MAAK "X 0 | 00000C20: 4D 41 41 4B 20 22 59 20 30 20 53 54 4F 50 0D 20 |MAAK "Y 0 STOP. | 00000C30: 41 4C 53 20 3A 54 20 3D 20 22 58 20 44 41 4E 20 |ALS :T = "X DAN | 00000C40: 46 4C 49 50 58 20 53 54 4F 50 0D 20 41 4C 53 20 |FLIPX STOP. ALS | 00000C50: 3A 54 20 3D 20 22 59 20 44 41 4E 20 46 4C 49 50 |:T = "Y DAN FLIP| 00000C60: 59 20 53 54 4F 50 0D 20 41 4C 53 20 3A 54 20 3D |Y STOP. ALS :T =| 00000C70: 20 22 12 20 44 41 4E 20 52 56 53 20 45 44 2E 4F | ". DAN RVS ED.O| 00000C80: 50 4E 49 45 55 57 20 53 54 4F 50 0D 20 41 4C 53 |PNIEUW STOP. ALS| 00000C90: 20 3A 54 20 3D 20 22 03 20 44 41 4E 20 45 44 2E | :T = ". DAN ED.| 00000CA0: 53 54 4F 50 20 53 54 4F 50 0D 45 4E 44 0D 0D 54 |STOP STOP.END..T| 00000CB0: 4F 20 53 50 52 4F 4F 4B 56 4F 52 4D 0D 20 52 45 |O SPROOKVORM. RE| 00000CC0: 53 20 36 34 20 2A 20 28 20 34 38 20 2B 20 56 4F |S 64 * ( 48 + VO| 00000CD0: 52 4D 20 29 0D 45 4E 44 0D 0D 54 4F 20 45 44 2E |RM ).END..TO ED.| 00000CE0: 4F 50 4E 49 45 55 57 0D 20 46 31 20 57 45 47 54 |OPNIEUW. F1 WEGT| 00000CF0: 45 4B 53 54 20 45 44 2E 52 41 4E 44 20 2E 53 50 |EKST ED.RAND .SP| 00000D00: 52 49 4E 54 20 53 50 52 4F 4F 4B 56 4F 52 4D 0D |RINT SPROOKVORM.| 00000D10: 45 4E 44 0D 0D 54 4F 20 45 44 2E 52 41 4E 44 0D |END..TO ED.RAND.| 00000D20: 20 43 55 52 53 4F 52 20 30 20 30 20 48 45 52 48 | CURSOR 0 0 HERH| 00000D30: 41 41 4C 20 32 36 20 5B 50 52 49 4E 54 31 20 22 |AAL 26 [PRINT1 "| 00000D40: A6 5D 0D 20 48 45 52 48 41 41 4C 20 32 31 20 5B |.]. HERHAAL 21 [| 00000D50: 43 55 52 53 4F 52 20 30 20 31 20 2B 20 4C 41 41 |CURSOR 0 1 + LAA| 00000D60: 54 53 54 45 20 43 55 52 53 4F 52 50 4F 53 20 50 |TSTE CURSORPOS P| 00000D70: 52 49 4E 54 31 20 22 A6 20 43 55 52 53 4F 52 20 |RINT1 ". CURSOR | 00000D80: 32 35 20 4C 41 41 54 53 54 45 20 43 55 52 53 4F |25 LAATSTE CURSO| 00000D90: 52 50 4F 53 20 50 52 49 4E 54 31 20 22 A6 5D 0D |RPOS PRINT1 ".].| 00000DA0: 20 50 52 49 4E 54 20 28 20 53 41 4D 45 4E 20 43 | PRINT ( SAMEN C| 00000DB0: 48 41 52 20 33 32 20 5B 56 4F 52 4D 5D 20 3A 56 |HAR 32 [VORM] :V| 00000DC0: 4F 52 4D 4E 52 20 29 0D 20 43 55 52 53 4F 52 20 |ORMNR ). CURSOR | 00000DD0: 30 20 32 32 20 48 45 52 48 41 41 4C 20 32 36 20 |0 22 HERHAAL 26 | 00000DE0: 5B 50 52 49 4E 54 31 20 22 A6 5D 20 43 55 52 53 |[PRINT1 ".] CURS| 00000DF0: 4F 52 20 30 20 30 0D 45 4E 44 0D 0D 54 4F 20 45 |OR 0 0.END..TO E| 00000E00: 44 2E 53 54 4F 50 0D 20 2E 4B 45 55 5A 45 20 22 |D.STOP. .KEUZE "| 00000E10: 46 31 20 30 20 30 0D 20 46 33 20 57 45 47 54 45 |F1 0 0. F3 WEGTE| 00000E20: 4B 53 54 20 50 52 20 5B 5D 20 28 20 50 52 20 5B |KST PR [] ( PR [| 00000E30: 56 4F 52 4D 5D 20 3A 56 4F 52 4D 4E 52 20 5B 47 |VORM] :VORMNR [G| 00000E40: 45 4D 41 41 4B 54 5D 20 29 0D 20 2E 4B 45 55 5A |EMAAKT] ). .KEUZ| 00000E50: 45 20 22 49 4E 54 45 52 20 30 20 30 0D 20 41 46 |E "INTER 0 0. AF| 00000E60: 47 45 4C 4F 50 45 4E 0D 45 4E 44 0D 0D 54 4F 20 |GELOPEN.END..TO | 00000E70: 45 44 2E 49 4E 50 55 54 0D 20 4C 4F 4B 41 41 4C |ED.INPUT. LOKAAL| 00000E80: 20 22 54 0D 20 41 4C 53 20 54 4F 45 54 53 3F 20 | "T. ALS TOETS? | 00000E90: 44 41 4E 20 52 45 53 55 4C 54 41 41 54 20 54 4F |DAN RESULTAAT TO| 00000EA0: 45 54 53 0D 20 45 44 2E 46 4C 49 54 53 0D 20 4D |ETS. ED.FLITS. M| 00000EB0: 41 41 4B 20 22 54 20 54 4F 45 54 53 0D 20 41 4C |AAK "T TOETS. AL| 00000EC0: 53 20 41 53 43 49 49 20 3A 54 20 3D 20 37 20 44 |S ASCII :T = 7 D| 00000ED0: 41 4E 20 45 44 2E 53 54 4F 50 20 41 4E 44 45 52 |AN ED.STOP ANDER| 00000EE0: 53 20 52 45 53 55 4C 54 41 41 54 20 3A 54 0D 45 |S RESULTAAT :T.E| 00000EF0: 4E 44 0D 0D 54 4F 20 46 4C 49 54 53 58 59 20 3A |ND..TO FLITSXY :| 00000F00: 58 20 3A 59 0D 20 4C 4F 4B 41 41 4C 20 22 41 44 |X :Y. LOKAAL "AD| 00000F10: 44 52 20 4D 41 41 4B 20 22 41 44 44 52 20 41 44 |DR MAAK "ADDR AD| 00000F20: 44 52 58 59 0D 20 4C 4F 4B 41 41 4C 20 22 46 20 |DRXY. LOKAAL "F | 00000F30: 4D 41 41 4B 20 22 46 20 42 49 54 58 20 3A 58 0D |MAAK "F BITX :X.| 00000F40: 20 2E 44 45 50 4F 53 49 54 20 3A 41 44 44 52 20 | .DEPOSIT :ADDR | 00000F50: 42 49 54 58 4F 52 20 2E 45 58 41 4D 49 4E 45 20 |BITXOR .EXAMINE | 00000F60: 3A 41 44 44 52 20 3A 46 0D 20 43 55 52 53 4F 52 |:ADDR :F. CURSOR| 00000F70: 20 3A 58 20 2B 20 31 20 3A 59 20 2B 20 31 0D 20 | :X + 1 :Y + 1. | 00000F80: 41 4C 53 20 42 49 54 41 41 4E 3F 20 3A 41 44 44 |ALS BITAAN? :ADD| 00000F90: 52 20 3A 46 20 44 41 4E 20 50 52 49 4E 54 31 20 |R :F DAN PRINT1 | 00000FA0: 22 D1 20 41 4E 44 45 52 53 20 50 52 49 4E 54 31 |". ANDERS PRINT1| 00000FB0: 20 22 2E 0D 45 4E 44 0D 0D 54 4F 20 45 44 2E 46 | "..END..TO ED.F| 00000FC0: 4C 49 54 53 0D 20 46 4C 49 54 53 58 59 20 3A 58 |LITS. FLITSXY :X| 00000FD0: 20 3A 59 20 46 4C 49 54 53 58 59 20 3A 58 20 3A | :Y FLITSXY :X :| 00000FE0: 59 0D 20 41 4C 53 20 54 4F 45 54 53 3F 20 44 41 |Y. ALS TOETS? DA| 00000FF0: 4E 20 53 54 4F 50 0D 20 45 44 2E 46 4C 49 54 53 |N STOP. ED.FLITS| 00001000: 0D 45 4E 44 0D 0D 54 4F 20 4B 4F 4D 53 50 52 4F |.END..TO KOMSPRO| 00001010: 4B 45 4E 0D 20 4C 4F 4B 41 41 4C 20 22 53 20 4D |KEN. LOKAAL "S M| 00001020: 41 41 4B 20 22 53 20 31 0D 20 46 33 20 50 52 20 |AAK "S 1. F3 PR | 00001030: 5B 5D 20 50 52 20 5B 5D 20 50 4F 0D 20 48 45 52 |[] PR [] PO. HER| 00001040: 48 41 41 4C 20 37 20 5B 53 50 52 4F 4F 4B 20 3A |HAAL 7 [SPROOK :| 00001050: 53 20 4B 4C 45 55 52 20 31 20 4E 41 41 52 58 59 |S KLEUR 1 NAARXY| 00001060: 20 3A 53 20 2A 20 34 38 20 2D 20 32 30 30 20 28 | :S * 48 - 200 (| 00001070: 20 2D 20 35 30 20 29 20 4B 4F 4D 20 28 20 50 52 | - 50 ) KOM ( PR| 00001080: 49 4E 54 31 20 3A 53 20 22 28 20 56 4F 52 4D 20 |INT1 :S "( VORM | 00001090: 22 20 29 20 43 48 41 52 20 33 32 20 43 48 41 52 |" ) CHAR 32 CHAR| 000010A0: 20 33 32 20 29 20 4D 41 41 4B 20 22 53 20 3A 53 | 32 ) MAAK "S :S| 000010B0: 20 2B 20 31 5D 0D 20 50 52 20 5B 5D 20 53 50 52 | + 1]. PR [] SPR| 000010C0: 4F 4F 4B 20 30 20 50 4F 20 4E 42 0D 45 4E 44 0D |OOK 0 PO NB.END.| 000010D0: 0D 54 4F 20 45 58 50 32 20 3A 4E 0D 20 52 45 53 |.TO EXP2 :N. RES| 000010E0: 20 45 4C 45 4D 45 4E 54 20 3A 4E 20 2B 20 31 20 | ELEMENT :N + 1 | 000010F0: 5B 31 20 32 20 34 20 38 20 31 36 20 33 32 20 36 |[1 2 4 8 16 32 6| 00001100: 34 20 31 32 38 20 32 35 36 5D 0D 45 4E 44 0D 0D |4 128 256].END..| 00001110: 54 4F 20 4C 41 41 44 56 4F 52 4D 45 4E 20 3A 4E |TO LAADVORMEN :N| 00001120: 41 41 4D 0D 20 42 4C 41 41 44 20 57 4F 4F 52 44 |AAM. BLAAD WOORD| 00001130: 20 3A 4E 41 41 4D 20 22 2E 56 4F 52 4D 45 4E 0D | :NAAM ".VORMEN.| 00001140: 20 4E 42 20 28 20 50 52 20 3A 4E 41 41 4D 20 5B | NB ( PR :NAAM [| 00001150: 47 45 4C 41 44 45 4E 5D 20 29 0D 45 4E 44 0D 0D |GELADEN] ).END..| 00001160: 4D 41 41 4B 20 22 53 50 52 20 28 2D 31 29 0D |MAAK "SPR (-1). |
. TO !V. WEG [RVS CLR MINX MINY PLUSX PL USY FLIPX FLIPY FLITSXY ZETXY WEGXY ADDR XY BITX BITAAN? LAADVORM BEWAARVORM BEWA ARVORMEN MAAKVORM WEGVORM SPROOKVORM SPR OOKNR ED.LOOP ED.COMM ED.OPNIEUW ED.STOP ED.RAND ED.INPUT ED.FLITS KOMSPROKEN EX P2 !V]. .GCOLL PR .NODES.END..TO ADDRXY. RES :Y * 3 + SPROOKVORM + QUOTIENT :X 8 .END..TO BITX :X. RES EXP2 7 - BITAND :X 7.END..TO BITAAN? :ADDR :BIT. RES 0 < B ITAND .EXAMINE :ADDR :BIT.END..TO LAADVO RM :VORMNR :NAAM. BLAAD ( WOORD :NAAM ". VORM. :VORMNR ). SPROOK 0 VD SPROOK SPRO OKNR :VORMNR 0 NB KLEUR 1 KOM. ( PRINT [ VORM] :VORMNR [GELADEN] ).END..TO BEWAAR VORM :VORMNR :NAAM. LOKAAL "FOUT MAAK "F OUT SAMEN :VORMNR [IS FOUT VORMNR]. ALS NIET GETAL? :VORMNR DAN PR :FOUT STOP. A LS ( EENVAN :VORMNR < 1 :VORMNR > 7 ) DA N PR :FOUT STOP. ALS 9 < AANTAL :NAAM DA N PRINT [NAAM TE LANG] STOP. LOKAAL "STA RT MAAK "START 3072 + :VORMNR * 64. BBEW AAR ( WOORD :NAAM ".VORM. :VORMNR ) :STA RT :START + 63. ( PR [VORM] :VORMNR [BEW AARD] ).END..TO BEWAARVORMEN :NAAM. ALS 9 < AANTAL :NAAM DAN PRINT [NAAM TE LANG ] STOP. BBEWAAR WOORD :NAAM ".VORMEN 313 6 3583. ( PR [VORMEN] [BEWAARD] ).END..T O MAAKVORM :VORMNR. LOKAAL "SPR MAAK "SP R SPROOKNR :VORMNR 0. ALS :SPR = ( - 1 ) DAN PRINT [GEEF EERST EEN SPROOK DEZE V ORM] STOP. SPROOK :SPR. .KEUZE "F1 0 EXP 2 WELKE. F1 PO NAARXY 80 ( - 40 ) WEGTEK ST KLEUR 1. .KEUZE "INTER 0 1. ED.RAND . SPRINT SPROOKVORM. ED.LOOP 0 0.END..TO W EGVORM :VORMNR. LOKAAL "S MAAK "S WELKE. LOKAAL "SPR MAAK "SPR SPROOKNR :VORMNR 0. ALS :SPR = ( - 1 ) DAN PRINT [GEEF EE RST EEN SPROOK DEZE VORM] STOP. SPROOK : SPR CLR. SPROOK :S.END..TO SPROOKNR :VOR MNR :S. ALS :S = 8 DAN RESULTAAT ( - 1 ) . SPROOK :S ALS VORM = :VORMNR DAN RES : S. RESULTAAT SPROOKNR :VORMNR :S + 1.END ..TO ED.LOOP :X :Y. ED.COMM ED.INPUT. ED .LOOP :X :Y.END..TO RVS. LOKAAL "ADDR MA AK "ADDR SPROOKVORM. HERHAAL 63 [.DEPOSI T :ADDR BITXOR .EXAMINE :ADDR 255 MAAK " ADDR :ADDR + 1].END..TO FLIPY. .DEPOSIT 53271 BITXOR EXP2 WELKE .EXAMINE 53271.E ND..TO FLIPX. .DEPOSIT 53277 BITXOR EXP2 WELKE .EXAMINE 53277.END..TO CLR. LOKAA L "ADDR MAAK "ADDR SPROOKVORM. HERHAAL 6 3 [.DEPOSIT :ADDR 0 MAAK "ADDR :ADDR + 1 ].END..TO WEGXY :X :Y. LOKAAL "ADDR MAAK "ADDR ADDRXY. .DEPOSIT :ADDR BITAND .EX AMINE :ADDR 255 - BITX :X. CURSOR :X + 1 :Y + 1 PRINT1 "..END..TO ZETXY :X :Y. L OKAAL "ADDR MAAK "ADDR ADDRXY. .DEPOSIT :ADDR BITOR .EXAMINE :ADDR BITX :X. CURS OR :X + 1 :Y + 1 PRINT1 "Q.END..TO PLUSX . MAAK "X :X + 1 ALS :X > 23 MAAK "X 0.E ND..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 = ". :T = ", :T = "_ ) DAN MINX STOP. ALS :T = ". DAN PLUSY STOP. ALS EENVAN :T = ". :T = ". DAN PLUSX STOP. ALS :T = "+ DAN ZETX Y :X :Y STOP. ALS :T = "- DAN WEGXY :X : Y STOP. ALS :T = "* DAN ZETXY :X :Y PLUS X STOP. ALS :T = ". DAN MINX WEGXY :X :Y STOP. ALS :T = "' ' DAN WEGXY :X :Y PLU SX STOP. ALS :T = CHAR 13 DAN MAAK "X 0 PLUSY STOP. ALS :T = ". DAN MAAK "X 0 MA AK "Y 0 STOP. ALS :T = ". DAN CLR WEGTEK ST ED.OPNIEUW MAAK "X 0 MAAK "Y 0 STOP. ALS :T = "X DAN FLIPX STOP. ALS :T = "Y DAN FLIPY STOP. ALS :T = ". DAN RVS ED.O PNIEUW STOP. ALS :T = ". DAN ED.STOP STO P.END..TO SPROOKVORM. RES 64 * ( 48 + VO RM ).END..TO ED.OPNIEUW. F1 WEGTEKST ED. RAND .SPRINT SPROOKVORM.END..TO ED.RAND. CURSOR 0 0 HERHAAL 26 [PRINT1 ".]. HERH AAL 21 [CURSOR 0 1 + LAATSTE CURSORPOS P RINT1 ". CURSOR 25 LAATSTE CURSORPOS PRI NT1 ".]. PRINT ( SAMEN CHAR 32 [VORM] :V ORMNR ). CURSOR 0 22 HERHAAL 26 [PRINT1 ".] CURSOR 0 0.END..TO ED.STOP. .KEUZE " F1 0 0. F3 WEGTEKST PR [] ( PR [VORM] :V ORMNR [GEMAAKT] ). .KEUZE "INTER 0 0. AF GELOPEN.END..TO ED.INPUT. LOKAAL "T. ALS TOETS? DAN RESULTAAT TOETS. ED.FLITS. M AAK "T TOETS. ALS ASCII :T = 7 DAN ED.ST OP ANDERS RESULTAAT :T.END..TO FLITSXY : X :Y. LOKAAL "ADDR MAAK "ADDR ADDRXY. LO KAAL "F MAAK "F BITX :X. .DEPOSIT :ADDR BITXOR .EXAMINE :ADDR :F. CURSOR :X + 1 :Y + 1. ALS BITAAN? :ADDR :F DAN PRINT1 "Q ANDERS PRINT1 "..END..TO ED.FLITS. FL ITSXY :X :Y FLITSXY :X :Y. ALS TOETS? DA N STOP. ED.FLITS.END..TO KOMSPROKEN. LOK AAL "S MAAK "S 1. F3 PR [] PR [] PO. HER HAAL 7 [SPROOK :S KLEUR 1 NAARXY :S * 48 - 200 ( - 50 ) KOM ( PRINT1 :S "( VORM " ) CHAR 32 CHAR 32 ) MAAK "S :S + 1]. P R [] SPROOK 0 PO NB.END..TO EXP2 :N. RES ELEMENT :N + 1 [1 2 4 8 16 32 64 128 25 6].END..TO LAADVORMEN :NAAM. BLAAD WOORD :NAAM ".VORMEN. NB ( PR :NAAM [GELADEN] ).END..MAAK "SPR (-1).
> CLICK IMAGE PREVIEW FOR FULL MODAL