VISI.C-16

00000000: 01 10 29 10 00 00 8F 20  2A 2A 2A 2A 2A 2A 2A 2A  |..).... ********|
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 00 42 10 05 00 8F 20  |*********.B.... |
00000030: 20 20 20 20 20 20 20 20  20 56 49 53 49 2E 4C 49  |         VISI.LI|
00000040: 53 54 00 5F 10 0A 00 8F  20 20 20 20 20 20 20 2D  |ST._....       -|
00000050: 3D 3D 3D 3D 3D 3D 3D 3D  3D 3D 3D 3D 3D 3D 2D 00  |==============-.|
00000060: 83 10 0F 00 8F 20 20 4C  49 53 54 45 4E 20 56 41  |.....  LISTEN VA|
00000070: 4E 20 42 41 53 49 43 2D  50 52 4F 47 52 41 4D 4D  |N BASIC-PROGRAMM|
00000080: 41 27 53 00 A7 10 14 00  8F 20 4B 4F 4E 54 52 4F  |A'S...... KONTRO|
00000090: 4C 45 20 53 59 4D 42 4F  4C 45 4E 20 55 49 54 47  |LE SYMBOLEN UITG|
000000A0: 45 50 52 49 4E 54 2E 00  C7 10 19 00 8F 20 47 45  |EPRINT....... GE|
000000B0: 42 52 55 49 4B 3A 20 50  52 49 4E 54 45 52 20 26  |BRUIK: PRINTER &|
000000C0: 20 53 43 48 45 52 4D 00  E0 10 1E 00 8F 20 56 4F  | SCHERM...... VO|
000000D0: 4F 52 20 43 2D 31 36 20  26 20 50 4C 55 53 2F 34  |OR C-16 & PLUS/4|
000000E0: 00 E6 10 23 00 8F 00 07  11 28 00 8F 20 50 52 4F  |...#.....(.. PRO|
000000F0: 47 52 41 4D 4D 41 20 4F  4E 54 57 49 4B 4B 45 4C  |GRAMMA ONTWIKKEL|
00000100: 44 20 44 4F 4F 52 3A 00  24 11 2D 00 8F 20 4A 41  |D DOOR:.$.-.. JA|
00000110: 4E 20 42 4F 44 5A 49 4E  47 41 2C 20 42 4C 41 52  |N BODZINGA, BLAR|
00000120: 49 43 55 4D 00 2A 11 32  00 8F 00 3E 11 37 00 8F  |ICUM.*.2...>.7..|
00000130: 20 38 35 31 31 32 38 2E  35 28 43 31 36 29 00 65  | 851128.5(C16).e|
00000140: 11 3C 00 8F 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.<..************|
00000150: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000160: 2A 2A 2A 2A 2A 00 88 11  63 00 8F 20 20 2D 2D 2D  |*****...c..  ---|
00000170: 2D 20 20 42 45 47 49 4E  20 50 52 4F 47 52 41 4D  |-  BEGIN PROGRAM|
00000180: 4D 41 20 20 2D 2D 2D 2D  00 A5 11 64 00 99 C7 28  |MA  ----...d...(|
00000190: 31 34 29 20 20 20 20 20  20 3A 8F 20 54 45 4B 53  |14)      :. TEKS|
000001A0: 54 4D 4F 44 45 00 D6 11  6E 00 99 22 93 11 11 1D  |TMODE...n.."....|
000001B0: 1D 1D C4 49 54 20 50 52  4F 47 52 41 4D 4D 41 20  |...IT PROGRAMMA |
000001C0: 47 45 42 52 55 49 4B 54  20 12 C4 C9 D3 CB 2D 44  |GEBRUIKT .....-D|
000001D0: 52 49 56 45 92 22 00 F9  11 78 00 8D 32 30 30 30  |RIVE."...x..2000|
000001E0: 20 20 20 20 20 20 20 20  20 20 3A 8F 20 4D 41 4B  |          :. MAK|
000001F0: 45 4E 20 41 52 52 41 59  53 00 26 12 82 00 99 A3  |EN ARRAYS.&.....|
00000200: 35 29 22 11 12 C6 49 4C  45 4E 41 41 4D 92 20 56  |5)"...ILENAAM. V|
00000210: 41 4E 20 54 45 20 4C 49  53 54 45 4E 20 20 20 20  |AN TE LISTEN    |
00000220: 20 20 20 20 20 22 00 4A  12 8C 00 99 A3 35 29 22  |     ".J.....5)"|
00000230: 50 52 4F 47 52 41 4D 4D  41 20 28 4F 50 20 44 49  |PROGRAMMA (OP DI|
00000240: 53 4B 29 22 3B 3A 85 50  47 24 00 7D 12 96 00 4B  |SK)";:.PG$.}...K|
00000250: 52 24 B2 22 20 20 20 20  20 20 20 CC C9 D3 D4 C9  |R$."       .....|
00000260: CE C7 20 50 52 4F 47 52  41 4D 4D 41 20 3A 20 22  |.. PROGRAMMA : "|
00000270: AA 50 47 24 AA 22 20 20  50 41 47 2E 22 00 90 12  |.PG$."  PAG."...|
00000280: A0 00 50 47 24 B2 50 47  24 AA 22 2C 50 2C 52 22  |..PG$.PG$.",P,R"|
00000290: 00 BA 12 AA 00 44 56 B2  38 3A 53 41 B2 32 20 20  |.....DV.8:SA.2  |
000002A0: 20 20 20 20 20 20 20 3A  8F 20 44 45 56 49 43 45  |       :. DEVICE|
000002B0: 2B 53 45 43 2E 41 44 52  45 53 00 E8 12 B4 00 99  |+SEC.ADRES......|
000002C0: A3 35 29 22 11 CC 49 53  54 20 4F 50 20 12 D3 92  |.5)"..IST OP ...|
000002D0: 43 48 45 52 4D 20 4F 46  20 12 D0 92 52 49 4E 54  |CHERM OF ...RINT|
000002E0: 45 52 22 3B 3A 85 50 24  00 01 13 BE 00 50 24 B2  |ER";:.P$.....P$.|
000002F0: C7 28 C6 28 C8 28 50 24  2C 31 29 29 AF 31 32 37  |.(.(.(P$,1)).127|
00000300: 29 00 1A 13 C8 00 8B 50  24 B3 B1 22 53 22 AF 50  |)......P$.."S".P|
00000310: 24 B3 B1 22 50 22 A7 31  38 30 00 30 13 D2 00 8B  |$.."P".180.0....|
00000320: 50 24 B2 22 53 22 A7 50  53 B2 33 3A 89 32 38 30  |P$."S".PS.3:.280|
00000330: 00 56 13 DC 00 99 A3 35  29 22 11 C4 45 56 49 43  |.V.....5)"..EVIC|
00000340: 45 4E 55 4D 4D 45 52 20  50 52 49 4E 54 45 52 20  |ENUMMER PRINTER |
00000350: 22 3B 3A 85 50 53 00 7D  13 E6 00 99 A3 35 29 22  |";:.PS.}.....5)"|
00000360: 11 C1 41 4E 54 41 4C 20  52 45 47 45 4C 53 20 50  |..ANTAL REGELS P|
00000370: 45 52 20 42 4C 41 44 22  3B 3A 85 52 47 00 A8 13  |ER BLAD";:.RG...|
00000380: F0 00 99 A3 35 29 22 11  C1 41 4E 54 41 4C 20 4B  |....5)"..ANTAL K|
00000390: 41 52 41 4B 54 45 52 53  20 50 45 52 20 52 45 47  |ARAKTERS PER REG|
000003A0: 45 4C 22 3B 3A 85 4B 52  00 D5 13 FA 00 99 A3 35  |EL";:.KR.......5|
000003B0: 29 22 11 12 D0 52 49 4E  54 45 52 20 41 41 4E 5A  |)"...RINTER AANZ|
000003C0: 45 54 54 45 4E 20 2F 20  54 59 50 20 3E D3 50 41  |ETTEN / TYP >.PA|
000003D0: 54 49 45 3C 22 00 EC 13  04 01 A1 41 24 3A 8B 41  |TIE<"......A$:.A|
000003E0: 24 B3 B1 C7 28 33 32 29  A7 32 36 30 00 21 14 0E  |$...(32).260.!..|
000003F0: 01 99 A3 35 29 22 91 A0  A0 3E 3E 3E 3E 20 20 D0  |...5)"...>>>>  .|
00000400: 52 49 4E 54 45 52 20 49  4E 20 4F 52 44 45 20 20  |RINTER IN ORDE  |
00000410: 20 20 20 3C 3C 3C 3C 20  20 20 20 20 20 20 20 20  |   <<<<         |
00000420: 22 00 52 14 18 01 8B 50  53 B2 33 A7 99 A3 35 29  |".R....PS.3...5)|
00000430: 22 11 C1 41 4E 54 41 4C  20 4B 41 52 41 4B 54 45  |"..ANTAL KARAKTE|
00000440: 52 53 20 50 45 52 20 52  45 47 45 4C 22 3B 3A 85  |RS PER REGEL";:.|
00000450: 4B 52 00 74 14 22 01 8F  20 2A 2A 2A 2A 20 20 49  |KR.t.".. ****  I|
00000460: 4E 49 54 49 41 4C 49 53  45 52 45 4E 20 2A 2A 2A  |NITIALISEREN ***|
00000470: 2A 2A 2A 2A 00 91 14 2C  01 9F 31 35 2C 28 44 56  |****...,..15,(DV|
00000480: 29 2C 31 35 20 20 3A 8F  20 46 E0 4B 41 4E 41 41  |),15  :. F.KANAA|
00000490: 4C 00 BF 14 36 01 9F 32  2C 28 44 56 29 2C 28 53  |L...6..2,(DV),(S|
000004A0: 41 29 2C 50 47 24 20 20  3A 8F 20 4F 50 45 4E 45  |A),PG$  :. OPENE|
000004B0: 4E 20 50 52 4F 47 52 41  4D 4D 41 46 49 4C 45 00  |N PROGRAMMAFILE.|
000004C0: E0 14 40 01 8B 50 53 B2  33 A7 99 22 93 22 20 20  |..@..PS.3.."."  |
000004D0: 20 3A 8F 20 43 4C 45 41  52 20 53 43 48 45 52 4D  | :. CLEAR SCHERM|
000004E0: 00 F9 14 4A 01 84 31 35  2C 45 4E 2C 45 4D 24 3A  |...J..15,EN,EM$:|
000004F0: 8B 45 4E B2 30 A7 33 36  30 00 15 15 54 01 99 A3  |.EN.0.360...T...|
00000500: 35 29 22 11 D3 20 CF 20  D2 20 D2 20 D9 20 12 22  |5)".. . . . . ."|
00000510: 45 4D 24 3A 99 00 25 15  5E 01 A0 32 3A A0 31 35  |EM$:..%.^..2:.15|
00000520: 3A 89 31 33 30 00 4A 15  68 01 8F 20 2A 2A 2A 2A  |:.130.J.h.. ****|
00000530: 20 4F 50 45 4E 45 4E 20  50 52 49 4E 54 2D 44 45  | OPENEN PRINT-DE|
00000540: 56 49 43 45 20 2A 2A 2A  2A 2A 00 75 15 72 01 52  |VICE *****.u.r.R|
00000550: 4C B2 30 3A 4B 4C B2 30  3A 54 45 B2 31 3A 42 4E  |L.0:KL.0:TE.1:BN|
00000560: B2 32 20 3A 8F 20 54 45  4C 4C 45 52 53 20 50 52  |.2 :. TELLERS PR|
00000570: 49 4E 54 45 52 00 97 15  7C 01 45 4C 24 B2 22 20  |INTER...|.EL$." |
00000580: 20 2A 2A 2A A0 C5 C9 CE  C4 C5 20 CC C9 D3 D4 C9  | ***...... .....|
00000590: CE C7 20 2A 2A 2A 22 00  A3 15 86 01 9F 34 2C 28  |.. ***"......4,(|
000005A0: 50 53 29 00 B9 15 90 01  98 34 2C 4B 52 24 3B 31  |PS)......4,KR$;1|
000005B0: 3A 98 34 20 3A 52 4C B2  33 00 DE 15 9A 01 A1 23  |:.4 :RL.3......#|
000005C0: 32 2C 53 31 24 2C 53 32  24 20 20 20 20 20 20 20  |2,S1$,S2$       |
000005D0: 3A 8F 20 53 54 41 52 54  20 41 44 52 45 53 00 FC  |:. START ADRES..|
000005E0: 15 A4 01 8D 31 30 30 30  3A 89 34 34 30 3A 8F 20  |....1000:.440:. |
000005F0: 52 45 47 45 4C 4E 55 4D  4D 45 52 53 00 1E 16 AE  |REGELNUMMERS....|
00000600: 01 A1 23 32 2C 41 24 3A  8B 41 24 B2 22 22 A7 8D  |..#2,A$:.A$.""..|
00000610: 31 30 30 30 3A 8B A8 4F  4B A7 33 30 30 30 00 43  |1000:..OK.3000.C|
00000620: 16 B8 01 8F 20 2A 2A 2A  20 41 46 48 41 4E 44 45  |.... *** AFHANDE|
00000630: 4C 45 4E 20 31 20 52 45  47 45 4C 20 2A 2A 2A 2A  |LEN 1 REGEL ****|
00000640: 2A 2A 2A 00 77 16 C2 01  8B 41 24 B2 C7 28 33 34  |***.w....A$..(34|
00000650: 29 A7 51 55 4F 54 45 25  B2 51 55 4F 54 45 25 AC  |).QUOTE%.QUOTE%.|
00000660: AB 31 3A 8B A8 51 55 4F  54 45 25 A7 8D 36 30 30  |.1:..QUOTE%..600|
00000670: 3A 43 52 24 B2 22 22 00  99 16 CC 01 8B A8 51 55  |:CR$."".......QU|
00000680: 4F 54 45 25 A7 35 32 30  20 20 20 3A 8F 20 42 41  |OTE%.520   :. BA|
00000690: 53 49 43 54 4F 4B 45 4E  53 00 BC 16 D6 01 43 4F  |SICTOKENS.....CO|
000006A0: 24 B2 43 24 28 C6 28 41  24 29 29 20 20 20 20 20  |$.C$(.(A$))     |
000006B0: 20 3A 8F 20 4B 41 52 41  4B 54 45 52 00 D7 16 E0  | :. KARAKTER....|
000006C0: 01 8B 20 C3 28 43 52 24  29 B2 31 20 A7 8D 36 30  |.. .(CR$).1 ..60|
000006D0: 30 3A 20 89 35 33 30 00  F4 16 EA 01 8B 20 43 4F  |0: .530...... CO|
000006E0: 24 B3 B1 43 52 24 20 20  20 A7 8D 36 30 30 3A 20  |$..CR$   ..600: |
000006F0: 89 35 33 30 00 20 17 F4  01 54 45 B2 54 45 AA 31  |.530. ...TE.TE.1|
00000700: 20 20 20 20 20 20 20 20  20 3A 8F 20 54 45 4C 4C  |         :. TELL|
00000710: 45 52 20 47 45 4C 49 4A  4B 45 20 43 48 41 52 2E  |ER GELIJKE CHAR.|
00000720: 00 29 17 FE 01 89 35 34  30 00 50 17 08 02 98 34  |.)....540.P....4|
00000730: 2C 41 24 28 C6 28 41 24  29 29 3B 3A 4B 4C B2 4B  |,A$(.(A$));:KL.K|
00000740: 4C AA 42 25 28 C6 28 41  24 29 29 3A 89 35 33 30  |L.B%(.(A$)):.530|
00000750: 00 72 17 12 02 8B 4B 4C  B1 4B 52 AB 35 A7 98 34  |.r....KL.KR.5..4|
00000760: 3A 8D 31 35 30 30 3A 98  34 2C 53 24 3B 3A 4B 4C  |:.1500:.4,S$;:KL|
00000770: B2 36 00 80 17 1C 02 8B  53 54 B2 30 A7 34 33 30  |.6......ST.0.430|
00000780: 00 86 17 26 02 3A 00 AC  17 58 02 8F 20 2A 2A 2A  |...&.:...X.. ***|
00000790: 2A 20 50 52 49 4E 54 45  4E 20 54 55 53 53 45 4E  |* PRINTEN TUSSEN|
000007A0: 20 51 55 4F 54 45 53 20  2A 2A 2A 2A 00 BF 17 62  | QUOTES ****...b|
000007B0: 02 8B C3 28 43 52 24 29  B2 31 A7 54 45 B2 31 00  |...(CR$).1.TE.1.|
000007C0: CD 17 6C 02 8B 54 45 B2  31 A7 36 35 30 00 F4 17  |..l..TE.1.650...|
000007D0: 76 02 54 45 24 B2 C4 28  54 45 29 3A 54 45 24 B2  |v.TE$..(TE):TE$.|
000007E0: CA 28 54 45 24 2C 32 29  3A 4C 45 B2 C3 28 54 45  |.(TE$,2):LE..(TE|
000007F0: 24 29 AA 32 00 16 18 80  02 43 52 24 B2 22 5B 22  |$).2.....CR$."["|
00000800: AA 54 45 24 AA 22 58 22  AA CA 28 43 52 24 2C 32  |.TE$."X"..(CR$,2|
00000810: 29 3A 54 45 B2 31 00 32  18 8A 02 8B 43 52 24 B2  |):TE.1.2....CR$.|
00000820: 22 5B 53 50 41 54 49 45  5D 22 A7 43 52 24 B2 22  |"[SPATIE]".CR$."|
00000830: A0 22 00 68 18 8F 02 8B  28 C3 28 43 52 24 29 B1  |.".h....(.(CR$).|
00000840: 31 29 AF 28 28 4B 4C AA  C3 28 43 52 24 29 29 B1  |1).((KL..(CR$)).|
00000850: 4B 52 29 A7 37 30 30 3A  8F 20 4F 4D 53 43 48 52  |KR).700:. OMSCHR|
00000860: 2E 54 45 20 4C 41 4E 47  00 8B 18 94 02 98 34 2C  |.TE LANG......4,|
00000870: 43 52 24 3B 3A 4B 4C B2  4B 4C AA C3 28 43 52 24  |CR$;:KL.KL..(CR$|
00000880: 29 3A 43 52 24 B2 43 4F  24 3A 8E 00 91 18 9E 02  |):CR$.CO$:......|
00000890: 3A 00 B7 18 BC 02 8F 20  2A 2A 2A 20 54 45 20 4C  |:...... *** TE L|
000008A0: 41 4E 47 45 20 4F 4D 53  43 48 52 49 4A 56 49 4E  |ANGE OMSCHRIJVIN|
000008B0: 47 20 2A 2A 2A 2A 2A 00  C4 18 C6 02 51 51 B2 4B  |G *****.....QQ.K|
000008C0: 52 AB 4B 4C 00 EE 18 D0  02 98 34 2C C8 28 43 52  |R.KL......4,.(CR|
000008D0: 24 2C 51 51 29 3A 8D 31  35 30 30 3A 98 34 2C 53  |$,QQ):.1500:.4,S|
000008E0: 24 3B CA 28 43 52 24 2C  51 51 AA 31 29 3B 00 09  |$;.(CR$,QQ.1);..|
000008F0: 19 DA 02 4B 4C B2 36 AA  C3 28 43 52 24 29 AB 51  |...KL.6..(CR$).Q|
00000900: 51 3A 43 52 24 B2 43 4F  24 00 0F 19 E4 02 8E 00  |Q:CR$.CO$.......|
00000910: 34 19 E8 03 8F 20 2A 2A  2A 2A 20 41 46 48 41 4E  |4.... **** AFHAN|
00000920: 44 45 4C 45 4E 20 52 45  47 45 4C 4E 55 4D 4D 45  |DELEN REGELNUMME|
00000930: 52 2A 2A 2A 00 4F 19 F2  03 8B 51 55 4F 54 45 25  |R***.O....QUOTE%|
00000940: B2 AB 31 A7 8D 36 30 30  3A 43 52 24 B2 22 22 00  |..1..600:CR$."".|
00000950: 59 19 FC 03 8D 31 35 30  30 00 8B 19 06 04 4F 4B  |Y....1500.....OK|
00000960: B2 AB 31 20 20 20 20 20  20 20 20 20 20 20 3A 8F  |..1           :.|
00000970: 20 4F 4B 3D 56 4C 41 47  20 4F 50 20 45 49 4E 44  | OK=VLAG OP EIND|
00000980: 45 20 50 52 4F 47 52 41  4D 4D 41 00 A1 19 10 04  |E PROGRAMMA.....|
00000990: 8B 20 4B 4C B3 B1 36 20  A7 98 34 3A 89 31 30 37  |. KL..6 ..4:.107|
000009A0: 30 00 C1 19 1A 04 8B 20  50 53 B3 B1 33 20 A7 98  |0...... PS..3 ..|
000009B0: 34 2C C7 28 31 34 31 29  3B 3A 52 4C B2 52 4C AB  |4,.(141);:RL.RL.|
000009C0: 31 00 DC 19 24 04 8B 20  50 53 20 B2 33 20 A7 98  |1...$.. PS .3 ..|
000009D0: 34 2C 22 9D 9D 9D 9D 9D  9D 9D 22 3B 00 FD 19 2E  |4,".......";....|
000009E0: 04 A1 23 32 2C 4C 24 3A  A1 23 32 2C 4C 24 3A 8F  |..#2,L$:.#2,L$:.|
000009F0: 20 4C 49 4E 4B 20 50 4F  49 4E 54 45 52 00 19 1A  | LINK POINTER...|
00000A00: 38 04 8B 4C 24 B2 22 22  A7 98 34 3A 98 34 2C 45  |8..L$.""..4:.4,E|
00000A10: 4C 24 3A 4F 4B B2 30 3A  8E 00 36 1A 42 04 A1 23  |L$:OK.0:..6.B..#|
00000A20: 32 2C 4E 31 24 3A 8B 4E  31 24 B2 22 22 A7 4E 31  |2,N1$:.N1$."".N1|
00000A30: 24 B2 C7 28 30 29 00 53  1A 4C 04 A1 23 32 2C 4E  |$..(0).S.L..#2,N|
00000A40: 32 24 3A 8B 4E 32 24 B2  22 22 A7 4E 32 24 B2 C7  |2$:.N2$."".N2$..|
00000A50: 28 30 29 00 80 1A 56 04  52 24 B2 C4 28 C6 28 4E  |(0)...V.R$..(.(N|
00000A60: 32 24 29 AC 32 35 36 AA  C6 28 4E 31 24 29 29 20  |2$).256..(N1$)) |
00000A70: 20 3A 8F 20 52 45 47 45  4C 2D 4E 55 4D 4D 45 52  | :. REGEL-NUMMER|
00000A80: 00 A0 1A 60 04 98 34 2C  C8 28 53 24 2C 36 AB C3  |...`..4,.(S$,6..|
00000A90: 28 52 24 29 29 52 24 22  20 22 3B 3A 4B 4C B2 36  |(R$))R$" ";:KL.6|
00000AA0: 00 CD 1A 6A 04 A1 23 32  2C 41 24 20 20 20 20 20  |...j..#2,A$     |
00000AB0: 20 20 20 20 20 20 3A 8F  20 42 59 54 45 20 42 41  |      :. BYTE BA|
00000AC0: 53 49 43 20 50 52 4F 47  52 41 4D 4D 41 00 F5 1A  |SIC PROGRAMMA...|
00000AD0: 74 04 51 55 4F 54 45 25  B2 31 20 20 20 20 20 20  |t.QUOTE%.1      |
00000AE0: 20 20 20 20 3A 8F 20 47  45 45 4E 20 51 55 4F 54  |    :. GEEN QUOT|
00000AF0: 45 4D 4F 44 45 00 FB 1A  7E 04 8E 00 01 1B 88 04  |EMODE...~.......|
00000B00: 3A 00 26 1B DC 05 8F 20  2A 2A 20 4B 4F 4E 54 52  |:.&.... ** KONTR|
00000B10: 4F 4C 45 20 4F 50 20 52  45 47 45 4C 41 41 4E 54  |OLE OP REGELAANT|
00000B20: 41 4C 20 2A 2A 2A 00 3D  1B E6 05 52 4C B2 52 4C  |AL ***.=...RL.RL|
00000B30: AA 31 3A 8B 50 53 B2 33  A7 31 35 33 30 00 70 1B  |.1:.PS.3.1530.p.|
00000B40: F0 05 8B 52 4C B1 52 47  AB 33 A7 52 4C B2 33 3A  |...RL.RG.3.RL.3:|
00000B50: 81 49 B2 30 A4 32 3A 98  34 3A 82 3A 98 34 2C 4B  |.I.0.2:.4:.:.4,K|
00000B60: 52 24 3B 42 4E 3A 42 4E  B2 42 4E AA 31 3A 98 34  |R$;BN:BN.BN.1:.4|
00000B70: 00 76 1B FA 05 8E 00 7C  1B 04 06 3A 00 A1 1B D0  |.v.....|...:....|
00000B80: 07 8F 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |..**************|
00000B90: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000BA0: 2A 00 BE 1B DA 07 8F 20  49 4E 4C 45 5A 45 4E 20  |*...... INLEZEN |
00000BB0: 44 41 54 41 20 49 4E 20  41 52 52 41 59 53 00 ED  |DATA IN ARRAYS..|
00000BC0: 1B E4 07 99 A3 35 29 22  11 12 C5 20 45 20 4E 20  |.....5)"... E N |
00000BD0: 20 20 4F 20 47 20 45 20  4E 20 42 20 4C 20 49 20  |  O G E N B L I |
00000BE0: 4B 20 20 53 2E 56 2E 50  2E 92 91 91 22 00 30 1C  |K  S.V.P....".0.|
00000BF0: EE 07 86 41 24 28 32 35  35 29 2C 43 24 28 32 35  |...A$(255),C$(25|
00000C00: 35 29 20 20 3A 8F 20 41  24 3D 42 41 53 49 43 20  |5)  :. A$=BASIC |
00000C10: 54 4F 4B 45 4E 53 2F 43  24 3D 4B 41 52 41 4B 54  |TOKENS/C$=KARAKT|
00000C20: 45 52 53 20 2B 20 56 45  52 4B 4C 41 52 49 4E 47  |ERS + VERKLARING|
00000C30: 00 50 1C F8 07 86 42 25  28 32 35 35 29 20 20 20  |.P....B%(255)   |
00000C40: 3A 8F 20 4C 45 4E 47 54  45 20 54 4F 4B 45 4E 53  |:. LENGTE TOKENS|
00000C50: 00 79 1C 02 08 81 49 B2  30 A4 32 35 35 3A 43 24  |.y....I.0.255:C$|
00000C60: 28 49 29 B2 C7 28 49 29  3A 82 20 20 3A 8F 20 4C  |(I)..(I):.  :. L|
00000C70: 45 5A 45 4E 20 4B 41 52  2E 00 A4 1C 0C 08 81 49  |EZEN KAR.......I|
00000C80: B2 30 A4 31 32 37 3A 41  24 28 49 29 B2 C7 28 49  |.0.127:A$(I)..(I|
00000C90: 29 3A 82 20 20 3A 8F 20  4C 45 5A 45 4E 20 54 4F  |):.  :. LEZEN TO|
00000CA0: 4B 45 4E 53 00 AE 1C 11  08 49 B2 31 32 38 00 D2  |KENS.....I.128..|
00000CB0: 1C 16 08 87 41 24 28 49  29 3A 8B 41 24 28 49 29  |....A$(I):.A$(I)|
00000CC0: B3 B1 22 2D 31 22 A7 49  B2 49 AA 31 3A 89 32 30  |.."-1".I.I.1:.20|
00000CD0: 37 30 00 DF 1C 20 08 41  24 28 49 29 B2 22 22 00  |70... .A$(I)."".|
00000CE0: EF 1C 2A 08 43 24 28 35  29 B2 22 D7 C9 D4 22 00  |..*.C$(5)."...".|
00000CF0: 01 1D 34 08 43 24 28 31  37 29 B2 22 4E 45 45 52  |..4.C$(17)."NEER|
00000D00: 22 00 16 1D 3E 08 43 24  28 31 38 29 B2 22 D2 D6  |"...>.C$(18)."..|
00000D10: D3 2D 41 41 4E 22 00 28  1D 48 08 43 24 28 31 39  |.-AAN".(.H.C$(19|
00000D20: 29 B2 22 C8 CF CD C5 22  00 3C 1D 52 08 43 24 28  |)."....".<.R.C$(|
00000D30: 32 30 29 B2 22 C4 C5 CC  45 54 45 22 00 4E 1D 5C  |20)."...ETE".N.\|
00000D40: 08 43 24 28 32 38 29 B2  22 D2 CF CF C4 22 00 62  |.C$(28)."....".b|
00000D50: 1D 66 08 43 24 28 32 39  29 B2 22 52 45 43 48 54  |.f.C$(29)."RECHT|
00000D60: 53 22 00 75 1D 70 08 43  24 28 33 30 29 B2 22 C7  |S".u.p.C$(30).".|
00000D70: D2 CF C5 CE 22 00 88 1D  7A 08 43 24 28 33 31 29  |...."...z.C$(31)|
00000D80: B2 22 C2 CC C1 D5 D7 22  00 9C 1D 7F 08 43 24 28  |.".....".....C$(|
00000D90: 33 32 29 B2 22 53 50 41  54 49 45 22 00 B1 1D 84  |32)."SPATIE"....|
00000DA0: 08 43 24 28 31 32 39 29  B2 22 4F 52 41 4E 4A 45  |.C$(129)."ORANJE|
00000DB0: 22 00 C4 1D 8E 08 43 24  28 31 33 33 29 B2 22 20  |".....C$(133)." |
00000DC0: C6 31 20 22 00 D7 1D 98  08 43 24 28 31 33 34 29  |.1 ".....C$(134)|
00000DD0: B2 22 20 C6 33 20 22 00  EA 1D A2 08 43 24 28 31  |." .3 ".....C$(1|
00000DE0: 33 35 29 B2 22 20 C6 35  20 22 00 FD 1D AC 08 43  |35)." .5 ".....C|
00000DF0: 24 28 31 33 36 29 B2 22  20 C6 37 20 22 00 10 1E  |$(136)." .7 "...|
00000E00: B6 08 43 24 28 31 33 37  29 B2 22 20 C6 32 20 22  |..C$(137)." .2 "|
00000E10: 00 23 1E C0 08 43 24 28  31 33 38 29 B2 22 20 C6  |.#...C$(138)." .|
00000E20: 34 20 22 00 36 1E CA 08  43 24 28 31 33 39 29 B2  |4 ".6...C$(139).|
00000E30: 22 20 C6 36 20 22 00 49  1E D4 08 43 24 28 31 34  |" .6 ".I...C$(14|
00000E40: 30 29 B2 22 20 C6 38 20  22 00 5D 1E DE 08 43 24  |0)." .8 ".]...C$|
00000E50: 28 31 34 34 29 B2 22 DA  D7 C1 D2 D4 22 00 6E 1E  |(144).".....".n.|
00000E60: E8 08 43 24 28 31 34 35  29 B2 22 4F 50 22 00 84  |..C$(145)."OP"..|
00000E70: 1E F2 08 43 24 28 31 34  36 29 B2 22 D2 D6 D3 2D  |...C$(146)."...-|
00000E80: 55 49 54 22 00 9B 1E FC  08 43 24 28 31 34 37 29  |UIT".....C$(147)|
00000E90: B2 22 C3 CC D2 2D C8 CF  CD C5 22 00 B0 1E 06 09  |."...-....".....|
00000EA0: 43 24 28 31 34 38 29 B2  22 C9 CE D3 45 52 54 22  |C$(148)."...ERT"|
00000EB0: 00 C4 1E 10 09 43 24 28  31 34 39 29 B2 22 42 52  |.....C$(149)."BR|
00000EC0: 55 49 4E 22 00 D9 1E 1A  09 43 24 28 31 35 30 29  |UIN".....C$(150)|
00000ED0: B2 22 4C 2E 52 4F 4F 44  22 00 EF 1E 24 09 43 24  |."L.ROOD"...$.C$|
00000EE0: 28 31 35 31 29 B2 22 47  52 49 4A 53 20 31 22 00  |(151)."GRIJS 1".|
00000EF0: 05 1F 2E 09 43 24 28 31  35 32 29 B2 22 47 52 49  |....C$(152)."GRI|
00000F00: 4A 53 20 32 22 00 1B 1F  38 09 43 24 28 31 35 33  |JS 2"...8.C$(153|
00000F10: 29 B2 22 4C 2E 47 52 4F  45 4E 22 00 31 1F 42 09  |)."L.GROEN".1.B.|
00000F20: 43 24 28 31 35 34 29 B2  22 4C 2E 42 4C 41 55 57  |C$(154)."L.BLAUW|
00000F30: 22 00 47 1F 4C 09 43 24  28 31 35 35 29 B2 22 47  |".G.L.C$(155)."G|
00000F40: 52 49 4A 53 20 33 22 00  5C 1F 56 09 43 24 28 31  |RIJS 3".\.V.C$(1|
00000F50: 35 36 29 B2 22 D0 D5 D2  D0 C5 D2 22 00 70 1F 60  |56)."......".p.`|
00000F60: 09 43 24 28 31 35 37 29  B2 22 4C 49 4E 4B 53 22  |.C$(157)."LINKS"|
00000F70: 00 83 1F 6A 09 43 24 28  31 35 38 29 B2 22 C7 C5  |...j.C$(158)."..|
00000F80: C5 CC 22 00 97 1F 74 09  43 24 28 31 35 39 29 B2  |.."...t.C$(159).|
00000F90: 22 C3 D9 C1 C1 CE 22 00  B2 1F 7E 09 43 24 28 31  |"....."...~.C$(1|
00000FA0: 36 30 29 B2 22 53 48 49  46 54 2D D3 D0 C1 D4 C9  |60)."SHIFT-.....|
00000FB0: C5 22 00 C7 1F 83 09 43  24 28 32 35 35 29 B2 22  |.".....C$(255)."|
00000FC0: 3E 20 D0 C9 20 3C 22 00  D4 1F 88 09 81 49 B2 30  |> .. <"......I.0|
00000FD0: A4 32 35 35 00 E7 1F 92  09 42 25 28 49 29 B2 C3  |.255.....B%(I)..|
00000FE0: 28 41 24 28 49 29 29 00  0B 20 9C 09 8B C3 28 43  |(A$(I)).. ....(C|
00000FF0: 24 28 49 29 29 B1 31 A7  43 24 28 49 29 B2 22 5B  |$(I)).1.C$(I)."[|
00001000: 22 AA 43 24 28 49 29 AA  22 5D 22 00 11 20 B0 09  |".C$(I)."]".. ..|
00001010: 82 00 3D 20 BA 09 53 24  B2 22 A0 A0 A0 A0 A0 A0  |..= ..S$."......|
00001020: A0 22 20 20 20 20 3A 8F  20 52 45 47 45 4C 4E 55  |."    :. REGELNU|
00001030: 4D 4D 45 52 20 54 52 41  49 4C 49 4E 47 00 43 20  |MMER TRAILING.C |
00001040: C4 09 8E 00 67 20 B8 0B  8F 20 2A 2A 2A 2A 20 53  |....g ... **** S|
00001050: 4C 55 49 54 45 4E 20 50  52 4F 47 52 41 4D 4D 41  |LUITEN PROGRAMMA|
00001060: 20 2A 2A 2A 2A 2A 2A 00  71 20 C2 0B 98 34 3A A0  | ******.q ...4:.|
00001070: 34 00 7C 20 CC 0B A0 32  3A A0 31 35 00 A0 20 D6  |4.| ...2:.15.. .|
00001080: 0B 99 A3 35 29 22 11 12  C4 52 55 4B 20 54 4F 45  |...5)"...RUK TOE|
00001090: 54 53 20 56 4F 4F 52 20  56 45 52 56 4F 4C 47 22  |TS VOOR VERVOLG"|
000010A0: 00 B4 20 E0 0B A1 41 24  3A 8B 41 24 B2 22 22 A7  |.. ...A$:.A$."".|
000010B0: 33 30 34 30 00 DA 20 EA  0B 99 22 93 22 3A 89 31  |3040.. ...".":.1|
000010C0: 33 30 20 3A 8F 20 4C 49  53 54 45 4E 20 56 4F 4C  |30 :. LISTEN VOL|
000010D0: 47 45 4E 44 20 50 52 4F  47 2E 00 FE 20 88 13 8F  |GEND PROG... ...|
000010E0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000010F0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 00 2C  |**************.,|
00001100: 21 EC 13 83 20 45 4E 44  2C 46 4F 52 2C 4E 45 58  |!... END,FOR,NEX|
00001110: 54 2C 44 41 54 41 2C 49  4E 50 55 54 23 2C 49 4E  |T,DATA,INPUT#,IN|
00001120: 50 55 54 2C 44 49 4D 2C  52 45 41 44 00 5B 21 F6  |PUT,DIM,READ.[!.|
00001130: 13 83 20 4C 45 54 2C 47  4F 54 4F 2C 52 55 4E 2C  |.. LET,GOTO,RUN,|
00001140: 49 46 2C 52 45 53 54 4F  52 45 2C 47 4F 53 55 42  |IF,RESTORE,GOSUB|
00001150: 2C 52 45 54 55 52 4E 2C  52 45 4D 00 88 21 00 14  |,RETURN,REM..!..|
00001160: 83 20 53 54 4F 50 2C 4F  4E 2C 57 41 49 54 2C 4C  |. STOP,ON,WAIT,L|
00001170: 4F 41 44 2C 53 41 56 45  2C 56 45 52 49 46 59 2C  |OAD,SAVE,VERIFY,|
00001180: 44 45 46 2C 50 4F 4B 45  00 B6 21 0A 14 83 20 50  |DEF,POKE..!... P|
00001190: 52 49 4E 54 23 2C 50 52  49 4E 54 2C 43 4F 4E 54  |RINT#,PRINT,CONT|
000011A0: 2C 4C 49 53 54 2C 43 4C  52 2C 43 4D 44 2C 53 59  |,LIST,CLR,CMD,SY|
000011B0: 53 2C 4F 50 45 4E 00 DF  21 14 14 83 20 43 4C 4F  |S,OPEN..!... CLO|
000011C0: 53 45 2C 47 45 54 2C 4E  45 57 2C 54 41 42 28 2C  |SE,GET,NEW,TAB(,|
000011D0: 54 4F 2C 46 4E 2C 53 50  43 28 2C 54 48 45 4E 00  |TO,FN,SPC(,THEN.|
000011E0: FC 21 1E 14 83 20 4E 4F  54 2C 53 54 45 50 2C 2B  |.!... NOT,STEP,+|
000011F0: 2C 2D 2C 2A 2C 2F 2C 5E  2C 41 4E 44 00 1B 22 28  |,-,*,/,^,AND.."(|
00001200: 14 83 20 4F 52 2C 3E 2C  3D 2C 3C 2C 53 47 4E 2C  |.. OR,>,=,<,SGN,|
00001210: 49 4E 54 2C 41 42 53 2C  55 53 52 00 31 22 46 14  |INT,ABS,USR.1"F.|
00001220: 83 20 46 52 45 2C 50 4F  53 2C 53 51 52 2C 52 4E  |. FRE,POS,SQR,RN|
00001230: 44 00 4F 22 50 14 83 20  4C 4F 47 2C 45 58 50 2C  |D.O"P.. LOG,EXP,|
00001240: 43 4F 53 2C 53 49 4E 2C  54 41 4E 2C 41 54 4E 00  |COS,SIN,TAN,ATN.|
00001250: 70 22 5A 14 83 20 50 45  45 4B 2C 4C 45 4E 2C 53  |p"Z.. PEEK,LEN,S|
00001260: 54 52 24 2C 56 41 4C 2C  41 53 43 2C 43 48 52 24  |TR$,VAL,ASC,CHR$|
00001270: 00 94 22 64 14 83 20 4C  45 46 54 24 2C 52 49 47  |.."d.. LEFT$,RIG|
00001280: 48 54 24 2C 4D 49 44 24  2C 47 4F 2C 52 47 52 2C  |HT$,MID$,GO,RGR,|
00001290: 52 43 4C 52 00 B6 22 6E  14 83 20 52 4C 55 4D 2C  |RCLR.."n.. RLUM,|
000012A0: 4A 4F 59 2C 52 44 4F 54  2C 44 45 43 2C 48 45 58  |JOY,RDOT,DEC,HEX|
000012B0: 24 2C 45 52 52 24 00 DE  22 78 14 83 20 49 4E 53  |$,ERR$.."x.. INS|
000012C0: 54 52 2C 45 4C 53 45 2C  52 45 53 55 4D 45 2C 54  |TR,ELSE,RESUME,T|
000012D0: 52 41 50 2C 54 52 4F 4E  2C 54 52 4F 46 46 00 07  |RAP,TRON,TROFF..|
000012E0: 23 82 14 83 20 53 4F 55  4E 44 2C 56 4F 4C 2C 41  |#... SOUND,VOL,A|
000012F0: 55 54 4F 2C 50 55 44 45  46 2C 47 52 41 50 48 49  |UTO,PUDEF,GRAPHI|
00001300: 43 2C 50 41 49 4E 54 00  30 23 8C 14 83 20 43 48  |C,PAINT.0#... CH|
00001310: 41 52 2C 42 4F 58 2C 43  49 52 43 4C 45 2C 47 53  |AR,BOX,CIRCLE,GS|
00001320: 48 41 50 45 2C 53 53 48  41 50 45 2C 44 52 41 57  |HAPE,SSHAPE,DRAW|
00001330: 00 58 23 96 14 83 20 4C  4F 43 41 54 45 2C 43 4F  |.X#... LOCATE,CO|
00001340: 4C 4F 52 2C 53 43 4E 43  4C 52 2C 53 43 41 4C 45  |LOR,SCNCLR,SCALE|
00001350: 2C 48 45 4C 50 2C 44 4F  00 85 23 A0 14 83 20 4C  |,HELP,DO..#... L|
00001360: 4F 4F 50 2C 45 58 49 54  2C 44 49 52 45 43 54 4F  |OOP,EXIT,DIRECTO|
00001370: 52 59 2C 44 53 41 56 45  2C 44 4C 4F 41 44 2C 48  |RY,DSAVE,DLOAD,H|
00001380: 45 41 44 45 52 00 B5 23  AA 14 83 20 53 43 52 41  |EADER..#... SCRA|
00001390: 54 43 48 2C 43 4F 4C 4C  45 43 54 2C 43 4F 50 59  |TCH,COLLECT,COPY|
000013A0: 2C 52 45 4E 41 4D 45 2C  42 41 43 4B 55 50 2C 44  |,RENAME,BACKUP,D|
000013B0: 45 4C 45 54 45 00 E2 23  B4 14 83 20 52 45 4E 55  |ELETE..#... RENU|
000013C0: 4D 42 45 52 2C 4B 45 59  2C 4D 4F 4E 49 54 4F 52  |MBER,KEY,MONITOR|
000013D0: 2C 55 53 49 4E 47 2C 55  4E 54 49 4C 2C 57 48 49  |,USING,UNTIL,WHI|
000013E0: 4C 45 00 EB 23 BE 14 83  20 2D 31 00 00 00        |LE..#... -1...  |

..).... ********************************
*.B....          VISI.LIST._....       -
==============-......  LISTEN VAN BASIC-
PROGRAMMA'S...... KONTROLE SYMBOLEN UITG
EPRINT..G.... GEBRUIK: PRINTER & SCHERM.
..... VOOR C-16 & PLUS/4...#.....(.. PRO
GRAMMA ONTWIKKELD DOOR:.$.-.. JAN BODZIN
GA, BLARICUM.*.2...>.7.. 851128.5(C16).E
.<..*********************************...
C..  ----  BEGIN PROGRAMMA  ----...D..G(
14)      :. TEKSTMODE.V.N.."......DIT PR
OGRAMMA GEBRUIKT .DISK-DRIVE."...X..2000
          :. MAKEN ARRAYS.&.....5)"..FIL
ENAAM. VAN TE LISTEN         ".J.....5)"
PROGRAMMA (OP DISK)";:.PG$.}...KR$."    
   LISTING PROGRAMMA : ".PG$."  PAG."...
 .PG$.PG$.",P,R".....DV.8:SA.2         :
. DEVICE+SEC.ADRES.......5)".LIST OP .S.
CHERM OF .P.RINTER";:.P$.....P$.G(F(H(P$
,1)).127)...H..P$.."S".P$.."P".180.0.R..
P$."S".PS.3:.280.V.....5)".DEVICENUMMER 
PRINTER ";:.PS.}.....5)".AANTAL REGELS P
ER BLAD";:.RG.......5)".AANTAL KARAKTERS
 PER REGEL";:.KR.U.....5)"..PRINTER AANZ
