> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 31 08 0A 00 97 35 33 32 38 30 2C 30 3A 97 |..1....53280,0:.|
00000010: 35 33 32 38 31 2C 30 3A 99 20 C7 28 31 34 37 29 |53281,0:. .(147)|
00000020: 3A 52 45 47 B2 33 3A 4D 41 58 B2 31 3A 56 41 B2 |:REG.3:MAX.1:VA.|
00000030: 30 00 6E 08 14 00 99 A3 32 29 3B C7 28 31 38 29 |0.n.....2);.(18)|
00000040: 3B 22 9E 3C 3C 3C 20 45 54 49 4B 45 54 54 45 4E |;".<<< ETIKETTEN|
00000050: 20 50 49 53 4F 46 54 20 44 49 53 4B 45 54 54 45 | PISOFT DISKETTE|
00000060: 4E 20 3E 3E 3E 9F 22 3B C7 28 31 34 36 29 00 9C |N >>>.";.(146)..|
00000070: 08 1E 00 99 3A 99 3A 99 A3 33 29 3B 22 41 41 4E |....:.:..3);"AAN|
00000080: 54 41 4C 20 52 45 47 45 4C 53 20 50 45 52 20 41 |TAL REGELS PER A|
00000090: 46 44 52 55 4B 3A 20 22 3B 52 45 47 00 C1 08 28 |FDRUK: ";REG...(|
000000A0: 00 99 3A 99 A3 33 29 3A 85 22 41 41 4E 54 41 4C |..:..3):."AANTAL|
000000B0: 20 41 46 44 52 55 4B 4B 45 4E 3A 20 22 3B 41 46 | AFDRUKKEN: ";AF|
000000C0: 44 00 D2 08 32 00 53 50 B2 B5 28 31 38 AD 4D 41 |D...2.SP..(18.MA|
000000D0: 58 29 00 01 09 3C 00 99 3A 99 A3 33 29 3B 22 4C |X)...<..:..3);"L|
000000E0: 45 54 20 4F 50 20 21 21 20 45 45 4E 20 52 45 47 |ET OP !! EEN REG|
000000F0: 45 4C 20 4D 41 47 20 4D 41 58 2E 20 9E 22 3B 53 |EL MAG MAX. .";S|
00000100: 50 00 25 09 46 00 99 A3 33 29 3B 22 9F 4B 41 52 |P.%.F...3);".KAR|
00000110: 41 4B 54 45 52 28 53 29 20 42 45 56 41 54 54 45 |AKTER(S) BEVATTE|
00000120: 4E 2E 22 3A 99 00 58 09 47 00 99 3A 99 20 22 9E |N.":..X.G..:. ".|
00000130: 55 20 57 4F 52 44 54 20 48 49 45 52 56 4F 4F 52 |U WORDT HIERVOOR|
00000140: 20 4F 50 20 54 49 4A 44 20 47 45 57 41 41 52 53 | OP TIJD GEWAARS|
00000150: 43 48 55 57 54 2E 9F 22 00 75 09 50 00 81 41 B2 |CHUWT..".u.P..A.|
00000160: 31 A4 31 35 30 30 3A 82 41 3A 99 C7 28 31 34 37 |1.1500:.A:..(147|
00000170: 29 3A 99 3A 99 00 9F 09 5A 00 86 4B 41 52 24 28 |):.:....Z..KAR$(|
00000180: 35 30 30 29 3A 54 B2 31 3A 5A B2 30 3A 81 52 B2 |500):T.1:Z.0:.R.|
00000190: 31 A4 52 45 47 3A 97 20 35 33 32 38 30 2C 30 00 |1.REG:. 53280,0.|
000001A0: B7 09 64 00 99 22 52 45 47 45 4C 20 22 3B 52 3B |..d.."REGEL ";R;|
000001B0: 22 3D 3D 3E 20 22 3B 00 C8 09 6E 00 8B 54 B3 31 |"==> ";...n..T.1|
000001C0: A7 54 B2 31 3A 5A B2 30 00 E5 09 78 00 A1 4B 41 |.T.1:Z.0...x..KA|
000001D0: 52 24 28 54 29 3A 8B 4B 41 52 24 28 54 29 B2 22 |R$(T):.KAR$(T)."|
000001E0: 22 A7 31 31 30 00 0B 0A 82 00 8B 4B 41 52 24 28 |".110......KAR$(|
000001F0: 54 29 B2 C7 28 31 33 29 A7 99 3A 99 3A 54 B2 54 |T)..(13)..:.:T.T|
00000200: AA 31 3A 5A B2 30 3A 89 31 38 30 00 1E 0A 83 00 |.1:Z.0:.180.....|
00000210: 8B 5A B2 31 37 A7 97 35 33 32 38 30 2C 37 00 2C |.Z.17..53280,7.,|
00000220: 0A 8C 00 99 4B 41 52 24 28 54 29 3B 00 4B 0A 96 |....KAR$(T);.K..|
00000230: 00 8B 4B 41 52 24 28 54 29 B2 C7 28 32 30 29 A7 |..KAR$(T)..(20).|
00000240: 54 B2 54 AB 32 3A 5A B2 5A AB 32 00 8A 0A A0 00 |T.T.2:Z.Z.2.....|
00000250: 5A B2 5A AA 31 3A 8B 5A B1 53 50 A7 3A 99 3A 99 |Z.Z.1:.Z.SP.:.:.|
00000260: 3A 99 22 44 45 20 52 45 47 45 4C 20 49 53 20 54 |:."DE REGEL IS T|
00000270: 45 20 4C 41 4E 47 20 21 21 21 22 3A 54 B2 54 AB |E LANG !!!":T.T.|
00000280: 5A 3A 5A B2 30 3A 89 31 30 30 00 99 0A AA 00 54 |Z:Z.0:.100.....T|
00000290: B2 54 AA 31 3A 89 31 31 30 00 A0 0A B4 00 82 52 |.T.1:.110......R|
000002A0: 00 AE 0A B5 00 97 20 35 33 32 38 30 2C 30 00 DF |...... 53280,0..|
000002B0: 0A BE 00 99 C7 28 31 34 37 29 3A 99 3A 99 3A 99 |.....(147):.:.:.|
000002C0: 22 57 49 4C 54 20 55 20 45 45 4E 20 50 52 4F 45 |"WILT U EEN PROE|
000002D0: 46 44 52 55 4B 20 3C 4A 2F 4E 3E 3A 20 22 3B 00 |FDRUK <J/N>: ";.|
000002E0: F4 0A C8 00 A1 50 52 24 3A 8B 50 52 24 B2 22 22 |.....PR$:.PR$.""|
000002F0: A7 32 30 30 00 05 0B D2 00 99 C7 28 31 35 37 29 |.200.......(157)|
00000300: 3B 50 52 24 3B 00 1F 0B DC 00 8B 50 52 24 B2 22 |;PR$;......PR$."|
00000310: 4E 22 B0 50 52 24 B2 22 4A 22 A7 89 33 30 30 00 |N".PR$."J"..300.|
00000320: 28 0B E6 00 89 32 30 30 00 51 0B F0 00 99 3A 99 |(....200.Q....:.|
00000330: 3A 99 22 49 53 20 44 45 20 50 52 4F 45 46 44 52 |:."IS DE PROEFDR|
00000340: 55 4B 20 47 4F 45 44 20 3C 4A 2F 4E 3E 3A 20 22 |UK GOED <J/N>: "|
00000350: 3B 00 66 0B FA 00 A1 50 52 24 3A 8B 50 52 24 B2 |;.f....PR$:.PR$.|
00000360: 22 22 A7 32 35 30 00 77 0B 04 01 99 C7 28 31 35 |"".250.w.....(15|
00000370: 37 29 3B 50 52 24 3B 00 86 0B 0E 01 8B 50 52 24 |7);PR$;......PR$|
00000380: B2 22 4E 22 A7 8A 00 9F 0B 18 01 8B 50 52 24 B2 |."N"........PR$.|
00000390: 22 4A 22 A7 50 52 24 B2 22 22 3A 89 33 30 30 00 |"J".PR$."":.300.|
000003A0: A8 0B 22 01 89 32 35 30 00 D6 0B 2C 01 99 3A 99 |.."..250...,..:.|
000003B0: 3A 99 3A 99 22 44 52 55 4B 20 45 45 4E 20 54 4F |:.:."DRUK EEN TO|
000003C0: 45 54 53 20 56 4F 4F 52 20 41 46 44 52 55 4B 4B |ETS VOOR AFDRUKK|
000003D0: 45 4E 20 21 21 22 00 EB 0B 36 01 A1 53 54 24 3A |EN !!"...6..ST$:|
000003E0: 8B 53 54 24 B2 22 22 A7 33 31 30 00 F4 0B 40 01 |.ST$."".310...@.|
000003F0: 89 33 39 30 00 2A 0C 4A 01 99 3A 99 3A 99 22 57 |.390.*.J..:.:."W|
00000400: 49 4C 54 20 55 20 4E 4F 47 20 4D 45 45 52 20 45 |ILT U NOG MEER E|
00000410: 54 49 4B 45 54 54 45 4E 20 44 52 55 4B 4B 45 4E |TIKETTEN DRUKKEN|
00000420: 20 3C 4A 2F 4E 3E 3A 20 22 3B 00 3F 0C 54 01 A1 | <J/N>: ";.?.T..|
00000430: 4D 41 24 3A 8B 4D 41 24 B2 22 22 A7 33 34 30 00 |MA$:.MA$."".340.|
00000440: 50 0C 5E 01 99 C7 28 31 35 37 29 3B 4D 41 24 3B |P.^...(157);MA$;|
00000450: 00 5F 0C 68 01 8B 4D 41 24 B2 22 4A 22 A7 8A 00 |._.h..MA$."J"...|
00000460: 80 0C 72 01 8B 4D 41 24 B2 22 4E 22 A7 20 98 31 |..r..MA$."N". .1|
00000470: 34 2C C7 28 31 30 29 3A A0 31 3A A0 31 34 3A 80 |4,.(10):.1:.14:.|
00000480: 00 89 0C 7C 01 89 33 34 30 00 8F 0C 86 01 8F 00 |...|..340.......|
00000490: AA 0C 90 01 54 B2 31 3A 81 52 B2 31 A4 52 45 47 |....T.1:.R.1.REG|
000004A0: 3A 57 52 24 28 52 29 B2 22 22 00 C2 0C 9A 01 8B |:WR$(R).""......|
000004B0: 4B 41 52 24 28 54 29 B3 B1 C7 28 31 33 29 A7 34 |KAR$(T)...(13).4|
000004C0: 33 30 00 D4 0C A4 01 54 B2 54 AA 31 3A 82 52 3A |30.....T.T.1:.R:|
000004D0: 89 34 35 30 00 EE 0C AE 01 57 52 24 28 52 29 B2 |.450.....WR$(R).|
000004E0: 57 52 24 28 52 29 AA 4B 41 52 24 28 54 29 00 FD |WR$(R).KAR$(T)..|
000004F0: 0C B8 01 54 B2 54 AA 31 3A 89 34 31 30 00 1D 0D |...T.T.1:.410...|
00000500: C2 01 9F 31 34 2C 34 2C 31 34 3A 9F 31 2C 34 3A |...14,4,14:.1,4:|
00000510: 41 44 B2 41 46 44 3A 4D 58 B2 4D 41 58 00 30 0D |AD.AFD:MX.MAX.0.|
00000520: CC 01 8B 50 52 24 B2 22 4A 22 A7 41 46 44 B2 31 |...PR$."J".AFD.1|
00000530: 00 3D 0D D6 01 81 52 B2 31 A4 52 45 47 00 52 0D |.=....R.1.REG.R.|
00000540: E0 01 8B 41 46 44 B3 4D 41 58 A7 4D 41 58 B2 41 |...AFD.MAX.MAX.A|
00000550: 46 44 00 5F 0D EA 01 81 41 B2 31 A4 4D 41 58 00 |FD._....A.1.MAX.|
00000560: 8F 0D F4 01 98 31 2C C7 28 31 34 29 3A 98 31 34 |.....1,.(14):.14|
00000570: 2C C7 28 31 29 3A 98 31 2C 57 52 24 28 52 29 3B |,.(1):.1,WR$(R);|
00000580: A6 53 50 AB C3 28 57 52 24 28 52 29 29 29 3B 00 |.SP..(WR$(R)));.|
00000590: 9F 0D FE 01 82 41 3A 98 31 3A 98 31 3A 82 52 00 |.....A:.1:.1:.R.|
000005A0: AD 0D 08 02 8B 56 41 B2 30 A7 35 34 30 00 BF 0D |.....VA.0.540...|
000005B0: 12 02 81 56 B2 31 A4 56 41 3A 98 31 3A 82 56 00 |...V.1.VA:.1:.V.|
000005C0: CF 0D 1C 02 41 46 44 B2 41 46 44 AB 4D 41 58 00 |....AFD.AFD.MAX.|
000005D0: DF 0D 26 02 8B 41 46 44 B3 B2 30 A7 35 38 30 00 |..&..AFD..0.580.|
000005E0: F0 0D 30 02 8B 41 46 44 B1 4D 41 58 A7 34 37 30 |..0..AFD.MAX.470|
000005F0: 00 F9 0D 3A 02 89 34 37 30 00 31 0E 44 02 8B 50 |...:..470.1.D..P|
00000600: 52 24 B2 22 4A 22 A7 50 52 24 B2 22 22 3A 4D 41 |R$."J".PR$."":MA|
00000610: 58 B2 4D 58 3A 41 46 44 B2 41 44 3A 98 31 34 2C |X.MX:AFD.AD:.14,|
00000620: C7 28 31 30 29 3A A0 31 3A A0 31 34 3A 89 32 34 |.(10):.1:.14:.24|
00000630: 30 00 3A 0E 4E 02 89 33 33 30 00 00 00 |0.:.N..330... |
..1....53280,0:.53281,0:. G(147):REG.3:M
AX.1:VA.0.N.....2);G(18);".<<< ETIKETTEN
PISOFT DISKETTEN >>>.";G(146)......:.:.
.3);"AANTAL REGELS PER AFDRUK: ";REG.A.(
..:..3):."AANTAL AFDRUKKEN: ";AFD.R.2.SP
..(18.MAX)...<..:..3);"LET OP !! EEN REG
EL MAG MAX. .";SP.%.F...3);".KARAKTER(S)
BEVATTEN.":..X.G..:. ".U WORDT HIERVOOR
OP TIJD GEWAARSCHUWT..".U.P..A.1.1500:.
A:.G(147):.:....Z..KAR$(500):T.1:Z.0:.R.
1.REG:. 53280,0...D.."REGEL ";R;"==> ";.
H.N..T.1.T.1:Z.0...X..KAR$(T):.KAR$(T)."
".110......KAR$(T).G(13)..:.:T.T.1:Z.0:.
180......Z.17..53280,7.,....KAR$(T);.K..
..KAR$(T).G(20).T.T.2:Z.Z.2... .Z.Z.1:.Z
.SP.:.:.:."DE REGEL IS TE LANG !!!":T.T.
Z:Z.0:.100.....T.T.1:.110. ....R...... 5
3280,0......G(147):.:.:."WILT U EEN PROE
FDRUK <J/N>: ";...H..PR$:.PR$."".200...R
..G(157);PR$;......PR$."N".PR$."J"..300.
(....200.Q....:.:."IS DE PROEFDRUK GOED
<J/N>: ";.F....PR$:.PR$."".250.W....G(15
7);PR$;......PR$."N"........PR$."J".PR$.
"":.300..."..250.V.,..:.:.:."DRUK EEN TO
ETS VOOR AFDRUKKEN !!"...6..ST$:.ST$."".
310...@..390.*.J..:.:."WILT U NOG MEER E
TIKETTEN DRUKKEN <J/N>: ";.?.T..MA$:.MA$
."".340.P.^..G(157);MA$;._.H..MA$."J"...
..R..MA$."N". .14,G(10): 1: 14:....|..34
0...........T.1:.R.1.REG:WR$(R)."".B....
KAR$(T)..G(13).430.T...T.T.1:.R:.450....
.WR$(R).WR$(R).KAR$(T).....T.T.1:.410...
B..14,4,14:.1,4:AD.AFD:MX.MAX.0.L..PR$."
J".AFD.1.=.V..R.1.REG.R....AFD.MAX.MAX.A
FD._....A.1.MAX......1,G(14):.14,G(1):.1
,WR$(R);.SP.C(WR$(R)));......A:.1:.1:.R.
.....VA.0.540......V.1.VA:.1:.V.O...AFD.
AFD.MAX...&..AFD..0.580...0..AFD.MAX.470
...:..470.1.D..PR$."J".PR$."":MAX.MX:AFD
.AD:.14,G(10): 1: 14:.240.:.N..330...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL