home *** CD-ROM | disk | FTP | other *** search
/ Light / Light_Vol.1_June_1992_Datasphere_Publications_Disk_1_of_2_Side_B.d64 / de2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  47 lines
  1. 1 poke53280,5:poke53281,11:poke198,0:print"[147] [196][201][210][197][195][212][207][210][217] [211][207][210][212]          [194][217][160][202][193][211][207][206][160][198][201][206][195][200]"
  2. 2 print"[155]        [201]nsert the required disk":print"        and then press '[210][197][212][213][210][206]'.
  3. 3 [161]a$:[139]a$[179][177][199](13)[167]3
  4. 4 [153]"loadreturn","cmdcmdcont                      ":[153],"cmdcmd processing directory "
  5. 5 [153],"cmdcmd                      ":[153]"sys    filename       type size trck sect"
  6. 6 t$(0)[178]"del":t$(1)[178]"seq":t$(2)[178]"prg":t$(3)[178]"usr":t$(4)[178]"rel":t$(5)[178]"???"
  7. 7 n[178]0:s[178]1:t[178]18:[134]f$(144),s$(144):[159]15,8,15:[159]8,8,8,"#"
  8. 8 [152]15,"u1 8 0"t;s:[161]#8,a$:t[178][198](a$[170][199](0)):[161]#8,a$:s[178][198](a$[170][199](0))
  9. 9 [129]i[178]0[164]7:[152]15,"b-p:8"i[172]32:s$[178]"":[161]#8,a$:[161]#8,a$:[161]#8,p$:[161]#8,t$
  10. 10 [139]t$[178]""[175]p$[178]""[167]24
  11. 11 t$[178][200](t$[170][199](0),1):p$[178][200](p$[170][199](0),1)
  12. 12 n$[178][199](0)[170][199](0)[170]p$[170]t$:[129]j[178]1[164]28:[161]#8,a$:[139]a$[178]""[167]a$[178][199](0)
  13. 13 [139][198](a$)[178]160[167]15
  14. 14 [139]j[177]1[175]j[179]18[167]s$[178]s$[170]a$
  15. 15 n$[178]n$[170]a$:[130]:[139]s$[177]s$(n)[167]n[178]n[170]1:f$(n)[178]n$:s$(n)[178]s$:[137]19
  16. 16 [129]k[178]1[164]n:[139]s$[177]s$(k)[167]18
  17. 17 n[178]n[170]1:[129]j[178]n[164]k[170]1[169][171]1:f$(j)[178]f$(j[171]1):s$(j)[178]s$(j[171]1):[130]:f$(k)[178]n$:s$(k)[178]s$:k[178]n
  18. 18 [130]
  19. 19 tp[178][198]([202](n$,3,1)):tk[178][198]([202](n$,4,1)):t2[178]tp[175]15:[139]t2[177]4[167]t2[178]5
  20. 20 sc[178][198]([202](n$,5,1)):[153]"  "[202](n$,6,16)" "t$(t2);:[139](tp[175]128)[178]0[167][153]"cmdcmdcmdcmd*";
  21. 21 [139](tp[175]64)[178]64[167][153]"<cmd";
  22. 22 [153]""[201]("  "[170][196]([198]([202](n$,31,1))),3)"   "[201]([196](tk),2);
  23. 23 [153]"   "[201]([196](sc),2)
  24. 24 [130]:[139]t[179][177]0[167]8
  25. 25 [139]n[179]144[167][129]i[178]1[164](144[171]n)[175]7:[129]j[178]0[164]31:f$(i[170]n)[178]f$(i[170]n)[170][199](0):[130]j,i
  26. 26 [153]"contdef press any key to view sorted directory"
  27. 27 [153]" (press 'shift' to pause the listing)":[151]198,0:[146]198,1:[151]198,0
  28. 28 [153]"load0 "[199](34);:[152]15,"u1 8 0 18 0":[152]15,"b-p:8 144":[129]i[178]1[164]16:[161]#8,a$
  29. 29 [153]a$;:[130]:[153][199](34)[199](32);:[161]#8,a$:[161]#8,a$:[129]i[178]1[164]5:[161]#8,a$:[153]a$;:[130]:[153]
  30. 30 [129]i[178]1[164]n:[153][202]([196]([198]([202](f$(i),31,1))[170][198]([202](f$(i),32,1))[172]256),2);
  31. 31 [153][163]5)[199](34)s$(i)[199](34)[163]24);:p[178][198]([202](f$(i),3,1)):p2[178]p[175]15:[139]p2[177]4[167]p2[178]5
  32. 32 [153]t$(p2);:[139](p[175]128)[178]0[167][153]"cmdcmdcmdcmd*";
  33. 33 [139](p[175]64)[178]64[167][153]"<";
  34. 34 [153]
  35. 35 [139][194](653)[178]1[167]35
  36. 36 [130]:[153]" defok. press 'f1' to save the directory"
  37. 37 [153]" or any other key to abort.":[151]198,0
  38. 38 [161]a$:[139]a$[178]""[167]38
  39. 39 [139]a$[179][177][199](133)[167][160]8:[160]15:[138]
  40. 40 [153]"load"," cont                  ":[153],"  saving directory "
  41. 41 [153],"                   "
  42. 42 [129]i[178]1[164]n[169]8:[152]15,"b-p:8 0":[129]j[178]0[164]7:[152]8,f$(i[170]j);:[130]:[152]15,"b-p:8 0"
  43. 43 t[178]18:s[178][181]((i[170]7)[173]8)[172]3[170]1[171]17[172][181]([181]((i[170]7)[173]8)[173]6):[139]i[170]8[177]n[167]t[178]0:s[178]255
  44. 44 [152]8,[199](t)[199](s);:[152]15,"u2 8 0 18"[181]((i[171]1)[173]8)[172]3[170]1[171]17[172][181]([181]((i[171]1)[173]8)[173]6):[130]
  45. 45 [160]8:[160]15:[153]"load"[199](34)"directories explained"[199](34)
  46. 46 [153]"by jason finchstop":[162]
  47.