Załączony program tworzy nową komendę VARDUMP, która umożliwia wylistowanie nazw wszystkich zmiennych występujących w tworzonym przez nas programie. Lista taka znakomicie ułatwia wyszukiwanie „przekłamanych" zmiennych.10 'Listowanie zmiennych
20 'Komenda wywolujaca zmienne:
30 REM "!VARDUMP" i dowolny klawisz
40 MEMORY &9FFF:adress=&A000
50 FOR i=1 TO 19
60 sum=0:READ code$,check$
70 FOR j=1 TO 21 STEP 2
80 byte=VAL("&"+MID$(code$,j,2))
90 POKE adress,byte
100 sum=sum+byte:adress=adress+1
110 NEXT j
120 IF sum<>VAL("&"+check$) THEN PR INT "Blad w danych w linii ";150+i* 10
130 NEXT i
140 CALL &A000
150 DELETE 10-
160 DATA 214ba0cb4ec0cbce0146a0,565
170 DATA 2142a0cdd1bccd00b9f53a,612
180 DATA 02c0a72812216aae224da0,3eb
190 DATA 2168ae2252a0216cae2292,43a
200 DATA a0f1cd0cb9cdc5a04f4b0d,5fc
210 DATA 0a00c956415244554dd000,372
220 DATA 000000003aa0c34ca0002a,2b3
230 DATA 87aee5ed5b85aea7ed52e1,75c
240 DATA ca8fa0eb2323cd9ba03e0d,57d
250 DATA cd5abb3e0acd5abbcd06bb,59a
260 DATA 09e5ed52e138e91818cd9b,5c7
270 DATA a0e5cdc5a028290d0a00e1,500
280 DATA cd06bb235e235623232319,30a
290 DATA e5ed5b89aea7ed52e138dd,740
300 DATA c97ef620e67fcd5abbcb7e,6ed
310 DATA 2328f37efe0120083e2501,347
320 DATA 0500c35abbfe0220083e24,367
330 DATA 010600c35abb010800c9e1,392
340 DATA 7ecd5abb23b720f8e90000,53b
Bajtek| ★ AMSTRAD CPC ★ A voir aussi sur CPCrulez , les sujets suivants pourront vous intéresser... |
|
|
★
