home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 127 / 127.d81 / b.hyperspace (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  37 lines
  1. 10 poke56,128:clr:d=peek(186):ifd<8thend=8
  2. 12 dv=peek(186):ifdv<8thendv=8
  3. 15 a$="b.hyperspace"+chr$(0):fori=1tolen(a$):poke32767+i,asc(mid$(a$,i,1)):next
  4. 20 close15:open15,d,15,"cp":input#15,a,a$:ifa$="partition selected"then4000
  5. 30 ifdv<>8then4000
  6. 40 a$="h.space warrior":goto60000
  7. 3320 rem check dir type
  8. 3330 open2,d,2,"$:":get#2,d$,e$:fori=4to33:get#2,a$:next
  9. 3340 a=0:fori=34to38:get#2,a$:a=a+asc(a$+chr$(0)):next:close2
  10. 3350 ifd$="h"thendi$="[210]oot [196]ir":ifa<>0thendir$="[211]ubdirectory
  11. 3360 [139]d$[178]"a"[167]di$[178]"1541 170(NULL)":[139]e$[178][199](128)[167]di$[178]"1571 340(NULL)"
  12. 3370 [139]d$[178]"d"[167]di$[178]"1581 800(NULL)"
  13. 3380 [142]
  14. 4000 [160]15:[153]"load ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanlist^"
  15. 4010 [129]i[178]1[164]19:[153]"print#(NULL)list                                    print#(NULL)":[130]
  16. 4020 [153]"poke /tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  17. 4025 [153]"listleft$ (NULL)close(NULL)closevalclose(NULL) (NULL) (NULL)closeatncloselen valclose   (NULL) atn (NULL) (NULL)closeright$ (NULL) (NULL)
  18. 4026 print"[155]([195]) 1995 [211]oftdisk [208]ublishing
  19. 4030 [153]"listleft$(NULL)(NULL)val(NULL)(NULL)(NULL)atnlenval (NULL)atn(NULL)(NULL)right$(NULL)(NULL) will not run
  20. 4040 print"on the current drive. [217]ou must copy
  21. 4050 [153]"left$(NULL)(NULL)val(NULL)(NULL)(NULL)atnlenval (NULL)atn(NULL)(NULL)right$(NULL)(NULL) and all of its
  22. 4060 print"associated files to a real 1541/71
  23. 4070 [153]"drive with a device number of 8.
  24. 4140 print"[159][199]o to [204][207][193][196][211][212][193][210] or [194][193][211][201][195] ([158][204][159]/[158][194][159])?
  25. 4150 [161]k$:[139]k$[179][177]"l"[175]k$[179][177]"b"[167]4150
  26. 4160 [139]k$[178]"b"[167][151]56,160:[156]:[128]
  27. 4170 a$[178]"hello connect"
  28. 4180 [137]60000
  29. 10000 dv[178][194](186):[159]15,dv,15,"s0:b.hyperspace":[160]15:[148]"b.hyperspace",dv:[128]
  30. 60000 [129]i[178]dv[164]29:[139]i[178]14[167][130]
  31. 60005 [160]2:[159]2,i,2:[160]2:[139]st[167]60020
  32. 60010 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]60030
  33. 60020 [130]:[153]"load":[151]53272,23:[151]186,8:[128]
  34. 60030 q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  35. 60040 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  36. 60050 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  37.