VISUELE-DISKR.
FILE INFORMATION
FILENAME(S): VISUELE-DISKR.
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-30 21:23:48
APPEARS ON: 1 disk(s)
FILE HASH
0da735ed177cf09d493369d20c86f27578cb29ba920c95c6907c8ac25dbf6409
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 SPEL 41 2 | VISUELE-DISKR. | PRG | DuncanTwain | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 16 08 02 00 8F 20 4E 41 41 52 20 50 52 41 |....... NAAR PRA| 00000010: 58 49 53 20 31 36 00 49 08 03 00 8F 20 44 4F 4F |XIS 16.I.... DOO| 00000020: 52 20 20 41 2E 4D 2E 47 4F 55 4D 41 4E 20 26 20 |R A.M.GOUMAN & | 00000030: 48 2E 4A 2E 43 2E 53 54 45 4C 4C 49 4E 47 57 45 |H.J.C.STELLINGWE| 00000040: 52 46 2D 54 55 4C 4E 45 52 00 6C 08 04 00 8F 20 |RF-TULNER.l.... | 00000050: 53 50 49 45 47 45 4C 4B 41 52 41 4B 54 45 52 53 |SPIEGELKARAKTERS| 00000060: 20 42 59 20 48 2E 54 55 4C 4E 45 52 00 88 08 0A | BY H.TULNER....| 00000070: 00 99 22 93 11 20 45 56 45 4E 20 47 45 44 55 4C |..".. EVEN GEDUL| 00000080: 44 20 41 2E 55 2E 42 2E 00 AF 08 0B 00 99 22 20 |D A.U.B......." | 00000090: 49 4B 20 57 45 52 4B 20 41 41 4E 20 56 52 45 45 |IK WERK AAN VREE| 000000A0: 4D 44 45 20 4B 41 52 41 4B 54 45 52 53 20 21 00 |MDE KARAKTERS !.| 000000B0: C5 08 0C 00 87 49 24 3A 8B 49 24 B3 B1 22 23 23 |.....I$:.I$.."##| 000000C0: 23 22 A7 31 32 00 D3 08 12 00 8D 20 36 30 30 30 |#".12...... 6000| 000000D0: 30 3A 8C 00 F1 08 5A 00 86 20 57 24 28 31 35 2C |0:....Z.. W$(15,| 000000E0: 34 29 2C 4A 28 31 35 29 2C 46 4B 28 31 35 2C 34 |4),J(15),FK(15,4| 000000F0: 29 00 3B 09 5B 00 46 54 24 28 30 29 B2 22 47 4F |).;.[.FT$(0)."GO| 00000100: 45 44 22 3A 46 54 24 28 31 29 B2 22 42 2F 44 2F |ED":FT$(1)."B/D/| 00000110: 50 20 56 45 52 57 49 53 53 45 4C 49 4E 47 22 3A |P VERWISSELING":| 00000120: 46 54 24 28 32 29 B2 22 54 57 45 45 4B 4C 41 4E |FT$(2)."TWEEKLAN| 00000130: 4B 2D 4F 4D 4B 45 52 49 4E 47 22 00 7D 09 5C 00 |K-OMKERING".}.\.| 00000140: 46 54 24 28 33 29 B2 22 4C 45 54 54 45 52 20 4F |FT$(3)."LETTER O| 00000150: 4D 4B 45 52 49 4E 47 2F 53 50 49 45 47 45 4C 49 |MKERING/SPIEGELI| 00000160: 4E 47 22 3A 46 54 24 28 34 29 B2 22 4C 45 54 54 |NG":FT$(4)."LETT| 00000170: 45 52 2D 57 45 47 4C 41 54 49 4E 47 22 00 B2 09 |ER-WEGLATING"...| 00000180: 5D 00 46 54 24 28 35 29 B2 22 4C 45 54 54 45 52 |].FT$(5)."LETTER| 00000190: 2D 54 4F 45 56 4F 45 47 49 4E 47 22 3A 46 54 24 |-TOEVOEGING":FT$| 000001A0: 28 36 29 B2 22 56 4F 4C 47 4F 52 44 45 46 4F 55 |(6)."VOLGORDEFOU| 000001B0: 54 22 00 C1 09 64 00 81 20 41 B2 31 20 A4 20 31 |T"...d.. A.1 . 1| 000001C0: 35 00 CF 09 6E 00 81 20 42 B2 31 20 A4 20 34 00 |5...n.. B.1 . 4.| 000001D0: E5 09 78 00 87 20 57 24 28 41 2C 42 29 2C 46 4B |..x.. W$(A,B),FK| 000001E0: 28 41 2C 42 29 00 06 0A 7D 00 8F 20 20 46 41 28 |(A,B)...}.. FA(| 000001F0: 46 4B 28 41 2C 42 29 29 3D 46 41 28 46 4B 28 41 |FK(A,B))=FA(FK(A| 00000200: 2C 42 29 29 2B 31 00 0E 0A 82 00 82 20 42 00 19 |,B))+1...... B..| 00000210: 0A 8C 00 87 20 4A 28 41 29 00 21 0A 96 00 82 20 |.... J(A).!.... | 00000220: 41 00 61 0A A0 00 8F 20 46 4F 52 55 3D 31 54 4F |A.a.... FORU=1TO| 00000230: 36 3A 50 52 49 4E 54 46 54 24 28 55 29 3B 53 50 |6:PRINTFT$(U);SP| 00000240: 43 28 32 36 2D 4C 45 4E 28 46 54 24 28 55 29 29 |C(26-LEN(FT$(U))| 00000250: 29 3B 46 41 28 55 29 3A 4E 45 58 54 3A 53 54 4F |);FA(U):NEXT:STO| 00000260: 50 00 76 0A E8 03 8F 20 48 4F 4F 46 44 50 52 4F |P.v.... HOOFDPRO| 00000270: 47 52 41 4D 4D 41 00 91 0A F2 03 85 20 22 93 11 |GRAMMA...... "..| 00000280: 20 48 4F 45 20 48 45 45 54 20 4A 45 20 22 3B 4E | HOE HEET JE ";N| 00000290: 24 00 A3 0A FC 03 8B C3 28 4E 24 29 B2 30 A7 31 |$.......(N$).0.1| 000002A0: 30 31 30 00 B8 0A 10 04 99 22 93 11 20 22 3B 22 |010......".. ";"| 000002B0: 44 41 47 20 22 3B 4E 24 00 E7 0A 16 04 99 20 22 |DAG ";N$...... "| 000002C0: 11 20 53 54 52 41 4B 53 20 5A 49 45 20 4A 45 20 |. STRAKS ZIE JE | 000002D0: 54 45 4C 4B 45 4E 53 20 42 4F 56 45 4E 20 41 41 |TELKENS BOVEN AA| 000002E0: 4E 20 45 45 4E 20 22 00 FC 0A 18 04 99 22 20 57 |N EEN "......" W| 000002F0: 4F 4F 52 44 20 53 54 41 41 4E 2E 22 00 2B 0B 1A |OORD STAAN.".+..| 00000300: 04 99 22 20 42 45 4B 49 4A 4B 20 44 41 54 20 57 |.." BEKIJK DAT W| 00000310: 4F 4F 52 44 20 47 4F 45 44 20 45 4E 20 4F 4E 54 |OORD GOED EN ONT| 00000320: 48 4F 55 44 54 20 48 45 54 20 21 00 5B 0B 1C 04 |HOUDT HET !.[...| 00000330: 99 22 11 20 41 4C 53 20 48 45 54 20 57 4F 4F 52 |.". ALS HET WOOR| 00000340: 44 4A 45 20 56 45 52 44 57 49 4A 4E 54 20 4B 4F |DJE VERDWIJNT KO| 00000350: 4D 45 4E 20 45 52 20 56 49 45 52 00 87 0B 38 04 |MEN ER VIER...8.| 00000360: 99 22 20 57 4F 4F 52 44 45 4E 20 20 44 49 45 20 |." WOORDEN DIE | 00000370: 56 45 45 4C 20 4F 50 20 45 4C 4B 41 41 52 20 4C |VEEL OP ELKAAR L| 00000380: 49 4A 4B 45 4E 2E 22 00 BF 0B 42 04 99 22 20 45 |IJKEN."...B.." E| 00000390: 45 4E 20 56 41 4E 20 44 49 45 20 57 4F 4F 52 44 |EN VAN DIE WOORD| 000003A0: 4A 45 53 20 48 45 42 20 4A 45 20 41 4C 20 45 45 |JES HEB JE AL EE| 000003B0: 52 44 45 52 20 20 20 47 45 5A 49 45 4E 2E 22 00 |RDER GEZIEN.".| 000003C0: EE 0B 4C 04 99 22 11 20 48 45 42 20 4A 45 20 48 |..L..". HEB JE H| 000003D0: 45 54 20 47 4F 45 44 45 20 57 4F 4F 52 44 4A 45 |ET GOEDE WOORDJE| 000003E0: 20 41 4C 20 47 45 56 4F 4E 44 45 4E 3F 22 00 22 | AL GEVONDEN?"."| 000003F0: 0C 56 04 99 22 20 54 49 4B 20 44 41 4E 20 48 45 |.V.." TIK DAN HE| 00000400: 54 20 4E 55 4D 4D 45 52 20 44 41 54 20 45 52 20 |T NUMMER DAT ER | 00000410: 42 4F 56 45 4E 20 53 54 41 41 54 20 20 20 49 4E |BOVEN STAAT IN| 00000420: 2E 22 00 49 0C 60 04 99 22 11 11 20 3E 20 42 45 |.".I.`..".. > BE| 00000430: 47 49 4E 4E 45 4E 20 3F 20 54 49 4B 20 4F 50 20 |GINNEN ? TIK OP | 00000440: 52 45 54 55 52 4E 20 3C 22 00 6E 0C 6A 04 97 31 |RETURN <".n.j..1| 00000450: 39 38 2C 30 3A 81 55 B2 36 33 31 A4 36 34 30 3A |98,0:.U.631.640:| 00000460: 97 55 2C 30 3A 82 3A 92 36 33 31 2C 31 33 00 74 |.U,0:.:.631,13.t| 00000470: 0C B0 04 8F 00 80 0C B1 04 47 B2 30 3A 46 B2 30 |.........G.0:F.0| 00000480: 00 91 0C B5 04 81 4E B2 31 A4 31 35 3A 48 4B B2 |......N.1.15:HK.| 00000490: 30 00 AD 0C BA 04 99 22 93 11 20 22 3B 3A 99 57 |0......".. ";:.W| 000004A0: 24 28 4E 2C 4A 28 4E 29 29 3A 54 B2 30 00 C3 0C |$(N,J(N)):T.0...| 000004B0: C4 04 81 20 57 41 20 B2 31 A4 32 30 30 30 3A 82 |... WA .1.2000:.| 000004C0: 20 57 41 00 E1 0C CE 04 99 22 93 11 11 11 11 20 | WA......"..... | 000004D0: 22 3A 81 20 55 20 B2 31 A4 34 3A 99 55 2C 3A 82 |":. U .1.4:.U,:.| 000004E0: 55 00 FB 0C D8 04 81 20 55 B2 31 A4 34 3A 99 22 |U...... U.1.4:."| 000004F0: 20 22 3B 57 24 28 4E 2C 55 29 2C 00 1C 0D D9 04 | ";W$(N,U),.....| 00000500: 46 41 28 46 4B 28 4E 2C 55 29 29 B2 46 41 28 46 |FA(FK(N,U)).FA(F| 00000510: 4B 28 4E 2C 55 29 29 AA 31 3A 82 55 00 22 0D DA |K(N,U)).1:.U."..| 00000520: 04 99 00 28 0D DB 04 99 00 4D 0D E2 04 99 22 20 |...(.....M...." | 00000530: 47 45 45 46 20 4A 45 20 41 4E 54 57 4F 4F 52 44 |GEEF JE ANTWOORD| 00000540: 20 4D 41 41 52 22 3A 97 31 39 38 2C 30 00 6B 0D | MAAR":.198,0.k.| 00000550: EC 04 A1 49 24 3A 49 B2 C5 28 49 24 29 3A 8B 49 |...I$:I..(I$):.I| 00000560: B3 31 B0 49 B1 34 A7 31 32 36 30 00 89 0D F1 04 |.1.I.4.1260.....| 00000570: 46 54 28 46 4B 28 4E 2C 49 29 29 B2 46 54 28 46 |FT(FK(N,I)).FT(F| 00000580: 4B 28 4E 2C 49 29 29 AA 31 00 D1 0D F2 04 8F 20 |K(N,I)).1...... | 00000590: 20 50 52 49 4E 54 22 11 20 3E 3E 3E 3E 22 3B 46 | PRINT". >>>>";F| 000005A0: 54 24 28 46 4B 28 4E 2C 49 29 29 3A 50 52 49 4E |T$(FK(N,I)):PRIN| 000005B0: 54 22 11 20 56 45 52 44 45 52 20 3F 20 20 54 49 |T". VERDER ? TI| 000005C0: 4B 20 44 41 4E 20 4F 50 20 52 45 54 55 52 4E 20 |K DAN OP RETURN | 000005D0: 21 00 08 0E F3 04 8F 20 20 50 4F 4B 45 31 39 38 |!...... POKE198| 000005E0: 2C 30 3A 46 4F 52 55 3D 36 33 31 54 4F 36 34 30 |,0:FORU=631TO640| 000005F0: 3A 50 4F 4B 45 55 2C 30 3A 4E 45 58 54 3A 57 41 |:POKEU,0:NEXT:WA| 00000600: 49 54 36 33 31 2C 31 33 00 47 0E F6 04 8B 49 B2 |IT631,13.G....I.| 00000610: 4A 28 4E 29 A7 20 99 22 11 20 3E 3E 3E 3E 20 4D |J(N). .". >>>> M| 00000620: 4F 4F 49 20 5A 4F A0 3C 3C 3C 3C 22 3A 81 57 41 |OOI ZO.<<<<":.WA| 00000630: B2 31 A4 31 30 30 30 3A 82 57 41 3A 47 B2 47 AA |.1.1000:.WA:G.G.| 00000640: 31 3A 89 31 32 38 30 00 64 0E F7 04 48 4B B2 48 |1:.1280.d...HK.H| 00000650: 4B AA 31 3A 8B 48 4B B2 32 A7 48 4B B2 30 3A 89 |K.1:.HK.2.HK.0:.| 00000660: 31 32 37 38 00 77 0E F8 04 99 22 11 11 20 4A 41 |1278.w....".. JA| 00000670: 4D 4D 4D 45 52 20 21 00 94 0E F9 04 99 22 20 50 |MMMER !......" P| 00000680: 52 4F 42 45 45 52 20 48 45 54 20 4E 4F 47 20 45 |ROBEER HET NOG E| 00000690: 45 4E 53 2E 00 B2 0E FA 04 99 22 20 54 49 4B 20 |ENS......." TIK | 000006A0: 4D 41 41 52 20 4F 50 20 3E 3E 52 45 54 55 52 4E |MAAR OP >>RETURN| 000006B0: 3C 3C 00 D7 0E FC 04 97 31 39 38 2C 30 3A 81 55 |<<......198,0:.U| 000006C0: B2 36 33 31 A4 36 34 30 3A 97 55 2C 30 3A 82 3A |.631.640:.U,0:.:| 000006D0: 92 36 33 31 2C 31 33 00 E2 0E FD 04 89 20 31 32 |.631,13...... 12| 000006E0: 31 30 00 09 0F FE 04 99 22 11 20 48 45 54 20 47 |10......". HET G| 000006F0: 4F 45 44 45 20 41 4E 54 57 4F 4F 52 44 20 57 41 |OEDE ANTWOORD WA| 00000700: 53 20 3A 22 3B 4A 28 4E 29 00 44 0F FF 04 99 22 |S :";J(N).D...."| 00000710: 20 54 49 4B 20 4F 50 20 3E 3E 52 45 54 55 52 4E | TIK OP >>RETURN| 00000720: 3C 3C 22 3A 97 31 39 38 2C 30 3A 81 55 B2 36 33 |<<":.198,0:.U.63| 00000730: 31 A4 36 34 30 3A 97 55 2C 30 3A 82 3A 92 36 33 |1.640:.U,0:.:.63| 00000740: 31 2C 31 33 00 4B 0F 00 05 82 4E 00 57 0F 0A 05 |1,13.K....N.W...| 00000750: 99 22 93 11 11 11 22 00 7C 0F 0B 05 99 22 20 46 |."....".|...." F| 00000760: 4F 55 54 45 4E 20 4F 56 45 52 5A 49 43 48 54 20 |OUTEN OVERZICHT | 00000770: 56 41 4E 20 22 3B 4E 24 3A 99 3A 99 00 B4 0F 0F |VAN ";N$:.:.....| 00000780: 05 81 55 B2 31 A4 36 3A 99 22 20 22 3B 46 54 24 |..U.1.6:." ";FT$| 00000790: 28 55 29 3B A6 32 38 AB C3 28 46 54 24 28 55 29 |(U);.28..(FT$(U)| 000007A0: 29 29 3B 46 54 28 55 29 3B 22 2F 22 3B 46 41 28 |));FT(U);"/";FA(| 000007B0: 55 29 3A 82 00 C8 0F 14 05 A1 49 24 3A 8B 49 24 |U):.......I$:.I$| 000007C0: B2 22 22 A7 31 33 30 30 00 D2 0F 1E 05 89 31 32 |."".1300......12| 000007D0: 39 30 00 DD 0F 10 27 8F 20 44 41 54 41 00 06 10 |90....'. DATA...| 000007E0: 1A 27 83 20 44 41 41 52 44 2C 36 2C 42 52 41 41 |.'. DAARD,6,BRAA| 000007F0: 42 2C 31 2C 44 52 41 41 52 44 2C 35 2C 44 52 41 |B,1,DRAARD,5,DRA| 00000800: 41 44 2C 30 2C 34 00 32 10 24 27 83 22 C6 45 45 |AD,0,4.2.$'.".EE| 00000810: 53 54 22 2C 33 2C 46 45 45 53 54 2C 30 2C 22 46 |ST",3,FEEST,0,"F| 00000820: 45 45 54 53 22 2C 36 2C 22 46 45 45 54 22 2C 34 |EETS",6,"FEET",4| 00000830: 2C 32 00 5B 10 2E 27 83 20 4F 4F 47 53 54 2C 30 |,2.[..'. OOGST,0| 00000840: 2C 22 4F 4F 47 D3 54 22 2C 33 2C 4F 4F 53 54 2C |,"OOG.T",3,OOST,| 00000850: 34 2C 54 53 4F 4F 47 2C 36 2C 31 00 84 10 38 27 |4,TSOOG,6,1...8'| 00000860: 83 20 22 50 41 55 DA C5 22 2C 33 2C 50 41 5A 45 |. "PAU..",3,PAZE| 00000870: 2C 34 2C 50 41 55 5A 45 2C 30 2C 50 55 41 5A 45 |,4,PAUZE,0,PUAZE| 00000880: 2C 32 2C 33 00 AE 10 42 27 83 20 22 45 49 47 C5 |,2,3...B'. "EIG.| 00000890: CE 22 2C 33 2C 47 45 49 4E 45 2C 36 2C 45 49 47 |.",3,GEINE,6,EIG| 000008A0: 45 4E 2C 30 2C 49 45 47 45 4E 2C 32 2C 33 00 D8 |EN,0,IEGEN,2,3..| 000008B0: 10 4C 27 83 20 5A 41 44 45 4C 2C 30 2C 5A 41 42 |.L'. ZADEL,0,ZAB| 000008C0: 45 4C 2C 31 2C 22 DA 41 44 C5 4C 22 2C 33 2C 5A |EL,1,".AD.L",3,Z| 000008D0: 45 44 41 4C 2C 36 2C 31 00 06 11 56 27 83 20 22 |EDAL,6,1...V'. "| 000008E0: 4D 4F 45 44 C5 52 22 2C 33 2C 4D 4F 45 44 |MOED.R",3,MOED |
....... NAAR PRAXIS 16.I.... DOOR A.M.G OUMAN & H.J.C.STELLINGWERF-TULNER.L.... SPIEGELKARAKTERS BY H.TULNER......".. EV EN GEDULD A.U.B......." IK WERK AAN VREE MDE KARAKTERS !.E....I$:.I$.."###".12.S. ... 60000:....Z.. W$(15,4),J(15),FK(15,4 ).;.[.FT$(0)."GOED":FT$(1)."B/D/P VERWIS SELING":FT$(2)."TWEEKLANK-OMKERING".}.\. FT$(3)."LETTER OMKERING/SPIEGELING":FT$( 4)."LETTER-WEGLATING"...].FT$(5)."LETTER -TOEVOEGING":FT$(6)."VOLGORDEFOUT".A.D.. A.1 . 15.O.N.. B.1 . 4...X.. W$(A,B),FK (A,B)...}.. FA(FK(A,B))=FA(FK(A,B))+1.. .... B...... J(A).!.... A.A. .. FORU=1TO 6:PRINTFT$(U);SPC(26-LEN(FT$(U)));FA(U): NEXT:STOP.V.... HOOFDPROGRAMMA...... ".. HOE HEET JE ";N$......C(N$).0.1010..... .".. ";"DAG ";N$...... ". STRAKS ZIE JE TELKENS BOVEN AAN EEN "......" WOORD STA AN.".+...." BEKIJK DAT WOORD GOED EN ONT HOUDT HET !.[....". ALS HET WOORDJE VERD WIJNT KOMEN ER VIER...8.." WOORDEN DIE VEEL OP ELKAAR LIJKEN."...B.." EEN VAN D IE WOORDJES HEB JE AL EERDER GEZIEN.". ..L..". HEB JE HET GOEDE WOORDJE AL GEVO NDEN?".".V.." TIK DAN HET NUMMER DAT ER BOVEN STAAT IN.".I.`..".. > BEGINNEN ? TIK OP RETURN <".N.J..198,0:.U.631.640: .U,0:.:.631,13.T.........G.0:F.0......N. 1.15:HK.0......".. ";:.W$(N,J(N)):T.0.C. D.. WA .1.2000:. WA...N.."..... ":. U .1 .4:.U,:.U...X.. U.1.4:." ";W$(N,U),...Y. FA(FK(N,U)).FA(FK(N,U)).1:.U.".Z...(.... .M...." GEEF JE ANTWOORD MAAR":.198,0.K. ...I$:I.E(I$):.I.1.I.4.1260.....FT(FK(N, I)).FT(FK(N,I)).1.Q.... PRINT". >>>>";F T$(FK(N,I)):PRINT". VERDER ? TIK DAN OP RETURN !...... POKE198,0:FORU=631TO640 :POKEU,0:NEXT:WAIT631,13.G....I.J(N). ." . >>>> MOOI ZO <<<<":.WA.1.1000:.WA:G.G. 1:.1280.D...HK.HK.1:.HK.2.HK.0:.1278.W.. ..".. JAMMMER !......" PROBEER HET NOG E ENS......." TIK MAAR OP >>RETURN<<.W.... 198,0:.U.631.640:.U,0:.:.631,13...... 12 10......". HET GOEDE ANTWOORD WAS :";J(N ).D...." TIK OP >>RETURN<<":.198,0:.U.63 1.640:.U,0:.:.631,13.K....N.W...."....". |...." FOUTEN OVERZICHT VAN ";N$:.:..... ..U.1.6:." ";FT$(U);.28.C(FT$(U)));FT(U) ;"/";FA(U):..H....I$:.I$."".1300.R....12 90....'. DATA....'. DAARD,6,BRAAB,1,DRAA RD,5,DRAAD,0,4.2.$'."FEEST",3,FEEST,0,"F EETS",6,"FEET",4,2.[..'. OOGST,0,"OOGST" ,3,OOST,4,TSOOG,6,1...8'. "PAUZE",3,PAZE ,4,PAUZE,0,PUAZE,2,3...B'. "EIGEN",3,GEI NE,6,EIGEN,0,IEGEN,2,3.X.L'. ZADEL,0,ZAB EL,1,"ZADEL",3,ZEDAL,6,1...V'. "MOEDER", 3,MOED
> CLICK IMAGE PREVIEW FOR FULL MODAL