Compucolor.org – Virtual Media

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

100 REM  ** INSTRUCTIONS PROGRAM FOR UTILITY PROGRAMS FOR
110 REM  ** WHICH DOCUMENTATION WAS SUBMITTED TO THE NCCUG
120 REM  ** DOCUMENTATION LIBRARY BY THE PROGRAM AUTHOR
130 REM  ** VERSION: AUGUST 24, 1980
140 REM  ** INSTRUCTION PROGRAM EDITOR: CHUCK SONTAG
150 PLOT  12,6,38,3,10,0,14
160 PRINT " I N S T R U C T I O N S    P R O G R A M "
170 PLOT  6,3,3,0,4,15,255,13,32,13
180 PRINT :PRINT :PRINT
190 PRINT TAB( 13)"SELECT ONE OF THE FOLLOWING UTILITIES"
200 PRINT TAB( 13)"FOR WHICH YOU WISH USER INSTRUCTIONS:":PRINT
210 PRINT TAB( 15);"1. CPYAID UTILITY"
220 PRINT TAB( 15);"2. MONITR UTILITY"
230 PRINT TAB( 15);"3. PRGZAP UTILITY":PRINT
240 PRINT TAB( 13):INPUT "ENTER YOUR CHOICE (1,2 OR 3) & PRESS RETURN: ";KE:PRINT :REM
250 IF KE< 1 OR KE> 3THEN 240
260 X= 1
270 ON  KEGOSUB 280,3000,4000
280 PLOT 12,6,X,3,8,0,14
290 PRINT " C O P Y A I D    I N S T R U C T I O N S "
300 PLOT 15,255,13,32,13:PRINT :PRINT :PRINT :PRINT :PRINT :PRINT
310 PRINT "TITLE:   USER INSTRUCTIONS FOR CPYAID UTILITY PROGRAM."
320 PRINT :PRINT
330 PRINT "PURPOSE: BRIEFLY, CPYAID READS & SORTS A DIRECTORY OF A"
340 PRINT TAB( 9);"'SOURCE' DISK.  YOU MAY SELECT FROM 1 UP TO 87 FILES"
350  PRINT TAB( 9);"THEREFROM AND COPY THEM ONTO A 'DESTINATION' DISK."
360 PRINT :PRINT
370 PRINT "REQUIRED: 1. AT LEAST 16K MEMORY."
380 PRINT TAB( 10);"2. TWO DISK DRIVES."
390 PRINT TAB( 10);"3. 'SOURCE' DISK, WITH NO MORE THAN 87 FILES."
400 PRINT TAB( 10);"4. 'DESTINATION' DISK."
410 PRINT TAB( 10);"5. CPYAID PROGRAM, WITH COPY.PRG;1 MACHINE LANGUAGE"
420 PRINT TAB( 13);"SUBROUTINE."
430 PRINT :PRINT
440 PRINT TAB( 9):INPUT  "WHEN READY TO CONTINUE PRESS: RETURN ";A$
450 ON  A$= "RETURN" GOTO 460
460 PLOT 12
470 PLOT 12,6,X,3,12,0,14
480 PRINT " C O P Y A I D    I N S T R U C T I O N S "
490 PLOT 15,255,13,32,13
500 PRINT "FEATURES: 1. FACILITATES SELECTIVE COPYING OF FILE(S) FROM"
510 PRINT TAB( 13);"ONE DISK TO ANOTHER."
520 PRINT
530 PRINT TAB( 10);"2. DISPLAYS FILE NAMES & SIZE IN FULL-SCREEN,"
540 PRINT TAB( 13);"3-COLUMN FORMAT. ENABLES RE-DISPLAY WITHOUT"
550 PRINT TAB( 13);"RE-READING OR RE-SORTING 'SOURCE' DISK."
560 PRINT
570 PRINT TAB( 10);"3. ENABLES FILE SELECTION BY USER POSITIONING OF"
580 PRINT TAB( 13);"CURSOR & PRESSING THE X-KEY TO SELECT (OR C-KEY"
590 PRINT TAB( 13);"TO CANCEL, OR R-KEY TO RESET FILE VERSION NO.)."
600 PRINT
610 PRINT TAB( 10);"4. ALLOWS ALPHANUMERIC OR RANDOM ORDER ARRANGEMENT"
620 PRINT TAB( 13);"OF FILES COPIED ONTO 'DESTINATION' DISK."
630 PRINT
640 PRINT TAB( 10);"5. DETECTS COPY ERRORS; DISPLAYS 'COPY ERROR' PROMPT"
650 PRINT TAB( 13);"UNTIL ENTER IS PRESSED."
660 PRINT
670 PRINT TAB( 10);"6. ALLOWS 'HOLDING DOWN' KEYS TO SPEED UP REPEAT."
680 PRINT
690 PRINT TAB( 10);"7. ENABLES RE-DISPLAY OF 'DESTINATION' DIRECTORY"
700 PRINT TAB( 13);"WITHOUT NEED FOR RE-READING OR RE-SORTING."
710 PRINT
720 PRINT TAB( 10);"8. UTILIZES FCS COPY COMMANDS."
730 PRINT
740 PRINT TAB( 10);"9. OVERCOMES FCS COPY COMMAND PROBLEM PECULIAR "
750 PRINT TAB( 13);"TO VERSION 6.78 OF DISK BASIC WHEREIN EXTRANEOUS"
760 PRINT TAB( 13);"ERRORS & ERRONEOUS FILE NAMES RESULTED."
770 PRINT
780 PRINT TAB( 10):INPUT  "WHEN READY TO CONTINUE PRESS: RETURN ";A$
790 ON  A$= "RETURN" GOTO 800
800 PLOT 12,6,X,3,7,0,14
810 PRINT " C O P Y A I D    I N S T R U C T I O N S "
820 PLOT 15,255,13,32,13
830 PRINT :PRINT :PRINT
840 PRINT "OPERATING INSTRUCTIONS: (THIS IS NOT A STEP-BY-STEP PROCEDURE)"
850 PRINT
860 PRINT TAB( 5);"1. GETTING STARTED:"
870 PRINT
880 PRINT TAB( 8);"LOAD CPYAID PROGRAM."
890 PRINT
900 PRINT TAB( 5);"2. SPECIAL INSTRUCTION FOR V6.78 VERSION OF DISK BASIC:"
910 PRINT
920 PRINT TAB( 8);"AFTER LOADING CPYAID AND BEFORE REMOVING THE"
930 PRINT TAB( 8);"CPYAID DISK, ENTER A RUN COMMAND, IF NOT ALREADY DONE"
940 PRINT TAB( 8);"SO. (THIS IS TO ALLOW CPYAID TO LOAD THE COPY.PRG;1"
950 PRINT TAB( 8);"SUBROUTINE.)"
960 PRINT
970 PRINT TAB( 8);"NOTE: THIS PROGRAM ENTERS RUN...SEE LINE 1980.":REM
980 PRINT
990 PRINT TAB( 8);"ONCE THE SUBROUTINE IS LOADED, CPYAID MAY BE"
1000 PRINT TAB( 8);"RESTARTED WITHOUT REFERENCE TO THE CPYAID DISK"
1010 PRINT TAB( 8);"BY ENTERING:":PRINT
1020 PRINT TAB( 15);"RESET, ESC E, RUN"
1030 PRINT :PRINT
1040 PRINT TAB( 5):INPUT  "WHEN READY TO CONTINUE PRESS: RETURN ";A$
1050 ON  A$= "RETURN" GOTO 1060
1060 PLOT 12,6,X,3,7,0,14
1070 PRINT " C O P Y A I D    I N S T R U C T I O N S "
1080 PLOT 15,255,13,32,13
1090 PRINT
1100 PRINT  "OPERATING INSTRUCTIONS (CONT'D):"
1110 PRINT
1120 PRINT TAB( 5);"3. SELECTING A FILE TO BE COPIED:"
1130 PRINT
1140 PRINT TAB( 8);"NOTE THAT THE FULL-SCREEN, 3 COLUMN DISPLAY USES"
1150 PRINT TAB( 8);"'WHITE' CHARACTERS, EXCEPT THAT: 'GREEN' CHARACTERS"
1160 PRINT TAB( 8);"APPEAR FOR THE 'LATEST VERSION', WHEN MORE THAN"
1170 PRINT TAB( 8);"ONE FILE VERSION EXISTS ON THE 'SOURCE' DISK."
1180 PRINT
1190 PRINT TAB( 8);"POSITION THE CURSOR TO THE LEFT OF THE DESIRED"
1200 PRINT TAB( 8);"ENTRY, USING THE DIRECTION ARROW(S) AND/OR TAB."
1210 PRINT
1220 PRINT TAB( 8);"PRESS THE X-KEY TO SELECT; OR, C-KEY TO CANCEL; OR,"
1230 PRINT TAB( 8);"R-KEY TO RESET THE VERSION NO. TO 01 ON THE"
1240 PRINT TAB( 8);"'DESTINATION' DISK. (SEE RESET CAUTION BELOW.)"
1250 PRINT
1260 PRINT TAB( 8);"NOTE THAT A RED BACKGROUND HIGHLIGHTS THE"
1270 PRINT TAB( 8);"DISPLAY WHEN AN ENTRY IS SELECTED (X-KEY)."
1280 PRINT
1290 PRINT TAB( 8);"SIMILIARLY, NOTE THAT A BLUE BACKGROUND HIGHLIGHTS"
1300 PRINT TAB( 8);"THE DISPLAY WHEN AN ENTRY IS RESET (R-KEY)."
1310 PRINT
1320 PRINT TAB( 8);"FINALLY, NOTE THAT A RED, OR BLUE,  BACKGROUND"
1330 PRINT TAB( 8);"DISAPPEARS WHEN AN ENTRY IS CANCELLED (C-KEY)."
1340 PRINT :PRINT
1350 PRINT TAB( 5):INPUT  "WHEN READY TO CONTINUE PRESS: RETURN ";A$
1360 ON  A$= "RETURN" GOTO 1370
1370 PLOT 12,6,X,3,7,0,14
1380 PRINT " C O P Y A I D    I N S T R U C T I O N S "
1390 PLOT 15,255,13,32,13
1400 PRINT
1410 PRINT  "OPERATING INSTRUCTIONS (CONT'D):"
1420 PRINT
1430 PRINT TAB( 5);"4. REPEAT FUNCTION:"
1440 PRINT
1450 PRINT TAB( 8);"REPEAT ANY KEY AFOREMENTIONED BY HOLDING IT DOWN."
1460 PRINT
1470 PRINT TAB( 5);"5. COPYING FILE(S) SELECTED:"
1480 PRINT
1490 PRINT TAB( 8);"PRESS ENTER WHENEVER YOU WISH CPYAID TO COPY YOUR"
1500 PRINT TAB( 8);"SELECTION ONTO THE 'DESTINATION' DISK; YOU MAY SELECT"
1510 PRINT TAB( 8);"ONE, OR MORE FILES AT A TIME."
1520 PRINT
1530 PRINT TAB( 8);"IF MORE THAN ONE, THEN FILES ARE COPIED IN ALPHANUMERIC"
1540 PRINT TAB( 8);"ORDER, AS DISPLAYED.  HOWEVER, IF ONE ONLY, THEN FILES"
1550 PRINT TAB( 8);"MAY BE COPIED IN RANDOM ORDER, USING THIS PROCEDURE:"
1560 PRINT
1570 PRINT TAB( 11);"A. SELECT FIRST FILE; B. PRESS ENTER TO COPY FILE;"
1580 PRINT TAB( 11);"C. THEN, CPYAID WILL RE-DISPLAY FULL SCREEN;"
1590 PRINT TAB( 11);"D. SELECT NEXT FILE; E. PRESS ENTER TO COPY FILE;"
1600 PRINT TAB( 11);"F. THEN, CPYAID...G. ETC."
1610 PRINT
1620 PRINT TAB( 8);"ANY ATTEMPT TO COPY THE SAME FILE TWICE ONTO THE SAME"
1630 PRINT TAB( 8);"'DESTINATION' DISK WILL CAUSE A COPY ERROR PROMPT."
1640 PRINT :PRINT
1650 PRINT TAB( 5):INPUT  "WHEN READY TO CONTINUE PRESS: RETURN ";A$
1660 ON  A$= "RETURN" GOTO 1670
1670 PLOT 12,6,X,3,7,0,14
1680 PRINT " C O P Y A I D    I N S T R U C T I O N S "
1690 PLOT 15,255,13,32,13
1700 PRINT :PRINT
1710 PRINT  "OPERATING INSTRUCTIONS (CONT'D):"
1720 PRINT
1730 PRINT TAB( 5);"6. FINISHING UP:"
1740 PRINT
1750 PRINT TAB( 8);"PRESS ENTER, BUT SELECT NO FILE TO DISPLAY THE"
1760 PRINT TAB( 8);"DIRECTORY OF THE 'DISTINATION' DISK."
1770 PRINT
1780 PRINT TAB( 8);"IF ATTEMPTING TO LIST THE DIRECTORY OF THE"
1790 PRINT TAB( 8);"'DESTINATION' DISK CAUSES A 'READY' PROMPT, THEN"
1800 PRINT TAB( 8);"ENTER CONT; IF THIS CAUSES A 'CONTINUE ERROR' PROMPT,"
1810 PRINT TAB( 8);"THEN ENTER GO TO 10 TO AVOID RE-READING OR RE-SORTING.""
1820 PRINT
1830 PRINT TAB( 5);"7. C A U T I O N :"
1840 PRINT
1850 PRINT TAB( 8);"WHEN RE-INITIALIZING THE 'DISTINATION' DISK, IT IS"
1860 PRINT TAB( 8);"RECOMMENDED THAT THE DISK BE RE-FORMATTED FIRST."
1870 PRINT
1880 PRINT TAB( 8);"OTHERWISE, THE FCS> WRITE COMMAND MAY BE USED. EXAMPLE:"
1890 PRINT
1900 PRINT TAB( 14);"RESET,ESC D, WRITE 0 7000-7FFF"
1910 PRINT :PRINT
1920 PRINT TAB( 5):INPUT "ENTER YOUR CHOICE: 1) LOAD CPYAID OR 2) RETURN TO MENU ";KE:PRINT :REM
1930 PRINT
1940 IF KE< 1OR KE> 2THEN GOTO 1920
1950 ON KEGOSUB 1955,1990
1955 PLOT  12,8:PRINT :PRINT :PRINT :PRINT :PRINT
1960 PRINT TAB( 10);"LOADING  C O P Y A I D  UTILITY"
1970 FOR I= 0TO 200:NEXT I
1980 LOAD "CPYAID;1":RUN
1990 PRINT TAB( 15);"LOADING   M   E   N   U"
2000 FOR I= 0TO 200:NEXT I
2010 PLOT 27,4
2020 PRINT "LOAD MENU.BAS;01"
2030 PLOT 27,27
2040 RUN
3000 PLOT 12,8:PRINT :PRINT :PRINT :PRINT :PRINT
3010 PRINT TAB( 10);"LOADING  M O N I T O R  INSTRUCTIONS"
3020 FOR I= 0TO 200:NEXT I
3030 PLOT 27,4
3040 PRINT "LOAD MONITR.BAS;FF"
3050 PLOT 27,27
3060 RUN
4000 X= 1
4010 PLOT 12,6,X,3,8,0,14
4020 PRINT " P R G Z A P    I N S T R U C T I O N S "
4030 PLOT 15,255,13,32,13:PRINT :PRINT :PRINT :PRINT :PRINT :PRINT
4040 PRINT "TITLE:   USER INSTRUCTIONS FOR PRGZAP UTILITY PROGRAM."
4050 PRINT :PRINT
4060 PRINT "PURPOSE: BRIEFLY, PRGZAP ENABLES THE USER TO CHANGE A PRG FILE"
4070 PRINT TAB( 9); "IN-PLACE RELATIVE TO ASSEMBLY LISTING ADDRESS(ES) OR,"
4080 PRINT TAB( 9);"I.E., TO ADDRESS(ES) AT WHICH THE PRG IMAGE IS LOADED."
4090 PRINT :PRINT
4100 PRINT "REQUIRED: 1. AT LEAST 16K MEMORY."
4110 PRINT TAB( 10);"2. VERSION 6.78 DISK BASIC; VERSION 8.79 WON'T WORK."
4120 PRINT TAB( 10);"3. PGRZAP PROGRAM, WITH UDOS.PRG;1 MACHINE LANGUAGE"
4130 PRINT TAB( 13);"SUB-ROUTINE."
4140 PRINT :PRINT
4150 PRINT TAB( 9):INPUT  "WHEN READY TO CONTINUE PRESS: RETURN ";A$
4160 ON  A$= "RETURN" GOTO 4170
4170 PLOT 12
4180 PLOT 12,6,X,3,12,0,14
4190 PRINT " P R G Z A P    I N S T R U C T I O N S "
4200 PLOT 15,255,13,32,13:PRINT :PRINT :PRINT :PRINT
4210 PRINT "FEATURES: 1. FACILITATES IN-PLACE CHANGES TO PRG FILES."
4220 PRINT
4230 PRINT TAB( 10);"2. DISPLAYS PROGRAM CONTENT IN HEXIDECIMAL & ASCII"
4240 PRINT TAB( 13);"FORMAT."
4250 PRINT
4260 PRINT TAB( 10);"3. ENABLES CHANGES BY USER POSITIONING OF CURSOR &"
4270 PRINT TAB( 13);"PRESSING OF APPROPRIATE KEY(S)."
4280 PRINT
4290 PRINT TAB( 10);"4. ASSISTS USER CHANGES BY BLINKING THE ASCII"
4300 PRINT TAB( 13);"CHARACTER WHEN THE CURSOR MARKS THE HEXIDECIMAL"
4310 PRINT TAB( 13);"CHARACTER, & VICE-VERSA."
4320 PRINT
4330 PRINT TAB( 10);"5. ALLOWS 'FRED16' TO BE LOADED CONCURRENTLY."
4340 PRINT
4350 PRINT TAB( 10);"6. OVERCOMES FCS COPY COMMAND PROBLEM PECULIAR "
4360 PRINT TAB( 13);"TO VERSION 6.78 OF DISK BASIC WHEREIN EXTRANEOUS"
4370 PRINT TAB( 13);"ERRORS & ERRONEOUS FILE NAMES RESULTED."
4380 PRINT :PRINT
4390 PRINT TAB( 10):INPUT  "WHEN READY TO CONTINUE PRESS: RETURN ";A$
4400 ON  A$= "RETURN" GOTO 4410
4410 PLOT 12,6,X,3,7,0,14
4420 PRINT " P R G Z A P    I N S T R U C T I O N S "
4430 PLOT 15,255,13,32,13
4440 PRINT
4450 PRINT "OPERATING INSTRUCTIONS: (THIS IS NOT A STEP-BY-STEP PROCEDURE)"
4460 PRINT
4470 PRINT TAB( 5);"1. GETTING STARTED:"
4480 PRINT
4490 PRINT TAB( 8);"LOAD PRGZAP PROGRAM."
4500 PRINT
4510 PRINT TAB( 5);"2. SPECIAL INSTRUCTION (FOR PROBLEM PECULIAR TO V6.78):"
4520 PRINT
4530 PRINT TAB( 8);"AFTER LOADING PRGZAP AND BEFORE REMOVING THE"
4540 PRINT TAB( 8);"PRGZAP DISK, ENTER A RUN COMMAND, IF NOT ALREADY"
4550 PRINT TAB( 8);"DONE SO. (THIS IS TO ALLOW PRGZAP TO LOAD THE"
4560 PRINT TAB( 8);"UDOS.PRG;1 SUBROUTINE.)"
4570 PRINT
4580 PRINT TAB( 8);"NOTE: THIS PROGRAM ENTERS RUN...SEE LINE 5340.":REM
4590 PRINT
4600 PRINT TAB( 8);"NOTE: IF AN 'ERROR' PROMPT IS CAUSED BY NON-COMPLIANCE,"
4610 PRINT TAB( 14);"THEN RECOVER BY LOADING UDOS.PRG;1 ON THE LOAD"
4620 PRINT TAB( 14);"DRIVE & PRESS RUN."
4630 PRINT
4640 PRINT TAB( 8);"ONCE THE SUBROUTINE IS LOADED, PRGZAP MAY BE"
4650 PRINT TAB( 8);"RESTARTED WITHOUT REFERENCE TO THE PRGZAP DISK"
4660 PRINT TAB( 8);"BY ENTERING:":PRINT
4670 PRINT TAB( 15);"RESET, ESC E, RUN"
4680 PRINT :PRINT
4690 PRINT TAB( 5):INPUT  "WHEN READY TO CONTINUE PRESS: RETURN ";A$
4700 ON  A$= "RETURN" GOTO 4710
4710 PLOT 12,6,X,3,7,0,14
4720 PRINT " P R G Z A P    I N S T R U C T I O N S "
4730 PLOT 15,255,13,32,13
4740 PRINT
4750 PRINT  "OPERATING INSTRUCTIONS (CONT'D):"
4760 PRINT
4770 PRINT TAB( 5);"3. ENTERING CHANGES IN-PLACE:"
4780 PRINT
4790 PRINT TAB( 8);"LOAD DISK CONTAINING PRG FILE(S) TO BE REVISED."
4800 PRINT
4810 PRINT TAB( 8);"('PROMPT' WILL APPEAR): ENTER FILENAME OF PRG FILE."
4820 PRINT TAB( 8);"USER MAY INCLUDE COLONS & SEMICOLONS; BUT, DO NOT USE"
4830 PRINT TAB( 8);"ENCLOSING DOUBLE QUOTES."
4840 PRINT
4850 PRINT TAB( 8);"('PROMPT' WILL APPEAR): ENTER LOWEST & HIGHEST ADDRESS"
4860 PRINT TAB( 8);"OF THE PRG FILE AREA TO BE CHANGED."
4870 PRINT
4880 PRINT TAB( 8);"SPECIFY EITHER DECIMAL (DIGITS 0-9) OR HEXIDECIMAL"
4890 PRINT TAB( 8);"(DIGITS 0-9, A-F, WITH SUFFIX H) ADDRESS(ES)."
4900 PRINT
4910 PRINT TAB( 8);"NOTE: USE ADDRESS(ES) AT WHICH PRG PROGRAM IS ASSEMBLED."
4920 REM :PRINT
4930 PRINT TAB( 8);"('PROMPT' WILL APPEAR): SPECIFY AREA OF SCREEN DISPLAY."
4940 PRINT TAB( 8);"AS 'PROMPT'ED, LOW LIMIT IS 1 & HIGH LIMIT IS 128, OR"
4950 PRINT TAB( 8);"END OF PROGRAM, WHICHEVER IS LESS."
4960 PRINT
4970 PRINT TAB( 8);"NOTE: DEFAULT IS 64 (OR, END OF PROGRAM)."
4980 PRINT :PRINT
4990 PRINT TAB( 5):INPUT  "WHEN READY TO CONTINUE PRESS: RETURN ";A$
5000 ON  A$= "RETURN" GOTO 5010
5010 PLOT 12,6,X,3,7,0,14
5020 PRINT " P R G Z A P    I N S T R U C T I O N S "
5030 PLOT 15,255,13,32,13
5040 PRINT
5050 PRINT  "OPERATING INSTRUCTIONS (CONT'D):"
5060 PRINT
5070 PRINT TAB( 5);"3. ENTERING CHANGES IN-PLACE (CONTD):"
5080 PRINT
5090 PRINT TAB( 8);"NOTE THAT PRGZAP BLINKS THE ASCII CHARACTER WHEN THE"
5100 PRINT TAB( 8);"CURSOR MARKS THE HEXIDECIMAL CHARACTER, & VICE VERSA."
5110 PRINT
5120 PRINT TAB( 8);"POSITION THE CURSOR OVER BOTH THE ASCII & HEXIDECIMAL"
5130 PRINT TAB( 8);"PARTS OF THE SCREEN DISPLAY, USING THE ARROW-KEY(S) OR"
5140 PRINT TAB( 8);"THE TAB-KEY."
5150 PRINT
5160 PRINT TAB( 8);"PRESS THE APPROPRIATE KEY(S) TO MAKE CHANGES."
5170 PRINT
5180 PRINT TAB( 8);"NOTE THAT CHANGES ARE HGHLIGHTED IN BLUE."
5190 PRINT
5200 PRINT TAB( 5);"4. FINISHING UP:"
5210 PRINT
5220 PRINT TAB( 8);"PRESS RETURN TO WRITE BACK IN-PLACE TO THE PRG FILE."
5230 PRINT TAB( 8);"('PROMPT' RE-APPEARS FOR ANOTHER ADDRESS)."
5240 PRINT
5250 PRINT TAB( 8);"PRESS RESET TO AVOID WRITE BACK AND TO TERMINATE"
5260 PRINT TAB( 8);"REVISIONS TO THE PRG FILE."
5270 PRINT :PRINT
5280 PRINT TAB( 5):INPUT "ENTER YOUR CHOICE: 1) LOAD PRGZAP OR 2) RETURN TO MENU ";KE:PRINT :REM
5290 PRINT
5300 IF KE< 1OR KE> 2THEN GOTO 5280
5310 ON KEGOSUB 5315,5350
5315 PLOT  12,8:PRINT :PRINT :PRINT :PRINT :PRINT
5320 PRINT TAB( 10);"LOADING  P R G Z A P  UTILITY"
5330 FOR I= 0TO 200:NEXT I
5340 LOAD "PRGZAP;1":RUN
5350 PRINT TAB( 15);"LOADING   M   E   N   U"
5360 FOR I= 0TO 200:NEXT I
5370 PLOT 27,4
5380 PRINT "LOAD MENU.BAS;01"
5390 PLOT 27,27
5400 RUN
5480 END :RETURN