home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 106 / 106.d81 / boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  358b  |  13 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 10 print"[147]     loadstar  #105 / #106
  3. 20 [153]"              1. #105
  4. 21 print   "              2. #106
  5. 22 [153]   "              3. quit
  6. 40 poke198,0:wait198,1:getz$:z=val(z$)
  7. 41 ifz=3thennew
  8. 45 if(z<1)or(z>2)then40
  9. 50 open15,dv,15,"cp"+z$:close15
  10. 60 print"[147]load"chr$(34)":*"chr$(34)","dv",1":poke198,1:poke631,13:new
  11. 59999 end
  12. 60000 open15,10,15,"cp3":print#15,"s0:boot":close15:save"boot",10
  13.