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