66 lines
1.4 KiB
Plaintext
66 lines
1.4 KiB
Plaintext
PROGRAM:XEEPROM
|
|
01 CLS
|
|
02 W=0
|
|
03 DATA 0,"0123456789ABCDEF"
|
|
04 FOR I=0 TO 15:? @0,I+1;%AR(I)
|
|
05 FOR Y=0 TO 15:? @Y+1,0;%AR(Y)
|
|
06 NEXT :NEXT
|
|
07
|
|
08 FOR W=0 TO 15:X=XPEEK(W)
|
|
09 IF X<> $FF THEN ? @1,W+1;%15
|
|
10 NEXT
|
|
11 FOR W=0 TO 15:X=XPEEK(W+16)
|
|
12 IF X<> $FF THEN ? @2,W+1;%15
|
|
13 NEXT
|
|
14 FOR W=0 TO 15:X=XPEEK(W+32)
|
|
15 IF X<> $FF THEN ? @3,W+1;%15
|
|
16 NEXT
|
|
17 FOR W=0 TO 15:X=XPEEK(W+48)
|
|
18 IF X<> $FF THEN ? @4,W+1;%15
|
|
19 NEXT
|
|
20 FOR W=0 TO 15:X=XPEEK(W+64)
|
|
21 IF X<> $FF THEN ? @5,W+1;%15
|
|
22 NEXT
|
|
23 FOR W=0 TO 15:X=XPEEK(W+80)
|
|
24 IF X<> $FF THEN ? @6,W+1;%15
|
|
25 NEXT
|
|
26 FOR W=0 TO 15:X=XPEEK(W+96)
|
|
27 IF X<> $FF THEN ? @7,W+1;%15
|
|
28 NEXT
|
|
29 FOR W=0 TO 15:X=XPEEK(W+112)
|
|
30 IF X<> $FF THEN ? @8,W+1;%15
|
|
31 NEXT
|
|
32 FOR W=0 TO 15:X=XPEEK(W+128)
|
|
33 IF X<> $FF THEN ? @9,W+1;%15
|
|
34 NEXT
|
|
35 FOR W=0 TO 15:X=XPEEK(W+144)
|
|
36 IF X<> $FF THEN ? @10,W+1;%15
|
|
37 NEXT
|
|
38 FOR W=0 TO 15:X=XPEEK(W+160)
|
|
39 IF X<> $FF THEN ? @11,W+1;%15
|
|
40 NEXT
|
|
41 FOR W=0 TO 15:X=XPEEK(W+176)
|
|
42 IF X<> $FF THEN ? @12,W+1;%15
|
|
43 NEXT
|
|
44 FOR W=0 TO 15:X=XPEEK(W+192)
|
|
45 IF X<> $FF THEN ? @13,W+1;%15
|
|
46 NEXT
|
|
47 FOR W=0 TO 15:X=XPEEK(W+208)
|
|
48 IF X<> $FF THEN ? @14,W+1;%15
|
|
49 NEXT
|
|
50 FOR W=0 TO 15:X=XPEEK(W+224)
|
|
51 IF X<> $FF THEN ? @15,W+1;%15
|
|
52 NEXT
|
|
53 FOR W=0 TO 15:X=XPEEK(W+240)
|
|
54 IF X<> $FF THEN ? @16,W+1;%15
|
|
55 NEXT
|
|
56
|
|
57 ? @2,17;"Press num"
|
|
58 ? @3,17;"to clear:";INPUT Z
|
|
59 XPOKE Z,$FF
|
|
60 'IF Z="end" THEN END
|
|
61
|
|
62
|
|
63
|
|
64 GOTO 1
|
|
# |