home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1989 November & December / rerun-1989-11-12.d64 / dsl (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  32 lines
  1. 1 print"[147]to use directory speed loader, copy it"
  2. 2 print"to a 1571 or 1581 formatted disk. it
  3. 3 [153]"must be the first file on the disk.
  4. 4 print"then use either "chr$(34)"make 1571 usr"chr$(34)" or use
  5. 5 [153][199](34)"make 1581 usr"[199](34)" to create a fast-
  6. 6 print"loading disk.":print"use runcopy on this disk to make a"
  7. 7 print"copy if you have two disk drives.":print"if you only have one drive, enter:
  8. 8 [153]"save"[199](34)"dsl"[199](34)",8":[153]"press a key to continue..."
  9. 9 [161]a$:[139] a$[178]""[167] 9
  10. 10 [153] "load  directory speed load (c) 1989 sogwap":u[178][194](186):[139] u[179]8 [167] u[178]8
  11. 20 [153] "  move cursor over name - press return":[159]1,u,96,"$:*=p"
  12. 30 [161]#1,x$,x$,x$,y$:[153][198](x$[170][199](0))[170][198](y$[170][199](0))[172]256;
  13. 40 [129] i[178]1 [164] 7:[161]#1,a$,b$,c$,d$:[153] a$;b$;c$;d$;:[130]:[153]:[139] st[178]0 [167] 30
  14. 50 [160] 1:y[178][194](214):[159]15,u,15,"u0>m1"
  15. 60 [129] i[178]820 [164] 981:[135] a:[151] i,a:[130]
  16. 70 [158] 42336:ad[178]518:[139] [194](ad)[179][177]34 [167] 70
  17. 80 ad[178]ad[170]1:[139] [194](ad)[179][177]34 [167] n$[178]n$[170][199]([194](ad)):[137] 80
  18. 90 [151] 214,y:[152]15,"m-r";[199](198);[199](229);[199](1)
  19. 100 [161]#15,x$:[139] x$[178][199](55) [176] x$[178][199](255) [167] 120
  20. 110 [153] "load"[199](34)n$[199](34)","u",1ononon":[151] 198,1:[151] 631,131:[128]
  21. 120 [153] "loading... ";n$
  22. 130 [159]2,u,2,"#2":[152]15,"&15?1":[152]15,"u0"[170][199](255)[170]n$;:[158] 900
  23. 1000 [131] 160,0,169,234,44,169,96,141,109,3,44,0,221,16,251,56,173,18
  24. 1010 [131] 208,233,50,144,4,41,7,240,245,169,7,141,0,221,72,104,173,0
  25. 1020 [131] 221,74,74,77,0,221,74,74,77,0,221,74,74,77,0,221,73,249
  26. 1030 [131] 142,0,221,234,230,1,145,174,198,1,200,198,144,208,202,24,152,101
  27. 1040 [131] 174,133,174,144,2,230,175,96,162,15,32,201,255,169,85,32,168,255
  28. 1050 [131] 169,52,32,168,255,32,204,255,120,162,23,142,0,221,44,0,221,48
  29. 1060 [131] 251,32,57,3,168,32,57,3,133,174,32,57,3,133,175,136,136,152
  30. 1070 [131] 240,14,201,255,240,10,133,144,32,52,3,32,57,3,208,242,166,174
  31. 1080 [131] 164,175,134,45,132,46,32,51,165,169,0,32,113,168,88,76,174,167
  32.