Listing of file='START' on disk='vmedia/2282_graphics_crt_demos.wvd.zip'
# Sector 8, program filename = 'START'
7500 REM % START GENERATED BY MENU PACKAGE
7505 $PSTAT=" "
7510 DATA LOAD DC OPEN T#0,"APPSAVE"
: ERROR$PSTAT=" "
: LOAD T#0,"@MENU1"
: ERRORLOAD T#0,"@MENU"
: ERRORGOTO 7550
7520 DATA LOAD DC #0,U5$,U7$
7530 SELECT #1 <U5$>
7535 VERIFY T#1,(0,0)
: ERRORGOTO 7550
7540 SELECT #0 <U5$>
: LOAD T#0,"@MENU1"
: ERRORLOAD T#0,"@MENU"
: ERRORGOTO 7550
7550 PRINT AT(22,0,);HEX(02040B000F0E);"Unable to find disk or file containing
next menu."
7560 LINPUT "DISK ADDRESS?",U5$
: IF POS("3BD"=STR(U5$,,1))=0 OR VER(U5$,"HHH")<>3 THEN 7560
7570 DATA LOAD DC OPEN T#0,"APPSAVE"
: ERRORGOTO 7530
7580 DATA SAVE DC #0,STR(U5$,,3),STR(U5$,,3)
: ERRORGOTO 7530
7585 GOTO 7530