home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / CMDGeneral / DESOTO14.1.SDA / BOOTGEN (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  523b  |  19 lines
  1. 50 POKE53280,11:POKE53281,0:POKE646,15
  2. 100 A$="TARGETPROGRAM"
  3. 110 PA$=":PARTITIONNAME":REM OR DIR PATH
  4. 112 JD=1:SR=0: REM JIFFY DOS?: SELF-RUN?
  5. 120 PN=0:REM PARTITION NUMBER
  6. 130 DV=PEEK(186):Q$=CHR$(34)
  7. 140 OPEN15,DV,15
  8. 150 REM: PRINT#15,"C[208]"+CHR$(PN):REM HD PARTITION
  9. 160 REM: PRINT#15,"I":FORT=1TO700:NEXT:REM 81 ROOT
  10. 170 REM: PRINT#15,"/"+PA$:FORT=1TO700:NEXT:REM 81 PARTITION
  11. 180 REM: PRINT#15,"CD"+PA$:REM HD DIR PATH
  12. 190 CLOSE15:IFJDTHEN @#DV
  13. 195 :
  14. 200 PRINT"[147]LOAD"Q$A$Q$","DV
  15. 210 PRINT:PRINT:PRINT:PRINT:PRINT"RUN"
  16. 212 Z8=3:IFSRTHENZ8=2
  17. 220 POKE631,19:POKE632,13:POKE633,13
  18. 230 POKE198,Z8:NEW
  19.