Compucolor.org – Virtual Media

Listing of file='ASC.BAS;01' on disk='vmedia/ncc_2-sector.ccvf'

1 LO= 32
2 HI= 95
1000 INPUT "START ADDRESS: ";H
1005 PRINT H;TAB( 7);
1010 X= PEEK (H)
1020 IF X< LOTHEN 3000
1030 IF X> HITHEN 3000
2000 PRINT CHR$ (X);
2010 GOTO 4000
3000 PRINT " ";
4000 H= H+ 1
4010 IF H/ 50= INT (H/ 50)THEN 4050
4020 GOTO 1010
4050 PRINT
4055 PRINT H;TAB( 7);
4060 GOTO 1010