RIJM-GENERATOR
FILE INFORMATION
FILENAME(S): RIJM-GENERATOR
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 21:10:50
APPEARS ON: 1 disk(s)
FILE HASH
0b6dffba558abd301fd4636345d8a36fa195653c12f9b46eac2b7ae603c2cc3f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HCCN | RIJM-GENERATOR | PRG | DuncanTwain | 23 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 31 08 0A 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..1....*********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000030: 2A 00 57 08 14 00 8F 20 20 20 20 20 20 20 20 53 |*.W.... S| 00000040: 54 52 55 4B 54 55 55 52 20 52 49 4A 4D 2D 47 45 |TRUKTUUR RIJM-GE| 00000050: 4E 45 52 41 54 4F 52 00 7F 08 1E 00 8F 20 20 20 |NERATOR...... | 00000060: 20 20 20 43 4F 4D 50 55 54 45 52 20 41 4C 53 20 | COMPUTER ALS | 00000070: 48 55 4C 50 53 49 4E 54 45 52 4B 4C 41 41 53 00 |HULPSINTERKLAAS.| 00000080: AC 08 28 00 8F 20 42 41 53 49 43 20 56 4F 4F 52 |..(.. BASIC VOOR| 00000090: 20 5A 45 4C 46 20 54 45 20 53 43 48 52 49 4A 56 | ZELF TE SCHRIJV| 000000A0: 45 4E 20 50 52 4F 47 52 41 4D 4D 41 00 BF 08 32 |EN PROGRAMMA...2| 000000B0: 00 8F 20 4A 41 4E 20 42 4F 44 5A 49 4E 47 41 00 |.. JAN BODZINGA.| 000000C0: EF 08 3C 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..<..***********| 000000D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 000000F0: F5 08 63 00 3A 00 15 09 64 00 83 20 20 20 20 50 |..c.:...d.. P| 00000100: 41 4B 4A 45 53 41 56 4F 4E 44 20 49 53 20 47 45 |AKJESAVOND IS GE| 00000110: 4B 4F 4D 45 4E 00 26 09 6E 00 83 2E 2E 2E 2E 2E |KOMEN.&.n.......| 00000120: 44 52 4F 4D 45 4E 00 37 09 78 00 83 2E 2E 2E 2E |DROMEN.7.x......| 00000130: 2E 53 4C 4F 4D 45 4E 00 48 09 82 00 83 2E 2E 2E |.SLOMEN.H.......| 00000140: 2E 2E 2E 4B 4F 4D 45 4E 00 58 09 8C 00 83 2E 2E |...KOMEN.X......| 00000150: 2E 2E 2E 42 4F 4D 45 4E 00 5E 09 96 00 3A 00 87 |...BOMEN.^...:..| 00000160: 09 A0 00 83 20 20 57 41 54 20 4D 4F 45 54 20 53 |.... WAT MOET S| 00000170: 49 4E 54 20 4A 45 20 4E 55 20 45 45 4E 53 20 53 |INT JE NU EENS S| 00000180: 43 48 45 4E 4B 45 4E 00 9C 09 AA 00 83 2E 2E 2E |CHENKEN.........| 00000190: 2E 2E 2E 2E 2E 2E 44 45 4E 4B 45 4E 00 B2 09 B4 |......DENKEN....| 000001A0: 00 83 2E 2E 2E 2E 2E 2E 2E 2E 53 43 48 45 4E 4B |..........SCHENK| 000001B0: 45 4E 00 C8 09 BE 00 83 20 2E 2E 2E 2E 2E 2E 2E |EN...... .......| 000001C0: 20 4B 52 45 4E 4B 45 4E 00 DC 09 C8 00 83 2E 2E | KRENKEN........| 000001D0: 2E 2E 2E 2E 2E 2E 57 45 4E 4B 45 4E 00 E2 09 D2 |......WENKEN....| 000001E0: 00 3A 00 07 0A DC 00 83 20 20 57 41 41 52 4F 4D |.:...... WAAROM| 000001F0: 20 4D 4F 45 54 20 4A 45 20 5A 49 54 54 45 4E 20 | MOET JE ZITTEN | 00000200: 54 52 45 55 52 45 4E 00 1C 0A E6 00 83 2E 2E 2E |TREUREN.........| 00000210: 2E 2E 2E 2E 2E 2E 4C 45 55 52 45 4E 00 31 0A F0 |......LEUREN.1..| 00000220: 00 83 2E 2E 2E 2E 2E 2E 2E 2E 2E 44 45 55 52 45 |...........DEURE| 00000230: 4E 00 47 0A FA 00 83 20 2E 2E 2E 2E 2E 2E 2E 42 |N.G.... .......B| 00000240: 45 4B 45 55 52 45 4E 00 5B 0A 04 01 83 2E 2E 2E |EKEUREN.[.......| 00000250: 2E 2E 2E 2E 2E 5A 45 55 52 45 4E 00 61 0A 0E 01 |.....ZEUREN.a...| 00000260: 3A 00 87 0A 18 01 83 20 57 41 54 20 48 45 45 46 |:...... WAT HEEF| 00000270: 54 20 53 49 4E 54 20 56 41 4E 20 50 49 45 54 20 |T SINT VAN PIET | 00000280: 47 45 48 4F 4F 52 44 00 9C 0A 22 01 83 2E 2E 2E |GEHOORD...".....| 00000290: 2E 2E 2E 2E 2E 2E 2E 57 4F 4F 52 44 00 B0 0A 2C |.......WOORD...,| 000002A0: 01 83 2E 2E 2E 2E 2E 2E 2E 42 45 4B 4F 4F 52 44 |.........BEKOORD| 000002B0: 00 C7 0A 36 01 83 20 2E 2E 2E 2E 20 47 41 54 45 |...6.. .... GATE| 000002C0: 4E 20 42 4F 4F 52 54 00 DC 0A 40 01 83 2E 2E 2E |N BOORT...@.....| 000002D0: 2E 2E 52 49 4E 47 45 4C 4F 4F 52 54 00 E2 0A 4A |..RINGELOORT...J| 000002E0: 01 3A 00 11 0B 54 01 83 20 30 3A 20 20 20 20 20 |.:...T.. 0: | 000002F0: 20 20 20 20 20 20 20 20 20 20 3A 8F 20 45 49 4E | :. EIN| 00000300: 44 45 20 44 41 54 41 53 54 41 54 45 4D 45 4E 54 |DE DATASTATEMENT| 00000310: 53 00 3D 0B E8 03 8F 20 20 20 20 2A 2A 2A 2A 2A |S.=.... *****| 00000320: 2A 20 20 20 42 45 47 49 4E 20 50 52 4F 47 52 41 |* BEGIN PROGRA| 00000330: 4D 4D 41 20 20 20 20 2A 2A 2A 2A 2A 2A 00 6E 0B |MMA ******.n.| 00000340: F2 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 49 4E |... ********* IN| 00000350: 4C 45 5A 45 4E 20 44 41 54 41 2D 52 45 47 45 4C |LEZEN DATA-REGEL| 00000360: 53 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9A |S ***********..| 00000370: 0B FC 03 86 20 5A 24 28 31 30 30 29 20 20 20 20 |.... Z$(100) | 00000380: 20 20 3A 8F 20 5A 24 28 29 3D 41 52 52 41 59 20 | :. Z$()=ARRAY | 00000390: 44 41 54 41 52 45 47 45 4C 53 00 CA 0B 06 04 86 |DATAREGELS......| 000003A0: 20 52 47 24 28 31 36 29 20 20 20 20 20 20 3A 8F | RG$(16) :.| 000003B0: 20 52 47 24 28 29 3D 41 52 52 41 59 20 4A 55 49 | RG$()=ARRAY JUI| 000003C0: 53 54 45 20 52 45 47 45 4C 53 00 FB 0B 10 04 49 |STE REGELS.....I| 000003D0: B2 31 3A 20 20 20 20 20 20 20 20 20 20 20 20 20 |.1: | 000003E0: 3A 8F 20 54 45 4C 4C 45 52 20 41 41 4E 54 41 4C |:. TELLER AANTAL| 000003F0: 20 44 41 54 41 52 45 47 45 4C 53 00 1E 0C 1A 04 | DATAREGELS.....| 00000400: 87 5A 24 28 49 29 3A 8B 5A 24 28 49 29 B3 B1 22 |.Z$(I):.Z$(I).."| 00000410: 30 22 A7 49 B2 49 AA 31 3A 89 31 30 35 30 00 4D |0".I.I.1:.1050.M| 00000420: 0C 24 04 49 B2 49 AB 31 20 20 20 20 20 20 20 20 |.$.I.I.1 | 00000430: 20 20 20 20 3A 8F 20 49 3D 20 54 4F 54 41 41 4C | :. I= TOTAAL| 00000440: 41 41 4E 54 41 4C 20 52 45 47 45 4C 53 00 7E 0C |AANTAL REGELS.~.| 00000450: D0 07 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 20 55 49 54 |... ******** UIT| 00000460: 5A 4F 45 4B 45 4E 20 52 49 4A 4D 52 45 47 45 4C |ZOEKEN RIJMREGEL| 00000470: 53 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A8 |S ************..| 00000480: 0C DA 07 52 B2 31 20 20 20 20 20 20 20 20 20 20 |...R.1 | 00000490: 20 20 20 20 3A 8F 20 48 4F 4F 46 44 52 45 47 45 | :. HOOFDREGE| 000004A0: 4C 2D 54 45 4C 4C 45 52 00 D4 0C E4 07 54 45 B2 |L-TELLER.....TE.| 000004B0: 30 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 8F |0 :.| 000004C0: 20 54 45 4C 4C 45 52 20 47 4F 45 44 45 20 52 45 | TELLER GOEDE RE| 000004D0: 47 45 4C 53 00 05 0D EE 07 8F 20 2A 2A 2A 2A 2A |GELS...... *****| 000004E0: 2A 2A 2A 20 20 20 20 20 48 4F 4F 46 44 52 45 47 |*** HOOFDREG| 000004F0: 45 4C 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A |EL *******| 00000500: 2A 2A 2A 2A 2A 00 2C 0D F8 07 8B 5A 24 28 52 29 |*****.,....Z$(R)| 00000510: B2 22 30 22 A7 32 32 30 30 3A 20 20 3A 8F 20 44 |."0".2200: :. D| 00000520: 41 54 41 20 55 49 54 47 45 50 55 54 00 59 0D 02 |ATA UITGEPUT.Y..| 00000530: 08 99 5A 24 28 52 29 3B 3A 52 52 B2 52 3A 20 20 |..Z$(R);:RR.R: | 00000540: 20 20 20 3A 8F 20 52 52 3D 54 45 4C 4C 45 52 20 | :. RR=TELLER | 00000550: 53 55 42 52 45 47 45 4C 53 00 81 0D 0C 08 52 47 |SUBREGELS.....RG| 00000560: 24 B2 5A 24 28 52 29 3A 8D 32 35 30 30 20 20 20 |$.Z$(R):.2500 | 00000570: 3A 8F 20 52 45 47 45 4C 20 47 4F 45 44 20 4A 2F |:. REGEL GOED J/| 00000580: 4E 00 99 0D 16 08 8B 41 24 B2 22 4E 22 A7 52 B2 |N......A$."N".R.| 00000590: 52 AA 35 3A 89 32 30 34 30 00 CA 0D 20 08 8F 20 |R.5:.2040... .. | 000005A0: 2A 2A 2A 2A 2A 2A 2A 2A 20 20 20 20 20 20 53 55 |******** SU| 000005B0: 42 52 45 47 45 4C 53 20 20 20 20 20 20 20 2A 2A |BREGELS **| 000005C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 DF 0D 2A 08 52 |**********...*.R| 000005D0: 52 B2 52 52 AA 31 3A 99 5A 24 28 52 52 29 3B 00 |R.RR.1:.Z$(RR);.| 000005E0: 07 0E 34 08 52 47 24 B2 5A 24 28 52 52 29 3A 8D |..4.RG$.Z$(RR):.| 000005F0: 32 35 30 30 20 20 3A 8F 20 52 45 47 45 4C 20 47 |2500 :. REGEL G| 00000600: 4F 45 44 20 4A 2F 4E 00 18 0E 3E 08 8B 41 24 B2 |OED J/N...>..A$.| 00000610: 22 4A 22 A7 32 31 35 30 00 29 0E 48 08 8B 52 52 |"J".2150.).H..RR| 00000620: AB 52 B3 34 A7 32 30 39 30 00 38 0E 52 08 52 52 |.R.4.2090.8.R.RR| 00000630: B2 52 3A 89 32 30 39 30 00 69 0E 5C 08 8F 20 2A |.R:.2090.i.\.. *| 00000640: 2A 2A 2A 2A 2A 2A 2A 20 20 56 4F 4C 47 45 4E 44 |******* VOLGEND| 00000650: 45 20 48 4F 4F 46 44 52 45 47 45 4C 20 2A 2A 2A |E HOOFDREGEL ***| 00000660: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 79 0E 66 08 52 B2 |*********.y.f.R.| 00000670: 52 AA 35 3A 89 32 30 34 30 00 7F 0E 97 08 3A 00 |R.5:.2040.....:.| 00000680: B0 0E 98 08 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 20 20 |..... ******** | 00000690: 20 50 52 49 4E 54 45 4E 20 47 45 44 49 43 48 54 | PRINTEN GEDICHT| 000006A0: 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ************| 000006B0: 00 B9 0E A2 08 99 22 93 22 00 C5 0E AC 08 81 49 |......"."......I| 000006C0: B2 30 A4 54 45 00 EB 0E B6 08 99 20 52 47 24 28 |.0.TE...... RG$(| 000006D0: 49 29 20 20 20 20 20 20 3A 8F 20 45 45 4E 20 47 |I) :. EEN G| 000006E0: 45 44 49 43 48 54 52 45 47 45 4C 00 F1 0E C0 08 |EDICHTREGEL.....| 000006F0: 82 00 F7 0E CA 08 80 00 FD 0E C3 09 3A 00 2C 0F |............:.,.| 00000700: C4 09 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 20 54 45 53 |... ******** TES| 00000710: 54 52 E0 49 4E 45 20 47 4F 45 44 45 20 52 45 47 |TR.INE GOEDE REG| 00000720: 45 4C 53 20 2A 2A 2A 2A 2A 2A 2A 2A 00 40 0F CE |ELS ********.@..| 00000730: 09 99 22 20 20 20 20 4F 4B 20 28 4A 2F 4E 29 22 |.." OK (J/N)"| 00000740: 00 5E 0F D8 09 A1 41 24 3A 8B 41 24 B3 B1 22 4E |.^....A$:.A$.."N| 00000750: 22 AF 41 24 B3 B1 22 4A 22 A7 32 35 32 30 00 6F |".A$.."J".2520.o| 00000760: 0F E2 09 8B 41 24 B2 22 4E 22 A7 32 35 36 30 00 |....A$."N".2560.| 00000770: 92 0F EC 09 54 45 B2 54 45 AA 31 20 20 20 20 20 |....TE.TE.1 | 00000780: 3A 8F 20 45 45 4E 20 47 4F 45 44 45 20 52 45 47 |:. EEN GOEDE REG| 00000790: 45 4C 00 A2 0F F6 09 52 47 24 28 54 45 29 B2 52 |EL.....RG$(TE).R| 000007A0: 47 24 00 A8 0F 00 0A 8E 00 00 00 |G$......... |
..1....*********************************
*********.W.... STRUKTUUR RIJM-GE
NERATOR..... COMPUTER ALS HULPSINT
ERKLAAS...(.. BASIC VOOR ZELF TE SCHRIJV
EN PROGRAMMA...2.. JAN BODZINGA...<..***
***************************************.
..C.:...D.. PAKJESAVOND IS GEKOMEN.&.
N.......DROMEN.7.X.......SLOMEN.H.......
...KOMEN.X.........BOMEN.^...:... .. WA
T MOET SINT JE NU EENS SCHENKEN.........
......DENKEN..............SCHENKEN.H....
....... KRENKEN...H..........WENKEN...R
.:...... WAAROM MOET JE ZITTEN TREUREN.
..............LEUREN.1.............DEURE
N.G.... .......BEKEUREN.[............ZEU
REN.A...:...... WAT HEEFT SINT VAN PIET
GEHOORD..."............WOORD...,........
.BEKOORD.G.6.. .... GATEN BOORT...@.....
..RINGELOORT...J.:...T.. 0:
:. EINDE DATASTATEMENTS.=.... *****
* BEGIN PROGRAMMA ******.N.... ****
***** INLEZEN DATA-REGELS ***********..
.... Z$(100) :. Z$()=ARRAY DATAREGE
LS.J.... RG$(16) :. RG$()=ARRAY JUI
STE REGELS.....I.1: :. TELLE
R AANTAL DATAREGELS......Z$(I):.Z$(I).."
0".I.I.1:.1050.M.$.I.I.1 :. I
= TOTAALAANTAL REGELS.~.P.. ******** UIT
ZOEKEN RIJMREGELS ************...Z.R.1
:. HOOFDREGEL-TELLER.T...TE.
0 :. TELLER GOEDE REGELS....
.. ******** HOOFDREGEL *******
*****.,....Z$(R)."0".2200: :. DATA UITG
EPUT.Y....Z$(R);:RR.R: :. RR=TELLER
SUBREGELS.....RG$.Z$(R):.2500 :. REGEL
GOED J/N......A$."N".R.R.5:.2040.J. ..
******** SUBREGELS **********
**...*.RR.RR.1:.Z$(RR);...4.RG$.Z$(RR):.
2500 :. REGEL GOED J/N...>..A$."J".2150
.).H..RR.R.4.2090.8.R.RR.R:.2090.I.\.. *
******* VOLGENDE HOOFDREGEL ***********
*.Y.F.R.R.5:.2040....:...... ********
PRINTEN GEDICHT ************......".
".E....I.0.TE...... RG$(I) :. EEN G
EDICHTREGEL.........J.....C.:.,.D.. ****
**** TESTR.INE GOEDE REGELS ********.@.N
.." OK (J/N)".^.X..A$:.A$.."N".A$.."J
".2520.O....A$."N".2560.....TE.TE.1
:. EEN GOEDE REGEL.....RG$(TE).RG$......
...
> CLICK IMAGE PREVIEW FOR FULL MODAL