BSC/BASIS-1

00000000: 01 08 1C 08 05 00 8F 20  42 53 43 2F 42 41 53 49  |....... BSC/BASI|
00000010: 53 2D 31 20 48 43 43 2F  34 2D 38 39 00 26 08 0A  |S-1 HCC/4-89.&..|
00000020: 00 89 31 30 30 30 00 30  08 14 00 89 31 30 31 30  |..1000.0....1010|
00000030: 00 3C 08 64 00 99 22 93  22 3B 3A 8E 00 6C 08 6E  |.<.d..".";:..l.n|
00000040: 00 99 C8 28 22 13 11 11  11 11 11 11 11 11 11 11  |...("...........|
00000050: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 22 2C  |..............",|
00000060: B6 28 B5 28 56 45 AA 31  29 29 29 3B 00 7C 08 70  |.(.(VE.1)));.|.p|
00000070: 00 99 A6 B6 28 48 4F 29  29 3B 3A 8E 00 A1 08 78  |....(HO));:....x|
00000080: 00 48 4F B2 C2 28 32 30  39 29 AA 32 35 36 AC C2  |.HO..(209).256..|
00000090: 28 32 31 30 29 AB 31 30  32 34 AA C2 28 32 31 31  |(210).1024..(211|
000000A0: 29 00 BF 08 79 00 56 45  B2 B5 28 48 4F AD 34 30  |)...y.VE..(HO.40|
000000B0: 29 3A 48 4F B2 48 4F AB  34 30 AC 56 45 3A 8E 00  |):HO.HO.40.VE:..|
000000C0: CA 08 C8 00 A1 49 4E 24  3A 8E 00 DF 08 D2 00 A1  |.....IN$:.......|
000000D0: 49 4E 24 3A 8B 49 4E 24  B2 22 22 A7 32 31 30 00  |IN$:.IN$."".210.|
000000E0: E5 08 DC 00 8E 00 12 09  FA 00 97 35 34 32 39 36  |...........54296|
000000F0: 2C 31 35 3A 97 35 34 32  37 38 2C 32 35 35 3A 97  |,15:.54278,255:.|
00000100: 35 34 32 37 33 2C 39 35  3A 97 35 34 32 37 36 2C  |54273,95:.54276,|
00000110: 31 37 00 24 09 FB 00 81  4F 4F B2 31 A4 32 30 30  |17.$....OO.1.200|
00000120: 3A 82 4F 4F 00 45 09 FC  00 97 35 34 32 37 36 2C  |:.OO.E....54276,|
00000130: 30 3A 97 35 34 32 37 37  2C 30 3A 97 35 34 32 37  |0:.54277,0:.5427|
00000140: 38 2C 30 3A 8E 00 53 09  04 01 52 56 B2 BB 28 31  |8,0:..S...RV..(1|
00000150: 29 3A 8E 00 61 09 0E 01  46 52 B2 B8 28 30 29 3A  |):..a...FR..(0):|
00000160: 8E 00 8A 09 2C 01 53 52  24 B2 C4 28 53 52 29 3A  |....,.SR$..(SR):|
00000170: 8B C8 28 53 52 24 2C 31  29 B2 22 20 22 A7 53 52  |..(SR$,1)." ".SR|
00000180: 24 B2 CA 28 53 52 24 2C  32 29 00 90 09 2D 01 8E  |$..(SR$,2)...-..|
00000190: 00 D8 09 36 01 4F 4F 24  B2 22 20 22 3A 4F 4F B2  |...6.OO$." ":OO.|
000001A0: 43 54 AB 43 4E AB B4 28  43 4E 29 3A 4F 31 B2 2E  |CT.CN..(CN):O1..|
000001B0: 35 AC 31 30 AE AB 43 4E  3A 4F 33 B2 B6 28 53 52  |5.10..CN:O3..(SR|
000001C0: 29 3A 53 52 24 B2 22 22  3A 8B 53 52 B3 AB 4F 31  |):SR$."":.SR..O1|
000001D0: A7 53 52 24 B2 22 2D 22  00 FB 09 37 01 8B 4F 33  |.SR$."-"...7..O3|
000001E0: B1 B2 31 30 AE 4F 4F A7  53 52 24 B2 22 22 3A 4F  |..10.OO.SR$."":O|
000001F0: 4F 24 B2 22 2A 22 3A 89  33 31 36 00 18 0A 38 01  |O$."*":.316...8.|
00000200: 53 52 24 B2 53 52 24 AA  CA 28 C4 28 B5 28 4F 33  |SR$.SR$..(.(.(O3|
00000210: AA 4F 31 29 29 2C 32 29  00 38 0A 39 01 8B C3 28  |.O1)),2).8.9...(|
00000220: 53 52 24 29 B3 4F 4F A7  53 52 24 B2 4F 4F 24 AA  |SR$).OO.SR$.OO$.|
00000230: 53 52 24 3A 89 33 31 33  00 4F 0A 3A 01 8B 43 4E  |SR$:.313.O.:..CN|
00000240: B2 30 B0 4F 33 B1 B2 31  45 31 30 A7 33 31 36 00  |.0.O3..1E10.316.|
00000250: 76 0A 3B 01 53 52 24 B2  53 52 24 AA CA 28 C4 28  |v.;.SR$.SR$..(.(|
00000260: 31 AA 4F 33 AB B5 28 4F  33 29 AA 4F 31 29 2C 33  |1.O3..(O3).O1),3|
00000270: 2C 43 4E AA 31 29 00 96  0A 3C 01 8B C3 28 53 52  |,CN.1)...<...(SR|
00000280: 24 29 B3 43 54 A7 53 52  24 B2 53 52 24 AA 4F 4F  |$).CT.SR$.SR$.OO|
00000290: 24 3A 89 33 31 36 00 B9  0A 3D 01 8B C3 28 53 52  |$:.316...=...(SR|
000002A0: 24 29 B1 43 54 A7 53 52  24 B2 22 22 3A 4F 4F 24  |$).CT.SR$."":OO$|
000002B0: B2 22 2A 22 3A 89 33 31  36 00 BF 0A 3E 01 8E 00  |."*":.316...>...|
000002C0: D7 0A 5E 01 9F 34 2C 34  2C 37 3A 98 34 2C 53 52  |..^..4,4,7:.4,SR|
000002D0: 24 3B 3A A0 34 3A 8E 00  EA 0A 68 01 9F 34 2C 34  |$;:.4:....h..4,4|
000002E0: 2C 37 3A 98 34 3A A0 34  3A 8E 00 05 0B E8 03 8D  |,7:.4:.4:.......|
000002F0: 20 33 35 30 30 3A 89 20  32 30 3A 8F 20 4B 41 4C  | 3500:. 20:. KAL|
00000300: 45 4E 44 45 52 00 1E 0B  F2 03 4E 31 24 B2 22 42  |ENDER.....N1$."B|
00000310: 41 53 49 53 2D 31 22 3A  8D 20 33 35 30 30 00 2B  |ASIS-1":. 3500.+|
00000320: 0B FC 03 86 20 4E 24 28  4E 52 29 00 38 0B 06 04  |.... N$(NR).8...|
00000330: 86 20 4D 24 28 31 32 29  00 45 0B 10 04 86 20 57  |. M$(12).E.... W|
00000340: 44 24 28 37 29 00 5F 0B  B0 04 41 B2 30 3A 4D B2  |D$(7)._...A.0:M.|
00000350: 30 3A 4E B2 30 3A 50 4D  B2 30 3A 53 57 B2 30 00  |0:N.0:PM.0:SW.0.|
00000360: 6F 0B BA 04 58 24 B2 22  22 3A 59 24 B2 22 22 00  |o...X$."":Y$."".|
00000370: 8C 0B C4 04 81 20 49 B2  31 20 A4 20 33 39 3A 58  |..... I.1 . 39:X|
00000380: 24 B2 58 24 AA 22 2D 22  3A 82 20 49 00 A9 0B CE  |$.X$."-":. I....|
00000390: 04 81 20 49 B2 31 20 A4  20 33 39 3A 59 24 B2 59  |.. I.1 . 39:Y$.Y|
000003A0: 24 AA 22 20 22 3A 82 20  49 00 C4 0B 78 05 81 20  |$." ":. I...x.. |
000003B0: 49 B2 31 20 A4 20 31 32  3A 87 20 4D 24 28 49 29  |I.1 . 12:. M$(I)|
000003C0: 3A 82 20 49 00 DF 0B 82  05 81 20 49 B2 31 20 A4  |:. I...... I.1 .|
000003D0: 20 37 3A 87 20 57 44 24  28 49 29 3A 82 20 49 00  | 7:. WD$(I):. I.|
000003E0: EA 0B 40 06 89 20 34 30  30 30 00 FE 0B 08 07 8F  |..@.. 4000......|
000003F0: 20 50 52 49 4E 54 2D 52  4F 55 54 49 4E 45 00 1A  | PRINT-ROUTINE..|
00000400: 0C 12 07 4C 24 B2 4C 4D  24 AA 4C 24 3A 8B 20 50  |...L$.LM$.L$:. P|
00000410: 54 B2 32 20 A7 20 31 38  33 30 00 30 0C 1C 07 99  |T.2 . 1830.0....|
00000420: 20 4C 24 3A 4C 24 B2 22  22 3A 89 20 31 38 35 30  | L$:L$."":. 1850|
00000430: 00 47 0C 26 07 53 52 24  B2 4C 24 3A 8D 20 33 35  |.G.&.SR$.L$:. 35|
00000440: 30 3A 8D 20 33 36 30 00  58 0C 30 07 53 52 24 B2  |0:. 360.X.0.SR$.|
00000450: 22 22 3A 4C 24 B2 22 22  00 79 0C 3A 07 52 52 B2  |"":L$."".y.:.RR.|
00000460: 52 52 AA 31 3A 8B 52 52  B1 41 52 20 A7 20 52 52  |RR.1:.RR.AR . RR|
00000470: B2 30 3A 89 20 31 38 37  30 00 7F 0C 44 07 8E 00  |.0:. 1870...D...|
00000480: 96 0C 4E 07 4C 24 B2 4C  33 24 3A 8D 20 31 38 30  |..N.L$.L3$:. 180|
00000490: 30 3A 52 52 B2 30 00 AA  0C 58 07 8B 20 50 54 B2  |0:RR.0...X.. PT.|
000004A0: 31 20 A7 20 8D 20 33 31  30 30 00 B0 0C 62 07 90  |1 . . 3100...b..|
000004B0: 00 C5 0C 98 08 8F 20 44  41 54 55 4D 2D 4B 4F 4E  |...... DATUM-KON|
000004C0: 54 52 4F 4C 45 00 E3 0C  A2 08 8B 20 C3 28 44 54  |TROLE...... .(DT|
000004D0: 24 29 B3 B1 31 30 20 A7  20 4D B2 31 3A 89 20 34  |$)..10 . M.1:. 4|
000004E0: 34 31 30 00 F8 0C AC 08  44 44 B2 C5 28 CA 28 44  |410.....DD..(.(D|
000004F0: 54 24 2C 31 2C 32 29 29  00 1A 0D B6 08 8B 20 28  |T$,1,2))...... (|
00000500: 44 44 B3 31 29 B0 28 44  44 B1 33 31 29 20 A7 20  |DD.1).(DD.31) . |
00000510: 4D B2 31 3A 89 20 34 34  31 30 00 2F 0D C0 08 4D  |M.1:. 4410./...M|
00000520: 4D B2 C5 28 CA 28 44 54  24 2C 34 2C 32 29 29 00  |M..(.(DT$,4,2)).|
00000530: 51 0D CA 08 8B 20 28 4D  4D B3 31 29 B0 28 4D 4D  |Q.... (MM.1).(MM|
00000540: B1 31 32 29 20 A7 20 4D  B2 31 3A 89 20 34 34 31  |.12) . M.1:. 441|
00000550: 30 00 64 0D D4 08 4A 4A  B2 C5 28 C9 28 44 54 24  |0.d...JJ..(.(DT$|
00000560: 2C 34 29 29 00 8E 0D DE  08 8F 20 49 46 20 4A 4A  |,4))...... IF JJ|
00000570: 3C 31 35 38 34 20 54 48  45 4E 20 4D 3D 31 20 44  |<1584 THEN M=1 D|
00000580: 50 55 4E 54 20 47 4F 54  4F 20 34 34 32 30 00 A6  |PUNT GOTO 4420..|
00000590: 0D E8 08 8B 20 4A 4A B3  30 20 A7 20 4D B2 31 3A  |.... JJ.0 . M.1:|
000005A0: 89 20 34 34 31 30 00 C6  0D FC 08 44 B2 33 31 3A  |. 4410.....D.31:|
000005B0: 8B 20 28 4D 4D B2 34 29  B0 28 4D 4D B2 36 29 20  |. (MM.4).(MM.6) |
000005C0: A7 20 44 B2 33 30 00 E2  0D 06 09 8B 20 28 4D 4D  |. D.30...... (MM|
000005D0: B2 39 29 B0 28 4D 4D B2  31 31 29 20 A7 20 44 B2  |.9).(MM.11) . D.|
000005E0: 33 30 00 F6 0D 10 09 8B  20 4D 4D B2 32 20 A7 20  |30...... MM.2 . |
000005F0: 8D 20 32 33 35 30 00 05  0E 1A 09 8B 20 44 44 B1  |. 2350...... DD.|
00000600: 44 20 A7 20 8E 00 16 0E  24 09 4A 52 B2 4A 4A 3A  |D . ....$.JR.JJ:|
00000610: 89 20 32 34 30 30 00 38  0E 2E 09 8B 20 28 4A 4A  |. 2400.8.... (JJ|
00000620: AD 34 30 30 29 B2 B5 28  4A 4A AD 34 30 30 29 20  |.400)..(JJ.400) |
00000630: A7 20 44 B2 32 39 3A 8E  00 5A 0E 38 09 8B 20 28  |. D.29:..Z.8.. (|
00000640: 4A 4A AD 31 30 30 29 B2  B5 28 4A 4A AD 31 30 30  |JJ.100)..(JJ.100|
00000650: 29 20 A7 20 44 B2 32 38  3A 8E 00 78 0E 42 09 8B  |) . D.28:..x.B..|
00000660: 20 28 4A 4A AD 34 29 B2  B5 28 4A 4A AD 34 29 20  | (JJ.4)..(JJ.4) |
00000670: A7 20 44 B2 32 39 3A 8E  00 83 0E 4C 09 44 B2 32  |. D.29:....L.D.2|
00000680: 38 3A 8E 00 A1 0E 60 09  8F 20 45 45 55 57 49 47  |8:....`.. EEUWIG|
00000690: 20 44 55 52 45 4E 44 45  20 4B 41 4C 45 4E 44 45  | DURENDE KALENDE|
000006A0: 52 00 BE 0E 6A 09 53 53  B2 33 36 35 AC 4A 52 AA  |R...j.SS.365.JR.|
000006B0: 33 31 AC 28 4D 4D AB 31  29 AA 44 44 AA 31 00 D0  |31.(MM.1).DD.1..|
000006C0: 0E 74 09 8B 20 4D 4D B3  33 20 A7 20 32 34 34 30  |.t.. MM.3 . 2440|
000006D0: 00 F0 0E 7E 09 53 53 B2  53 53 AB B5 28 30 2E 34  |...~.SS.SS..(0.4|
000006E0: AC 4D 4D AA 32 2E 33 29  3A 4A 52 B2 4A 52 AA 31  |.MM.2.3):JR.JR.1|
000006F0: 00 06 0F 88 09 53 53 B2  53 53 AA B5 28 28 4A 52  |.....SS.SS..((JR|
00000700: AB 31 29 AD 34 29 00 27  0F 92 09 53 53 B2 53 53  |.1).4).'...SS.SS|
00000710: AB B5 28 33 AD 34 AC B5  28 28 4A 52 AB 31 29 AD  |..(3.4..((JR.1).|
00000720: 31 30 30 AA 31 29 29 00  2D 0F 9C 09 8E 00 3B 0F  |100.1)).-.....;.|
00000730: C4 09 8F 20 57 45 45 4B  44 41 47 00 51 0F CE 09  |... WEEKDAG.Q...|
00000740: 57 44 B2 53 53 AB 37 AC  B5 28 53 53 AD 37 29 AA  |WD.SS.7..(SS.7).|
00000750: 31 00 63 0F D8 09 57 44  24 B2 57 44 24 28 57 44  |1.c...WD$.WD$(WD|
00000760: 29 3A 8E 00 7D 0F 28 0A  8F 20 48 4F 4F 46 44 4C  |):..}.(.. HOOFDL|
00000770: 45 54 54 45 52 2D 52 4F  55 54 49 4E 45 00 92 0F  |ETTER-ROUTINE...|
00000780: 32 0A 48 4C B2 C6 28 22  C1 22 29 AB C6 28 22 41  |2.HL..(".")..("A|
00000790: 22 29 00 AC 0F 3C 0A 53  52 24 B2 22 22 3A 81 20  |")...<.SR$."":. |
000007A0: 5A B2 31 20 A4 20 C3 28  49 4E 24 29 00 C7 0F 46  |Z.1 . .(IN$)...F|
000007B0: 0A 5A 24 B2 CA 28 49 4E  24 2C 5A 2C 31 29 3A 53  |.Z$..(IN$,Z,1):S|
000007C0: 52 B2 C6 28 5A 24 29 00  DE 0F 50 0A 8B 20 28 5A  |R..(Z$)...P.. (Z|
000007D0: 24 B1 B2 22 41 22 29 20  A7 20 32 36 36 30 00 E9  |$.."A") . 2660..|
000007E0: 0F 5A 0A 89 20 32 36 37  30 00 04 10 64 0A 8B 20  |.Z.. 2670...d.. |
000007F0: 28 5A 24 B3 B2 22 5A 22  29 20 A7 20 53 52 B2 53  |(Z$.."Z") . SR.S|
00000800: 52 AA 48 4C 00 1A 10 6E  0A 53 52 24 B2 53 52 24  |R.HL...n.SR$.SR$|
00000810: AA C7 28 53 52 29 3A 82  20 5A 00 2F 10 78 0A 49  |..(SR):. Z./.x.I|
00000820: 4E 24 B2 53 52 24 3A 53  52 24 B2 22 22 3A 8E 00  |N$.SR$:SR$."":..|
00000830: 41 10 F0 0A 8F 20 57 41  43 48 54 4C 55 53 53 45  |A.... WACHTLUSSE|
00000840: 4E 00 58 10 FA 0A 81 20  5A B2 31 20 A4 20 31 30  |N.X.... Z.1 . 10|
00000850: 30 30 3A 82 20 5A 3A 8E  00 65 10 54 0B 8F 20 4B  |00:. Z:..e.T.. K|
00000860: 4F 50 50 45 4E 00 82 10  5E 0B 8D 20 31 30 30 3A  |OPPEN...^.. 100:|
00000870: 4E 24 B2 4E 31 24 3A 56  45 B2 31 3A 8D 20 33 30  |N$.N1$:VE.1:. 30|
00000880: 30 30 00 9B 10 68 0B 4E  24 B2 4E 32 24 3A 56 45  |00...h.N$.N2$:VE|
00000890: B2 33 3A 8D 20 33 30 30  30 3A 8E 00 B8 10 86 0B  |.3:. 3000:......|
000008A0: 8D 20 31 30 30 3A 4E 24  B2 4E 31 24 3A 56 45 B2  |. 100:N$.N1$:VE.|
000008B0: 30 3A 8D 20 33 30 30 30  00 D1 10 90 0B 4E 24 B2  |0:. 3000.....N$.|
000008C0: 4E 32 24 3A 56 45 B2 32  3A 8D 20 33 30 30 30 3A  |N2$:VE.2:. 3000:|
000008D0: 8E 00 E5 10 B8 0B 8F 20  4B 4F 50 20 43 45 4E 54  |....... KOP CENT|
000008E0: 52 45 52 45 4E 00 00 11  C2 0B 58 B2 C3 28 4E 24  |REREN.....X..(N$|
000008F0: 29 3A 48 4F B2 B5 28 28  34 30 AB 58 29 AD 32 29  |):HO..((40.X).2)|
00000900: 00 0F 11 CC 0B 8D 20 31  31 30 3A 99 20 4E 24 00  |...... 110:. N$.|
00000910: 21 11 D6 0B 8B 20 4D B2  35 20 A7 20 4D B2 30 3A  |!.... M.5 . M.0:|
00000920: 8E 00 32 11 E0 0B 56 45  B2 56 45 AA 31 3A 8D 31  |..2...VE.VE.1:.1|
00000930: 31 30 00 48 11 EA 0B 8F  20 53 54 52 45 45 50 20  |10.H.... STREEP |
00000940: 45 52 20 4F 4E 44 45 52  00 58 11 F4 0B 99 20 C8  |ER ONDER.X.... .|
00000950: 28 58 24 2C 58 29 3A 8E  00 73 11 1C 0C 8D 20 32  |(X$,X):..s.... 2|
00000960: 35 30 3A 48 4F B2 30 3A  56 45 B2 32 32 3A 8D 20  |50:HO.0:VE.22:. |
00000970: 31 31 30 00 85 11 26 0C  99 22 3C 20 54 4F 45 54  |110...&.."< TOET|
00000980: 53 20 3E 22 3B 00 93 11  30 0C 8D 20 32 31 30 3A  |S >";...0.. 210:|
00000990: 99 3A 8E 00 B1 11 AC 0D  8F 20 42 45 52 45 4B 45  |.:....... BEREKE|
000009A0: 4E 49 4E 47 20 41 20 49  4E 20 43 4C 45 41 52 20  |NING A IN CLEAR |
000009B0: 41 00 BC 11 B6 0D 8C 3A  87 20 4E 52 00 D5 11 C0  |A......:. NR....|
000009C0: 0D 53 4C B2 33 35 3A 8F  20 53 54 52 49 4E 47 4C  |.SL.35:. STRINGL|
000009D0: 45 4E 47 54 45 00 EF 11  CA 0D 41 B2 28 53 4C AA  |ENGTE.....A.(SL.|
000009E0: 33 29 AC 4E 52 3A 8F 20  42 45 53 54 41 4E 44 00  |3).NR:. BESTAND.|
000009F0: 09 12 D4 0D 41 B2 41 AA  37 36 AA 31 32 AC 33 3A  |....A.A.76.12.3:|
00000A00: 8F 20 4D 41 41 4E 44 45  4E 00 24 12 DE 0D 41 B2  |. MAANDEN.$...A.|
00000A10: 41 AA 35 32 AA 37 AC 33  3A 8F 20 57 45 45 4B 44  |A.52.7.3:. WEEKD|
00000A20: 41 47 45 4E 00 38 12 E8  0D 41 B2 41 AA 32 30 30  |AGEN.8...A.A.200|
00000A30: 3A 8F 20 45 58 54 52 41  00 3E 12 F2 0D 8E 00 56  |:. EXTRA.>.....V|
00000A40: 12 10 0E 8F 20 42 45 53  54 41 4E 44 20 4C 45 45  |.... BESTAND LEE|
00000A50: 47 4D 41 4B 45 4E 00 72  12 1A 0E 81 20 49 B2 31  |GMAKEN.r.... I.1|
00000A60: 20 A4 20 4E 52 3A 4E 24  28 49 29 B2 22 22 3A 82  | . NR:N$(I)."":.|
00000A70: 20 49 00 7C 12 24 0E 4E  B2 30 3A 8E 00 97 12 A0  | I.|.$.N.0:.....|
00000A80: 0F 4E 32 24 B2 22 48 4F  4F 46 44 4D 45 4E 55 22  |.N2$."HOOFDMENU"|
00000A90: 3A 8D 20 32 39 31 30 00  B1 12 AA 0F 8D 20 32 35  |:. 2910...... 25|
00000AA0: 30 3A 48 4F B2 30 3A 56  45 B2 36 3A 8D 20 31 31  |0:HO.0:VE.6:. 11|
00000AB0: 30 00 D4 12 B4 0F 99 22  47 45 45 46 20 45 45 4E  |0......"GEEF EEN|
00000AC0: 20 44 41 54 55 4D 20 28  30 31 2D 30 31 2D 31 39  | DATUM (01-01-19|
00000AD0: 38 39 29 22 00 F5 12 BE  0F 99 22 3A 20 22 3B 3A  |89)"......": ";:|
00000AE0: 85 20 44 54 24 3A 8B 20  44 54 24 B2 22 22 20 A7  |. DT$:. DT$."" .|
00000AF0: 20 34 30 31 30 00 13 13  C8 0F 8D 20 32 32 30 30  | 4010...... 2200|
00000B00: 3A 8B 20 4D B2 31 20 A7  20 4D B2 30 3A 89 20 34  |:. M.1 . M.0:. 4|
00000B10: 30 31 30 00 2A 13 D2 0F  8D 20 32 35 30 30 3A 56  |010.*.... 2500:V|
00000B20: 45 B2 31 30 3A 8D 20 31  31 30 00 43 13 DC 0F 99  |E.10:. 110.C....|
00000B30: 20 44 54 24 AA 22 20 49  53 20 45 45 4E 20 22 AA  | DT$." IS EEN ".|
00000B40: 57 44 24 00 6F 13 E6 0F  56 45 B2 31 34 3A 8D 20  |WD$.o...VE.14:. |
00000B50: 31 31 30 3A 99 22 4E 4F  47 20 45 45 4E 20 44 41  |110:."NOG EEN DA|
00000B60: 54 55 4D 20 3F 20 28 4A  2F 4E 29 3A 20 22 3B 00  |TUM ? (J/N): ";.|
00000B70: 86 13 F0 0F 8D 20 32 31  30 3A 99 20 49 4E 24 3A  |..... 210:. IN$:|
00000B80: 8D 20 32 36 30 30 00 A5  13 FA 0F 8B 20 49 4E 24  |. 2600...... IN$|
00000B90: B2 22 4A 22 20 B0 20 49  4E 24 B2 22 CA 22 20 A7  |."J" . IN$."." .|
00000BA0: 20 34 30 30 30 00 C5 13  04 10 8B 20 49 4E 24 B2  | 4000...... IN$.|
00000BB0: 22 4E 22 20 B0 20 49 4E  24 B2 22 CE 22 20 A7 20  |"N" . IN$."." . |
00000BC0: 31 30 30 30 30 00 D0 13  0E 10 89 20 34 30 37 30  |10000...... 4070|
00000BD0: 00 E3 13 30 11 8F 20 42  4F 4F 44 53 43 48 41 50  |...0.. BOODSCHAP|
00000BE0: 50 45 4E 00 0B 14 3A 11  8D 20 32 35 30 3A 99 22  |PEN...:.. 250:."|
00000BF0: 44 41 54 55 4D 20 4E 49  45 54 20 4B 4F 52 52 45  |DATUM NIET KORRE|
00000C00: 4B 54 21 22 3A 89 20 34  36 30 30 00 2F 14 44 11  |KT!":. 4600./.D.|
00000C10: 8D 20 32 35 30 3A 99 22  4E 49 45 54 20 D6 CF CF  |. 250:."NIET ...|
00000C20: D2 20 31 35 38 34 21 22  3A 89 20 34 36 30 30 00  |. 1584!":. 4600.|
00000C30: 45 14 4E 11 8D 20 32 35  30 3A 53 52 B2 4C 31 3A  |E.N.. 250:SR.L1:|
00000C40: 8D 20 33 30 30 00 70 14  58 11 99 22 54 45 4E 4D  |. 300.p.X.."TENM|
00000C50: 49 4E 53 54 45 20 22 AA  53 52 24 AA 22 20 4B 41  |INSTE ".SR$." KA|
00000C60: 52 41 4B 54 45 52 53 21  22 3A 89 20 34 36 30 30  |RAKTERS!":. 4600|
00000C70: 00 86 14 62 11 8D 20 32  35 30 3A 53 52 B2 4C 33  |...b.. 250:SR.L3|
00000C80: 3A 8D 20 33 30 30 00 AE  14 6C 11 99 22 54 45 4E  |:. 300...l.."TEN|
00000C90: 4D 49 4E 53 54 45 20 22  AA 53 52 24 AA 22 20 52  |MINSTE ".SR$." R|
00000CA0: 45 47 45 4C 53 21 22 3A  89 20 34 36 30 30 00 CB  |EGELS!":. 4600..|
00000CB0: 14 F8 11 8F 20 4B 4F 52  52 45 4B 54 49 45 20 53  |.... KORREKTIE S|
00000CC0: 43 48 45 52 4D 2D 44 45  4C 45 4E 00 E8 14 02 12  |CHERM-DELEN.....|
00000CD0: 8D 20 32 38 31 30 3A 54  31 B2 56 45 3A 8D 20 31  |. 2810:T1.VE:. 1|
00000CE0: 32 30 3A 54 32 B2 56 45  00 04 15 0C 12 48 4F B2  |20:T2.VE.....HO.|
00000CF0: 30 3A 81 20 56 45 B2 54  31 20 A4 20 54 32 3A 8D  |0:. VE.T1 . T2:.|
00000D00: 20 31 31 30 00 14 15 16  12 99 20 59 24 3A 82 20  | 110...... Y$:. |
00000D10: 56 45 3A 8E 00 2D 15 28  23 4E 32 24 B2 22 50 52  |VE:..-.(#N2$."PR|
00000D20: 49 4E 54 45 4E 22 3A 8D  20 32 39 31 30 00 47 15  |INTEN":. 2910.G.|
00000D30: 32 23 8D 20 32 35 30 3A  48 4F B2 30 3A 56 45 B2  |2#. 250:HO.0:VE.|
00000D40: 35 3A 8D 20 31 31 30 00  5A 15 3C 23 99 22 20 31  |5:. 110.Z.<#." 1|
00000D50: 20 3D 20 53 43 48 45 52  4D 22 00 70 15 46 23 99  | = SCHERM".p.F#.|
00000D60: 22 20 32 20 3D 20 50 52  49 4E 54 45 52 22 3A 99  |" 2 = PRINTER":.|
00000D70: 00 89 15 50 23 8D 20 32  35 30 3A 99 22 55 57 20  |...P#. 250:."UW |
00000D80: 4B 45 55 5A 45 3A 20 22  3B 00 A3 15 5A 23 8D 20  |KEUZE: ";...Z#. |
00000D90: 32 31 30 3A 99 20 49 4E  24 3A 50 54 B2 C5 28 49  |210:. IN$:PT..(I|
00000DA0: 4E 24 29 00 BE 15 64 23  8B 20 28 50 54 B3 31 29  |N$)...d#. (PT.1)|
00000DB0: B0 28 50 54 B1 32 29 20  A7 20 39 30 31 30 00 D2  |.(PT.2) . 9010..|
00000DC0: 15 69 23 8B 20 50 54 B2  32 20 A7 20 8D 20 39 31  |.i#. PT.2 . . 91|
00000DD0: 38 30 00 F4 15 6E 23 49  4E 24 B2 22 22 3A 8D 20  |80...n#IN$."":. |
00000DE0: 32 35 30 3A 48 4F B2 30  3A 56 45 B2 31 34 3A 8D  |250:HO.0:VE.14:.|
00000DF0: 20 31 31 30 00 1E 16 78  23 99 22 20 4D 41 58 2E  | 110...x#." MAX.|
00000E00: 41 41 4E 54 41 4C 20 4B  41 52 41 4B 54 45 52 53  |AANTAL KARAKTERS|
00000E10: 20 50 45 52 20 52 45 47  45 4C 3A 20 22 3B 00 32  | PER REGEL: ";.2|
00000E20: 16 82 23 85 20 49 4E 24  3A 52 4C B2 C5 28 49 4E  |..#. IN$:RL..(IN|
00000E30: 24 29 00 45 16 8C 23 8B  20 50 54 B2 32 20 A7 20  |$).E..#. PT.2 . |
00000E40: 4C 31 B2 4C 32 00 61 16  96 23 8B 20 52 4C B3 4C  |L1.L2.a..#. RL.L|
00000E50: 31 20 A7 20 8D 20 34 34  33 30 3A 89 20 39 30 37  |1 . . 4430:. 907|
00000E60: 30 00 82 16 A0 23 49 4E  24 B2 22 22 3A 8D 20 32  |0....#IN$."":. 2|
00000E70: 35 30 3A 48 4F B2 30 3A  56 45 B2 31 35 3A 8D 31  |50:HO.0:VE.15:.1|
00000E80: 31 30 00 A6 16 AA 23 99  22 4D 41 58 2E 41 41 4E  |10....#."MAX.AAN|
00000E90: 54 41 4C 20 52 45 47 45  4C 53 20 50 45 52 20 42  |TAL REGELS PER B|
00000EA0: 4C 41 44 20 22 3B 00 BA  16 B4 23 85 20 49 4E 24  |LAD ";....#. IN$|
00000EB0: 3A 41 52 B2 C5 28 49 4E  24 29 00 CD 16 BE 23 8B  |:AR..(IN$)....#.|
00000EC0: 20 50 54 B2 32 20 A7 20  4C 33 B2 4C 34 00 E9 16  | PT.2 . L3.L4...|
00000ED0: C8 23 8B 20 41 52 B3 4C  33 20 A7 20 8D 20 34 34  |.#. AR.L3 . . 44|
00000EE0: 35 30 3A 89 20 39 31 32  30 00 F4 16 D2 23 52 52  |50:. 9120....#RR|
00000EF0: B2 30 3A 8E 00 10 17 DC  23 4E 24 B2 22 50 52 49  |.0:.....#N$."PRI|
00000F00: 4E 54 45 52 20 41 41 4E  5A 45 54 54 45 4E 21 22  |NTER AANZETTEN!"|
00000F10: 00 27 17 E6 23 4D B2 35  3A 56 45 B2 31 32 3A 8D  |.'..#M.5:VE.12:.|
00000F20: 20 33 30 30 30 3A 8E 00  40 17 F0 23 4C 31 24 B2  | 3000:..@..#L1$.|
00000F30: 22 22 3A 4C 32 24 B2 22  32 3A 4C 33 24 3D 22 22  |"":L2$."2:L3$=""|
00000F40: 00 5F 17 FA 23 81 20 49  B2 31 20 A4 20 4B 4C 3A  |._..#. I.1 . KL:|
00000F50: 4C 31 24 B2 4C 31 24 AA  22 20 22 3A 82 20 49 00  |L1$.L1$." ":. I.|
00000F60: 7E 17 04 24 81 20 49 B2  31 20 A4 20 4B 4C 3A 4C  |~..$. I.1 . KL:L|
00000F70: 32 24 B2 4C 32 24 AA 22  2E 22 3A 82 20 49 00 9D  |2$.L2$.".":. I..|
00000F80: 17 0E 24 81 20 49 B2 31  20 A4 20 4B 4C 3A 4C 33  |..$. I.1 . KL:L3|
00000F90: 24 B2 4C 33 24 AA 22 2D  22 3A 82 20 49 00 A3 17  |$.L3$."-":. I...|
00000FA0: 18 24 8E 00 B5 17 54 24  8F 20 4B 4F 50 20 50 52  |.$....T$. KOP PR|
00000FB0: 49 4E 54 45 4E 00 D1 17  5E 24 4C 24 B2 4C 4D 24  |INTEN...^$L$.LM$|
00000FC0: AA 4C 24 3A 8B 20 50 54  B2 32 20 A7 20 39 33 33  |.L$:. PT.2 . 933|
00000FD0: 30 00 E2 17 68 24 99 20  4C 24 3A 4C 24 B2 22 22  |0...h$. L$:L$.""|
00000FE0: 3A 8E 00 F8 17 72 24 53  52 24 B2 4C 24 3A 8D 20  |:....r$SR$.L$:. |
00000FF0: 33 35 30 3A 8D 33 36 30  00 0B 18 7C 24 4C 24 B2  |350:.360...|$L$.|
00001000: 22 22 3A 53 52 24 B2 22  22 3A 8E 00 1E 18 B8 24  |"":SR$."":.....$|
00001010: 8F 20 4C 49 4E 4B 45 52  20 4D 41 52 47 45 00 35  |. LINKER MARGE.5|
00001020: 18 C2 24 4C 4D B2 B5 28  28 52 4C AB C3 28 4C 24  |..$LM..((RL..(L$|
00001030: 29 29 AD 32 29 00 4B 18  CC 24 4C 4D 24 B2 22 22  |)).2).K..$LM$.""|
00001040: 3A 8B 20 4C 4D B2 30 20  A7 20 8E 00 6A 18 D6 24  |:. LM.0 . ..j..$|
00001050: 81 20 5A B2 31 20 A4 20  4C 4D 3A 4C 4D 24 B2 4C  |. Z.1 . LM:LM$.L|
00001060: 4D 24 AA 22 20 22 3A 82  20 5A 00 70 18 E0 24 8E  |M$." ":. Z.p..$.|
00001070: 00 8F 18 1C 25 8D 20 32  39 31 30 3A 81 20 5A B2  |....%. 2910:. Z.|
00001080: 31 20 A4 20 33 3A 8D 20  32 35 30 3A 82 20 5A 00  |1 . 3:. 250:. Z.|
00001090: BC 18 26 25 4E 24 B2 22  55 20 4B 55 4E 54 20 4E  |..&%N$."U KUNT N|
000010A0: 55 20 45 45 4E 20 4E 49  45 55 57 20 42 4C 41 44  |U EEN NIEUW BLAD|
000010B0: 20 49 4E 53 54 45 4C 4C  45 4E 2E 22 00 D4 18 30  | INSTELLEN."...0|
000010C0: 25 56 45 B2 31 32 3A 8D  20 33 30 30 30 3A 8D 20  |%VE.12:. 3000:. |
000010D0: 33 31 30 30 00 F3 18 4E  25 8D 20 32 39 31 30 3A  |3100...N%. 2910:|
000010E0: 81 20 5A B2 31 20 A4 20  33 3A 8D 20 32 35 30 3A  |. Z.1 . 3:. 250:|
000010F0: 82 20 5A 00 0E 19 58 25  4E 24 B2 22 49 4B 20 42  |. Z...X%N$."IK B|
00001100: 45 4E 20 42 45 5A 49 47  21 22 3A 4D B2 35 00 21  |EN BEZIG!":M.5.!|
00001110: 19 62 25 56 45 B2 31 32  3A 8D 20 33 30 30 30 3A  |.b%VE.12:. 3000:|
00001120: 8E 00 37 19 10 27 4E 32  24 B2 22 45 49 4E 44 45  |..7..'N2$."EINDE|
00001130: 22 3A 8D 32 39 31 30 00  4F 19 1A 27 81 20 5A B2  |":.2910.O..'. Z.|
00001140: 31 20 A4 20 33 3A 8D 20  32 35 30 3A 82 20 5A 00  |1 . 3:. 250:. Z.|
00001150: 72 19 24 27 4E 24 B2 22  54 4F 54 20 44 45 20 56  |r.$'N$."TOT DE V|
00001160: 4F 4C 47 45 4E 44 45 20  4B 45 45 52 21 22 3A 4D  |OLGENDE KEER!":M|
00001170: B2 35 00 85 19 2E 27 56  45 B2 31 32 3A 8D 20 33  |.5....'VE.12:. 3|
00001180: 30 30 30 3A 80 00 A7 19  20 4E 4E 33 24 B2 22 42  |000:.... NN3$."B|
00001190: 45 53 54 41 4E 44 20 49  4E 4C 45 5A 45 4E 22 3A  |ESTAND INLEZEN":|
000011A0: 8D 20 32 32 30 30 30 00  B4 19 2A 4E 8D 20 32 39  |. 22000...*N. 29|
000011B0: 35 30 3A 99 00 C1 19 34  4E 8D 20 33 31 30 30 3A  |50:....4N. 3100:|
000011C0: 8E 00 E8 19 08 52 4E 33  24 B2 22 42 45 53 54 41  |.....RN3$."BESTA|
000011D0: 4E 44 20 57 45 47 53 43  48 52 49 4A 56 45 4E 22  |ND WEGSCHRIJVEN"|
000011E0: 3A 8D 20 32 32 30 30 30  00 F5 19 12 52 8D 20 32  |:. 22000....R. 2|
000011F0: 39 35 30 3A 99 00 02 1A  1C 52 8D 20 33 31 30 30  |950:.....R. 3100|
00001200: 3A 8E 00 0F 1A F0 55 8D  20 32 39 35 30 3A 99 00  |:.....U. 2950:..|
00001210: 1C 1A FA 55 8D 20 33 31  30 30 3A 8E 00 3A 1A C0  |...U. 3100:..:..|
00001220: 5D 8F 20 53 43 48 45 52  4D 20 4F 50 20 34 30 20  |]. SCHERM OP 40 |
00001230: 4B 41 52 2E 2F 52 45 47  45 4C 00 50 1A CA 5D 8F  |KAR./REGEL.P..].|
00001240: 20 48 49 45 52 20 44 45  20 52 4F 55 54 49 4E 45  | HIER DE ROUTINE|
00001250: 00 56 1A D4 5D 8E 00 75  1A 24 5E 8F 20 53 43 48  |.V..]..u.$^. SCH|
00001260: 45 52 4D 20 4F 50 20 31  36 30 20 4B 41 52 2E 2F  |ERM OP 160 KAR./|
00001270: 52 45 47 45 4C 00 8B 1A  2E 5E 8F 20 48 49 45 52  |REGEL....^. HIER|
00001280: 20 44 45 20 52 4F 55 54  49 4E 45 00 91 1A 38 5E  | DE ROUTINE...8^|
00001290: 8E 00 B8 1A 88 5E 8F 20  53 43 48 45 52 4D 20 53  |.....^. SCHERM S|
000012A0: 43 48 4F 4F 4E 20 42 49  4A 20 31 36 30 20 4B 41  |CHOON BIJ 160 KA|
000012B0: 52 2E 2F 52 45 47 45 4C  00 D4 1A 92 5E 8D 20 31  |R./REGEL....^. 1|
000012C0: 30 30 3A 8F 20 48 49 45  52 20 44 45 20 52 4F 55  |00:. HIER DE ROU|
000012D0: 54 49 4E 45 00 DA 1A 9C  5E 8E 00 E4 1A A8 61 83  |TINE....^.....a.|
000012E0: 20 32 30 30 00 07 1B 0C  62 83 20 22 4A 41 4E 55  | 200....b. "JANU|
000012F0: 41 52 49 22 2C 22 46 45  42 52 55 41 52 49 22 2C  |ARI","FEBRUARI",|
00001300: 22 4D 41 41 52 54 22 00  22 1B 16 62 83 20 22 41  |"MAART"."..b. "A|
00001310: 50 52 49 4C 22 2C 22 4D  45 49 22 2C 22 4A 55 4E  |PRIL","MEI","JUN|
00001320: 49 22 00 46 1B 20 62 83  20 22 4A 55 4C 49 22 2C  |I".F. b. "JULI",|
00001330: 22 41 55 47 55 53 54 55  53 22 2C 22 53 45 50 54  |"AUGUSTUS","SEPT|
00001340: 45 4D 42 45 52 22 00 6C  1B 2A 62 83 20 22 4F 4B  |EMBER".l.*b. "OK|
00001350: 54 4F 42 45 52 22 2C 22  4E 4F 56 45 4D 42 45 52  |TOBER","NOVEMBER|
00001360: 22 2C 22 44 45 43 45 4D  42 45 52 22 00 90 1B 70  |","DECEMBER"...p|
00001370: 62 83 20 22 56 52 49 4A  44 41 47 22 2C 22 5A 41  |b. "VRIJDAG","ZA|
00001380: 54 45 52 44 41 47 22 2C  22 5A 4F 4E 44 41 47 22  |TERDAG","ZONDAG"|
00001390: 00 B5 1B 7A 62 83 20 22  4D 41 41 4E 44 41 47 22  |...zb. "MAANDAG"|
000013A0: 2C 22 44 49 4E 53 44 41  47 22 2C 22 57 4F 45 4E  |,"DINSDAG","WOEN|
000013B0: 53 44 41 47 22 00 C7 1B  84 62 83 20 22 44 4F 4E  |SDAG"....b. "DON|
000013C0: 44 45 52 44 41 47 22 00  CD 1B 30 75 8F 00 DB 1B  |DERDAG"...0u....|
000013D0: 3A 75 8F 20 42 41 53 49  53 2D 31 00 EA 1B 44 75  |:u. BASIS-1...Du|
000013E0: 8F 20 48 43 43 2D 34 2F  38 39 00 0B 1C 98 FF 3A  |. HCC-4/89.....:|
000013F0: 41 55 54 48 B0 20 20 20  20 3A 20 20 20 20 20 20  |AUTH.    :      |
00001400: 4A 2E 20 48 41 55 42 52  49 43 48 00 2C 1C 98 FF  |J. HAUBRICH.,...|
00001410: 3A 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |:               |
00001420: 20 20 20 45 49 4E 44 48  4F 56 45 4E 00 4E 1C 98  |   EINDHOVEN.N..|
00001430: FF 3A 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.:              |
00001440: 20 54 48 45 20 4E 45 54  48 45 52 4C AF 53 00 00  | THE NETHERL.S..|
00001450: 00                                                |.               |

....... BSC/BASIS-1 HCC/4-89.&....1000.0
....1010.<.D..".";:..L.N..H("...........
..............",.(.(VE.1)));.|.P....(HO)
);:....X.HO.B(209).256.B(210).1024.B(211
)...Y.VE..(HO.40):HO.HO.40.VE:..J.H..IN$
:....R..IN$:.IN$."".210............54296
,15:.54278,255:.54273,95:.54276,17.$....
OO.1.200:.OO.E....54276,0:.54277,0:.5427
8,0:..S...RV..(1):..A...FR..(0):....,.SR
$.D(SR):.H(SR$,1)." ".SR$.J(SR$,2)...-..
.X.6.OO$." ":OO.CT.CN..(CN):O1..5.10..CN
:O3..(SR):SR$."":.SR..O1.SR$."-"...7..O3
..10.OO.SR$."":OO$."*":.316...8.SR$.SR$.
J(D(.(O3.O1)),2).8.9..C(SR$).OO.SR$.OO$.
SR$:.313.O.:..CN.0.O3..1E10.316.V.;.SR$.
SR$.J(D(1.O3..(O3).O1),3,CN.1)...<..C(SR
$).CT.SR$.SR$.OO$:.316...=..C(SR$).CT.SR
$."":OO$."*":.316...>...W.^..4,4,7:.4,SR
$;: 4:....H..4,4,7:.4: 4:....... 3500:. 
20:. KALENDER.....N1$."BASIS-1":. 3500.+
.... N$(NR).8.... M$(12).E.... WD$(7)._.
..A.0:M.0:N.0:PM.0:SW.0.O...X$."":Y$."".
..D.. I.1 . 39:X$.X$."-":. I...N.. I.1 .
 39:Y$.Y$." ":. I.D.X.. I.1 . 12:. M$(I)
:. I...... I.1 . 7:. WD$(I):. I...@.. 40
00...... PRINT-ROUTINE.....L$.LM$.L$:. P
T.2 . 1830.0.... L$:L$."":. 1850.G.&.SR$
.L$:. 350:. 360.X.0.SR$."":L$."".Y.:.RR.
RR.1:.RR.AR . RR.0:. 1870..D.....N.L$.L
3$:. 1800:RR.0...X.. PT.1 . . 3100...B..
.E.... DATUM-KONTROLE...... C(DT$)..10 .
 M.1:. 4410.....DD.E(J(DT$,1,2))...... (
DD.1).(DD.31) . M.1:. 4410./...MM.E(J(DT
$,4,2)).Q.J.. (MM.1).(MM.12) . M.1:. 441
0.D.T.JJ.E(I(DT$,4))...... IF JJ<1584 TH
EN M=1 DPUNT GOTO 4420...... JJ.0 . M.1:
. 4410.F...D.31:. (MM.4).(MM.6) . D.30..
.... (MM.9).(MM.11) . D.30...... MM.2 . 
. 2350...... DD.D . ....$.JR.JJ:. 2400.8
.... (JJ.400)..(JJ.400) . D.29:..Z.8.. (
JJ.100)..(JJ.100) . D.28:..X.B.. (JJ.4).
.(JJ.4) . D.29:....L.D.28:....`.. EEUWIG
 DURENDE KALENDER...J.SS.365.JR.31.(MM.1
).DD.1.P.T.. MM.3 . 2440...~.SS.SS..(0.4
.MM.2.3):JR.JR.1.....SS.SS..((JR.1).4).'
...SS.SS..(3.4..((JR.1).100.1)).-.....;.
D.. WEEKDAG.Q.N.WD.SS.7..(SS.7).1.C.X.WD
$.WD$(WD):..}.(.. HOOFDLETTER-ROUTINE...
2.HL.F("A").F("A")...<.SR$."":. Z.1 . C(
IN$).G.F.Z$.J(IN$,Z,1):SR.F(Z$)...P.. (Z
$.."A") . 2660...Z.. 2670...D.. (Z$.."Z"
) . SR.SR.HL...N.SR$.SR$.G(SR):. Z./.X.I
N$.SR$:SR$."":..A.... WACHTLUSSEN.X.... 
Z.1 . 1000:. Z:..E.T.. KOPPEN...^.. 100:
N$.N1$:VE.1:. 3000...H.N$.N2$:VE.3:. 300
0:....... 100:N$.N1$:VE.0:. 3000.Q...N$.
N2$:VE.2:. 3000:....... KOP CENTREREN...
B.X.C(N$):HO..((40.X).2)...L.. 110:. N$.
!.V.. M.5 . M.0:..2...VE.VE.1:.110.H....
 STREEP ER ONDER.X.... H(X$,X):..S.... 2
50:HO.0:VE.22:. 110...&.."< TOETS >";...
0.. 210:.:....... BEREKENING A IN CLEAR 
A......:. NR.U...SL.35:. STRINGLENGTE...
J.A.(SL.3).NR:. BESTAND...T.A.A.76.12.3:
. MAANDEN.$...A.A.52.7.3:. WEEKDAGEN.8..
.A.A.200:. EXTRA.>.....V.... BESTAND LEE
GMAKEN.R.... I.1 . NR:N$(I)."":. I.|.$.N
.0:.... .N2$."HOOFDMENU":. 2910...... 25
0:HO.0:VE.6:. 110.T...."GEEF EEN DATUM (
01-01-1989)"......": ";:. DT$:. DT$."" .
 4010...H.. 2200:. M.1 . M.0:. 4010.*.R.