ETTEN / TYP >SPATIE<"......A$:.A$..G(32)
.260.!.....5)".  >>>>  PRINTER IN ORDE  
   <<<<         ".R....PS.3...5)".AANTAL
 KARAKTERS PER REGEL";:.KR.T.".. ****  I
NITIALISEREN *******...,..15,(DV),15  :.
 F.KANAAL...6..2,(DV),(SA),PG$  :. OPENE
N PROGRAMMAFILE...@..PS.3.."."   :. CLEA
R SCHERM...J..15,EN,EM$:.EN.0.360...T...
5)".S O R R Y ."EM$:..%.^. 2: 15:.130.J.
H.. **** OPENEN PRINT-DEVICE *****.U.R.R
L.0:KL.0:TE.1:BN.2 :. TELLERS PRINTER...
|.EL$."  *** EINDE LISTING ***"......4,(
PS)......4,KR$;1:.4 :RL.3......#2,S1$,S2
$       :. START ADRES......1000:.440:. 
REGELNUMMERS......#2,A$:.A$.""..1000:..O
K.3000.C.... *** AFHANDELEN 1 REGEL ****
***.W.B..A$.G(34).QUOTE%.QUOTE%..1:..QUO
TE%..600:CR$.""...L...QUOTE%.520   :. BA
SICTOKENS...V.CO$.C$(F(A$))      :. KARA
KTER.W.... C(CR$).1 ..600: .530...... CO
$..CR$   ..600: .530. ...TE.TE.1        
 :. TELLER GELIJKE CHAR..)....540.P....4
