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