home *** CD-ROM | disk | FTP | other *** search
AMOS Source Code | 1992-06-30 | 286 b | 11 lines |
- Screen Open 1,640,290,2,Hires : Cls 0 : Colour 1,$FFF
- Repeat
- For Z=1 To 60
- P=Peek(100000+A)
- If P>32 and P<126 Then Print Chr$(P); Else Print ".";
- Inc A
- Next Z
- Print "|"
- Print 100000+A;" ";Hex$(100000+A);" |";
- Repeat : Until Mouse Key=0
- Until Inkey$<>""