. 2500:VE.10:. 110.C.... DT$." IS EEN ".
WD$.O...VE.14:. 110:."NOG EEN DATUM ? (J
/N): ";...... 210:. IN$:. 2600...... IN$
."J" . IN$."J" . 4000.E.... IN$."N" . IN
$."N" . 10000.P.... 4070...0.. BOODSCHAP
PEN...:.. 250:."DATUM NIET KORREKT!":. 4
600./.D.. 250:."NIET VOOR 1584!":. 4600.
E.N.. 250:SR.L1:. 300.P.X.."TENMINSTE ".
SR$." KARAKTERS!":. 4600...B.. 250:SR.L3
:. 300...L.."TENMINSTE ".SR$." REGELS!":
. 4600.K.... KORREKTIE SCHERM-DELEN.....
. 2810:T1.VE:. 120:T2.VE.....HO.0:. VE.T
1 . T2:. 110...... Y$:. VE:..-.(#N2$."PR
INTEN":. 2910.G.2#. 250:HO.0:VE.5:. 110.
Z.<#." 1 = SCHERM".P.F#." 2 = PRINTER":.
...P#. 250:."UW KEUZE: ";...Z#. 210:. IN
$:PT.E(IN$)...D#. (PT.1).(PT.2) . 9010.R
.I#. PT.2 . . 9180...N#IN$."":. 250:HO.0
:VE.14:. 110...X#." MAX.AANTAL KARAKTERS
 PER REGEL: ";.2..#. IN$:RL.E(IN$).E..#.
 PT.2 . L1.L2.A..#. RL.L1 . . 4430:. 907
0... #IN$."":. 250:HO.0:VE.15:.110....#.
"MAX.AANTAL REGELS PER BLAD ";....#. IN$
:AR.E(IN$).M..#. PT.2 . L3.L4...H#. AR.L
3 . . 4450:. 9120...R#RR.0:.....#N$."PRI
NTER AANZETTEN!".'..#M.5:VE.12:. 3000:..
@..#L1$."":L2$."2:L3$=""._..#. I.1 . KL:
L1$.L1$." ":. I.~..$. I.1 . KL:L2$.L2$."
.":. I....$. I.1 . KL:L3$.L3$."-":. I...
.$....T$. KOP PRINTEN.Q.^$L$.LM$.L$:. PT
.2 . 9330...H$. L$:L$."":....R$SR$.L$:. 
350:.360...|$L$."":SR$."":.....$. LINKER
 MARGE.5.B$LM..((RL.C(L$)).2).K.L$LM$.""
:. LM.0 . ..J.V$. Z.1 . LM:LM$.LM$." ":.
 Z.P..$.....%. 2910:. Z.1 . 3:. 250:. Z.
..&%N$."U KUNT NU EEN NIEUW BLAD INSTELL
EN.".T.0%VE.12:. 3000:. 3100...N%. 2910:
. Z.1 . 3:. 250:. Z...X%N$."IK BEN BEZIG
!":M.5.!.B%VE.12:. 3000:..7..'N2$."EINDE
":.2910.O..'. Z.1 . 3:. 250:. Z.R.$'N$."
TOT DE VOLGENDE KEER!":M.5....'VE.12:. 3
000:.... NN3$."BESTAND INLEZEN":. 22000.
..*N. 2950:..A.4N. 3100:.....RN3$."BESTA
ND WEGSCHRIJVEN":. 22000....R. 2950:....
.R. 3100:.....U. 2950:.....U. 3100:..:..
]. SCHERM OP 40 KAR./REGEL.P.J]. HIER DE
 ROUTINE.V.T]..U.$^. SCHERM OP 160 KAR./
REGEL....^. HIER DE ROUTINE...8^.....^. 
SCHERM SCHOON BIJ 160 KAR./REGEL.T..^. 1
00:. HIER DE ROUTINE.Z..^.....A. 200....
B. "JANUARI","FEBRUARI","MAART"."..B. "A
PRIL","MEI","JUNI".F. B. "JULI","AUGUSTU
S","SEPTEMBER".L.*B. "OKTOBER","NOVEMBER
","DECEMBER"...PB. "VRIJDAG","ZATERDAG",
"ZONDAG"...ZB. "MAANDAG","DINSDAG","WOEN
SDAG".G..B. "DONDERDAG".M.0U....:U. BASI
S-1...DU. HCC-4/89.....:AUTH.    :      
J. HAUBRICH.,...:                  EINDH
OVEN.N...:               THE NETHERL.S..
.

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL