Compucolor.org – Virtual Media

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

0 REM  *********** PICPIC.BAS *************
10 PLOT 12,14:PRINT
20 PRINT TAB( 19)"DISPLAY TRANSFER PROGRAM"
30 PRINT TAB( 19)"eeeeeeeeeeeeeeeeeeeeeeee"
40 PLOT 15:PRINT
50 PRINT TAB( 16)"THIS PROGRAM TRANSFERS A SCREEN"
60 PRINT TAB( 16)"DISPLAY FILE FROM DISC TO DISC"
70 PRINT TAB( 20)"USING THE SCREEN MEMORY.":PRINT
80 PRINT TAB( 10)"YOU HAVE ABOUT 20 SECONDS TO REMOVE SOURCE"
90 PRINT TAB( 10)"DISK,AND INSERT DESTINATION DISK AFTER THE"
100 PRINT TAB( 10)"DISPLAY HAS LOADED TO SCREEN (TIME DELAY).":PRINT
110 INPUT "      ENTER FILE NAME,& TYPE (E.G.'QUINT.DSP') ";A$
120 PRINT
130 INPUT "          SCREEN MEMORY COMMENCING 6000  OR 7000? ";N
140 N= INT (N):IF N< 6OR N> 7THEN PLOT 28,11:GOTO 130
150 PRINT :INPUT "          INSERT SOURCE DISK, THEN PRESS RETURN -";Q
160 N$= STR$ (1000* N)
170 PLOT 27,4
180 PRINT "LOA CD0:"A$;N$
190 PLOT 27,27
200 FOR I= 1TO 10000:NEXT I
210 PLOT 27,4
220 PRINT "SAV CD0:"A$;N$;" 1000"
230 PLOT 27,27
240 PLOT 12:PRINT
250 PRINT TAB( 13)"TYPE 'RUN' AND PRESS RETURN TO REPEAT "
260 END