home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 124 / 124.d81 / ls datamaker (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-01-01  |  1.4 KB  |  52 lines
  1. 63000 poke53280,0:poke53281,0:print"[147]"
  2. 63002 dv=peek(186):ifdv<8thendv=8
  3. 63010 print"[129]    [212][200][197] [205][201][199][200][212][217] [204][207][193][196][211][212][193][210] [196][193][212][193] [205][193][203][197][210]"
  4. 63020 poke214,4:print:print"[159]  [198]ilename of [205][204] file: ";
  5. 63022 print"                [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:l9%=16:gosub63290:f$=q9$
  6. 63024 open15,dv,15,"r0:"+f$+"="+f$:input#15,er,er$,t,s:close15
  7. 63026 ifer=63then63036
  8. 63028 print"[158]  "er;er$;t;s
  9. 63030 poke198,0
  10. 63032 geta$:ifa$=""then63032
  11. 63034 poke781,7:sys59903:goto63020
  12. 63036 open2,dv,2,f$+",p,r"
  13. 63038 get#2,p$,q$
  14. 63040 close2
  15. 63042 a=256*asc(q$)+asc(p$+chr$(0))
  16. 63044 sys57812f$,dv,1:poke780,0:sys65493
  17. 63046 b=256*peek(175)+peek(174)
  18. 63048 c=b/256:poke251,(c-int(c))*256:poke252,c:print"[147][155]";
  19. 63050 d=a/256:poke253,(d-int(d))*256:poke254,d:p=peek(251)+peek(252)*256
  20. 63060 ifa>pthen63180
  21. 63070 print:printmid$(str$(a),2,len(str$(a))-1);"data ";
  22. 63080 forl=0to6:p$=str$(peek(a+l))
  23. 63090 ifpeek(a+l)<10thena$="00"+right$(p$,1)+",":goto63150
  24. 63100 ifpeek(a+l)<100thena$="0"+right$(p$,2)+",":goto63150
  25. 63110 a$=p$+",":ifa+l>pthen63180
  26. 63120 printmid$(a$,2,len(a$));
  27. 63130 ifa+l=pthen63190
  28. 63140 goto63170
  29. 63150 ifa+l>pthen63180
  30. 63160 printa$;:ifa+l=pthen63190
  31. 63170 next:goto63190
  32. 63180 print"[157] ":goto63240
  33. 63190 print"[157] ":poke631+peek(198),13
  34. 63200 print"g[207]63220":fore=631to634:pokee,145:next:pokee,13:poke636,13:poke198,6
  35. 63210 end
  36. 63220 print"[145][145]":fore=1to3:print"        ":next:print"[145][145][145]";
  37. 63230 a=peek(253)+256*peek(254)+7:goto63050
  38. 63240 h=peek(43):l=peek(44)
  39. 63250 ifpeek(h+4+256*l)<>131then63270
  40. 63260 h1=peek(h+256*l):l1=peek(h+1+256*l):h=h1:l=l1:goto63250
  41. 63270 k=h+256*l:pokek,0:pokek+1,0
  42. 63280 print"[147]list":print"[145][145][145][145]":end
  43. 63290 q9$="":u9=53280:poke198,0
  44. 63300 geta$
  45. 63310 poke646,rnd(1)*15+1:print"[164][157]";:ifa$=""then63300
  46. 63320 ifa$=chr$(13)thenprint" ":return
  47. 63330 if(a$=chr$(20)andlen(q9$))thenq9$=left$(q9$,len(q9$)-1):goto63370
  48. 63340 iflen(q9$)>=l9%thent9%=peek(u9):pokeu9,1:pokeu9,t9%:goto63300
  49. 63350 ifa$<" "or(a$>chr$(127)anda$<chr$(160))ora$=chr$(34)then63300
  50. 63360 q9$=q9$+a$
  51. 63370 print""a$;:goto63300
  52.