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