home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8707.d64 / balkenstatistik (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.