home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 139 / 139side1.d64 / ts viewer (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  1.5 KB  |  41 lines
  1. 10 poke56,32:poke55,32:clr
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 30 poke53281,0:poke53280,0:print"[147][129]          [212][200][197] [205][201][199][200][212][217] [204][207][193][196][211][212][193][210]"
  4. 40 print"      [212][201][212][204][197] [211][195][210][197][197][206] [214][201][197][215][197][210]/[208][210][201][206][212][197][210]
  5. 50 [158]57812"unpacker.89",dv,0:[151]780,0:[151]781,0:[151]782,201:[158]65493
  6. 60 [158]57812"intro.shp",dv,0:[151]780,0:[151]781,0:[151]782,32:[158]65493
  7. 70 [158]57812"tswp93 $c000",dv,0:[151]780,0:[151]781,0:[151]782,192:[158]65493
  8. 80 [151]251,32:[151]252,64:[151]253,96:[158]51456
  9. 90 [151]53280,0
  10. 100 lf$(0)[178]"(NULL)ascasc":lf$(1)[178]"(NULL)(NULL) "
  11. 110 [153]" 1.cont mid$ust show the picture.
  12. 120 print" 2.[154] [211]how the picture and print it on
  13. 125 [153]"    a 7-pin (1525-emulating) printer.
  14. 130 print" 3.[154] [211]how the picture and print it on
  15. 135 [153]"    an 8-pin (valpson-emulating) printer.
  16. 140 print" 4.[154] [212]oggle linefeed -- "lf$(lf)
  17. 150 print" 5.[154] [210]eturn to [204][207][193][196][211][212][193][210]
  18. 170 [153]"list  (NULL)ake sure your printer is on-line.
  19. 220 poke198,0
  20. 230 geta$:ifa$<"1"ora$>"5"then230
  21. 232 ifa$="5"then40000
  22. 233 ifa$="4"thenlf=1-lf:poke214,13:print:printtab(23)""lf$(lf):goto230
  23. 235 sys51459
  24. 240 ifa$="2"thensys49155,4,5,lf,0,0,39,24,64:goto280
  25. 250 ifa$="3"thensys49152,4,5,lf,0,0,39,24,64,76,35,65,8,0:goto280
  26. 260 poke198,0
  27. 270 geta$:ifa$=""then270
  28. 280 poke251,32:poke252,64:poke253,96:sys51459
  29. 290 goto230
  30. 10000 d=peek(186):n$="ts viewer":open15,d,15,"s0:"+n$:close15:saven$,d:end
  31. 40000 fori=0to21:poke828+i,8+i:next
  32. 40010 ifdv<8ordv>29ordv=8then40030
  33. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  34. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  35. 40040 close2:open2,i,2:close2:ifstthen40060
  36. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  37. 40060 next:print"[147]":poke53272,23:poke186,8:end
  38. 40070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  39. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  40. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  41.