home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 April / 64er_Magazin_90-04_1990_Markt__Technik_de_Side_A.d64 / mini-chart (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  999b  |  21 lines
  1. 0 poke53280,0:poke53281,0:dimw(12):printchr$(14):q=119:ba=1825
  2. 1 print"[152][147]":restore:fori=1to7:readm$:print""m$:next:ready$,w$,l$
  3. 2 gett$:t=val(t$):ift$=""goto2:data"[205]ini-[195][200][193][210][212]"
  4. 3 ift<1ort>5goto2:data"[157][157][157][157]by [200]auke von [200]aefen","1. [196]aten"
  5. 4 ontgoto5,7,9,11:end:data"2. [211]peichern","3. [204]aden","4. [196]iagramm","5. [197]nde"
  6. 5 input"[147][206]ame: ";n$:print"":fori=1to12:print""i"[157]. [215]ert: ";:inputw(i)
  7. 6 next:input"10 [197]inh. = ";e:input"[197]inheit: ";e$:goto1
  8. 7 printy$;w$:input"[198]ilename: ";f$:open1,8,2,f$+",s,w"
  9. 8 print#1,n$:print#1,e:print#1,e$:fori=1to12:print#1,w(i):next:close1:goto1
  10. 9 printy$;l$:input"[198]ilename: ";f$:open1,8,2,f$+",s,r"
  11. 10 input#1,n$:input#1,e:input#1,e$:fori=1to12:input#1,w(i):next:close1:goto1
  12. 11 print"[147]";:m=e/10:l=160:c=40:r=54272:z=115:x=1067:v=1827:h=1867:fori=hto1903
  13. 12 pokei,q:next:fori=xtovstepc:pokei,z:next:fori=1to12:b=ba+3*i:ifw(i)<=0goto15
  14. 13 forj=1to2*w(i)/m:pokeb-c+1,l:pokeb-c+2,l:poker+b-c+2,11:data"[147]  [205][207][196][213][211]: "
  15. 14 pokeb,l:pokeb+1,l:b=b-c:next:poker+b+1,11:data"[211]peichern","[204]aden"
  16. 15 next:fori=1to(c-len(n$))/2:print" ";:next:printn$:fori=10to1step-1
  17. 16 printi;"":next:print"    ";:fori=1to12:printi;:ifi>8thenprint"[157]";
  18. 17 next:print"   10 [197]inheiten entsprechen"e;e$""
  19. 18 geta$:ifa$=""goto18
  20. 19 goto1
  21.