10MODE7:*FX200,1 20A$="      30ONERROR GOTO 710 40 PRINTTAB(3,0);A$ 50INPUTTAB(3,4);"File for !Boot file to run :"file$ 60PRINTTAB(3,6);"1. *RUN 2. CHAIN 3. *TYPE" 70PRINTTAB(3,8);"How do you want to r un the program" 80INPUTTAB(3,9);"(1-3) ";how$ 90IF how$="1" THEN run$="*RUN" 100IF how$="2" THEN run$="CHAIN" 110IF how$="3" THEN run$="*TYPE" 120IF how$="1" OR how$="2" OR how$="3" THEN GOTO 130 ELSE VDU7:PRINTTAB(3,9);" ":GOTO 80 130PRINTTAB(3,11);"Is this all correct : ";run$;" ";"""";file$;"""" 140PRINTTAB(3,13);"Press 'Y' to contin ue or 'N' if your" 150PRINTTAB(3,14);"not sure"; 160SURE$=GET$ 170IF SURE$="Y" OR SURE$="y" THEN GOTO 200 180IF SURE$="N" OR SURE$="n" THEN RUN 190VDU7:GOTO160 200PRINTTAB(3,16);"Enter drive for !BO OT file :"; 210REPEAT 220drive$=GET$ 230UNTIL drive$ <"4" 240PRINT drive$ 250PRINTTAB(3,18);" Press space to sav e !BOOT"; 260REPEAT 270S$=GET$:UNTIL S$=" " 280CLS 290IF drive$="0" THEN *DR.0 300IF drive$="1" THEN *DR.1 310IF drive$="2" THEN *DR.2 320IF drive$="3" THEN *DR.3 330IF run$ ="*TYPE" THEN PROCtype 340*SPOOL !BOOT 350VDU22,7 360VDU21 370PRINT"MO.7:VDU21" 380PRINT"*BASIC" 390PRINT"*DIR $" 400PRINT"*FX 18" 410PRINT"*FX 20" 420PRINT"*FX 15" 430PRINT"*FX4,0" 440PRINT"*TV255" 450PRINT"VDU6:";run$;" ";"""";file$;"" "" 460VDU6 470PROCfinished:END 480DEFPROCtype 490*SPOOL !BOOT 500VDU22,0 510VDU21 520PRINT"MO.0:VDU21" 530PRINT"*BASIC" 540PRINT"*DIR $" 550PRINT"*FX 18" 560PRINT"*FX 20" 570PRINT"*FX 15" 580PRINT"*FX4,0" 590PRINT"VDU14" 600PRINT"VDU6:VDU14:PRINT""Shift scrol ls text""'";":";run$;" ";"""";file$;"""" 610VDU15 620PROCfinished:ENDPROC:END 630DEFPROCfinished 640VDU6:*SPOOL 650VDU22,7:CLS 660PRINT"!BOOT FILE CREATED!" 670*OPT4,3 680*FX200,0 690END 700ENDPROC 710ONERROR OFF 720REPORT:PRINT" at line ";ERL 730END