PRINTER-AKTIE/64

00000000: 01 08 1F 08 01 00 8F 2A  20 50 52 49 4E 54 45 52  |.......* PRINTER|
00000010: 2D 41 4B 54 49 45 20 45  44 49 54 4F 52 20 2A 00  |-AKTIE EDITOR *.|
00000020: 3D 08 02 00 8F 2A 20 20  20 52 45 4E 45 20 45 4E  |=....*   RENE EN|
00000030: 20 57 49 4A 4F 20 31 39  38 36 20 20 2A 00 62 08  | WIJO 1986  *.b.|
00000040: 03 00 97 35 33 32 38 30  2C 31 34 3A 97 35 33 32  |...53280,14:.532|
00000050: 38 31 2C 31 34 3A 99 C7  28 31 34 37 29 C7 28 33  |81,14:..(147).(3|
00000060: 31 29 00 74 08 04 00 86  54 45 25 28 32 34 30 29  |1).t....TE%(240)|
00000070: 3A 8D 31 31 00 89 08 05  00 99 22 45 44 49 54 20  |:.11......"EDIT |
00000080: 4F 46 20 4C 4F 41 44 3F  22 00 91 08 06 00 A1 41  |OF LOAD?"......A|
00000090: 24 00 A5 08 07 00 8B 41  24 B2 22 4C 22 A7 55 B2  |$......A$."L".U.|
000000A0: 32 3A 89 36 37 00 B4 08  08 00 8B 41 24 B2 22 45  |2:.67......A$."E|
000000B0: 22 A7 32 33 00 BB 08 09  00 89 36 00 C1 08 0A 00  |".23......6.....|
000000C0: 3A 00 FA 08 0B 00 53 43  48 45 52 4D 28 31 29 B2  |:.....SCHERM(1).|
000000D0: 34 30 3A 53 43 48 45 52  4D 28 32 29 B2 31 35 3A  |40:SCHERM(2).15:|
000000E0: 53 43 48 45 52 4D 28 33  29 B2 32 34 3A 86 4B 28  |SCHERM(3).24:.K(|
000000F0: 31 36 29 2C 4B 24 28 31  36 29 00 33 09 0C 00 4B  |16),K$(16).3...K|
00000100: 28 30 29 B2 32 32 34 3A  4B 28 31 29 B2 39 36 3A  |(0).224:K(1).96:|
00000110: 4B 28 32 29 B2 31 32 37  3A 4B 28 33 29 B2 32 35  |K(2).127:K(3).25|
00000120: 35 3A 4B 28 34 29 B2 31  30 38 3A 4B 28 35 29 B2  |5:K(4).108:K(5).|
00000130: 31 32 33 00 78 09 0D 00  4B 28 36 29 B2 31 32 34  |123.x...K(6).124|
00000140: 3A 4B 28 37 29 B2 31 32  36 3A 4B 28 38 29 B2 32  |:K(7).126:K(8).2|
00000150: 33 36 3A 4B 28 39 29 B2  32 35 31 3A 4B 28 31 30  |36:K(9).251:K(10|
00000160: 29 B2 32 35 32 3A 4B 28  31 31 29 B2 32 35 34 3A  |).252:K(11).254:|
00000170: 4B 28 31 32 29 B2 39 37  00 99 09 0E 00 4B 28 31  |K(12).97.....K(1|
00000180: 33 29 B2 32 32 35 3A 4B  28 31 34 29 B2 39 38 3A  |3).225:K(14).98:|
00000190: 4B 28 31 35 29 B2 32 32  36 00 A6 09 0F 00 52 24  |K(15).226.....R$|
000001A0: B2 C7 28 31 38 29 00 E2  09 10 00 4B 24 28 30 29  |..(18).....K$(0)|
000001B0: B2 52 24 AA C7 28 33 32  29 3A 4B 24 28 31 29 B2  |.R$..(32):K$(1).|
000001C0: C7 28 33 32 29 3A 4B 24  28 32 29 B2 C7 28 31 39  |.(32):K$(2)..(19|
000001D0: 31 29 3A 4B 24 28 33 29  B2 52 24 AA C7 28 31 39  |1):K$(3).R$..(19|
000001E0: 31 29 00 1A 0A 11 00 4B  24 28 34 29 B2 C7 28 31  |1).....K$(4)..(1|
000001F0: 37 32 29 3A 4B 24 28 35  29 B2 C7 28 31 38 37 29  |72):K$(5)..(187)|
00000200: 3A 4B 24 28 36 29 B2 C7  28 31 38 38 29 3A 4B 24  |:K$(6)..(188):K$|
00000210: 28 37 29 B2 C7 28 31 39  30 29 00 4F 0A 12 00 4B  |(7)..(190).O...K|
00000220: 24 28 38 29 B2 52 24 AA  C7 28 31 37 32 29 3A 4B  |$(8).R$..(172):K|
00000230: 24 28 39 29 B2 52 24 AA  C7 28 31 38 37 29 3A 4B  |$(9).R$..(187):K|
00000240: 24 28 31 30 29 B2 52 24  AA C7 28 31 38 38 29 00  |$(10).R$..(188).|
00000250: 83 0A 13 00 4B 24 28 31  31 29 B2 52 24 AA C7 28  |....K$(11).R$..(|
00000260: 31 39 30 29 3A 4B 24 28  31 32 29 B2 C7 28 31 36  |190):K$(12)..(16|
00000270: 31 29 3A 4B 24 28 31 33  29 B2 52 24 AA C7 28 31  |1):K$(13).R$..(1|
00000280: 36 31 29 00 A6 0A 14 00  4B 24 28 31 34 29 B2 C7  |61).....K$(14)..|
00000290: 28 31 36 32 29 3A 4B 24  28 31 35 29 B2 52 24 AA  |(162):K$(15).R$.|
000002A0: C7 28 31 36 32 29 00 AC  0A 15 00 8E 00 B2 0A 16  |.(162)..........|
000002B0: 00 3A 00 CB 0A 17 00 99  22 46 4F 52 4D 41 41 54  |.:......"FORMAAT|
000002C0: 20 31 2C 32 20 4F 46 20  33 3F 22 00 D2 0A 18 00  | 1,2 OF 3?".....|
000002D0: 85 55 00 E2 0A 19 00 8B  55 B3 31 B0 55 B1 33 A7  |.U......U.1.U.3.|
000002E0: 32 33 00 02 0B 1A 00 4D  B2 32 34 30 AD 53 43 48  |23.....M.240.SCH|
000002F0: 45 52 4D 28 55 29 3A 4E  B2 53 43 48 45 52 4D 28  |ERM(U):N.SCHERM(|
00000300: 55 29 00 0E 0B 1B 00 99  C7 28 31 34 37 29 00 14  |U).......(147)..|
00000310: 0B 1C 00 3A 00 29 0B 1D  00 8F 3A 20 53 43 48 45  |...:.)....: SCHE|
00000320: 52 4D 50 52 49 4E 54 20  2A 00 34 0B 1E 00 81 54  |RMPRINT *.4....T|
00000330: B2 31 A4 4D 00 52 0B 1F  00 81 54 54 B2 31 A4 4E  |.1.M.R....TT.1.N|
00000340: 3A 99 C7 28 31 38 29 C7  28 31 36 30 29 3B 3A 82  |:..(18).(160);:.|
00000350: 54 54 00 62 0B 20 00 91  55 89 33 34 2C 33 33 2C  |TT.b. ..U.34,33,|
00000360: 33 33 00 68 0B 21 00 99  00 6F 0B 22 00 82 54 00  |33.h.!...o."..T.|
00000370: 75 0B 23 00 3A 00 88 0B  24 00 8F 20 2A 48 4F 4F  |u.#.:...$.. *HOO|
00000380: 46 44 4C 4F 4F 50 20 2A  00 9F 0B 25 00 4C 4F 4B  |FDLOOP *...%.LOK|
00000390: 41 54 49 45 B2 31 30 36  34 3A 4B 41 52 B2 30 00  |ATIE.1064:KAR.0.|
000003A0: B4 0B 26 00 97 4C 4F 4B  41 54 49 45 AA 35 34 32  |..&..LOKATIE.542|
000003B0: 37 32 2C 30 00 C1 0B 27  00 50 B2 C2 28 31 39 37  |72,0...'.P..(197|
000003C0: 29 00 D5 0B 28 00 97 4C  4F 4B 41 54 49 45 2C 4B  |)...(..LOKATIE,K|
000003D0: 28 4B 41 52 29 00 FF 0B  29 00 8B 50 B2 34 30 A7  |(KAR)...)..P.40.|
000003E0: 4B 41 52 B2 4B 41 52 AA  31 3A 92 31 39 37 2C 36  |KAR.KAR.1:.197,6|
000003F0: 34 3A 8B 4B 41 52 B2 31  36 A7 4B 41 52 B2 30 00  |4:.KAR.16.KAR.0.|
00000400: 2A 0C 2A 00 8B 50 B2 34  33 A7 4B 41 52 B2 4B 41  |*.*..P.43.KAR.KA|
00000410: 52 AB 31 3A 92 31 39 37  2C 36 34 3A 8B 4B 41 52  |R.1:.197,64:.KAR|
00000420: B2 AB 31 A7 4B 41 52 B2  31 35 00 4B 0C 2B 00 8B  |..1.KAR.15.K.+..|
00000430: 50 B2 34 34 A7 4D 45 4D  4F B2 4C 4F 4B 3A 4C 4F  |P.44.MEMO.LOK:LO|
00000440: 4B B2 4C 4F 4B AA 31 3A  89 34 39 00 6C 0C 2C 00  |K.LOK.1:.49.l.,.|
00000450: 8B 50 B2 34 37 A7 4D 45  4D 4F B2 4C 4F 4B 3A 4C  |.P.47.MEMO.LOK:L|
00000460: 4F 4B B2 4C 4F 4B AB 31  3A 89 34 39 00 8D 0C 2D  |OK.LOK.1:.49...-|
00000470: 00 8B 50 B2 30 A7 4D 45  4D 4F B2 4C 4F 4B 3A 4C  |..P.0.MEMO.LOK:L|
00000480: 4F 4B B2 4C 4F 4B AB 34  30 3A 89 34 39 00 AE 0C  |OK.LOK.40:.49...|
00000490: 2E 00 8B 50 B2 32 A7 4D  45 4D 4F B2 4C 4F 4B 3A  |...P.2.MEMO.LOK:|
000004A0: 4C 4F 4B B2 4C 4F 4B AA  34 30 3A 89 34 39 00 BC  |LOK.LOK.40:.49..|
000004B0: 0C 2F 00 8B 50 B2 35 37  A7 89 35 36 00 C4 0C 30  |./..P.57..56...0|
000004C0: 00 89 33 39 00 D1 0C 31  00 50 B2 C2 28 4C 4F 4B  |..39...1.P..(LOK|
000004D0: 29 00 E8 0C 32 00 8B 50  B2 33 32 A7 4C 4F 4B B2  |)...2..P.32.LOK.|
000004E0: 4D 45 4D 4F 3A 89 33 39  00 FA 0C 33 00 97 4D 45  |MEMO:.39...3..ME|
000004F0: 4D 4F AA 35 34 32 37 32  2C 36 00 19 0D 34 00 81  |MO.54272,6...4..|
00000500: 54 B2 30 A4 31 35 3A 8B  C2 28 4C 4F 4B 29 B2 4B  |T.0.15:..(LOK).K|
00000510: 28 54 29 A7 4B 41 52 B2  54 00 1F 0D 35 00 82 00  |(T).KAR.T...5...|
00000520: 27 0D 36 00 89 33 38 00  2D 0D 37 00 3A 00 43 0D  |'.6..38.-.7.:.C.|
00000530: 38 00 99 22 53 41 56 45  20 4F 46 20 50 52 49 4E  |8.."SAVE OF PRIN|
00000540: 54 3F 22 00 5F 0D 39 00  A1 41 24 3A 8B 41 24 B2  |T?"._.9..A$:.A$.|
00000550: 22 53 22 A7 55 B2 31 3A  8D 38 36 3A 89 36 36 00  |"S".U.1:.86:.66.|
00000560: 73 0D 3A 00 8B 41 24 B2  22 50 22 A7 8D 38 36 3A  |s.:..A$."P"..86:|
00000570: 89 37 37 00 7B 0D 3B 00  89 35 37 00 83 0D 3C 00  |.77.{.;..57...<.|
00000580: 8D 39 33 00 9E 0D 3D 00  99 22 45 44 49 54 2C 20  |.93...=.."EDIT, |
00000590: 4C 4F 41 44 20 4F 46 20  50 52 49 4E 54 22 00 B2  |LOAD OF PRINT"..|
000005A0: 0D 3E 00 A1 41 24 3A 8B  41 24 B2 22 50 22 A7 89  |.>..A$:.A$."P"..|
000005B0: 37 37 00 C6 0D 3F 00 8B  41 24 B2 22 45 22 A7 8D  |77...?..A$."E"..|
000005C0: 39 33 3A 89 33 37 00 DA  0D 40 00 8B 41 24 B2 22  |93:.37...@..A$."|
000005D0: 4C 22 A7 55 B2 32 3A 89  36 37 00 E2 0D 41 00 89  |L".U.2:.67...A..|
000005E0: 36 32 00 2B 0E 42 00 85  22 4E 41 41 4D 22 3B 41  |62.+.B.."NAAM";A|
000005F0: 24 3A 9F 31 2C 38 2C 31  2C 41 24 3A 98 31 2C 4D  |$:.1,8,1,A$:.1,M|
00000600: 3A 98 31 2C 4E 3A 89 36  38 3A 8F 20 56 4F 4F 52  |:.1,N:.68:. VOOR|
00000610: 20 54 41 50 45 20 47 45  42 52 55 49 4B 3A 20 4F  | TAPE GEBRUIK: O|
00000620: 50 45 4E 31 2C 31 2C 31  2C 41 24 00 71 0E 43 00  |PEN1,1,1,A$.q.C.|
00000630: 85 22 4E 41 41 4D 22 3B  41 24 3A 9F 31 2C 38 2C  |."NAAM";A$:.1,8,|
00000640: 30 2C 41 24 3A 84 31 2C  4D 3A 84 31 2C 4E 20 3A  |0,A$:.1,M:.1,N :|
00000650: 8F 20 56 4F 4F 52 20 54  41 50 45 20 47 45 42 52  |. VOOR TAPE GEBR|
00000660: 55 49 4B 3A 20 4F 50 45  4E 31 2C 31 2C 31 2C 41  |UIK: OPEN1,1,1,A|
00000670: 24 00 7E 0E 44 00 81 54  B2 30 A4 4D AB 31 00 8A  |$.~.D..T.0.M.1..|
00000680: 0E 45 00 81 54 54 B2 31  A4 4E 00 97 0E 46 00 91  |.E..TT.1.N...F..|
00000690: 55 89 37 31 2C 37 32 00  AE 0E 47 00 98 31 2C 54  |U.71,72...G..1,T|
000006A0: 45 25 28 54 AC 4E AA 54  54 29 3A 89 37 33 00 C1  |E%(T.N.TT):.73..|
000006B0: 0E 48 00 84 31 2C 54 45  25 28 54 AC 4E AA 54 54  |.H..1,TE%(T.N.TT|
000006C0: 29 00 C9 0E 49 00 82 3A  82 00 D4 0E 4A 00 A0 31  |)...I..:....J..1|
000006D0: 3A 89 36 30 00 DA 0E 4B  00 3A 00 E7 0E 4C 00 8F  |:.60...K.:...L..|
000006E0: 2A 50 52 49 4E 54 2A 00  01 0F 4D 00 85 22 50 4F  |*PRINT*...M.."PO|
000006F0: 53 49 54 49 45 20 28 30  31 2D 36 34 29 22 3B 41  |SITIE (01-64)";A|
00000700: 24 00 26 0F 4E 00 41 B2  C5 28 C8 28 41 24 2C 31  |$.&.N.A..(.(A$,1|
00000710: 29 29 AA 34 38 3A 41 41  B2 C5 28 C9 28 41 24 2C  |)).48:AA..(.(A$,|
00000720: 31 29 29 AA 34 38 00 32  0F 4F 00 9F 32 2C 34 3A  |1)).48.2.O..2,4:|
00000730: 9D 32 00 3F 0F 50 00 81  54 B2 30 A4 4D AB 31 00  |.2.?.P..T.0.M.1.|
00000740: 4B 0F 51 00 81 54 54 B2  31 A4 4E 00 77 0F 52 00  |K.Q..TT.1.N.w.R.|
00000750: 98 32 2C C7 28 31 36 29  C7 28 41 29 C7 28 41 41  |.2,.(16).(A).(AA|
00000760: 29 4B 24 28 54 45 25 28  54 AC 4E AA 54 54 29 29  |)K$(TE%(T.N.TT))|
00000770: C7 28 31 34 36 29 3B 00  83 0F 53 00 82 3A 98 32  |.(146);...S..:.2|
00000780: 2C 3A 82 00 8E 0F 54 00  A0 32 3A 89 36 30 00 94  |,:....T..2:.60..|
00000790: 0F 55 00 3A 00 A7 0F 56  00 99 22 45 56 45 4E 20  |.U.:...V.."EVEN |
000007A0: 47 45 44 55 4C 44 22 00  B4 0F 57 00 81 54 B2 30  |GEDULD"...W..T.0|
000007B0: A4 4D AB 31 00 C0 0F 58  00 81 54 54 B2 31 A4 4E  |.M.1...X..TT.1.N|
000007C0: 00 D6 0F 59 00 50 B2 C2  28 31 30 36 33 AA 54 AC  |...Y.P..(1063.T.|
000007D0: 34 30 AA 54 54 29 00 F8  0F 5A 00 81 55 B2 30 A4  |40.TT)...Z..U.0.|
000007E0: 31 35 3A 8B 50 B2 4B 28  55 29 A7 54 45 25 28 54  |15:.P.K(U).TE%(T|
000007F0: AC 4E AA 54 54 29 B2 55  00 08 10 5B 00 82 55 3A  |.N.TT).U...[..U:|
00000800: 82 54 54 3A 82 54 3A 8E  00 22 10 5C 00 8F 2A 20  |.TT:.T:..".\..* |
00000810: 46 49 4C 45 20 4E 41 41  52 20 53 43 48 45 52 4D  |FILE NAAR SCHERM|
00000820: 20 2A 00 2E 10 5D 00 99  C7 28 31 34 37 29 00 3B  | *...]...(147).;|
00000830: 10 5E 00 81 54 B2 30 A4  4D AB 31 00 47 10 5F 00  |.^..T.0.M.1.G._.|
00000840: 81 54 54 B2 31 A4 4E 00  68 10 60 00 97 31 30 36  |.TT.1.N.h.`..106|
00000850: 33 AA 54 AC 34 30 AA 54  54 2C 4B 28 54 45 25 28  |3.T.40.TT,K(TE%(|
00000860: 54 AC 4E AA 54 54 29 29  00 76 10 61 00 82 3A 99  |T.N.TT)).v.a..:.|
00000870: 3A 82 3A 99 3A 8E 00 00  00                       |:.:.:....       |

.......* PRINTER-AKTIE EDITOR *.=....*  
 RENE EN WIJO 1986  *.B....53280,14:.532
81,14:.G(147)G(31).T....TE%(240):.11....
.."EDIT OF LOAD?"......A$......A$."L".U.
2:.67......A$."E".23......6.A...:.....SC
HERM(1).40:SCHERM(2).15:SCHERM(3).24:.K(
16),K$(16).3...K(0).224:K(1).96:K(2).127
:K(3).255:K(4).108:K(5).123.X...K(6).124
:K(7).126:K(8).236:K(9).251:K(10).252:K(
11).254:K(12).97.....K(13).225:K(14).98:
K(15).226.....R$.G(18).....K$(0).R$.G(32
):K$(1).G(32):K$(2).G(191):K$(3).R$.G(19
1).....K$(4).G(172):K$(5).G(187):K$(6).G
(188):K$(7).G(190).O...K$(8).R$.G(172):K
$(9).R$.G(187):K$(10).R$.G(188).....K$(1
1).R$.G(190):K$(12).G(161):K$(13).R$.G(1
61).....K$(14).G(162):K$(15).R$.G(162)..
.........:.K...."FORMAAT 1,2 OF 3?".R...
.U......U.1.U.3.23.....M.240.SCHERM(U):N
.SCHERM(U)......G(147).....:.)....: SCHE
RMPRINT *.4....T.1.M.R....TT.1.N:.G(18)G
(160);:.TT.B. ..U.34,33,33.H.!...O."..T.
U.#.:...$.. *HOOFDLOOP *...%.LOKATIE.106
4:KAR.0...&..LOKATIE.54272,0.A.'.P.B(197
).U.(..LOKATIE,K(KAR)...)..P.40.KAR.KAR.
1:.197,64:.KAR.16.KAR.0.*.*..P.43.KAR.KA
R.1:.197,64:.KAR..1.KAR.15.K.+..P.44.MEM
O.LOK:LOK.LOK.1:.49.L.,..P.47.MEMO.LOK:L
OK.LOK.1:.49...-..P.0.MEMO.LOK:LOK.LOK.4
0:.49......P.2.MEMO.LOK:LOK.LOK.40:.49..
./..P.57..56.D.0..39.Q.1.P.B(LOK)...2..P
.32.LOK.MEMO:.39...3..MEMO.54272,6...4..
T.0.15:.B(LOK).K(T).KAR.T...5...'.6..38.
-.7.:.C.8.."SAVE OF PRINT?"._.9..A$:.A$.
"S".U.1:.86:.66.S.:..A$."P"..86:.77.{.;.
.57...<..93...=.."EDIT, LOAD OF PRINT"..
.>..A$:.A$."P"..77.F.?..A$."E"..93:.37.Z
.@..A$."L".U.2:.67...A..62.+.B.."NAAM";A
$:.1,8,1,A$:.1,M:.1,N:.68:. VOOR TAPE GE
BRUIK: OPEN1,1,1,A$.Q.C.."NAAM";A$:.1,8,
0,A$:.1,M:.1,N :. VOOR TAPE GEBRUIK: OPE
N1,1,1,A$.~.D..T.0.M.1...E..TT.1.N...F..
U.71,72...G..1,TE%(T.N.TT):.73.A.H..1,TE
%(T.N.TT).I.I..:..T.J. 1:.60.Z.K.:...L..
*PRINT*...M.."POSITIE (01-64)";A$.&.N.A.
E(H(A$,1)).48:AA.E(I(A$,1)).48.2.O..2,4:
.2.?.P..T.0.M.1.K.Q..TT.1.N.W.R..2,G(16)
G(A)G(AA)K$(TE%(T.N.TT))G(146);...S..:.2
,:....T. 2:.60...U.:...V.."EVEN GEDULD".
..W..T.0.M.1...X..TT.1.N.V.Y.P.B(1063.T.
40.TT)...Z..U.0.15:.P.K(U).TE%(T.N.TT).U
...[..U:.TT:.T:..".\..* FILE NAAR SCHERM
 *...]..G(147).;.^..T.0.M.1.G._..TT.1.N.
H.`..1063.T.40.TT,K(TE%(T.N.TT)).V.A..:.
:.:.:....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL