home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 January / 1994-01a.d64 / gifvert (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  68 lines
  1. 0 dv=peek(186)
  2. 1 b=.:fora=49152to50000step20:b=b+peek(a):next:ifb<>5698thenload"gifvert.mc",dv,1
  3. 10 poke53280,6:poke53281,6
  4. 20 print"[147][158][199][201][198] and '[199]raphics [201]nterchange [198]ormat'"
  5. 30 print"are trademarks (tm) of [195]ompu[211]erve"
  6. 40 print"[201]ncorporated, an [200]&[210] [194]lock [195]ompany."
  7. 50 print"[155] [199][201][198][214][197][210][212], by [210]andy [215]eems"
  8. 51 printtab(13)"[210]andy[215]18 ([209]link)
  9. 52 [153][163]13)"72437,2702 (lenompu(NULL)erve)"
  10. 60 [153]"str$ue to its simplicity, right$ am placing this";
  11. 70 [153]"first version of chr$right$asc(NULL)val(NULL)(NULL) in the public"
  12. 80 [153]"domain.  atn shareware version may follow"
  13. 90 [153]"if right$ can find the time and there is"
  14. 91 [153]"enough interest."
  15. 95 [153]"right$nsert source disk."
  16. 100 [133]"valnter gg((NULL)oala) filename";n$
  17. 105 [139]n$[178]""[167][128]
  18. 110 n$[178]n$[170]",r"
  19. 115 [141] 7000
  20. 120 [160]15:[159]15,dv,15,"i0:"
  21. 130 [141]5000:[139] en [167] [141] 6000:[128]
  22. 135 [160]2:[159]2,dv,2,n$
  23. 140 [141] 5000:[139] en [167] n$[178]"gg"[170]n$:[160] 2:[159] 2,dv,2,n$
  24. 150 [141] 5000:[139] en [167] [141] 6000:[128]
  25. 160 [158] 49152
  26. 170 [160] 2
  27. 180 [141] 5000:[139] en [167] [141] 6000:[128]
  28. 190 [160] 15
  29. 195 [153]"right$nsert destination disk"
  30. 200 [133]"valnter chr$right$asc filename";o$
  31. 205 [139]o$[178]""[167][128]
  32. 210 o$[178]o$[170]",p,w"
  33. 215 [141]7000
  34. 217 [160]15:[159]15,dv,15,"i0:"
  35. 218 [141]5000:[139]en[167][141]6000:[128]
  36. 220 [160]5:[159]5,dv,5,o$
  37. 230 [141]5000:[139]en[167][141]6000:[128]
  38. 240 [153]"peeklank screen (y/n)  ycmdcmdcmd";
  39. 250 [133]bs$
  40. 260 [141]8000
  41. 270 [139]bs$[178]"y"[167][151]53265,43:[151]53296,253
  42. 280 [151]56334,0:[158]49155:[151]56334,1
  43. 285 [151]53296,252:[151]53265,59:[151]53280,0
  44. 290 [160]5:[160]15
  45. 300 [161]k$:[139]k$[178]""[167]300
  46. 310 [141] 9000
  47. 320 [151]53280,6:[151]53281,6
  48. 4999 [128]
  49. 5000 [132]15,en,em$,et,es
  50. 5010 [142]
  51. 6000 [153]en;em$;et;es
  52. 6010 [142]
  53. 7000 [153]"device # "dv"cmdcmdcmdcmd";:[133]dv
  54. 7010 [142]
  55. 8000 [151]53265,59
  56. 8010 [151]53270,24
  57. 8020 [151]53272,120
  58. 8030 [151]56576,[194](56576)[175]254
  59. 8040 [151]56576,[194](56576)[175]254
  60. 8050 [158]49158
  61. 8060 [142]
  62. 9000 [151]53265,27
  63. 9010 [151]53270,8
  64. 9020 [151]53272,23
  65. 9040 [151]56576,[194](56576)[176]3
  66. 9050 [153]"load"
  67. 9060 [142]
  68.