home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 212 / 212.d81 / b.bmp2dood / b.080d / b.a7ae (.txt)
Encoding:
Commodore BASIC  |  2002-01-01  |  48.8 KB  |  38 lines
  1. 4 print"[147]"
  2. 5 ifpeek(56)<>64thenpoke56,64:poke55,0:run
  3. 6 dv=peek(186):ifdv<8thenpoke186,8:run
  4. 10 rem  sys57812"grafstar c000",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  5. 20 ad=49152
  6. 30 sysad,96,92
  7. 40 rem sysad+3,5
  8. 50 sysad+30,0,1,0,0
  9. 90 input"from drive";df
  10. 91 input"file";f$
  11. 100 open4,df,4,f$
  12. 110 forx=0to54:get#4,a$:next
  13. 111 sysad+3,5
  14. 112 fory=199to0step-1:forx=0to319
  15. 113 a1=0:get#4,a$:a=asc(a$+chr$(0)):ifa>127thena1=1
  16. 114 sysad+6,x,y,a1:get#4,a$,b$
  17. 115 next:next
  18. 120 close4
  19. 200 sysad+3,0
  20. 205 input"to drive";dt
  21. 210 input"filename";f$
  22. 220 sys57812f$,dt,0:poke193,0:poke194,92:poke174,0:poke175,128:sys62954
  23. 500 poke186,dv
  24. 600 print"do another (y/n):p[207]198,0:wait198,1:getz$:ifz$="y"thenrun
  25. 610 [137]40000
  26. 9999 [128]
  27. 10000 d[178][194](186):n$[178]"bmp2dood.b":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  28. 40000 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
  29. 40010 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]40030
  30. 40020 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
  31. 40030 a$[178]"hello connect":[129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
  32. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  33. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  34. 40060 [130]:[153]"load":[151]53272,23:[151]186,8:[128]
  35. 40070 q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  36. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  37. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  38.