home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V3D10.D64 / superboot! (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.6 KB  |  69 lines
  1. 10 POKE53281,0:POKE53280,12
  2. 20 PRINT"[147][155] SUPERBOOT! "
  3. 30 N$="":B$="!":S=0:F=0:B=1:NF=1
  4. 40 INPUT"MAIN PROGRAM NAME ";N$
  5. 50 L=LEN(N$)
  6. 60 IF L>15 THEN PRINT"FILENAME TOO LONG":PRINT"RENAME IF NECESSARY.":END
  7. 70 PRINT"BOOT SYMBOL FOR AUTOBOOT  OR "
  8. 80 INPUT"PRESS RETURN FOR ! SYMBOL ";B$
  9. 90 F$=B$+N$
  10. 100 PRINT"AUTOBOOT FILE IS  ";F$;" "
  11. 110 PRINT"SYS ADDRESS FOR MAIN PROGRAM  OR "
  12. 120 INPUT"<RETURN> IF BASIC.";S
  13. 130 PRINT"SYS ADDRESS TO ACTIVATE FIRST LOAD  OR "
  14. 140 INPUT"<RETURN> IF NO FIRST LOAD ";F
  15. 150 IF S THEN SH=INT(S/256):SL=S-SH*256:B=0
  16. 160 IF F THEN FH=INT(F/256):FL=F-FH*256:NF=0
  17. 170 OPEN15,8,15,"I"
  18. 180 OPEN2,8,2,F$+",P,W"
  19. 190 PRINT#2,CHR$(167);CHR$(02);
  20. 200 PRINT#2,CHR$(L);N$;
  21. 210 IF F THEN GOSUB 500
  22. 220 IF NF THEN GOSUB 600
  23. 230 IF B THEN GOSUB 700
  24. 240 IF S THEN GOSUB 800
  25. 250 N=56-L
  26. 260 IF F THEN N=N-20
  27. 270 IF B THEN N=N-12
  28. 280 IF N=0 THEN 310
  29. 290 FORK=1TON:PRINT#2,CHR$(0);
  30. 300 NEXT
  31. 310 PRINT#2,CHR$(139);CHR$(227);
  32. 320 PRINT#2,CHR$(168+L);CHR$(02);
  33. 330 CLOSE 2
  34. 340 PRINT" DOS MESSAGE [146]";
  35. 350 GET#15,E$:E=ST
  36. 360 PRINTE$;:IFE=0THEN350
  37. 370 CLOSE 15
  38. 380 PRINT"TO BOOT - LOAD "CHR$(34);F$;CHR$(34)",8,1 "
  39. 390 IF NF THEN 420
  40. 400 PRINT"COPY FIRST LOAD FILE "
  41. 410 PRINT"TO DISC AND RENAME  "CHR$(34);B$;CHR$(34)" "
  42. 420 END
  43. 500 FOR K=1TO14:READ A:PRINT#2,CHR$(A);
  44. 510 NEXT
  45. 520 PRINT#2,CHR$(32);CHR$(FL);CHR$(FH);
  46. 530 FOR K=1TO3:READ A:PRINT#2,CHR$(A);
  47. 540 NEXT
  48. 550 RETURN
  49. 600 FORK=1TO17:READ A:NEXT
  50. 610 RETURN
  51. 700 FORK=1TO44:READ A:PRINT#2,CHR$(A);
  52. 710 NEXT
  53. 720 RETURN
  54. 800 FOR K=1TO12:READ A:PRINT#2,CHR$(A);
  55. 810 NEXT
  56. 820 FOR K=1TO6:READ A:NEXT
  57. 830 FOR K=1TO17:READ A:PRINT#2,CHR$(A);
  58. 840 NEXT
  59. 850 PRINT#2,CHR$(76);CHR$(SL);CHR$(SH);
  60. 860 RETURN
  61. 900 DATA 169,001,166,187,164,188,032,189
  62. 910 DATA 255,169,000,032,213,255,032,068
  63. 920 DATA 166,173,167,002,162,168,160,002
  64. 930 DATA 032,189,255,169,000,133,185,166
  65. 940 DATA 043,164,044,032,213,255,169,131
  66. 950 DATA 141,002,003,169,164,141,003,003
  67. 960 DATA 134,045,132,046,032,089,166,032
  68. 970 DATA 051,165,076,174,167
  69.