1 IFPEEK(4096)<>169THENGOSUB36
2 POKE53281,0:POKE53280,0
3 PRINT"[147]";TAB(14);"BOOT MAKER"
4 PRINTTAB(14);"[163][163][163][163][163][163][163][163][163][163]"
5 PRINT"";TAB(9);"[154]CREATED BY JIM DREW"
6 PRINT"[154]NAME OF BOOT PROGRAM:";:OPEN1,0:INPUT#1,B$:CLOSE1:PRINT
7 IFLEN(B$)>16THEN2
8 PRINT"[154]NAME OF PROGRAM TO BOOT:";:OPEN1,0:INPUT#1,P$:CLOSE1:PRINT
9 IFLEN(P$)>16THEN2
10 PRINT"[147][154]INSERT A DISK TO SAVE THE BOOT:"
11 PRINT"";B$;"[154] TO, AND PRESS [RETURN]":POKE198,0
12 GETA$:IFA$<>CHR$(13)THEN12
13 OPEN2,8,2,B$+",P,R":CLOSE2:OPEN15,8,15:INPUT#15,Z,Z$:CLOSE15
14 IFZ<>62THENPRINT"[147]THIS FILE IS ALREADY ON THIS DISK":FORDE=1TO2000:NEXT:GOTO2
15 SYS4214:PRINT"[147][154]IS THE PROGRAM:";P$
16 PRINT"[154]A [159]BASIC[154] PROGRAM  Y[157][157][157]";:INPUTQ$
17 IFQ$="Y"THENPOKE738,234:POKE739,234:POKE740,234:GOTO25
18 IFQ$="N"THEN20
19 GOTO15
20 PRINT"[147][154]ENTER START ADDRESS OF:";P$
21 PRINT">";:OPEN1,0:INPUT#1,S$:CLOSE1:PRINT
22 S=VAL(S$):IFS<0ORS>65535THEN20
23 J=S
24 H=INT(J/256):L=J-H*256:POKE739,L:POKE740,H
25 P=LEN(P$):POKE713,P:FORX=1TOP:POKE827+X,ASC(MID$(P$,X,1)):NEXT
26 B=LEN(B$):POKE4105,B:FORX=1TOB:POKE4239+X,ASC(MID$(B$,X,1)):NEXT
27 PRINT"[147][154]YOU HAVE REQUESTED THE FOLLOWING:"
28 PRINT"[154]A BOOT PROGRAM THAT WILL LOAD ";
29 IFQ$="Y"THENPRINT"AND RUN":PRINT"YOUR BASIC[154] PROGRAM ";P$:GOTO31
30 PRINT"AND START":PRINT"YOUR M/L[154] PROGRAM ";P$;" [154]@";J
31 PRINT"[154]IS THIS INFORMATION CORRECT (Y[154]/N[154]): Y[157]";:OPEN1,0:INPUT#1,V$:CLOSE1
32 PRINT:IFV$="Y"THEN35
33 IFV$="N"THEN2
34 GOTO27
35 SYS4096:PRINT"[147][154]BOOT PROGRAM NOW ON DISKETTE...":FORDE=1TO2000:NEXT:GOTO2
36 FORX=4096TO4227:READY:POKEX,Y:NEXT:RETURN
37 DATA169,8,170,160,1,32,186,255,169,5,162,144,160,16,32,189,255,169,176
38 DATA141,2,3,169,2,141,3,3,169,176,133,254,169,2,133,255,169,254,162,76
39 DATA160,3,32,216,255,169,131,141,2,3,169,164,141,3,3,96,169,0,141,32
40 DATA208,141,33,208,32,144,255,169,147,32,210,255,169,8,170,160,255,32
41 DATA186,255,169,0,162,60,160,3,32,189,255,169,0,32,213,255,176,216,169
42 DATA131,141,2,3,169,164,141,3,3,76,0,0,234,234,234,234,234,234,234,76
43 DATA174,167,160,0,185,55,16,153,176,2,200,192,78,208,245,96