DATA-REGELS V1.1
FILE INFORMATION
FILENAME(S): DATA-REGELS V1.1
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-11-30 21:06:43
APPEARS ON: 1 disk(s)
FILE HASH
2c755d281ab119e5afadae0fc78808db272f6824a0a3257174fd012c94e342ff
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HULP PROG 3 | DATA-REGELS V1.1 | PRG | DuncanTwain | 17 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 0A 00 8F 20 20 20 20 20 47 45 57 49 |..".... GEWI| 00000010: 4A 5A 49 47 44 45 20 56 45 52 53 49 45 3A 56 31 |JZIGDE VERSIE:V1| 00000020: 2E 31 00 48 08 64 00 8F 2A 2A 2A 2A 2A 2A 2A 2A |.1.H.d..********| 00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000040: 2A 2A 2A 2A 2A 2A 2A 2A 00 6E 08 6E 00 8F 20 20 |********.n.n.. | 00000050: 44 41 54 41 2D 52 45 47 45 4C 53 20 4D 45 54 20 |DATA-REGELS MET | 00000060: 4E 55 4D 45 52 49 43 20 50 41 44 20 20 2A 00 94 |NUMERIC PAD *..| 00000070: 08 78 00 8F 52 45 47 45 4C 53 20 35 30 30 2D 35 |.x..REGELS 500-5| 00000080: 31 30 20 26 20 37 31 30 2D 37 33 30 20 55 49 54 |10 & 710-730 UIT| 00000090: 20 4D 4C 58 00 BA 08 82 00 8F 20 20 20 20 20 20 | MLX...... | 000000A0: 48 2E 47 2E 56 41 4E 20 4D 41 4E 45 4E 20 20 20 |H.G.VAN MANEN | 000000B0: 38 2F 38 37 20 20 20 20 20 2A 00 E0 08 8C 00 8F |8/87 *......| 000000C0: 2A 2A 2A 2A 2A 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: 00 EB 08 96 00 99 C7 28 31 34 29 00 14 09 9B 00 |.......(14).....| 000000F0: 99 22 93 11 20 20 20 20 20 20 20 20 2A 2A 2A 20 |.".. *** | 00000100: C4 C1 D4 C1 D2 C5 C7 C5 CC D3 A0 D4 D9 D0 C5 CE |................| 00000110: A0 2A 2A 2A 00 5F 09 A0 00 99 22 11 CD 45 54 20 |.***._...."..ET | 00000120: 44 49 54 20 50 52 4F 47 52 41 4D 4D 41 20 4B 55 |DIT PROGRAMMA KU| 00000130: 4E 4E 45 4E 20 44 41 54 41 52 45 47 45 4C 53 20 |NNEN DATAREGELS | 00000140: 49 4E 2D 20 47 45 54 49 4B 54 20 57 4F 52 44 45 |IN- GETIKT WORDE| 00000150: 4E 20 4D 2E 42 2E 56 2E 20 45 45 4E 20 22 3B 00 |N M.B.V. EEN ";.| 00000160: 96 09 AA 00 99 22 4E 55 4D 45 52 49 43 20 4B 45 |....."NUMERIC KE| 00000170: 59 50 41 44 3A 20 20 20 20 48 2F 4D 2C 2E 2F 4A |YPAD: H/M,./J| 00000180: 4B 4C 2F 55 49 4F 20 3D 20 30 2F 31 32 33 2F 34 |KL/UIO = 0/123/4| 00000190: 35 36 2F 37 38 39 00 E3 09 B4 00 99 22 11 CF 4F |56/789......"..O| 000001A0: 4B 20 44 45 20 4E 4F 52 4D 41 4C 45 20 43 49 4A |K DE NORMALE CIJ| 000001B0: 46 45 52 54 4F 45 54 53 45 4E 20 4B 55 4E 4E 45 |FERTOETSEN KUNNE| 000001C0: 4E 20 47 45 2D 20 42 52 55 49 4B 54 20 57 4F 52 |N GE- BRUIKT WOR| 000001D0: 44 45 4E 2E 20 C1 4E 44 45 52 45 20 54 4F 45 54 |DEN. .NDERE TOET| 000001E0: 53 22 3B 00 17 0A BE 00 99 22 45 4E 20 5A 49 4A |S";......"EN ZIJ| 000001F0: 4E 20 55 49 54 47 45 53 43 48 41 4B 45 4C 44 2C |N UITGESCHAKELD,| 00000200: 20 4D 55 56 20 53 50 41 43 45 28 3D 27 2C 27 29 | MUV SPACE(=',')| 00000210: 20 45 4E 20 27 2D 27 00 36 0A C8 00 99 22 11 C4 | EN '-'.6...."..| 00000220: 45 20 52 45 47 45 4C 53 20 57 4F 52 44 45 4E 20 |E REGELS WORDEN | 00000230: 41 55 54 4F 22 3B 00 52 0A D2 00 99 22 4D 41 54 |AUTO";.R...."MAT| 00000240: 49 53 43 48 20 41 41 4E 47 45 4D 41 41 4B 54 2E |ISCH AANGEMAAKT.| 00000250: 22 3B 00 71 0A DC 00 99 22 D0 45 52 20 47 45 54 |";.q....".ER GET| 00000260: 41 4C 20 4D 41 58 20 33 20 43 49 4A 46 45 52 53 |AL MAX 3 CIJFERS| 00000270: 2E 00 B4 0A E6 00 99 22 C9 53 20 47 45 54 41 4C |.......".S GETAL| 00000280: 20 3E 32 35 35 20 44 41 4E 20 56 4F 4C 47 54 20 | >255 DAN VOLGT | 00000290: 42 52 4F 4D 54 4F 4F 4E 2E 20 20 20 20 20 20 20 |BROMTOON. | 000002A0: 11 D0 45 52 20 37 20 44 41 54 41 52 45 47 45 4C |..ER 7 DATAREGEL| 000002B0: 53 20 22 3B 00 F3 0A F0 00 99 22 42 45 56 45 53 |S ";......"BEVES| 000002C0: 54 49 47 45 4E 20 4D 45 54 20 52 45 54 55 52 4E |TIGEN MET RETURN| 000002D0: 21 20 DA 49 45 20 49 4E 53 54 52 55 43 54 49 45 |! .IE INSTRUCTIE| 000002E0: 53 20 49 4E 20 48 45 54 20 50 52 4F 47 52 41 4D |S IN HET PROGRAM| 000002F0: 4D 41 2E 00 3F 0B FA 00 99 22 11 CE 41 20 49 4E |MA..?...."..A IN| 00000300: 54 49 4B 4B 45 4E 20 44 41 54 41 52 45 47 45 4C |TIKKEN DATAREGEL| 00000310: 53 20 44 45 20 52 45 47 45 4C 53 20 56 41 4E 20 |S DE REGELS VAN | 00000320: 44 49 54 50 52 4F 47 52 41 4D 4D 41 20 2D 39 39 |DITPROGRAMMA -99| 00000330: 39 20 56 45 52 57 49 4A 44 45 52 45 4E 22 3B 00 |9 VERWIJDEREN";.| 00000340: 55 0B FF 00 99 22 20 28 4D 45 54 20 D6 49 43 41 |U...." (MET .ICA| 00000350: 49 44 29 2E 22 00 80 0B 18 01 99 22 11 20 20 20 |ID)."......". | 00000360: 20 20 C4 D2 D5 CB A0 CF D0 A0 C5 C5 CE A0 D4 CF | ..............| 00000370: C5 D4 D3 A0 56 4F 4F 52 20 56 45 52 56 4F 4C 47 |....VOOR VERVOLG| 00000380: 00 93 0B 22 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 |..."..A$:.A$."".| 00000390: 32 39 30 00 9C 0B 68 01 99 22 93 22 00 AE 0B 72 |290...h.."."...r| 000003A0: 01 8B 44 B2 31 A7 99 22 11 11 11 11 11 22 00 B8 |..D.1.."....."..| 000003B0: 0B 7C 01 97 31 39 2C 31 00 FC 0B 86 01 99 22 D7 |.|..19,1......".| 000003C0: 41 54 20 49 53 20 44 45 20 45 45 52 53 54 45 20 |AT IS DE EERSTE | 000003D0: 44 41 54 41 2D 52 45 47 45 4C 3F 20 20 20 20 20 |DATA-REGEL? | 000003E0: 20 20 20 20 20 20 20 20 20 28 47 45 54 41 4C 20 | (GETAL | 000003F0: 4D 4F 45 54 20 3E 39 39 39 20 22 3B 00 10 0C 90 |MOET >999 ";....| 00000400: 01 99 22 5A 49 4A 4E 29 20 20 20 20 20 3A 22 3B |.."ZIJN) :";| 00000410: 00 31 0C 9A 01 85 41 3A 8B 41 B3 31 30 30 30 A7 |.1....A:.A.1000.| 00000420: 99 22 9D 9D 9D 9D 20 20 20 91 91 22 3A 89 33 39 |.".... ..":.39| 00000430: 30 00 5F 0C A4 01 99 3A 97 31 39 2C 30 3A 85 22 |0._....:.19,0:."| 00000440: D7 41 54 20 49 53 20 44 45 20 4C 41 41 54 53 54 |.AT IS DE LAATST| 00000450: 45 20 44 41 54 41 2D 52 45 47 45 4C 22 3B 42 00 |E DATA-REGEL";B.| 00000460: 8B 0C A9 01 85 22 D7 41 54 20 49 53 20 44 45 20 |.....".AT IS DE | 00000470: 47 52 4F 4F 54 54 45 20 56 41 4E 20 44 45 20 53 |GROOTTE VAN DE S| 00000480: 54 41 50 50 45 4E 22 3B 43 3A 99 00 A0 0C AE 01 |TAPPEN";C:......| 00000490: 81 49 B2 41 A4 42 AA 43 A9 43 3A 4A B2 4A AA 31 |.I.A.B.C.C:J.J.1| 000004A0: 00 B6 0C B8 01 8B 20 49 B1 42 20 B0 20 4A B2 38 |...... I.B . J.8| 000004B0: 20 A7 89 38 31 30 00 C4 0C C2 01 99 49 22 44 41 | ..810......I"DA| 000004C0: 54 41 22 3B 00 DE 0C C7 01 54 B2 31 3A 58 24 B2 |TA";.....T.1:X$.| 000004D0: 22 22 3A 59 24 B2 22 22 3A 5A 24 B2 22 22 00 F1 |"":Y$."":Z$.""..| 000004E0: 0C CC 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 34 36 |....A$:.A$."".46| 000004F0: 30 00 17 0D D1 01 8B 41 24 B2 C7 28 33 32 29 A7 |0......A$..(32).| 00000500: 99 22 2C 22 3B 3A 89 34 35 35 3A 20 20 20 20 20 |.",";:.455: | 00000510: 8F 3A 53 50 41 43 45 00 41 0D D3 01 8B 41 24 B2 |.:SPACE.A....A$.| 00000520: C7 28 34 35 29 A7 99 22 2D 22 3B 3A 89 34 35 35 |.(45).."-";:.455| 00000530: 3A 20 20 20 20 20 8F 3A 4D 49 4E 2D 54 45 4B 45 |: .:MIN-TEKE| 00000540: 4E 00 6B 0D D6 01 8B 41 24 B2 C7 28 32 30 29 A7 |N.k....A$..(20).| 00000550: 8D 37 35 30 3A 89 34 35 35 3A 20 20 20 20 20 20 |.750:.455: | 00000560: 8F 3A 44 45 4C 20 54 4F 45 54 53 00 8F 0D E0 01 |.:DEL TOETS.....| 00000570: 8B 41 24 B2 C7 28 31 33 29 A7 99 3A 89 36 31 30 |.A$..(13)..:.610| 00000580: 3A 20 20 20 20 20 20 20 20 20 8F 3A 52 45 54 00 |: .:RET.| 00000590: CE 0D EA 01 8B C6 28 41 24 29 B1 34 37 AF C6 28 |......(A$).47..(| 000005A0: 41 24 29 B3 35 38 A7 41 56 B2 C5 28 41 24 29 3A |A$).58.AV..(A$):| 000005B0: 89 35 34 30 3A 20 20 20 8F 3A 43 49 4A 46 45 52 |.540: .:CIJFER| 000005C0: 54 4F 45 54 53 45 4E 20 57 45 52 4B 45 4E 00 16 |TOETSEN WERKEN..| 000005D0: 0E F4 01 41 56 B2 AB 28 41 24 B2 22 4D 22 29 AB |...AV..(A$."M").| 000005E0: 32 AC 28 41 24 B2 22 2C 22 29 AB 33 AC 28 41 24 |2.(A$.",").3.(A$| 000005F0: B2 22 2E 22 29 AB 34 AC 28 41 24 B2 22 4A 22 29 |.".").4.(A$."J")| 00000600: AB 35 AC 28 41 24 B2 22 4B 22 29 AB 36 AC 28 41 |.5.(A$."K").6.(A| 00000610: 24 B2 22 4C 22 29 00 50 0E FE 01 41 56 B2 41 56 |$."L").P...AV.AV| 00000620: AB 37 AC 28 41 24 B2 22 55 22 29 AB 38 AC 28 41 |.7.(A$."U").8.(A| 00000630: 24 B2 22 49 22 29 AB 39 AC 28 41 24 B2 22 4F 22 |$."I").9.(A$."O"| 00000640: 29 3A 8B 41 24 B2 22 48 22 A7 41 24 B2 22 30 22 |):.A$."H".A$."0"| 00000650: 00 66 0E 08 02 8B 41 56 B1 30 A7 41 24 B2 C7 28 |.f....AV.0.A$..(| 00000660: 34 38 AA 41 56 29 00 81 0E 12 02 8B C6 28 41 24 |48.AV).......(A$| 00000670: 29 B3 34 38 B0 C6 28 41 24 29 B1 35 37 A7 34 36 |).48..(A$).57.46| 00000680: 30 00 98 0E 1C 02 8B 54 B2 31 A7 58 24 B2 C9 28 |0......T.1.X$..(| 00000690: C4 28 41 56 29 2C 31 29 00 AF 0E 26 02 8B 54 B2 |.(AV),1)...&..T.| 000006A0: 32 A7 59 24 B2 C9 28 C4 28 41 56 29 2C 31 29 00 |2.Y$..(.(AV),1).| 000006B0: C6 0E 30 02 8B 54 B2 33 A7 5A 24 B2 C9 28 C4 28 |..0..T.3.Z$..(.(| 000006C0: 41 56 29 2C 31 29 00 D7 0E 3A 02 99 C9 28 C4 28 |AV),1)...:...(.(| 000006D0: 41 56 29 2C 31 29 3B 00 FC 0E 44 02 8B C5 28 58 |AV),1);...D...(X| 000006E0: 24 AA 59 24 AA 5A 24 29 B1 32 35 35 A7 54 B2 54 |$.Y$.Z$).255.T.T| 000006F0: AA 31 3A 8D 37 31 30 3A 89 34 35 35 00 15 0F 4E |.1:.710:.455...N| 00000700: 02 54 B2 54 AA 31 3A 8B 54 B1 34 A7 8D 37 31 30 |.T.T.1:.T.4..710| 00000710: 3A 89 34 36 30 00 1E 0F 58 02 89 34 36 30 00 24 |:.460...X..460.$| 00000720: 0F 62 02 82 00 2A 0F BC 02 3A 00 3F 0F C6 02 8F |.b...*...:.?....| 00000730: 20 2A 2A 2A 20 42 55 5A 5A 45 52 20 2A 2A 2A 00 | *** BUZZER ***.| 00000740: 62 0F D0 02 97 35 34 32 39 36 2C 31 35 3A 97 35 |b....54296,15:.5| 00000750: 34 32 37 37 2C 34 35 3A 97 35 34 32 37 38 2C 31 |4277,45:.54278,1| 00000760: 36 35 00 82 0F DA 02 97 35 34 32 37 36 2C 33 33 |65......54276,33| 00000770: 3A 97 35 34 32 37 33 2C 36 3A 97 35 34 32 37 32 |:.54273,6:.54272| 00000780: 2C 35 00 AD 0F E4 02 81 4B B2 31 A4 32 30 30 3A |,5......K.1.200:| 00000790: 82 3A 97 35 34 32 37 36 2C 33 32 3A 97 35 34 32 |.:.54276,32:.542| 000007A0: 37 33 2C 30 3A 97 35 34 32 37 32 2C 30 00 C4 0F |73,0:.54272,0...| 000007B0: EE 02 8B 54 B2 34 A7 99 22 9D 9D 9D 20 20 20 9D |...T.4.."... .| 000007C0: 9D 9D 22 3B 00 D8 0F F4 02 8B 54 B2 33 A7 99 22 |..";......T.3.."| 000007D0: 9D 9D 20 20 9D 9D 22 3B 00 F1 0F F6 02 8B 54 B2 |.. ..";......T.| 000007E0: 31 B0 54 B2 32 B0 54 B1 34 A7 99 22 9D 20 9D 22 |1.T.2.T.4..". ."| 000007F0: 3B 00 F7 0F 02 03 8E 00 FD 0F 20 03 3A 00 15 10 |;......... .:...| 00000800: 2A 03 8F 20 2A 2A 2A 20 45 49 4E 44 54 45 4B 53 |*.. *** EINDTEKS| 00000810: 54 20 2A 2A 2A 00 3A 10 34 03 99 22 44 3D 31 3A |T ***.:.4.."D=1:| 00000820: 4A 3D 30 3A 47 4F 54 4F 33 37 30 3A 52 45 4D 20 |J=0:GOTO370:REM | 00000830: 12 56 45 52 56 4F 4C 47 92 22 00 6D 10 48 03 99 |.VERVOLG.".m.H..| 00000840: 22 11 9B 2D C7 41 20 4D 45 54 20 52 45 54 55 52 |"..-.A MET RETUR| 00000850: 4E 54 4F 45 54 53 20 4F 56 45 52 20 44 45 20 44 |NTOETS OVER DE D| 00000860: 41 54 41 2D 52 45 47 45 4C 53 2E 22 3B 00 9B 10 |ATA-REGELS.";...| 00000870: 52 03 99 22 2D C4 41 41 52 4E 41 20 4F 56 45 52 |R.."-.AARNA OVER| 00000880: 20 27 44 3D 31 3A 2E 2E 2E 33 37 30 27 20 56 4F | 'D=1:...370' VO| 00000890: 4F 52 20 56 45 52 56 4F 4C 47 2E 00 E3 10 5C 03 |OR VERVOLG....\.| 000008A0: 99 22 2D C1 4C 53 20 41 4C 4C 45 20 44 41 54 41 |."-.LS ALLE DATA| 000008B0: 2D 52 45 47 45 4C 53 20 5A 49 4A 4E 20 49 4E 47 |-REGELS ZIJN ING| 000008C0: 45 54 49 4B 54 2C 20 56 45 52 20 57 49 4A 44 45 |ETIKT, VER WIJDE| 000008D0: 52 20 44 41 4E 20 52 45 47 45 4C 53 20 2D 39 39 |R DAN REGELS -99| 000008E0: 39 22 3B 00 F7 10 66 03 99 22 20 4D 45 54 20 D6 |9";...f.." MET .| 000008F0: 49 43 41 49 44 2E 9A 00 FD 10 70 03 80 00 00 00 |ICAID.....p.....|
..".... GEWIJZIGDE VERSIE:V1.1.H.D.. ********************************.N.N.. DATA-REGELS MET NUMERIC PAD *...X..REGE LS 500-510 & 710-730 UIT MLX...... H.G.VAN MANEN 8/87 *......******** ************************......G(14)..... .".. *** DATAREGELS TYPEN ***._. ..".MET DIT PROGRAMMA KUNNEN DATAREGELS IN- GETIKT WORDEN M.B.V. EEN ";......"NU MERIC KEYPAD: H/M,./JKL/UIO = 0/123/4 56/789......".OOK DE NORMALE CIJFERTOETS EN KUNNEN GE- BRUIKT WORDEN. ANDERE TOET S";......"EN ZIJN UITGESCHAKELD, MUV SPA CE(=',') EN '-'.6.H..".DE REGELS WORDEN AUTO";.R.R.."MATISCH AANGEMAAKT.";.Q.... "PER GETAL MAX 3 CIJFERS......."IS GETAL >255 DAN VOLGT BROMTOON. .PER 7 D ATAREGELS ";......"BEVESTIGEN MET RETURN ! ZIE INSTRUCTIES IN HET PROGRAMMA..?... .".NA INTIKKEN DATAREGELS DE REGELS VAN DITPROGRAMMA -999 VERWIJDEREN";.U...." ( MET VICAID)."......". DRUK OP EEN TO ETS VOOR VERVOLG..."..A$:.A$."".290...H. ."."...R..D.1.."....."...|..19,1......"W AT IS DE EERSTE DATA-REGEL? (GETAL MOET >999 ";......"ZIJN) :"; .1....A:.A.1000..".... ..":.390._....: .19,0:."WAT IS DE LAATSTE DATA-REGEL";B. ....."WAT IS DE GROOTTE VAN DE STAPPEN"; C:.. ....I.A.B.C.C:J.J.1...... I.B . J.8 ..810.D.B..I"DATA";...G.T.1:X$."":Y$."" :Z$.""...L..A$:.A$."".460...Q..A$.G(32). .",";:.455: .:SPACE.A.S..A$.G(45).." -";:.455: .:MIN-TEKEN.K.V..A$.G(20). .750:.455: .:DEL TOETS......A$.G(13 )..:.610: .:RET.N....F(A$).47.F( A$).58.AV.E(A$):.540: .:CIJFERTOETSEN WERKEN.....AV..(A$."M").2.(A$.",").3.(A$ .".").4.(A$."J").5.(A$."K").6.(A$."L").P ...AV.AV.7.(A$."U").8.(A$."I").9.(A$."O" ):.A$."H".A$."0".F....AV.0.A$.G(48.AV).. ....F(A$).48.F(A$).57.460......T.1.X$.I( D(AV),1)...&..T.2.Y$.I(D(AV),1).F.0..T.3 .Z$.I(D(AV),1).W.:..I(D(AV),1);...D..E(X $.Y$.Z$).255.T.T.1:.710:.455...N.T.T.1:. T.4..710:.460...X..460.$.B...*...:.?.F.. *** BUZZER ***.B.P..54296,15:.54277,45: .54278,165...Z..54276,33:.54273,6:.54272 ,5......K.1.200:.:.54276,32:.54273,0:.54 272,0.D....T.4.."... ...";.X....T.3.." .. ..";......T.1.T.2.T.4..". .";....... .. .:...*.. *** EINDTEKST ***.:.4.."D=1: J=0:GOTO370:REM .VERVOLG.".M.H.."..-GA M ET RETURNTOETS OVER DE DATA-REGELS.";... R.."-DAARNA OVER 'D=1:...370' VOOR VERVO LG....\.."-ALS ALLE DATA-REGELS ZIJN ING ETIKT, VER WIJDER DAN REGELS -999";...F. ." MET VICAID.....P.....
> CLICK IMAGE PREVIEW FOR FULL MODAL