VARDUMP
FILE INFORMATION
FILENAME(S): VARDUMP
FILE TYPE(S): PRG
FILE SIZE: 4.3K
FIRST SEEN: 2025-11-30 21:11:17
APPEARS ON: 1 disk(s)
FILE HASH
30885e5a23dfaf617d508e889bc7688b7fd7bdc2a4cb89b32a0f9493ffb6c77c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIES 128 2 | VARDUMP | PRG | DuncanTwain | 17 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 07 1C 05 00 E8 00 1D 1C 06 00 8F 20 44 55 |............. DU|
00000010: 4D 50 20 56 41 52 49 41 42 45 4C 45 4E 00 24 1C |MP VARIABELEN.$.|
00000020: 08 00 FE 25 00 35 1C 0A 00 50 24 B2 22 56 41 52 |...%.5...P$."VAR|
00000030: 44 55 4D 50 22 00 6F 1C 0B 00 8F 20 38 30 20 4B |DUMP".o.... 80 K|
00000040: 41 52 41 4B 54 45 52 53 20 2D 20 50 52 49 4E 54 |ARAKTERS - PRINT|
00000050: 45 52 20 45 45 52 53 54 20 4E 41 20 44 4F 4F 52 |ER EERST NA DOOR|
00000060: 4C 4F 4F 50 20 41 41 4E 5A 45 54 54 45 4E 21 00 |LOOP AANZETTEN!.|
00000070: AD 1C 0C 00 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..... ----------|
00000080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 E4 1C |-------------...|
000000B0: 0D 00 8F 20 4E 41 20 4C 45 5A 45 4E 20 52 45 47 |... NA LEZEN REG|
000000C0: 45 4C 53 20 57 4F 52 44 45 4E 20 44 45 20 56 4F |ELS WORDEN DE VO|
000000D0: 4C 47 45 4E 44 45 20 44 41 54 41 20 47 45 50 52 |LGENDE DATA GEPR|
000000E0: 49 4E 54 3A 00 EA 1C 0E 00 8F 00 05 1D 0F 00 8F |INT:............|
000000F0: 20 53 59 53 54 45 45 4D 20 2D 20 56 41 52 49 41 | SYSTEEM - VARIA|
00000100: 42 45 4C 45 4E 00 31 1D 10 00 8F 20 4E 55 4D 45 |BELEN.1.... NUME|
00000110: 52 49 45 4B 45 20 46 4C 4F 41 54 49 4E 47 20 4B |RIEKE FLOATING K|
00000120: 4F 4D 4D 41 20 2D 20 56 41 52 49 41 42 45 4C 45 |OMMA - VARIABELE|
00000130: 4E 00 56 1D 11 00 8F 20 4E 55 4D 45 52 49 45 4B |N.V.... NUMERIEK|
00000140: 45 20 49 4E 54 45 47 45 52 20 2D 20 56 41 52 49 |E INTEGER - VARI|
00000150: 41 42 45 4C 45 4E 00 94 1D 12 00 8F 20 53 54 52 |ABELEN...... STR|
00000160: 49 4E 47 20 2D 20 56 41 52 49 41 42 45 4C 45 4E |ING - VARIABELEN|
00000170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000180: 20 20 20 20 20 41 4C 4C 45 53 20 50 45 52 20 52 | ALLES PER R|
00000190: 45 47 45 4C 00 D2 1D 13 00 8F 20 2D 2D 2D 2D 2D |EGEL...... -----|
000001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000001B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000001D0: 2D 2D 00 06 1E 14 00 D7 20 38 33 30 3A FE 0F 3A |--...... 830:..:|
000001E0: E7 20 30 2C 31 3A E7 20 34 2C 31 3A 99 22 13 13 |. 0,1:. 4,1:."..|
000001F0: 93 22 3B 3A 45 24 B2 C7 28 32 37 29 3A 43 52 24 |.";:E$..(27):CR$|
00000200: B2 C7 28 31 33 29 00 2A 1E 1E 00 8B 20 C2 28 32 |..(13).*.... .(2|
00000210: 31 35 29 B1 30 20 A7 20 FE 25 3A E0 20 31 2C 31 |15).0 . .%:. 1,1|
00000220: 38 2C 30 2C 45 24 AA 22 54 22 00 85 1E 28 00 54 |8,0,E$."T"...(.T|
00000230: 30 24 B2 22 20 20 20 20 20 C0 C0 C0 C0 C0 C0 C0 |0$." .......|
00000240: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000250: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000260: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000270: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000280: C0 C0 C0 C0 22 00 DB 1E 32 00 99 22 9F 4F 56 45 |...."...2..".OVE|
00000290: 52 5A 49 43 48 54 20 56 41 52 49 41 42 45 4C 45 |RZICHT VARIABELE|
000002A0: 4E 20 20 20 20 22 50 24 43 52 24 CA 28 54 30 24 |N "P$CR$.(T0$|
000002B0: 2C 36 2C 33 31 29 43 52 24 22 99 24 20 3D 20 44 |,6,31)CR$".$ = D|
000002C0: 49 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |IR |
000002D0: 20 20 20 45 20 3D 20 45 4E 44 22 00 03 1F 37 00 | E = END"...7.|
000002E0: 99 22 9E 23 20 3D 20 4E 55 4D 20 20 20 20 20 24 |.".# = NUM $|
000002F0: 20 3D 20 53 54 52 20 20 20 20 20 25 20 3D 20 49 | = STR % = I|
00000300: 4E 54 22 00 0E 1F 3A 00 99 22 9B 22 3A 99 00 32 |NT"...:..".":..2|
00000310: 1F 3C 00 9F 20 33 2C 30 3A 86 20 54 41 24 28 35 |.<.. 3,0:. TA$(5|
00000320: 32 2C 33 29 3A 86 20 54 24 28 33 29 3A 89 20 31 |2,3):. T$(3):. 1|
00000330: 32 30 00 41 1F 46 00 8F 20 53 55 42 20 52 45 41 |20.A.F.. SUB REA|
00000340: 44 00 5E 1F 50 00 A1 20 23 31 2C 58 24 3A 53 25 |D.^.P.. #1,X$:S%|
00000350: B2 53 54 3A 58 25 B2 C6 28 58 24 29 3A 8E 00 92 |.ST:X%..(X$):...|
00000360: 1F 5A 00 99 20 43 52 24 22 91 91 91 22 45 24 22 |.Z.. CR$"..."E$"|
00000370: 51 A5 27 22 46 24 22 27 20 49 53 20 47 45 45 4E |Q.'"F$"' IS GEEN|
00000380: 20 42 41 53 49 43 20 50 47 4D 11 22 3A 89 20 31 | BASIC PGM.":. 1|
00000390: 32 30 00 C0 1F 64 00 99 20 43 52 24 22 91 91 91 |20...d.. CR$"...|
000003A0: 22 45 24 22 51 A5 50 47 4D 20 27 22 46 24 22 27 |"E$"Q.PGM '"F$"'|
000003B0: 20 4E 49 45 54 20 47 45 56 4F 4E 44 45 4E 11 22 | NIET GEVONDEN."|
000003C0: 00 D0 1F 6E 00 8F 20 53 54 41 52 54 20 50 47 4D |...n.. START PGM|
000003D0: 00 09 20 78 00 FE 0F 3A 99 22 9B 50 52 47 2D 4E |.. x...:.".PRG-N|
000003E0: 41 41 4D 20 4F 46 20 27 24 27 3A 20 22 3B 3A 99 |AAM OF '$': ";:.|
000003F0: 22 9F 22 3B 3A 84 33 2C 46 24 3A 8B 20 46 24 B2 |".";:.3,F$:. F$.|
00000400: 22 45 22 20 A7 20 38 30 30 00 29 20 82 00 8B 20 |"E" . 800.) ... |
00000410: 46 24 B2 22 24 22 20 A7 20 99 22 05 93 22 3A FE |F$."$" . ."..":.|
00000420: 0C 20 22 2A 3D 50 22 3A 99 00 5C 20 87 00 8B 20 |. "*=P":..\ ... |
00000430: 46 24 B2 22 24 22 20 A7 20 99 22 9C 27 52 45 54 |F$."$" . .".'RET|
00000440: 55 52 4E 27 20 3D 20 56 45 52 44 45 52 22 3B 3A |URN' = VERDER";:|
00000450: A1 F9 20 59 24 3A 9C 3A 89 20 31 30 00 7D 20 8C |.. Y$:.:. 10.} .|
00000460: 00 FE 0D 23 31 2C 28 46 24 29 AA AA 22 2C 50 22 |...#1,(F$)..",P"|
00000470: 3A 8B 20 44 53 B1 30 20 A7 20 31 30 30 00 93 20 |:. DS.0 . 100.. |
00000480: 96 00 8D 20 38 30 3A 8B 20 58 25 B3 B1 31 20 A7 |... 80:. X%..1 .|
00000490: 20 39 30 00 B6 20 A0 00 8D 20 38 30 3A 8B 20 58 | 90.. ... 80:. X|
000004A0: 25 B3 B1 32 38 20 A7 20 39 30 3A D5 20 45 25 B2 |%..28 . 90:. E%.|
000004B0: 31 3A 4D 25 B2 31 00 D1 20 AA 00 99 20 43 52 24 |1:M%.1.. ... CR$|
000004C0: 22 11 9C 47 45 44 55 4C 44 20 53 2E 56 2E 50 2E |"..GEDULD S.V.P.|
000004D0: 22 00 DA 20 AF 00 FE 0B 20 32 00 EF 20 B4 00 8F |".. .... 2.. ...|
000004E0: 20 4C 4F 4F 50 20 50 47 4D 20 4C 45 5A 45 4E 00 | LOOP PGM LEZEN.|
000004F0: 0C 21 BE 00 EB 20 FC 20 53 25 B1 30 3A 8D 20 38 |.!... . S%.0:. 8|
00000500: 30 3A 8B 20 45 25 20 A7 20 32 39 30 00 22 21 C8 |0:. E% . 290."!.|
00000510: 00 8B 20 52 25 20 AF 20 58 25 B1 30 20 A7 20 33 |.. R% . X%.0 . 3|
00000520: 33 30 00 41 21 D2 00 8B 20 51 25 20 AF 20 58 25 |30.A!... Q% . X%|
00000530: B3 B1 33 34 20 AF 20 58 25 B1 30 20 A7 20 33 33 |..34 . X%.0 . 33|
00000540: 30 00 6B 21 DC 00 8B 20 58 25 B2 33 34 20 AF 20 |0.k!... X%.34 . |
00000550: 51 25 B2 30 20 A7 20 51 25 B2 31 3A 50 25 B2 31 |Q%.0 . Q%.1:P%.1|
00000560: 3A 4D 25 B2 30 3A 89 20 32 36 30 00 89 21 E6 00 |:M%.0:. 260..!..|
00000570: 8B 20 58 25 B2 33 34 20 A7 20 51 25 B2 30 3A 4D |. X%.34 . Q%.0:M|
00000580: 25 B2 31 3A 89 20 33 33 30 00 AA 21 F0 00 8B 20 |%.1:. 330..!... |
00000590: 58 24 B2 22 3A 22 20 A7 20 4D 25 B2 30 3A 99 22 |X$.":" . M%.0:."|
000005A0: 99 3A 22 3B 3A 89 20 32 36 30 00 EE 21 FA 00 8B |.:";:. 260..!...|
000005B0: 28 58 25 B3 32 35 35 20 AF 20 58 25 B1 31 32 37 |(X%.255 . X%.127|
000005C0: 29 20 B0 20 58 25 B3 33 32 20 A7 20 4D 25 B2 30 |) . X%.32 . M%.0|
000005D0: 3A 8B 20 58 25 B2 31 34 33 20 A7 20 52 25 B2 31 |:. X%.143 . R%.1|
000005E0: 3A 50 25 B2 31 3A 99 22 96 52 45 4D 22 3B 00 0A |:P%.1:.".REM";..|
000005F0: 22 04 01 8D 20 33 35 30 3A 8B 20 50 25 20 A7 20 |"... 350:. P% . |
00000600: 50 25 B2 30 3A 89 20 33 33 30 00 3A 22 0E 01 8B |P%.0:. 330.:"...|
00000610: 20 58 24 B2 22 3A 22 20 B0 20 28 58 25 B3 32 35 | X$.":" . (X%.25|
00000620: 35 20 AF 20 58 25 B1 31 32 37 29 20 B0 20 58 25 |5 . X%.127) . X%|
00000630: B3 33 32 20 A7 20 4D 25 B2 31 00 4B 22 18 01 8B |.32 . M%.1.K"...|
00000640: 20 58 25 B1 30 20 A7 20 33 33 30 00 72 22 22 01 | X%.0 . 330.r"".|
00000650: 45 25 B2 45 25 AA 31 3A 91 20 45 25 20 89 20 33 |E%.E%.1:. E% . 3|
00000660: 33 30 2C 33 33 30 2C 33 33 30 2C 33 30 30 2C 33 |30,330,330,300,3|
00000670: 31 30 00 8C 22 2C 01 5A 30 24 B2 C7 28 58 25 29 |10..",.Z0$..(X%)|
00000680: 3A 57 25 B2 58 25 3A 89 20 33 33 30 00 B6 22 36 |:W%.X%:. 330.."6|
00000690: 01 5A 31 24 B2 C7 28 58 25 29 3A 57 25 B2 57 25 |.Z1$..(X%):W%.W%|
000006A0: AA 32 35 36 AC 58 25 3A 45 25 B2 30 3A 51 25 B2 |.256.X%:E%.0:Q%.|
000006B0: 30 3A 52 25 B2 30 00 EC 22 40 01 E0 20 31 2C 30 |0:R%.0.."@.. 1,0|
000006C0: 2C 38 2C 45 24 AA 22 44 22 3A E0 20 31 2C 30 2C |,8,E$."D":. 1,0,|
000006D0: 32 32 2C 22 9F 22 3A 99 20 FB 20 22 23 23 23 23 |22,".":. . "####|
000006E0: 23 22 3B 57 25 3B 3A 99 22 20 22 3B 00 FB 22 4A |#";W%;:." ";.."J|
000006F0: 01 EC 3A FE 0F 3A 89 20 36 30 30 00 13 23 54 01 |..:..:. 600..#T.|
00000700: 8F 20 56 41 52 49 41 42 45 4C 45 4E 20 5A 4F 45 |. VARIABELEN ZOE|
00000710: 4B 45 4E 00 2E 23 5E 01 8B 20 4D 25 20 A7 20 5A |KEN..#^.. M% . Z|
00000720: 25 B2 5A 25 AA 31 3A D5 20 89 20 34 36 30 00 69 |%.Z%.1:. . 460.i|
00000730: 23 68 01 8B 20 5A 25 B2 31 20 AF 20 28 28 58 24 |#h.. Z%.1 . ((X$|
00000740: B2 B1 22 41 22 20 AF 20 58 24 B2 B3 22 5A 22 29 |.."A" . X$.."Z")|
00000750: 20 B0 20 58 25 B2 32 35 35 29 20 A7 20 5A 24 B2 | . X%.255) . Z$.|
00000760: 58 24 3A 4C 25 B2 31 3A 8E 00 7D 23 72 01 8B 20 |X$:L%.1:..}#r.. |
00000770: 5A 25 B2 31 20 A7 20 5A 25 B2 30 3A 8E 00 9B 23 |Z%.1 . Z%.0:...#|
00000780: 7C 01 8B 20 58 24 B2 22 28 22 20 A7 20 5A 24 B2 ||.. X$."(" . Z$.|
00000790: 5A 24 AA 58 24 3A 89 20 34 36 30 00 C8 23 86 01 |Z$.X$:. 460..#..|
000007A0: 8B 20 58 24 B2 22 25 22 20 B0 20 58 24 B2 22 24 |. X$."%" . X$."$|
000007B0: 22 20 A7 20 5A 24 B2 5A 24 AA 58 24 3A 4C 25 B2 |" . Z$.Z$.X$:L%.|
000007C0: 32 3A 41 25 B2 31 3A 8E 00 FE 23 90 01 8B 20 28 |2:A%.1:...#... (|
000007D0: 58 24 B1 B2 22 30 22 20 AF 20 58 24 B3 B2 22 39 |X$.."0" . X$.."9|
000007E0: 22 29 20 B0 20 28 58 24 B1 B2 22 41 22 20 AF 20 |") . (X$.."A" . |
000007F0: 58 24 B3 B2 22 5A 22 29 20 A7 20 34 32 30 00 08 |X$.."Z") . 420..|
00000800: 24 9A 01 89 20 34 36 30 00 1F 24 A4 01 8B 20 41 |$... 460..$... A|
00000810: 25 20 A7 20 8D 20 34 36 30 3A 89 20 33 35 30 00 |% . . 460:. 350.|
00000820: 3A 24 AE 01 8B 20 4C 25 B2 31 20 A7 20 5A 24 B2 |:$... L%.1 . Z$.|
00000830: 5A 24 AA 58 24 3A 4C 25 B2 32 00 40 24 B8 01 8E |Z$.X$:L%.2.@$...|
00000840: 00 57 24 C2 01 8F 20 42 55 46 46 45 52 20 53 43 |.W$... BUFFER SC|
00000850: 48 52 49 4A 56 45 4E 00 66 24 CC 01 8B 20 5A 25 |HRIJVEN.f$... Z%|
00000860: B2 30 20 A7 20 8E 00 76 24 D6 01 56 41 24 B2 22 |.0 . ..v$..VA$."|
00000870: 3A 20 20 20 20 22 00 9C 24 D7 01 CA 28 56 41 24 |: "..$...(VA$|
00000880: 2C 32 29 B2 5A 24 3A 5A 25 B2 30 3A 41 25 B2 30 |,2).Z$:Z%.0:A%.0|
00000890: 3A 5A 4C 24 B2 5A 31 24 AA 5A 30 24 00 EA 24 E0 |:ZL$.Z1$.Z0$..$.|
000008A0: 01 8B 20 D4 28 22 3A 44 53 20 20 3A 44 53 24 20 |.. .(":DS :DS$ |
000008B0: 3A 45 4C 20 20 3A 45 52 20 20 3A FF 20 20 20 3A |:EL :ER :. :|
000008C0: 53 54 20 20 3A 54 49 20 20 3A 54 49 24 20 22 2C |ST :TI :TI$ ",|
000008D0: 56 41 24 29 B1 30 20 A7 20 99 22 9E 2A 22 3B 3A |VA$).0 . .".*";:|
000008E0: 56 25 B2 30 3A 89 20 35 31 30 00 11 25 EA 01 8B |V%.0:. 510..%...|
000008F0: 20 D4 28 56 41 24 2C 22 24 22 29 B1 30 20 A7 20 | .(VA$,"$").0 . |
00000900: 99 22 9E 24 22 3B 3A 56 25 B2 33 3A 89 20 35 31 |.".$";:V%.3:. 51|
00000910: 30 00 40 25 F4 01 8B 20 D4 28 56 41 24 2C 22 25 |0.@%... .(VA$,"%|
00000920: 22 29 B1 30 20 A7 20 99 22 9E 25 22 3B 3A 56 25 |").0 . .".%";:V%|
00000930: B2 32 3A D5 20 99 22 9E 23 22 3B 3A 56 25 B2 31 |.2:. .".#";:V%.1|
00000940: 00 76 25 FE 01 54 25 B2 D4 28 54 24 28 56 25 29 |.v%..T%..(T$(V%)|
00000950: 2C 56 41 24 29 3A 8B 20 54 25 B2 30 20 A7 20 54 |,VA$):. T%.0 . T|
00000960: 24 28 56 25 29 B2 54 24 28 56 25 29 AA 56 41 24 |$(V%).T$(V%).VA$|
00000970: 3A 89 20 35 31 30 00 A1 25 08 02 49 25 B2 28 54 |:. 510..%..I%.(T|
00000980: 25 AB 31 29 AD 35 3A 8B 20 C9 28 54 41 24 28 49 |%.1).5:. .(TA$(I|
00000990: 25 2C 56 25 29 2C 32 29 B2 5A 4C 24 20 A7 35 34 |%,V%),2).ZL$ .54|
000009A0: 30 00 BF 25 12 02 54 41 24 28 49 25 2C 56 25 29 |0..%..TA$(I%,V%)|
000009B0: B2 54 41 24 28 49 25 2C 56 25 29 AA 5A 4C 24 00 |.TA$(I%,V%).ZL$.|
000009C0: C5 25 1C 02 8E 00 DE 25 26 02 8F 20 50 52 49 4E |.%.....%&.. PRIN|
000009D0: 54 45 52 20 4E 49 45 54 20 4B 4C 41 41 52 00 FC |TER NIET KLAAR..|
000009E0: 25 30 02 A0 20 34 3A E0 20 31 2C 30 2C 38 2C 45 |%0.. 4:. 1,0,8,E|
000009F0: 24 AA 22 44 22 AA 45 24 AA 22 44 22 00 02 26 35 |$."D".E$."D"..&5|
00000A00: 02 99 00 59 26 3A 02 99 22 11 22 3A E0 20 31 2C |...Y&:..".":. 1,|
00000A10: 30 2C 32 31 2C 22 9C 4E 55 20 45 56 2E 50 52 49 |0,21,".NU EV.PRI|
00000A20: 4E 54 45 52 20 41 41 4E 5A 45 54 54 45 4E 20 45 |NTER AANZETTEN E|
00000A30: 4E 20 4F 50 22 AA 43 52 24 AA 22 27 52 45 54 55 |N OP".CR$."'RETU|
00000A40: 52 4E 27 20 44 52 55 4B 4B 45 4E 20 20 28 20 45 |RN' DRUKKEN ( E|
00000A50: 20 3D 20 45 4E 44 20 29 22 00 77 26 44 02 A1 F9 | = END )".w&D...|
00000A60: 20 59 24 3A 8B 20 59 24 B2 22 45 22 20 A7 20 37 | Y$:. Y$."E" . 7|
00000A70: 39 30 3A 99 22 93 22 00 B1 26 45 02 99 22 05 22 |90:."."..&E.."."|
00000A80: 3A 99 3A 99 3A 99 22 4B 45 55 5A 45 3A 20 20 50 |:.:.:."KEUZE: P|
00000A90: 29 20 50 52 49 4E 54 45 4E 22 3A 99 3A 99 22 20 |) PRINTEN":.:." |
00000AA0: 20 20 20 20 20 20 20 53 29 20 53 43 48 45 52 4D | S) SCHERM|
00000AB0: 22 00 D5 26 46 02 A1 F9 20 41 24 3A 8B 20 41 24 |"..&F... A$:. A$|
00000AC0: B3 B1 22 50 22 20 AF 20 41 24 B3 B1 22 53 22 20 |.."P" . A$.."S" |
00000AD0: A7 20 35 38 32 00 EF 26 47 02 8B 20 41 24 B2 22 |. 582..&G.. A$."|
00000AE0: 53 22 20 A7 20 31 36 30 30 3A D5 20 36 30 30 00 |S" . 1600:. 600.|
00000AF0: 03 27 4E 02 8F 20 53 54 41 52 54 20 50 52 49 4E |.'N.. START PRIN|
00000B00: 54 45 4E 00 32 27 58 02 9F 20 34 2C 34 3A 98 34 |TEN.2'X.. 4,4:.4|
00000B10: 2C 22 20 20 20 20 20 50 52 4F 47 52 41 4D 4D 41 |," PROGRAMMA|
00000B20: 4E 41 41 4D 3A 20 20 20 22 46 24 3A 98 34 2C 54 |NAAM: "F$:.4,T|
00000B30: 30 24 00 49 27 62 02 8B 20 53 54 B3 B1 30 20 A7 |0$.I'b.. ST..0 .|
00000B40: 20 35 36 30 3A D5 20 98 34 00 59 27 76 02 98 34 | 560:. .4.Y'v..4|
00000B50: 2C 22 20 20 20 20 20 22 3B 00 8C 27 80 02 8B 20 |," ";..'... |
00000B60: 56 B2 30 20 A7 20 98 34 2C 22 53 59 53 54 45 45 |V.0 . .4,"SYSTEE|
00000B70: 4D 2D 56 41 52 49 41 42 45 4C 45 4E 20 45 4E 20 |M-VARIABELEN EN |
00000B80: 4B 4F 4E 53 54 41 4E 54 45 4E 22 3B 00 C2 27 8A |KONSTANTEN";..'.|
00000B90: 02 8B 20 56 B2 31 20 A7 20 98 34 2C 22 4E 55 4D |.. V.1 . .4,"NUM|
00000BA0: 45 52 49 45 4B 45 20 46 4C 4F 41 54 49 4E 47 20 |ERIEKE FLOATING |
00000BB0: 4B 4F 4D 4D 41 20 56 41 52 49 41 42 45 4C 45 4E |KOMMA VARIABELEN|
00000BC0: 22 3B 00 E7 27 94 02 8B 20 56 B2 32 20 A7 20 98 |";..'... V.2 . .|
00000BD0: 34 2C 22 49 4E 54 45 47 45 52 20 56 41 52 49 41 |4,"INTEGER VARIA|
00000BE0: 42 45 4C 45 4E 22 3B 00 0B 28 9E 02 8B 20 56 B2 |BELEN";..(... V.|
00000BF0: 33 20 A7 20 98 34 2C 22 53 54 52 49 4E 47 2D 56 |3 . .4,"STRING-V|
00000C00: 41 52 49 41 42 45 4C 45 4E 22 3B 00 1E 28 A8 02 |ARIABELEN";..(..|
00000C10: 98 34 2C 22 20 3A 22 3A 98 34 2C 54 30 24 00 37 |.4," :":.4,T0$.7|
00000C20: 28 B2 02 81 20 49 B2 30 20 A4 20 C3 28 54 24 28 |(... I.0 . .(T$(|
00000C30: 56 29 29 AD 35 AB 31 00 5A 28 BC 02 59 24 B2 22 |V)).5.1.Z(..Y$."|
00000C40: FF FF FF FF 22 3A 81 20 59 B2 30 20 A4 20 C3 28 |....":. Y.0 . .(|
00000C50: 54 24 28 56 29 29 AD 35 AB 31 00 8F 28 C6 02 8B |T$(V)).5.1..(...|
00000C60: 20 59 24 B1 CA 28 54 24 28 56 29 2C 59 AC 35 AA | Y$..(T$(V),Y.5.|
00000C70: 32 2C 34 29 20 A7 20 59 24 B2 CA 28 54 24 28 56 |2,4) . Y$..(T$(V|
00000C80: 29 2C 59 AC 35 AA 32 2C 34 29 3A 59 25 B2 59 00 |),Y.5.2,4):Y%.Y.|
00000C90: BB 28 D0 02 82 20 59 3A CA 28 54 24 28 56 29 2C |.(... Y:.(T$(V),|
00000CA0: 59 25 AC 35 AA 32 2C 34 29 B2 22 FF FF FF FF 22 |Y%.5.2,4)."...."|
00000CB0: 3A 98 34 2C 59 24 22 20 2D 22 3B 00 D8 28 DA 02 |:.4,Y$" -";..(..|
00000CC0: 81 20 4A B2 30 20 A4 20 C3 28 54 41 24 28 59 25 |. J.0 . .(TA$(Y%|
00000CD0: 2C 56 29 29 AD 32 AB 31 00 03 29 E4 02 8B 20 B5 |,V)).2.1..)... .|
00000CE0: 28 4A AD 31 32 29 B2 4A AD 31 32 20 AF 20 4A B1 |(J.12).J.12 . J.|
00000CF0: 30 20 A7 20 98 34 3A 98 34 2C 22 20 20 20 20 20 |0 . .4:.4," |
00000D00: 2D 22 3B 00 4B 29 EE 02 98 34 2C FB 22 23 23 23 |-";.K)...4,."###|
00000D10: 23 23 23 22 3B 28 C6 28 CA 28 54 41 24 28 59 25 |###";(.(.(TA$(Y%|
00000D20: 2C 56 29 2C 4A AC 32 AA 31 2C 31 29 29 AC 32 35 |,V),J.2.1,1)).25|
00000D30: 36 29 AA C6 28 CA 28 54 41 24 28 59 25 2C 56 29 |6)..(.(TA$(Y%,V)|
00000D40: 2C 4A AC 32 AA 32 2C 31 29 29 3B 00 59 29 F8 02 |,J.2.2,1));.Y)..|
00000D50: 82 20 4A 3A 98 34 3A 98 34 00 67 29 02 03 82 20 |. J:.4:.4.g)... |
00000D60: 49 3A 98 34 3A 98 34 00 73 29 0C 03 82 20 56 3A |I:.4:.4.s)... V:|
00000D70: A0 20 34 00 79 29 11 03 99 00 DC 29 16 03 99 20 |. 4.y).....)... |
00000D80: 43 52 24 22 9C 20 20 20 20 20 47 45 52 45 45 44 |CR$". GEREED|
00000D90: 20 21 20 20 20 20 20 20 20 20 20 05 27 52 45 54 | ! .'RET|
00000DA0: 55 52 4E 27 20 3D 20 45 49 4E 44 45 20 20 20 20 |URN' = EINDE |
00000DB0: 20 20 20 20 20 27 52 27 20 3D 20 52 45 2D 53 54 | 'R' = RE-ST|
00000DC0: 41 52 54 22 3A A1 F9 20 59 24 3A 8B 20 59 24 B2 |ART":.. Y$:. Y$.|
00000DD0: 22 52 22 20 A7 20 9C 3A 89 20 31 30 00 0A 2A 20 |"R" . .:. 10..* |
00000DE0: 03 46 46 24 B2 22 4D 45 4E 55 22 3A FE 0D 23 32 |.FF$."MENU":..#2|
00000DF0: 2C 28 46 46 24 29 3A FE 0F 3A 8B 20 44 53 B2 30 |,(FF$):..:. DS.0|
00000E00: 20 A7 20 8A 22 4D 45 4E 55 22 00 19 2A 2A 03 99 | . ."MENU"..**..|
00000E10: 22 93 22 3B 3A FE 26 3A 80 00 24 2A 34 03 8F 20 |".";:.&:..$*4.. |
00000E20: 46 4F 55 54 00 50 2A 3E 03 99 22 93 9F 3E 20 46 |FOUT.P*>.."..> F|
00000E30: 4F 55 54 3A 20 20 22 D3 28 45 52 29 22 20 49 4E |OUT: ".(ER)" IN|
00000E40: 20 52 45 47 45 4C 20 22 45 4C 3B 3A 99 22 9C 3A | REGEL "EL;:.".:|
00000E50: 00 58 2A 48 03 EA 3A 99 00 90 2A 52 03 99 22 27 |.X*H..:...*R.."'|
00000E60: 52 45 54 55 52 4E 27 20 3D 20 52 45 54 52 59 20 |RETURN' = RETRY |
00000E70: 28 52 45 53 55 4D 45 29 20 2D 20 41 4E 44 45 52 |(RESUME) - ANDER|
00000E80: 53 20 42 52 45 41 4B 20 22 3B 3A A1 F9 20 59 24 |S BREAK ";:.. Y$|
00000E90: 00 AC 2A 5C 03 8B 20 59 24 B2 C7 28 31 33 29 20 |..*\.. Y$..(13) |
00000EA0: A7 20 99 22 93 22 3A 89 20 31 31 30 00 C6 2A 40 |. .".":. 110..*@|
00000EB0: 06 8F 20 53 54 41 52 54 20 53 43 48 45 52 4D 2D |.. START SCHERM-|
00000EC0: 41 46 44 52 55 4B 00 D7 2A 41 06 FE 1A 20 30 2C |AFDRUK..*A... 0,|
00000ED0: 30 2C 37 39 2C 32 34 00 E1 2A 42 06 99 22 93 99 |0,79,24..*B.."..|
00000EE0: 22 00 0A 2B 45 06 99 22 20 20 20 20 20 50 52 4F |"..+E.." PRO|
00000EF0: 47 52 41 4D 4D 41 4E 41 41 4D 3A 20 05 20 20 22 |GRAMMANAAM: . "|
00000F00: 46 24 3A 99 22 99 22 54 30 24 00 15 2B 4A 06 99 |F$:."."T0$..+J..|
00000F10: 3A 99 22 9F 22 00 35 2B 54 06 81 20 56 B2 30 20 |:.".".5+T.. V.0 |
00000F20: A4 20 33 3A 8B 20 54 24 28 56 29 B2 22 22 20 A7 |. 3:. T$(V)."" .|
00000F30: 20 31 37 38 30 00 43 2B 5E 06 99 22 20 20 20 20 | 1780.C+^.." |
00000F40: 20 22 3B 00 74 2B 68 06 8B 20 56 B2 30 20 A7 20 | ";.t+h.. V.0 . |
00000F50: 99 22 53 59 53 54 45 45 4D 2D 56 41 52 49 41 42 |."SYSTEEM-VARIAB|
00000F60: 45 4C 45 4E 20 45 4E 20 4B 4F 4E 53 54 41 4E 54 |ELEN EN KONSTANT|
00000F70: 45 4E 22 3B 00 A8 2B 72 06 8B 20 56 B2 31 20 A7 |EN";..+r.. V.1 .|
00000F80: 20 99 22 4E 55 4D 45 52 49 45 4B 45 20 46 4C 4F | ."NUMERIEKE FLO|
00000F90: 41 54 49 4E 47 20 4B 4F 4D 4D 41 20 56 41 52 49 |ATING KOMMA VARI|
00000FA0: 41 42 45 4C 45 4E 22 3B 00 D5 2B 7C 06 8B 20 56 |ABELEN";..+|.. V|
00000FB0: B2 32 20 A7 20 99 22 4E 55 4D 45 52 49 45 4B 45 |.2 . ."NUMERIEKE|
00000FC0: 20 49 4E 54 45 47 45 52 20 56 41 52 49 41 42 45 | INTEGER VARIABE|
00000FD0: 4C 45 4E 22 3B 00 F7 2B 86 06 8B 20 56 B2 33 20 |LEN";..+... V.3 |
00000FE0: A7 20 99 22 53 54 52 49 4E 47 2D 56 41 52 49 41 |. ."STRING-VARIA|
00000FF0: 42 45 4C 45 4E 22 3B 00 07 2C 90 06 99 22 20 3A |BELEN";..,..." :|
00001000: 22 3A 99 20 54 30 24 00 20 2C 9A 06 81 20 49 B2 |":. T0$. ,... I.|
00001010: 30 20 A4 20 C3 28 54 24 28 56 29 29 AD 35 AB 31 |0 . .(T$(V)).5.1|
00001020: 00 43 2C A4 06 59 24 B2 22 FF FF FF FF 22 3A 81 |.C,..Y$."....":.|
00001030: 20 59 B2 30 20 A4 20 C3 28 54 24 28 56 29 29 AD | Y.0 . .(T$(V)).|
00001040: 35 AB 31 00 78 2C AE 06 8B 20 59 24 B1 CA 28 54 |5.1.x,... Y$..(T|
00001050: 24 28 56 29 2C 59 AC 35 AA 32 2C 34 29 20 A7 20 |$(V),Y.5.2,4) . |
00001060: 59 24 B2 CA 28 54 24 28 56 29 2C 59 AC 35 AA 32 |Y$..(T$(V),Y.5.2|
00001070: 2C 34 29 3A 59 25 B2 59 00 A1 2C B8 06 82 3A CA |,4):Y%.Y..,...:.|
00001080: 28 54 24 28 56 29 2C 59 25 AC 35 AA 32 2C 34 29 |(T$(V),Y%.5.2,4)|
00001090: B2 22 FF FF FF FF 22 3A 99 20 59 24 22 20 2D 22 |."....":. Y$" -"|
000010A0: 3B 00 BE 2C C2 06 81 20 4A B2 30 20 A4 20 C3 28 |;..,... J.0 . .(|
000010B0: 54 41 24 28 59 25 2C 56 29 29 AD 32 AB 31 00 E6 |TA$(Y%,V)).2.1..|
000010C0: 2C CC 06 8B 20 B5 28 4A AD 31 32 29 B2 4A AD 31 |,... .(J.12).J.1|
000010D0: 32 20 AF 20 4A B1 30 20 A7 20 99 3A 99 22 20 20 |2 . J.0 . .:." |
000010E0: 20 20 20 2D 22 3B 00 2D 2D D6 06 99 20 FB 22 23 | -";.--... ."#|
000010F0: 23 23 23 23 23 22 3B 28 C6 28 CA 28 54 41 24 28 |#####";(.(.(TA$(|
00001100: 59 25 2C 56 29 2C 4A AC 32 AA 31 2C 31 29 29 AC |Y%,V),J.2.1,1)).|
00001110: 32 35 36 29 AA C6 28 CA 28 54 41 24 28 59 25 2C |256)..(.(TA$(Y%,|
00001120: 56 29 2C 4A AC 32 AA 32 2C 31 29 29 3B 00 39 2D |V),J.2.2,1));.9-|
00001130: E0 06 82 20 4A 3A 99 3A 99 00 45 2D EA 06 82 20 |... J:.:..E-... |
00001140: 49 3A 99 3A 99 00 4D 2D F4 06 82 20 56 00 57 2D |I:.:..M-... V.W-|
00001150: FE 06 89 20 37 39 30 00 5D 2D 08 07 80 00 00 00 |... 790.]-......|
............. DUMP VARIABELEN.$....%.5..
.P$."VARDUMP".O.... 80 KARAKTERS - PRINT
ER EERST NA DOORLOOP AANZETTEN!...... --
----------------------------------------
-------------...... NA LEZEN REGELS WORD
EN DE VOLGENDE DATA GEPRINT:............
SYSTEEM - VARIABELEN.1.... NUMERIEKE FL
OATING KOMMA - VARIABELEN.V.... NUMERIEK
E INTEGER - VARIABELEN...... STRING - VA
RIABELEN ALLES PER R
EGEL.R.... -----------------------------
--------------------------.....W 830:..:
. 0,1:. 4,1:."...";:E$.G(27):CR$.G(13).*
.... B(215).0 . .%:. 1,18,0,E$."T"...(.T
0$." ...............................
........................................
...."...2..".OVERZICHT VARIABELEN "P$
CR$J(T0$,6,31)CR$".$ = DIR
E = END"...7..".# = NUM $ = STR
% = INT"...:..".":..2.<.. 3,0:. TA$(5
2,3):. T$(3):. 120.A.F.. SUB READ.^.P..
#1,X$:S%.ST:X%.F(X$):....Z.. CR$"..."E$"
Q.'"F$"' IS GEEN BASIC PGM.":. 120...D..
CR$"..."E$"Q.PGM '"F$"' NIET GEVONDEN."
.P.N.. START PGM.. X...:.".PRG-NAAM OF '
$': ";:.".";:.3,F$:. F$."E" . 800.) ...
F$."$" . ."..":.. "*=P":..\ ... F$."$" .
.".'RETURN' = VERDER";:.. Y$:.:. 10.} .
...#1,(F$)..",P":. DS.0 . 100.. ... 80:.
X%..1 . 90.. .. 80:. X%..28 . 90:U E%.
1:M%.1.Q ... CR$"..GEDULD S.V.P.".Z ....
2.. ... LOOP PGM LEZEN..!... . S%.0:. 8
0:. E% . 290."!H.. R% . X%.0 . 330.A!R..
Q% . X%..34 . X%.0 . 330.K!... X%.34 .
Q%.0 . Q%.1:P%.1:M%.0:. 260..!... X%.34
. Q%.0:M%.1:. 330..!... X$.":" . M%.0:."
.:";:. 260..!...(X%.255 . X%.127) . X%.3
2 . M%.0:. X%.143 . R%.1:P%.1:.".REM";..
"... 350:. P% . P%.0:. 330.:"... X$.":"
. (X%.255 . X%.127) . X%.32 . M%.1.K"...
X%.0 . 330.R"".E%.E%.1:. E% . 330,330,3
30,300,310..",.Z0$.G(X%):W%.X%:. 330.."6
.Z1$.G(X%):W%.W%.256.X%:E%.0:Q%.0:R%.0..
"@.. 1,0,8,E$."D":. 1,0,22,".":. . "####
#";W%;:." ";.."J..:..:. 600..#T.. VARIAB
ELEN ZOEKEN..#^.. M% . Z%.Z%.1:U . 460.I
#H.. Z%.1 . ((X$.."A" . X$.."Z") . X%.25
5) . Z$.X$:L%.1:..}#R.. Z%.1 . Z%.0:...#
|.. X$."(" . Z$.Z$.X$:. 460.H#... X$."%"
. X$."$" . Z$.Z$.X$:L%.2:A%.1:...#... (
X$.."0" . X$.."9") . (X$.."A" . X$.."Z")
. 420..$... 460..$... A% . . 460:. 350.
:$... L%.1 . Z$.Z$.X$:L%.2.@$....W$B.. B
UFFER SCHRIJVEN.F$L.. Z%.0 . ..V$V.VA$."
: "..$W.J(VA$,2).Z$:Z%.0:A%.0:ZL$.Z1$
.Z0$..$... T(":DS :DS$ :EL :ER :. :
ST :TI :TI$ ",VA$).0 . .".*";:V%.0:. 5
10..%... T(VA$,"$").0 . .".$";:V%.3:. 51
0.@%... T(VA$,"%").0 . .".%";:V%.2:U .".
#";:V%.1.V%..T%.T(T$(V%),VA$):. T%.0 . T
$(V%).T$(V%).VA$:. 510..%..I%.(T%.1).5:.
I(TA$(I%,V%),2).ZL$ .540..%..TA$(I%,V%)
.TA$(I%,V%).ZL$.E%.....%&.. PRINTER NIET
KLAAR..%0. 4:. 1,0,8,E$."D".E$."D"..&5
...Y&:..".":. 1,0,21,".NU EV.PRINTER AAN
ZETTEN EN OP".CR$."'RETURN' DRUKKEN ( E
= END )".W&D... Y$:. Y$."E" . 790:.".".
.&E..".":.:.:."KEUZE: P) PRINTEN":.:."
S) SCHERM".U&F... A$:. A$.."P" .
A$.."S" . 582..&G.. A$."S" . 1600:U 600.
.'N.. START PRINTEN.2'X.. 4,4:.4," P
ROGRAMMANAAM: "F$:.4,T0$.I'B.. ST..0 .
560:U .4.Y'V..4," ";..'... V.0 . .4
,"SYSTEEM-VARIABELEN EN KONSTANTEN";.B'.
.. V.1 . .4,"NUMERIEKE FLOATING KOMMA VA
RIABELEN";..'... V.2 . .4,"INTEGER VARIA
BELEN";..(... V.3 . .4,"STRING-VARIABELE
N";..(...4," :":.4,T0$.7(... I.0 . C(T$(
V)).5.1.Z(..Y$."....":. Y.0 . C(T$(V)).5
.1..(F.. Y$.J(T$(V),Y.5.2,4) . Y$.J(T$(V
),Y.5.2,4):Y%.Y..(P.. Y:J(T$(V),Y%.5.2,4
)."....":.4,Y$" -";.X(Z.. J.0 . C(TA$(Y%
,V)).2.1..)... .(J.12).J.12 . J.0 . .4:.
4," -";.K)...4,."######";(F(J(TA$(Y%
,V),J.2.1,1)).256).F(J(TA$(Y%,V),J.2.2,1
));.Y)... J:.4:.4.G)... I:.4:.4.S)... V:
4.Y).....)... CR$". GEREED !
.'RETURN' = EINDE 'R' = RE-ST
ART":.. Y$:. Y$."R" . .:. 10..* .FF$."ME
NU":..#2,(FF$):..:. DS.0 . ."MENU"..**..
".";:.&:..$*4.. FOUT.P*>.."..> FOUT: "S
(ER)" IN REGEL "EL;:.".:.X*H..:...*R.."'
RETURN' = RETRY (RESUME) - ANDERS BREAK
";:.. Y$..*\.. Y$.G(13) . .".":. 110.F*@
.. START SCHERM-AFDRUK.W*A... 0,0,79,24.
.*B..".."..+E.." PROGRAMMANAAM: . "
F$:."."T0$..+J..:.".".5+T.. V.0 . 3:. T$
(V)."" . 1780.C+^.." ";.T+H.. V.0 .
."SYSTEEM-VARIABELEN EN KONSTANTEN";..+R
.. V.1 . ."NUMERIEKE FLOATING KOMMA VARI
ABELEN";.U+|.. V.2 . ."NUMERIEKE INTEGER
VARIABELEN";..+... V.3 . ."STRING-VARIA
BELEN";..,..." :":. T0$. ,... I.0 . C(T$
(V)).5.1.C,..Y$."....":. Y.0 . C(T$(V)).
5.1.X,... Y$.J(T$(V),Y.5.2,4) . Y$.J(T$(
V),Y.5.2,4):Y%.Y..,...:J(T$(V),Y%.5.2,4)
."....":. Y$" -";..,B.. J.0 . C(TA$(Y%,V
)).2.1..,L.. .(J.12).J.12 . J.0 . .:."
-";.--V.. ."######";(F(J(TA$(Y%,V),J.
2.1,1)).256).F(J(TA$(Y%,V),J.2.2,1));.9-
... J:.:..E-... I:.:..M-... V.W-... 790.
]-......
> CLICK IMAGE PREVIEW FOR FULL MODAL