mirror of
https://github.com/wwarthen/RomWBW.git
synced 2026-02-06 22:33:12 -06:00
17 lines
247 B
QBasic
17 lines
247 B
QBasic
10 INPUT "ADDRESS"A
|
|
20 FOR I=0 TO 15
|
|
30 P=A+I*16
|
|
40 PRINT $16,P,
|
|
50 FOR J=0 TO 15
|
|
60 PRINT " ",$8,PEEK(P+J),
|
|
70 NEXT J
|
|
80 PRINT
|
|
90 NEXT I
|
|
100 INPUT ""Q
|
|
110 IF Q<0 GOTO 160
|
|
120 A=A+256
|
|
130 IF Q=0 GOTO 20
|
|
140 A=Q
|
|
150 GOTO 20
|
|
160 END
|