home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 13 / 013.d81 / ezdir creator (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  1.6 KB  |  36 lines
  1. 10 print"[147]":co=53280:pokeco,8:pokeco+1,00:poke53272,23
  2. 20 printtab(55)" [197][218][196][201][210] ":gosub160
  3. 30 printtab(5)"....data is now loading...."
  4. 40 fori=820toi+167:ready:pokei,y:next:gosub160
  5. 50 printtab(6)"[215]rite program to disk? (y/n)"
  6. 60 poke198,0:wait198,1:geta$:ifa$<>"y"anda$<>"n"then60
  7. 70 ifa$="n"thengosub160:goto120
  8. 80 gosub160:printtab(1)"[208]ut disk to receive [197][218][196][201][210] in drive"
  9. 90 printtab(1)"and press any key to continue.....":gosub160:poke198,0:wait198,1
  10. 100 printtab(6)"[206]ow writing [197][218][196][201][210] to disk":gosub160
  11. 110 poke43,52:poke44,3:poke45,219:poke46,3:save"ezdir",8,1
  12. 112 poke43,1:poke44,8:poke45,056:poke46,014:clr
  13. 120 printtab(53)"[193] [204] [204]  [196] [207] [206] [197]":ifa$="n"then140
  14. 121 fori=1to2000:nexti
  15. 122 print"[147][208]ut [211]ide 1 of the [204][207][193][196][211][212][193][210] disk back in "
  16. 124 print"      the drive and press a key"
  17. 126 poke198,0:wait198,1:geta$
  18. 130 print"[147]load"chr$(34)"ezdir boot"chr$(34)",8":print"run"
  19. 132 poke631,13:poke632,13:poke198,2:end
  20. 140 gosub160:printtab(42)"[197]nter [211][217][211]820, either in direct mode,"
  21. 150 printtab(42)"or from within a program to try it."
  22. 152 print"l[207]"chr$(34)"ezdir boot"chr$(34)",8:  to re-enter [204][207][193][196][211][212][193][210]"
  23. 153 print"run[145][145][145][145][145][145][145][145]"
  24. 154 end
  25. 160 print"":fori=0to39:print"*";:forj=1to5:nextj,i:print"[154]":return
  26. 170 data32,231,255,32,68,229,169,36,133,2,169,8,170,160,0,32,186
  27. 180 data255,169,1,162,2,32,189,255,32,192,255,162,8,32,198,255,32
  28. 190 data207,255,32,207,255,32,207,255,32,207,255,240,76,160,6,169,32
  29. 200 data32,210,255,136,208,250,32,207,255,170,32,207,255,32,205,189,169
  30. 210 data32,32,210,255,32,207,255,240,5,32,210,255,208,246,169,13,32
  31. 220 data210,255,165,214,201,24,176,2,208,200,160,0,185,186,3,240,6
  32. 230 data32,210,255,200,208,245,165,203,201,64,240,250,32,68,229,169,0
  33. 240 data133,198,240,172,169,8,32,195,255,32,231,255,96,52,52,32,32
  34. 250 data32,32,32,32,32,32,18,158,32,65,78,89,32,75,69,89,32
  35. 260 data84,79,32,67,79,78,84,73,78,85,69,32,154,146,0
  36.