home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh6x / sh62a.d64 / balkengrafik (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  2.2 KB  |  95 lines
  1. 10 REM VPLOT-DEMO EXBASIC LEVEL 2
  2. 20 REM 64'ER SONDERHEFT 62/H.BEILER
  3. 30     1:(null)1:16:(null):(null)ON
  4. 40 MN=12:DIMH(MN),F(MN),MN$(MN),MO$(MN)
  5. 50 FORI=1TO12:READMN$(I):NEXT
  6. 55 MW$(5)=(null)(37,"[164]")
  7. 60 GOTO740
  8. 70 GOSUB230:GOSUB640
  9. 80 PRINT"[147]":GOSUB400
  10. 90 B=20:A=1:POKE211,A:POKE214,B:SYS58640:PRINTMW$(5)
  11. 100 F=1:FORI=1TO12
  12. 110 F=F+1
  13. 120 GOSUB190
  14. 130 NEXT:GOSUB450
  15. 140 POKE214,23:POKE211,0:SYS58640
  16. 150 PRINTTAB(1)""+(null)(37,32)
  17. 160 POKE214,23:POKE211,0:SYS58640
  18. 170 PRINTTAB(1)""+NM$TAB(20)"[199]ESAMT:";:PRINT(null)"#########,##",S
  19. 180 POKE198,0:WAIT198,1:GOTO640
  20. 190 POKE211,A:POKE214,B:SYS58640
  21. 200 H(I),F:PRINT
  22. 210 PRINTTAB(A-1)STR$(I):A=A+3
  23. 220 RETURN
  24. 230 PRINT:PRINT:PRINTTAB(10);:(null)" [206]AME DER [199]RAFIK:";NM$,18:PRINT
  25. 240 PRINTTAB(10);:(null)" [205]AXIMALWERT....:";MW$,9:S=0
  26. 250 MW$(1)=STR$(VAL(MW$))
  27. 260 MW$(2)=STR$(VAL(MW$)*.75)
  28. 270 MW$(3)=STR$(VAL(MW$)*.5)
  29. 280 MW$(4)=STR$(VAL(MW$)*.25)
  30. 300 PRINT"[147] [194]ITTE MONATLICHE [215]ERTE EINGEBEN "
  31. 310 FORI=1TO12
  32. 320 PRINTMN$(I);:(null)MO$(I),LEN(MW$)+3:IFVAL(MO$(I))<=0THENMO$(I)="1"
  33. 330 H(I)=160/(VAL(MW$)/VAL(MO$(I)))
  34. 340 S=S+VAL(MO$(I))
  35. 350 NEXT
  36. 360 POKE211,7:POKE214,20:SYS58640
  37. 370 PRINT" [196]ATEN SPEICHERN (J/N) "
  38. 380 GETT$:IFT$="J"THENGOSUB500:RETURN:(null)IFT$="N"THENRETURN
  39. 390 GOTO380
  40. 400 ZL=0:SP=0
  41. 410 FORI=1TO4
  42. 420 POKE211,SP:POKE214,ZL:SYS58640
  43. 430 PRINTMW$(5):ZL=ZL+5
  44. 440 NEXT:RETURN
  45. 450 ZL=0:SP=0:FORI=1TO4
  46. 460 POKE211,SP:POKE214,ZL:SYS58640
  47. 470 PRINTMW$(I):ZL=ZL+5
  48. 480 NEXT:RETURN
  49. 490 REM STATISTIKDATEN SPEICHERN
  50. 500 OPEN2,8,2,NM$+",S,W"
  51. 501 PRINT#2,MW$
  52. 510 FORI=1TO4:PRINT#2,MW$(I):NEXT
  53. 520 FORI=1TO12
  54. 530 PRINT#2,MO$(I):PRINT#2,H(I)
  55. 540 NEXT
  56. 545 PRINT#2,S
  57. 550 CLOSE2:RETURN
  58. 560 REM STATISTIKDATEN LADEN
  59. 570 OPEN2,8,2,NM$+",S,R"
  60. 571 INPUT#2,MW$
  61. 580 FORI=1TO4:INPUT#2,MW$(I):NEXT
  62. 590 FORI=1TO12
  63. 600 INPUT#2,MO$(I):INPUT#2,H(I)
  64. 610 NEXT
  65. 615 INPUT#2,S
  66. 620 CLOSE2:RETURN
  67. 630 REM TEXTAUSGABE STATISTIKDATEN
  68. 640 PRINT"[147]"TAB(1)""+NM$TAB(20)"[199]ESAMT:";:PRINT(null)"#########,##",S
  69. 650 PRINT
  70. 660 FORI=1TO12:9
  71. 670 PRINTTAB(1)MN$(I)TAB(27);:8
  72. 680 PRINT(null)"#########,##",VAL(MO$(I))
  73. 690 NEXT
  74. 700 POKE211,1:POKE214,20:SYS58640:14
  75. 710 PRINT" ([194])ALKENGRAFIK               ([205])ENUE ":16
  76. 720 GETT$:IFT$="B"THEN80:(null)IFT$="M"THEN60
  77. 730 GOTO720
  78. 740 REM HAUPTMENUE
  79. 750 PRINT"[147]":1,1,38,5,160,2
  80. 760 PRINT:PRINTTAB(1)"      [211]TATISTISCHE [218]AHLENAUSWERTUNG   "
  81. 770 PRINTTAB(1)"    [194]ALKENGRAFIK MIT [197]XBASIC [204]EVEL [201][201] ":PRINT
  82. 780 8,10,30,16,160,2
  83. 790 POKE211,10:POKE214,11:SYS58640
  84. 800 PRINT" ([206])EUE [211]TATISTIK  ":PRINTTAB(10)" ([193])LTE [215]ERTE LADEN"
  85. 802 PRINTTAB(10)" ([197])NDE            "
  86. 810 GETT$:IFT$="N"THEN70
  87. 820 IFT$="A"THENGOSUB840:GOSUB570:GOTO640
  88. 822 IFT$="E"THENPRINT"[147]":END
  89. 830 GOTO810
  90. 840 PRINT"[147][150] [206]AME DES [196]ATENFILES:[146] [213]MSATZ 1990[157][157][157][157][157][157][157][157][157][157][157]";:NM$
  91. 850 16:RETURN
  92. 860 DATA"[202]ANUAR....","[198]EBRUAR...","[205]AERZ.....","[193]PRIL.....","[205]AI......."
  93. 870 DATA"[202]UNI......","[202]ULI......","[193]UGUST....","[211]EPTEMBER.","[207]KTOBER..."
  94. 880 DATA"[206]OVEMBER..","[196]EZEMBER.."
  95.