00000000: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000010: 2A 2A 2A 00 F7 25 C2 D3 A1 54 45 58 54 A0 54 41 |***..%...TEXT.TA|
00000020: 44 52 2C 58 56 41 4C 2C 59 56 41 4C 2C 43 4F 4C |DR,XVAL,YVAL,COL|
00000030: 56 41 4C 00 05 26 CC D3 20 CA 23 43 4F 4C 56 41 |VAL..&.. .#COLVA|
00000040: 4C 00 11 26 D6 D3 20 D2 24 30 32 38 36 00 1D 26 |L..&.. .$0286..&|
00000050: E0 D3 20 C2 23 59 56 41 4C 00 29 26 EA D3 20 C3 |.. .#YVAL.)&.. .|
00000060: 23 58 56 41 4C 00 30 26 F4 D3 20 E5 00 3C 26 FE |#XVAL.0&.. ..<&.|
00000070: D3 20 D6 24 46 46 46 30 00 47 26 08 D4 20 C2 23 |. .$FFF0.G&.. .#|
00000080: 24 30 30 00 58 26 12 D4 54 45 58 31 20 CA 54 41 |$00.X&..TEX1 .TA|
00000090: 44 52 2C 58 00 63 26 1C D4 20 C4 23 24 46 46 00 |DR,X.c&.. .#$FF.|
000000A0: 6E 26 26 D4 20 F7 54 45 58 32 00 7A 26 30 D4 20 |n&&. .TEX2.z&0. |
000000B0: D6 24 46 46 44 32 00 81 26 3A D4 20 EF 00 8C 26 |.$FFD2..&:. ...&|
000000C0: 44 D4 20 D5 54 45 58 31 00 97 26 4E D4 54 45 58 |D. .TEX1..&N.TEX|
000000D0: 32 20 E4 00 9D 26 58 D4 A2 00 BF 26 62 D4 3B 2A |2 ...&X....&b.;*|
000000E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E1 26 6C D4 |***********..&l.|
00000100: 3B 2A 20 4D 41 43 52 4F 20 50 52 49 4E 54 20 41 |;* MACRO PRINT A|
00000110: 44 52 45 53 20 20 20 20 20 20 20 20 2A 00 03 27 |DRES *..'|
00000120: 76 D4 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |v.;*************|
00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000140: 13 27 80 D4 A1 50 52 49 4E 54 A0 54 41 44 52 00 |.'...PRINT.TADR.|
00000150: 1E 27 8A D4 20 C2 23 24 30 30 00 2F 27 94 D4 54 |.'.. .#$00./'..T|
00000160: 45 58 31 20 CA 54 41 44 52 2C 58 00 3A 27 9E D4 |EX1 .TADR,X.:'..|
00000170: 20 C4 23 24 46 46 00 45 27 A8 D4 20 F7 54 45 58 | .#$FF.E'.. .TEX|
00000180: 32 00 51 27 B2 D4 20 D6 24 46 46 44 32 00 58 27 |2.Q'.. .$FFD2.X'|
00000190: BC D4 20 EF 00 63 27 C6 D4 20 D5 54 45 58 31 00 |.. ..c'.. .TEX1.|
000001A0: 6E 27 D0 D4 54 45 58 32 20 E4 00 79 27 DA D4 20 |n'..TEX2 ..y'.. |
000001B0: CA 23 24 30 44 00 85 27 E4 D4 20 D6 24 46 46 44 |.#$0D..'.. .$FFD|
000001C0: 32 00 8B 27 EE D4 A2 00 AD 27 F8 D4 3B 2A 2A 2A |2..'.....'..;***|
000001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CF 27 02 D5 3B 2A |*********..'..;*|
000001F0: 20 4D 41 43 52 4F 20 4B 45 59 20 57 41 49 54 20 | MACRO KEY WAIT |
00000200: 20 20 20 20 20 20 20 20 20 20 2A 00 F1 27 0C D5 | *..'..|
00000210: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
00000220: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 FF 27 |*************..'|
00000230: 16 D5 A1 4B 45 59 A0 57 41 49 54 00 0E 28 20 D5 |...KEY.WAIT..( .|
00000240: 54 45 58 31 20 C2 23 24 30 30 00 1A 28 2A D5 20 |TEX1 .#$00..(*. |
00000250: D3 24 30 30 43 36 00 26 28 34 D5 20 CA 24 30 30 |.$00C6.&(4. .$00|
00000260: 43 35 00 32 28 3E D5 20 C4 23 57 41 49 54 00 3D |C5.2(>. .#WAIT.=|
00000270: 28 48 D5 20 F6 54 45 58 31 00 43 28 52 D5 A2 00 |(H. .TEX1.C(R...|
00000280: 6A 28 5C D5 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |j(\.;***********|
00000290: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002A0: 2A 2A 2A 2A 2A 2A 00 91 28 66 D5 3B 2A 20 4D 41 |******..(f.;* MA|
000002B0: 43 52 4F 20 4C 4F 41 44 20 4E 41 41 4D 41 44 52 |CRO LOAD NAAMADR|
000002C0: 45 53 2C 4C 45 2E 4E 41 41 4D 20 20 2A 00 B8 28 |ES,LE.NAAM *..(|
000002D0: 70 D5 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |p.;*************|
000002E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002F0: 2A 2A 2A 2A 00 D7 28 7A D5 A1 4C 4F 41 44 A0 4E |****..(z..LOAD.N|
00000300: 41 41 4D 41 44 52 45 53 2C 4C 45 4E 47 54 45 4E |AAMADRES,LENGTEN|
00000310: 41 41 4D 00 E2 28 84 D5 20 CA 23 24 30 34 00 ED |AAM..(.. .#$04..|
00000320: 28 8E D5 20 C2 23 24 30 38 00 F8 28 98 D5 20 C3 |(.. .#$08..(.. .|
00000330: 23 24 30 31 00 04 29 A2 D5 20 D6 24 46 46 42 41 |#$01..).. .$FFBA|
00000340: 00 16 29 AC D5 20 CA 23 4C 45 4E 47 54 45 4E 41 |..).. .#LENGTENA|
00000350: 41 4D 00 2A 29 B6 D5 20 C2 23 3C 28 4E 41 41 4D |AM.*).. .#<(NAAM|
00000360: 41 44 52 45 53 29 00 3E 29 C0 D5 20 C3 23 3E 28 |ADRES).>).. .#>(|
00000370: 4E 41 41 4D 41 44 52 45 53 29 00 4A 29 CA D5 20 |NAAMADRES).J).. |
00000380: D6 24 46 46 42 44 00 55 29 D4 D5 20 CA 23 24 30 |.$FFBD.U).. .#$0|
00000390: 30 00 60 29 DE D5 20 C2 23 24 46 46 00 6B 29 E8 |0.`).. .#$FF.k).|
000003A0: D5 20 C3 23 24 46 46 00 77 29 F2 D5 20 D6 24 46 |. .#$FF.w).. .$F|
000003B0: 46 44 35 00 7D 29 FC D5 A2 00 00 00 |FD5.})...... |
*******************..%BS.TEXT TADR,XVAL,
YVAL,COLVAL..&LS J#COLVAL..&VS R$0286..&
.S B#YVAL.)&.S C#XVAL.0&.S ..<&.S V$FFF0
.G&.T B#$00.X&.TTEX1 JTADR,X.C&.T D#$FF.
N&&T .TEX2.Z&0T V$FFD2..&:T ...&DT UTEX1
..&NTTEX2 ...&XT...&BT;*****************
***********..<* MACRO PRINT ADRES
*..'VT;****************************.
.'.T.PRINT TADR..'.T B#$00./'.TTEX1 JTAD
R,X.:'.T D#$FF.E'.T .TEX2.Q'.T V$FFD2.X'
.T ..C'FT UTEX1.N'PTTEX2 ..Y'ZT J#$0D..'
.T V$FFD2..'.T...'.T;*******************
*********.O'.U;* MACRO KEY WAIT
*..'.U;****************************..'
.U.KEY WAIT..( UTEX1 B#$00..(*U S$00C6.&
(4U J$00C5.2(>U D#WAIT.=(HU .TEX1.C(RU..
J(\U;*********************************..
(FU;* MACRO LOAD NAAMADRES,LE.NAAM *..(
PU;*********************************.W(Z
U.LOAD NAAMADRES,LENGTENAAM..(.U J#$04..
(.U B#$08..(.U C#$01..).U V$FFBA..).U J#
LENGTENAAM.*).U B#<(NAAMADRES).>).U C#>(
NAAMADRES).J)JU V$FFBD.U)TU J#$00.`).U B
#$FF.K).U C#$FF.W).U V$FFD5.}).U....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL