start tok64 d64-XKliWi
0 REM 64booter by ronnie nilsson 870927       64-version (c)1993: peter karlsson
1 FORx=1TO137:READa:b=b+a:NEXT:IFb<>14730THENLIST420-:END
2 RESTORE:PRINT" *** 64 booting by ronnie ***":PRINT" 64ver: (c)1993 mr.p
3 PRINT" insert disk to be booted":POKE198,.:WAIT198,1:GETa$
4 OPEN15,8,15,"u0>raij":nu$=CHR$(.)
5 GOSUB47:IFdsTHENPRINT" *** disk error: "ds$:END
6 OPEN8,8,8,"#"
7 PRINT#15,"u1 8 0 18 0":PRINT#15,"b-p 8 5
8 GET#8,ba$
9 PRINT#15,"u1 8 0 1 0
10 FORi=1TO3:GET#8,a$:bl$=bl$+a$:NEXT
11 IF(ASC(ba$+nu$)AND1)<>0THEN20
12 IFbl$="cbm"THENPRINT" *** already a boot disk ***":PRINT:GOTO17
15 PRINT" *** boot sector already used ***
17 INPUT " continue (y/n){space*7}n{left*3}";a$
18 IFa$<>"y"THEN38
20 PRINT" enter your program's name "
21 PRINT" (up to 16 characters){space*5}"
22 INPUT" name : ";f$
23 IFLEN(f$)>16THEN22
27 IFf$=""THENEND
28 PRINT" press{space*2}return to autoboot disk
29 POKE198,.:WAIT198,1:GETa$:IFa$<>CHR$(13)THEN38
30 PRINT#15,"b-p 8 0
31 FORx=1TO89:READa:PRINT#8,CHR$(a);:NEXT
32 PRINT#8,CHR$(LEN(f$));
33 FORx=90TO137:READa:PRINT#8,CHR$(a);:NEXT
34 FORx=1TOLEN(f$):PRINT#8,MID$(f$,x,1);:NEXT:PRINT#8,CHR$(46)CHR$(46)CHR$(46)CHR$(141)CHR$(17)nu$;
35 PRINT#15,"u2 8 0 1 0
36 IFba=.THENPRINT#15,"b-a 0 1 0
37 GOSUB47:a$=ds$
38 CLOSE8:CLOSE15
39 IFeTHENPRINT" *** aborted ***":END
40 PRINT" *** done ***
41 END
47 INPUT#15,xa$,xb$,xc$,xd$:ds$=xa$+","+xb$+","+xc$+","+xd$:ds=VAL(xa$):RETURN
420 DATA67,66,77,0,0,0,0,54,52,32,66,79,79,84,73,78,71,0,0,169,247,141,5,213,162
421 DATA255,120,154,216,142,22,208
430 DATA32,163,253,32,80,253,32,21,253,32,91,255,88,32,83,228,32,191,227,32,34
431 DATA228,162,251,154,166,128,138,48,3,76,58
440 DATA164,162,0,189,129,11,240,7,32,210,255,232,76,67,11,169,2,162,8,160,1,32
441 DATA186,255,169,162,138,160,11,32,189
450 DATA255,162,22,189,111,11,157,60,3,202,16,247,76,60,3,169,0,162,0,160,48,32
451 DATA213,255,32,94,166,32,142,166,32,174,167
460 DATA141,66,79,79,84,73,78,71,32
stop tok64
(bastext 1.0)