home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 243 / 243.d81 / b.clips (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  923b  |  41 lines
  1. 1 poke56,56:clr:poke53280,0:poke53281,0:print"[147]"
  2. 2 v$="clipshow
  3. 3 [143]----------
  4. 5 d[178][194](186):[139]d[179]8[167][153]d:[144]
  5. 11 [151]53265,11:[141]40000:
  6. 14 [151]53265,27:[151]828,123
  7. 15 [151]831,[195](v$):[129]x[178]1[164][195](v$):[151]831[170]x,[198]([202](v$,x)):[130]
  8. 20 [147]"clips.pkd",d
  9. 9999 [128]
  10. 10000 [159]1,8,15,"i0":n$[178]"b.clips"
  11. 10001 [152]1,"s0:"[170]n$:[160]1:[148]n$,8:[128]
  12. 40000 [159]4,d,4,v$:[161]#4,a$,b$
  13. 40010 [132]4,a$(1)
  14. 40020 [132]4,a$(2)
  15. 40030 [132]4,a$(3)
  16. 40040 [160]4
  17. 40050 a$(5)[178]"http://c64.eloadstar.com"
  18. 40060 a$(6)[178]"atn len(NULL)right$(NULL)(NULL) (NULL)resentation"
  19. 41000 [151]53280,0:[151]53281,0:[151]53272,22:[153]"load"
  20. 41002 [151]214,13:[153]
  21. 41004 [153][163]1)"list                                     "
  22. 41005 [129]x[178]1[164]8
  23. 41006 [153][163]1)"print#                                     "
  24. 41007 [130]
  25. 41013 [153][163]1)"poke                                     "
  26. 41015 [151]214,15:[153]
  27. 41020 [129]x[178]1[164]6
  28. 41021 [139]x[178]1[167][139][195](a$(1))[179]19[167][141]41050
  29. 41022 [153][163]19[171][195](a$(x))[173]2)"print#"a$(x)
  30. 41024 [130]
  31. 41025 t[178]ti[170]60
  32. 41026 [159]1,d,15,"s0:temp":[160]1
  33. 41027 [159]4,d,4,"temp,s,w"
  34. 41028 [129]x[178]1[164]3:[152]4,a$(x):[130]:[160]4
  35. 41031 [139]t[177]ti[167]41031
  36. 41032 [153]"":[142]
  37. 41050 b$[178]"":a$[178]a$(1)
  38. 41051 [129]y[178]1[164][195](a$):b$[178]b$[170][202](a$,y,1)[170]" ":[130]
  39. 41052 a$(1)[178][200](b$,[195](b$)[171]1):[142]
  40. 60000 [137]10000
  41.