Listing of file='SCREEN.BAS;01' on disk='vmedia/chip_22-sector.ccvf'
0 REM SCREEN-SAVE PROGRAM. (C) A.W.GROGONO. JUNE 1979 2 CLEAR 500:DIM N$(11),LINE(127):REM #S & TOP LINE 4 FOR I= 0TO 127:LINE(I)= PEEK (28672+ I):NEXT I:REM SAVE 6 PLOT 2,255,29,27,24,15,6,1,8,11:REM CLEAR TOP LINE 8 REM WHEN ISSUED LINE 10 IS: 10 GOTO 600:REM OMIT TO USE 10 GOTO 600 20 INPUT "SELECT: SAVE SCREEN OR INDEX; PRESS RETURN: ";Z$:REM 30 IF Z$< > "S"AND Z$< > "I"THEN PLOT 8,11:GOTO 20:REM REPEAT 40 IF Z$= "S"THEN GOSUB 200:REM SAVE SCREEN 50 DATA "1","2","3","4","5","6","7","8","9","A","B":REM HEX DEC 60 FOR N= 1TO 11:READ N$(N):NEXT N:REM HEX DEC COUNTING 100 PLOT 6,2,12,14,3,11,7:REM CLEAR SCREEN 110 PRINT "S A V E - S C R E E N P R O G R A M":PRINT "" 120 PRINT ,,"1. REVIEW OLD IMAGE":PRINT 130 PRINT ,,"2. ERASE OLD IMAGE":PRINT 140 PRINT ,,"3. PREPARE NEW DISK":PRINT 150 PRINT ,,"4. MAKE NEW IMAGE FOR SAVING":PRINT :PRINT 160 PRINT ,,:INPUT "ENTER # AND PRESS RETURN: ";I 170 ON IGOTO 300,400,700,900:GOTO 100 200 FOR I= 0TO 127:POKE 28672+ I,LINE(I):NEXT I:REM TOP LINE 210 PLOT 27,4:PRINT "SAVE SCREEN.DIS 6000-6FFF":REM SAVE-SCREEN 220 PLOT 27,27:RETURN 300 I$= "REVIEWED":GOSUB 500:REM REVIEW OLD IMAGES 310 FOR N= LTO H:PLOT 3,64,29,27,4:REM LOSE CURSOR 320 PRINT "LOAD SCREEN.DIS;"+ N$(N):PLOT 27,27:REM IMAGE 330 INPUT "";Z$:NEXT N:GOTO 100 399 END 400 I$= "ERASED":GOSUB 500:REM ERASE OLD IMAGES 410 PLOT 27,4:FOR N= HTO LSTEP - 1:REM BACK FROM H TO L 420 PRINT "DEL SCREEN.DIS;"+ N$(N):NEXT N:REM ERASE 430 PLOT 27,27:PRINT "IGNORE FCS ERROR - EFNF";:REM REASSURE 440 PRINT " DURING RENAMING":PLOT 10,27,4:REM 450 G= H- L+ 1:FOR N= LTO 11- G:REM RENAME TO CLOSE GAP 460 PRINT "REN SCREEN.DIS;"+ N$(N+ G)+ "TO SCREEN.DIS;"+ N$(N) 470 NEXT N:PLOT 27,27:GOTO 100 500 PLOT 6,1+ (I- 1)* 5,12,27,4:PRINT "DIR":REM DIRECTORY 510 PLOT 27,27:PRINT ,"IMAGES ARE LISTED: SCREEN.DIS;N":PRINT 520 PRINT ,"WHERE N IS THE NUMBER.":PRINT 530 PRINT ,"ENTER #S OF FIRST AND LAST IMAGES TO BE ";I$;":" 540 PRINT :PRINT ,,"FIRST ";:GOSUB 570:L= N:REM 550 PRINT :PRINT ,," LAST ";:GOSUB 570:H= N:REM 560 PRINT :PRINT ,,:INPUT "PRESS RETURN TO ADVANCE:";Z$:RETURN 570 INPUT "";N$:REM INPUT N 572 IF N$= "A"OR N$= "OA"OR N$= "0A"THEN N$= "10":REM 10 574 IF N$= "B"OR N$= "OB"OR N$= "0B"THEN N$= "11":REM 11 580 N= VAL (N$):RETURN 600 PLOT 14,12,3,18,3:PRINT "I N S T R U C T I O N S":PRINT 610 PRINT ,"THIS PROGRAM ALLOWS YOU TO:":PRINT 620 PRINT ,,"PREPARE BLANK DISKS FOR SAVING IMAGES":PRINT 630 PRINT ,,"SAVE 11 IMAGES ON A DISK":PRINT 640 PRINT ,,"REVIEW THE IMAGES":PRINT 650 PRINT ,,"ERASE OLD IMAGES":PRINT :PRINT 660 PRINT ,"TO USE THE PROGRAM: DELETE LINE 10,":PRINT 670 PRINT ,"AND RESTART PROGRAM AT LINE 700:":PRINT 680 PRINT ,"NOW TYPE 10 PRESS RETURN, AND THEN":PRINT 690 PRINT ," TYPE RUN 700.":END 700 PLOT 2,255,29,27,24,15,14,12,3,16,5:REM DISK PREPARATION 710 PRINT "D I S K P R E P A R A T I O N":PRINT 720 PRINT ,,"PRESS RETURN AFTER EACH INSTRUCTION:":PRINT :REM 730 PRINT ,,:INPUT "1. PUT PROGRAM DISK AWAY !!";Z$:PRINT 740 PRINT ,,:INPUT "2. INSERT DISK TO BE USED.";Z$:PRINT 750 PRINT ,,"3. PRESS RETURN TO:" 760 PRINT ,,,"INITIALIZE DISK AND" 770 PRINT ,,,:INPUT "RECORD PROGRAM ON DISK.";Z$:PRINT 780 PLOT 27,4:PRINT "INI0:SCREENSAVE":PLOT 27,27:REM INI 790 SAVE "MENU":REM SAVE PROGRAM AS "MENU" 800 FOR I= 1TO 8:PLOT 28,11:NEXT I:REM CLEAR SCREEN 810 PRINT ,,"4. THE DISK IS READY TO USE.": 820 PRINT ,,,:INPUT "PRESS RETURN TO SEE INDEX:";Z$:GOTO 100 900 PLOT 12,6,3,14,3,16,3:REM IMAGE PREPARATION 910 PRINT "I M A G E P R E P A R A T I O N" 920 PRINT ,,"WHEN YOU HAVE MADE AN IMAGE:":PRINT 930 PRINT ,,"INSERT PREPARED DISK & PRESS AUTO.":PRINT 940 PRINT ,,"A QUESTION APPEARS AT THE TOP LINE:":PRINT 950 PRINT ,,"SELECT: SAVE SCREEN OR INDEX; PRESS RETURN":PRINT 960 PRINT ,,"ENTER S AND PRESS RETURN.":PRINT :PRINT 970 PRINT ,,"IMAGES CAN BE PREPARED WITH:":PRINT 980 PRINT ,,,"1. A SEPARATE PROGRAM" 990 PRINT ,,,"2. TYPING, IN BASIC" 1000 PRINT ,,,"3. TYPING IN CRT MODE":PRINT :PRINT 1010 PRINT ,,"ALL THREE METHODS WORK WELL, BUT" 1020 PRINT ,,"3. TYPING IN CRT MODE, IS EASIEST" 1030 PRINT ,,"WHEN TYPING NEW MATERIAL.":PRINT :PRINT 1040 PRINT ,,"PRESS CPU RESET AND THEN ERASE PAGE" 1050 PRINT ,,"TO ENTER CRT MODE FOR TYPING IMAGE." 1060 PLOT 8:END