home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 47 / 64er_Magazin_Sonderheft_47_19xx_Markt__Technik_de_Side_A.d64 / poster-hc (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  67 lines
  1. 0 poke56,32:clr
  2. 1 print"[147][142]poster-hardcopy mps 801/803
  3. 3 [153]"n.heusler, 190388-arr
  4. 4 ifpeek(49158)<>165thenload"poster-c000",8,8
  5. 5 poke53281,.:poke53280,.:qw$="p":fori=1to7:qw$=qw$+qw$:next
  6. 6 f$(1)=" [146]":f$(2)=" ":f$(3)=".":f$(4)=".[146]":f$(5)="[166]":f$(6)="*
  7. 7 qw$[178]qw$[170][200](qw$,122):f$(7)[178]"(NULL)wait":f$(8)[178]"(NULL)
  8. 8 ep$="nein":l$="ja  ":ff=1:cc=2:x$="[145][157][157][157][157][164][164][164][164]
  9. 9 [153]"":f$[178]f$(ff):c$[178]f$(cc)
  10. 10 [153]"  f1 wait"x$" fuellzeichen = "[199](34);:[151]212,.:[153]f$[199](34)
  11. 12 [153]"  f3 wait"x$" leerzeichen  = "[199](34);:[151]212,.:[153]c$[199](34)
  12. 14 [153]"  f5 wait"x$" grafik beim druck loeschen: "l$
  13. 15 [153]"  f7 wait"x$" auf geht's !
  14. 16 print"  f2 [146]"x$" grafik zeigen
  15. 17 [153]"  f4 wait"x$" einzelpapier: "ep$"
  16. 18 print"  f6 [146]"x$" invertieren
  17. 19 [151]198,.
  18. 20 [161]a$:[139]a$[178]"input"[167]30
  19. 22 [139]a$[178]"dim"[167]40
  20. 24 [139]a$[178]"read"[167]50
  21. 25 [139]a$[178]"if"[167][158]49155
  22. 26 [139]a$[178]"let"[167]100
  23. 27 [139]a$[178]"goto"[167]60
  24. 28 [139]a$[178]"run"[167]70
  25. 29 [137]20
  26. 30 ff[178]ff[170]1:[139]ff[178]cc[167]30
  27. 32 [139]ff[177]8[167]ff[178]1:[139]ff[178]cc[167]ff[178]2
  28. 34 [137]9
  29. 40 cc[178]cc[170]1:[139]ff[178]cc[167]40
  30. 42 [139]cc[177]8[167]cc[178]1:[139]ff[178]cc[167]cc[178]2
  31. 44 [137]9
  32. 50 [139]l$[178]"ja  "[167]l$[178]"nein":[137]9
  33. 52 l$[178]"ja  ":[137]9
  34. 60 [151]53272,29:[151]53265,59:[153]"load"qw$qw$qw$"cmd"qw$;
  35. 62 [151]198,.:[146]198,1:[151]53272,21:[151]53265,27
  36. 64 [153]"load":[137]9
  37. 70 [139]ep$[178]"ja  "[167]ep$[178]"nein":[137]9
  38. 72 ep$[178]"ja  ":[137]9
  39. 100 [153]"loadmompls...bitte drucker anschalten !
  40. 110 fori=1to3:poke32767+i,asc(mid$(c$,i)+""):next
  41. 112 fori=1to3:poke32770+i,asc(mid$(f$,i)+""):next
  42. 113 poke32774,255+(l$="nein")*255
  43. 114 print"(taste,  f7 [146]"x$" = abbruch)
  44. 116 [151]198,.:[146]198,1:[161]a$:[139]a$[178]"let"[167]64
  45. 120 [151]142,.
  46. 130 [151]53272,29:[151]53265,59:[153]"load"qw$qw$qw$"cmd"qw$;
  47. 132 [159]4,4:[157]4,;:[158]49152:[158]65484:[160]4
  48. 140 [139][194](142)[178].[167]160
  49. 143 [151]53272,21:[151]53265,27:[153]"load":[139][194](140)[178].[167]145
  50. 144 [139]ep$[178]"nein"[167]130
  51. 145 [139][194](140)[178].[167][159]4,4:[152]4," ";:[129]i[178]1[164]53:[152]4,"tan";:[130]:yg[178]1
  52. 146 [139]yg[167]yg[178].:[152]4," ende papierbahn"pb"tantantantantantan":[160]4
  53. 147 [153]"bitte papier justieren ! (taste)":[151]198,.:[146]198,1:[153]"ok
  54. 148 ifpeek(140)=.thenopen4,4:print#4," ";:fori=1to58:print#4,"[192]";:next:yg=1
  55. 149 ifygthenyg=.:pb=pb+1:print#4," papierbahn"pb"[192][192][192][192][192][192]":close4
  56. 159 goto130
  57. 160 open4,4:print#4," ";:fori=1to53:print#4,"[192]";:next
  58. 162 print#4," ende papierbahn"pb"[192][192][192][192][192][192]":close4:poke53272,21
  59. 164 poke53265,27:print"[147]fertig !":end
  60. 199 :
  61. 200 rem poster-hardcopy
  62. 202 rem von nikolaus heusler
  63. 204 rem     zwengauerweg 18
  64. 206 rem   d-8000 muenchen 71
  65. 208 rem     089/792940
  66. 210 rem revision deux vom 270789
  67.