home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_1999-01_1999_CSW_Side_A.d64 / reboot (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  415b  |  19 lines
  1. 10 rem "--------------------------"
  2. 15 rem "reboot-routine"
  3. 20 rem "geraetenummer der [200][196] = gn "
  4. 25 rem "default - partition  = df "
  5. 30 rem "--------------------------"
  6. 35 gn=   :rem 8-15
  7. 40 df=   :rem 1-254
  8. 42 rem
  9. 45 sc=abs((peek(53436)and128)=128):ifsc=1goto30
  10. 50 sp=abs((peek(53433)and128)=128):ifsp=1thenpoke53371,0
  11. 55 @"s-d"
  12. 60 fori=0to500:next
  13. 65 @#gn:@"cd/"
  14. 70 fori=0to100:next
  15. 75 @"c[208]"+chr$(df)
  16. 80 fori=0to100:next
  17. 85 ^"commander",gn
  18. 90 fori=0to100:next
  19.