home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 201 / 201.d81 / b.fix (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2001-01-01  |  1.2 KB  |  41 lines
  1. 10 poke56,140:clr
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 30 print"[147]":poke53280,0:poke53281,0:poke53272,22
  4. 40 poke214,4:print:printtab(05)"[209]uick and [196]irty [198][197][193][212][213][210][197][211] [198][201][216][197][210]"
  5. 50 print:printtab(02)"[194]e sure your [204][207][193][196][211][212][193][210] 202 [196]isk is in
  6. 60 [153][163]02)"str$rive"dv
  7. 70 [153]:[153][163]06)"(NULL)ress atnny (NULL)ey (<(NULL)> to (NULL)uit)
  8. 80 poke198,0:wait198,1:getz$:ifz$="q"then250
  9. 90 open15,dv,15
  10. 100 sys57812"x.features",dv:poke780,0:poke781,0:poke782,150:sys65493
  11. 101 a=peek(781):b=peek(782)
  12. 102 sys57812"ls briefs",dv:poke780,0:poke781,0:poke782,140:sys65493
  13. 103 c=peek(781):d=peek(782)
  14. 110 input#15,en,en$
  15. 120 ifen<>0thenclose15:poke53281,1:run
  16. 130 print:printtab(02)"[201]nsert [204][207][193][196][211][212][193][210] 201 [196]isk in [196]rive"dv
  17. 140 print:printtab(06)"[208]ress [193]ny [203]ey (<[209]> to [209]uit)
  18. 145 [151]198,0:[146]198,1:[161]z$:[139]z$[178]"q"[167]250
  19. 150 [159]4,dv,4,"star1":[132]15,en,en$:[160]4
  20. 160 [139]en[179][177]0[167]130
  21. 170 [152]15,"s0:features":[152]15,"s0:ls briefs":[160]15
  22. 175 [159]15,dv,15
  23. 180 [158]57812"features",dv:[151]193,0:[151]194,150:[151]174,a:[151]175,b:[158]62954
  24. 181 [158]57812"ls briefs",dv:[151]193,0:[151]194,140:[151]174,c:[151]175,d:[158]62954
  25. 190 [132]15,en,en$
  26. 200 [160]15:[139]en[179][177]0[167]300
  27. 210 [153]:[153][163]02)"(NULL)uccess! (NULL)lace the issue to which you
  28. 220 printtab(02)"wish to return in [196]rive"dv"and...
  29. 230 [153][163]13)"(NULL)ress atnny (NULL)ey"
  30. 240 [151]198,0:[146]198,1:[161]z$
  31. 250 [147]"h",dv
  32. 260 [128]
  33. 300 [153]:[153]:[153]"(NULL)e had the following problem:"
  34. 310 [153]en,en$
  35. 320 [153]:[153]"(NULL)lease put (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) 202 in str$rive"dv
  36. 330 [153]"and try again."
  37. 340 [153]:[153][163]13)"(NULL)ress atnny (NULL)ey"
  38. 350 [151]198,0:[146]198,1:[161]z$:[138]
  39. 9999 [128]
  40. 10000 d[178][194](186):n$[178]"b.fix":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  41.