home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 May / 64er_Magazin_93-05_1993_Markt__Technik_de_Side_B.d64 / diagrammcreator (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  22 lines
  1. 0 r=53280:fors=0to9:readw$(s):next:dimc$(21):fors=1to20:c$(s)=w$(8):next:poker,0
  2. 1 poker+1,0:print"[147]"spc(11);w$(0):fors=2to7:print"<"s-1"> "w$(s):next
  3. 2 geta$:onval(a$)goto11,3,5,7,9,20:goto2
  4. 3 print"[147]papier einlegen !":poke198,0:wait198,1:open1,4:cmd1:v=1:i$=chr$(15)
  5. 4 o$=chr$(8):p$=chr$(15):gosub11:print#1:close1:p$=chr$(0):o$=p$:i$=p$:goto1
  6. 5 gosub8:open2,8,2,r$:print#2,a;chr$(13);b$;chr$(13);b;chr$(13);y:fors=1toy
  7. 6 print#2,z(s):next:close2:goto1
  8. 7 gosub8:open2,8,2,d$:input#2,a,b$,b,y:fors=1toy:input#2,z(s):next:close2:goto1
  9. 8 input"dateiname";e$:r$=e$+",s,w":d$=e$+",s,r":return
  10. 9 input"[147]hoechstes x, niedrigstes x";a,b:input"anzahl der balken (1-10)";y
  11. 10 input"text (max. 35 zeichen.)";b$:fors=1toy:prints;:input". wert";z(s):next
  12. 11 print"[147]":q=a:m=a-b:x=m/20:a(1)=a:a(2)=m*3/4+b:a(3)=m/2+b:a(4)=m/4+b:a(5)=b
  13. 12 fors=1to20:q=q-x:fort=1toy:ifz(t)>qthenc$(s)=c$(s)+"[154]  [146][155][219]":nextt,s:goto14
  14. 13 c$(s)=c$(s)+"[219][219][219]":nextt,s:data"diagrammcreator","       ","diagr. ansehen"
  15. 14 printp$;"   ";b$:print:m=0:l$="":fors=1to5:m=m+1:s$=str$(a(s)):ifm>19then17
  16. 15 s$=w$(1)+s$:printp$;"[154]";right$(s$,6);"[155][183]";c$(m);o$
  17. 16 fort=0to3:m=m+1:l$=l$+"[183][183][183]":printp$;spc(7);c$(m);o$:l=3*y+3:nextt,s
  18. 17 s$=w$(1)+s$:printp$;"[154]"right$(s$,6)"[155]"left$(l$,l);o$:fors=1to20:c$(s)=w$(8)
  19. 18 next:printp$;"[154]"left$(w$(9),l+6);o$:poke198,0:ifv=0thenwait198,1:goto1"
  20. 19 v[178]0:[142]:[131]"diagr. drucken","diagr. speichern","diagr. laden"
  21. 20 [131]"diagr. erstellen","ende","list-(NULL)","         1  2  3  4  5  6  7  8  9  10"
  22.