,A$(F(A$));:KL.KL.B%(F(A$)):.530.R....KL
.KR.5..4:.1500:.4,S$;:KL.6......ST.0.430
...&.:...X.. **** PRINTEN TUSSEN QUOTES 
****...B..C(CR$).1.TE.1.M.L..TE.1.650...
V.TE$.D(TE):TE$.J(TE$,2):LE.C(TE$).2....
.CR$."[".TE$."X".J(CR$,2):TE.1.2....CR$.
"[SPATIE]".CR$." ".H....(C(CR$).1).((KL.
C(CR$)).KR).700:. OMSCHR.TE LANG......4,
CR$;:KL.KL.C(CR$):CR$.CO$:......:...... 
*** TE LANGE OMSCHRIJVING *****.D.F.QQ.K
R.KL...P..4,H(CR$,QQ):.1500:.4,S$;J(CR$,
QQ.1);...Z.KL.6.C(CR$).QQ:CR$.CO$.......
4.... **** AFHANDELEN REGELNUMMER***.O..
..QUOTE%..1..600:CR$."".Y....1500.....OK
..1           :. OK=VLAG OP EINDE PROGRA
MMA...... KL..6 ..4:.1070.A.... PS..3 ..
4,G(141);:RL.RL.1...$.. PS .3 ..4,".....
..";......#2,L$:.#2,L$:. LINK POINTER...
8..L$.""..4:.4,EL$:OK.0:..6.B..#2,N1$:.N
1$."".N1$.G(0).S.L..#2,N2$:.N2$."".N2$.G
(0)...V.R$.D(F(N2$).256.F(N1$))  :. REGE
L-NUMMER. .`..4,H(S$,6.C(R$))R$" ";:KL.6
.M.J..#2,A$           :. BYTE BASIC PROG
RAMMA...T.QUOTE%.1          :. GEEN QUOT
EMODE...~.......:.&.... ** KONTROLE OP R
EGELAANTAL ***.=...RL.RL.1:.PS.3.1530.P.
...RL.RG.3.RL.3:.I.0.2:.4:.:.4,KR$;BN:BN
.BN.1:.4.V.....|...:...P..**************
*****************...Z.. INLEZEN DATA IN 
ARRAYS.......5)"..E E N   O G E N B L I 
K  S.V.P....".0....A$(255),C$(255)  :. A
$=BASIC TOKENS/C$=KARAKTERS + VERKLARING
.P....B%(255)   :. LENGTE TOKENS.Y....I.
0.255:C$(I).G(I):.  :. LEZEN KAR.......I
.0.127:A$(I).G(I):.  :. LEZEN TOKENS....
.I.128.R....A$(I):.A$(I).."-1".I.I.1:.20
70... .A$(I).""...*.C$(5)."WIT"...4.C$(1
7)."NEER"...>.C$(18)."RVS-AAN".(.H.C$(19
)."HOME".<.R.C$(20)."DELETE".N.\.C$(28).
"ROOD".B.F.C$(29)."RECHTS".U.P.C$(30)."G
ROEN"...Z.C$(31)."BLAUW"....C$(32)."SPA
TIE".....C$(129)."ORANJE".D...C$(133)." 
F1 ".W...C$(134)." F3 ".....C$(135)." F5
 ".....C$(136)." F7 ".....C$(137)." F2 "
.#...C$(138)." F4 ".6.J.C$(139)." F6 ".I
.T.C$(140)." F8 ".]...C$(144)."ZWART".N.
..C$(145)."OP".....C$(146)."RVS-UIT"....
.C$(147)."CLR-HOME".....C$(148)."INSERT"
.D...C$(149)."BRUIN".Y...C$(150)."L.ROOD
"...$.C$(151)."GRIJS 1".....C$(152)."GRI
JS 2"...8.C$(153)."L.GROEN".1.B.C$(154).
"L.BLAUW".G.L.C$(155)."GRIJS 3".\.V.C$(1
56)."PURPER".P.`.C$(157)."LINKS"...J.C$(
158)."GEEL"...T.C$(159)."CYAAN"...~.C$(1
60)."SHIFT-SPATIE".G...C$(255)."> PI <".
T....I.0.255.....B%(I).C(A$(I)).. ...C(C
$(I)).1.C$(I)."[".C$(I)."]".. ....= ..S$
."       "    :. REGELNUMMER TRAILING.C 
D...G ... **** SLUITEN PROGRAMMA ******.
Q B..4: 4.| L. 2: 15.  V...5)"..DRUK TOE
TS VOOR VERVOLG".. ...A$:.A$."".3040.Z .
..".":.130 :. LISTEN VOLGEND PROG... ...
******************************.,!... END
,FOR,NEXT,DATA,INPUT#,INPUT,DIM,READ.[!.
.. LET,GOTO,RUN,IF,RESTORE,GOSUB,RETURN,
REM..!... STOP,ON,WAIT,LOAD,SAVE,VERIFY,
DEF,POKE..!... PRINT#,PRINT,CONT,LIST,CL
R,CMD,SYS,OPEN..!... CLOSE,GET,NEW,TAB(,
TO,FN,SPC(,THEN..!... NOT,STEP,+,-,*,/,^
,AND.."(.. OR,>,=,<,SGN,INT,ABS,USR.1"F.
. FRE,POS,SQR,RND.O"P.. LOG,EXP,COS,SIN,
TAN,ATN.P"Z.. PEEK,LEN,STR$,VAL,ASC,CHR$
.."D.. LEFT$,RIGHT$,MID$,GO,RGR,RCLR.."N
.. RLUM,JOY,RDOT,DEC,HEX$,ERR$.."X.. INS
TR,ELSE,RESUME,TRAP,TRON,TROFF..#... SOU
ND,VOL,AUTO,PUDEF,GRAPHIC,PAINT.0#... CH
AR,BOX,CIRCLE,GSHAPE,SSHAPE,DRAW.X#... L
OCATE,COLOR,SCNCLR,SCALE,HELP,DO..# .. L
OOP,EXIT,DIRECTORY,DSAVE,DLOAD,HEADER..#
... SCRATCH,COLLECT,COPY,RENAME,BACKUP,D
ELETE..#... RENUMBER,KEY,MONITOR,USING,U
NTIL,WHILE..#... -1...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL