Listing of file='SCRSAV.BAS;01' on disk='vmedia/modified_utilities-sector.ccvf'
100 PLOT 15,12,3,0,10:INPUT " DO YOU NEED INSTRUCTIONS (Y/N)? ";X$ 110 IF X$< > "Y"GOTO 230 120 PLOT 14,12,3,15,1:PRINT "SCREEN DISPLAY UTILITY ROUTINE" 130 PLOT 15:PRINT :PRINT :PRINT TAB( 22)"BY RICK TAUBOLD" 140 PRINT TAB( 20)"197 HOLLYBROOK ROAD" 150 PRINT TAB( 19)"ROCHESTER, N.Y. 14623" 160 PLOT 3,0,12:PRINT TAB( 8)"USE <ESC S> TO STORE THE DISPLAY IN MEMORY" 170 PRINT :PRINT TAB( 8)"USE <ESC ^> TO RETRIEVE DISPLAY FROM MEMORY" 180 PRINT :PRINT :PRINT TAB( 8)"TO SAVE DISPLAY TO DISK:" 190 PRINT :PRINT TAB( 14)"1. USE <ESC S> FIRST" 200 PRINT TAB( 14)"2. AFTER A MOMENT PRESS <ESC E>" 210 PRINT TAB( 14)"3. TYPE 'RUN',AND FOLLOW PROMPTS" 220 PLOT 3,0,25:INPUT " PRESS <RETURN> TO CONTINUE";X 230 PLOT 12,3,0,10 240 RESTORE :FOR I= 40960TO 41003 250 READ B:POKE I,B 260 NEXT I 270 POKE 33215,195:POKE 33216,20:POKE 33217,160 280 DATA 33,0,16,1,0,96,17,0,144,10,18 290 DATA 3,19,43,124,181,194,9,160,255,205,24 300 DATA 160,255,33,0,16,1,0,96,17,0,144 310 DATA 26,2,3,19,43,124,181,194,33,160,201 320 PLOT 12,14,3,0,10:PRINT TAB( 17)"MACHINE LANGUAGE IS LOADED" 330 PLOT 15:INPUT " ARE YOU READY TO SAVE THE DISPLAY (Y/N)? ";X$ 340 IF X$= "Y"GOTO 360 350 PLOT 12,3,0,10:PRINT TAB( 10)"RE-ENTER CRT MODE, PRESS <ESC ^>, AND CONTINUE.":END 360 POKE 33282,195:POKE 33283,24:POKE 33284,160:Y= CALL (0) 370 PLOT 27,4 380 PRINT "SAVE SCREEN.DSP 6000-6FFF":PLOT 27,27 390 PLOT 12,3,0,10:PRINT TAB( 4)"DISPLAY IS NOW SAVED UNDER THE NAME: SCREEN.DSP" 400 PRINT :PRINT :PRINT :PRINT TAB( 4)"USE FCS 'RENAME' COMMAND TO CHANGE THE FILE NAME IF DESIRED." 410 PLOT 3,0,28:END