Listing of file='DECDMP.BAS;01' on disk='vmedia/ncc_8_real-sector.ccvf'
1 REM THIS IS STATEMENT 1 2 REM THIS IS STATEMENT 2 59000 REM DECIMAL STORAGE DUMP 59001 REM BY PATRICK LEABO 59002 CLEAR 200 59005 PLOT 15,29,27,11 59010 LE$(0)= "":LE$(1)= " ":LE$(2)= " ":REM 59015 PRINT " THIS IS A DECIMAL STORAGE DUMP PROGRAM" 59016 PRINT " SPECIFY THE DESIRED STARTING ADDRESS IN DECIMAL" 59017 PRINT :PRINT 59020 INPUT "DEC DUMP ADDRESS = ";SA 59025 PRINT :IF SA= 0THEN SA= 33430 59030 PRINT " ADDR 0 1 2 3 4 5 6 7 8 9 ASCII" 59040 PRINT "";SA, 59045 DU$= "" 59050 FOR N= SATO SA+ 9 59060 SP= PEEK (N):SP$= STR$ (SP) 59070 LE= 4- LEN (SP$) 59080 DU$= DU$+ LE$(LE)+ SP$ 59090 IF ((SP> 127)OR (SP< 32))THEN AS$= AS$+ ""+ CHR$ (100):GOTO 59110 59095 IF SP> 95THEN AS$= AS$+ "" 59096 IF SP< = 95THEN AS$= AS$+ "" 59100 AS$= AS$+ CHR$ (SP) 59110 NEXT :PRINT DU$;" ";AS$ 59120 SA= SA+ 10:AS$= "":GOTO 59040