Listing of file='MEPEEK.BAS;01' on disk='vmedia/comtronics-sector.ccvf'
10 REM ***MEMORY PEEK PROGRAMME*** 20 REM WRITTEN BY PETER STANDEN 30 REM SELECT OUTPUT TO SCREEN 40 REM OR MICROLINE 80 AT 300 BAUD 50 REM 60 REM CAN BE USED TO CHECK.... 70 REM MAX RAM SETTING, DRIVE IN USE 80 REM REAL TIME CLOCK, ETC. 90 REM 100 PLOT 12,6,3,29,15 110 PRINT TAB( 25);"MEMORY PEEK":PRINT :PRINT :PLOT 18 120 INPUT "TOTAL # OF SUCESSIVE LOCATIONS:";B 130 PRINT 140 INPUT "START LOCATION (DECIMAL):";S 150 S= S- 1 160 PRINT 170 INPUT "OUTPUT TO SCREEN OR PRINTER? (S OR P):";B$ 180 PRINT 190 B$= LEFT$ (B$,1) 200 IF B$= "S"THEN 240 210 IF B$= "P"THEN 220 220 FLG= PEEK (33265) 230 PLOT 27,18,7,27,13 236 PLOT 27,108,10 237 PRINT TAB( 10):PRINT "MEMORY LOCATIONS & CONTENTS (ASCII). 238 PRINT :PRINT :PRINT 240 FOR X= 1TO B 250 A= PEEK (S+ X) 260 PRINT S+ X,;A,; 270 NEXT X 275 PRINT :PRINT 280 POKE 33265,FLG 290 INPUT "DO YOU WANT TO REPEAT? (Y OR N):";A$ 300 A$= LEFT$ (A$,1) 310 IF A$= "Y"THEN 100 320 IF A$= "N"THEN END