start tok64 d64-W9GEKx 0 REMsave"@0:booter.12864",8 10 REM *************************-v1.1-* * * 11 REM * booter.12864 * * ============ * 12 REM * * * this program lets you auto- * 13 REM * boot your commodore 64 disk * * programs from your c128! * 14 REM * * * derived from a program by * 15 REM * ronnie nilsson in hoor (h{pound}{pound}r * * for swedes) on september 27th* 16 REM * 1987. * * * 17 REM * (c)copyright 1993: peter * * karlsson / softwolves * 18 REM * software * * * 20 REM ******************************** 25 IFINT(.1+.9)=1THENPRINT"this is the 64 version":END 50 em$=CHR$(.) 100 POKE53280,4:POKE53281,4:POKE646,0 110 PRINT"{home*2}{clear}{ct n}Booter.12864{space*20}Freeware A Softwolves Software Release in 1993." 111 PRINT"{cm y*40}" 113 z=PEEK(186) 120 PRINT"{ct n}Please insert the disk which you wish toautoboot into drive #"z"{left}." 121 PRINT"Press: to confirm." 122 PRINTSPC(7)"<1> to change device number." 123 PRINTSPC(7)"<2> to see the disk directory.":PRINTSPC(7)"<3> to validate the disk." 124 GETa$:IFa$<>CHR$(13)ANDa$<>"1"ANDa$<>"2"ANDa$<>"3"THEN124 125 ON-(a$=CHR$(13))GOTO130:ONVAL(a$)GOTO126,129,128 126 INPUT"Please give the new device number";z 127 IFz<8ORz>15THENPRINT"Illegal device number, please reselect.":GOTO126 128 PRINT"Validate Not implemented in this version":GOTO120 129 PRINT"Directory not implemented in this{space*7}version.":GOTO120 130 PRINT"{down}Checking if boot sector is available{.*3}" 131 OPEN15,z,15,"i0":GOSUB9000:IFds>20THEN9999 132 OPEN2,z,2,"#":PRINT#15,"b-a 0 1 0":GOSUB9000:IFds<>65THEN150 133 PRINT"Boot sector already allocated, checking if it is an old boot sector{.*3}" 134 PRINT#15,"u1 2 0 1 0":GET#2,c$,b$,m$:IFc$="c"ANDb$="b"ANDm$="m"THEN136 135 PRINT"Boot sector was allocated for a program.Exiting{.*3}":GOTO10000 136 FORi=1TO4:GET#2,n$:NEXT:PRINT"Old boot message:"; 137 GET#2,a$:PRINTa$;:IFa$<>""THEN137 138 PRINT 150 PRINT"Please enter the name of the program{space*4}that you want to boot:" 151 INPUTfi$ 180 PRINT"Are you sure that you want to autoboot{space*2}the disk?" 181 GETa$:IFa$<>"y"ANDa$<>"n"THEN181 182 IFa$="n"THENGOTO10000 190 PRINT#15,"b-p 2 0" 191 FORi=1TO89:READa:PRINT#2,CHR$(a);:NEXT 192 PRINT#2,CHR$(LEN(fi$));:FORi=90TO137:READa:PRINT#2,CHR$(a);:NEXT 193 PRINT#2,fi$CHR$(46)CHR$(46)CHR$(46)CHR$(141)CHR$(17)CHR$(.) 194 PRINT#15,"u2 2 0 1 0" 200 CLOSE2:CLOSE15 210 PRINT"Disk succesfully autobooted.":END 500 DATA67,66,77,0,0,0,0,54,52,32,66,79,79,84,73,78,71,0,0,169,247,141,5,213 502 DATA162,255,120,154,216,142,22,208 504 DATA32,163,253,32,80,253,32,21,253,32,91,255,88,32,83,228,32,191,227,32,34 506 DATA228,162,251,154,166,128,138,48,3,76,58 508 DATA164,162,0,189,129,11,240,7,32,210,255,232,76,67,11,169,2,162,8,160,1 510 DATA32,186,255,169,162,138,160,11,32,189 512 DATA255,162,22,189,111,11,157,60,3,202,16,247,76,60,3,169,0,162,0,160,48 514 DATA32,213,255,32,94,166,32,142,166,32,174,167 516 DATA141,66,79,79,84,73,78,71,32 9000 INPUT#15,a1$,a2$,a3$,a4$:ds=VAL(a1$):ds$=a1$+","+a2$+","+a3$+","+a4$ 9001 RETURN 9999 PRINT"Disk error: "ds$ 10000 PRINT"Program terminated." 10001 CLOSE2:CLOSE15:END 63999 REM "Invalid BASIC input d64-W9GEKx stop tok64 (bastext 1.0)