home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 63 / 64er_Magazin_Sonderheft_63_19xx_Markt__Technik_de_Side_A.d64 / balkenstatistik (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  47 lines
  1. 100 d$="0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5"
  2. 110 :i$=str$(i):i$=right$("  "+i$,4)
  3. 120 poke53280,0:poke53281,0:print"[147][158]"
  4. 130 dimwe(101),a$(101):f=0
  5. 140 print"[153]***************************************"
  6. 160 print"**          balkenstatistik          **"
  7. 220 print"***************************************"
  8. 230 input"[158]einteilung x       bis 100 ";ei
  9. 240 ifei=0thenprint"[145][145][145][145]":goto230
  10. 250 input"anzahl der balken  bis 35  ";az
  11. 260 input"[158]ausdruck j/n               ";au$
  12. 270 ifau$<>"j"andei>20thenprint"[153]nicht moeglich[145][145][145][145][145][145]":goto 230
  13. 280 ifau$<>"j"andaz>17thenprint"[153]nicht moeglich [145][145][145][145][145][145]":goto230
  14. 290 ifaz>35thenprint"[153]nicht moeglich [145][145][145][145][145][145]":goto230
  15. 300 ifei>100thenprint"[153]nicht moeglich [145][145][145][145][145][145]":goto230
  16. 310 input"[158]text max 40 zeichen";te$
  17. 320 input"[158]eingaben richtig    j/n    ";t$
  18. 330 ift$="n"thenprint"[145][145][145][145][145][145][145][145]":goto230
  19. 340 print"[147]":fori=1toaz
  20. 350 print"wert "i;:inputwe(i)
  21. 360 next
  22. 370 print"bitte warten, ich rechne[155]"
  23. 380 x=ei+1
  24. 390 fori=1toaz
  25. 400 ifwe(i)>x-1thena$(x)=a$(x)+"[158] [146][155][192]":goto420
  26. 410 a$(x)=a$(x)+"[219][192]"
  27. 420 next:  x=x-1
  28. 430 ifx=0then450
  29. 440 goto390
  30. 450 ifau$="j"thenopen1,4:cmd1
  31. 460 print"[147]     "te$:i=ei:print
  32. 470 :i$=str$(i):i$=right$("  "+i$,4)
  33. 480 iff=0thenprintchr$(15)"[154]"i$"[219][155][192]"a$(i)chr$(8):f=1:goto500
  34. 490 iff=1thenprintchr$(15)"    [154][219][155][192]"a$(i)chr$(8):f=0
  35. 500 i=i-1
  36. 510 ifi=0then530
  37. 520 goto470
  38. 530 printchr$(15)"[154]" ;
  39. 540 printch$"   0[219]";:ford=1toaz:print"[192][219]";:next:print"[192]"
  40. 550 print"    "left$(d$,az*2+2)
  41. 560 close 1
  42. 570 geta$:ifa$=""then570
  43. 580 ifa$="n"thenrun
  44. 590 ifa$="d"thenau$="j":goto450
  45. 600 ifa$="e"thenend
  46. 610 goto570
  47.