1 ! =================================================================== 2 ! Programnamn: Stapel.bas, gjort av Martin Davidsson <7108> 3 ! [r gjort f|r monokrom-sk{rm (815), men kan nog med lite {ndringar 4 ! k|ras med f{rgmonitor. Programmet ritar staplar, h|jden best{ms 5 ! valfritt mellan 1 och 185 (blir b{st s}). 6 ! Gjort p} en ABC806:a den 20 juli 1991. 7 ! Man kan {ven {ndra m|nster (step-funktion) 8 ! 1=helt fylld stapel. 9 ! 2=sm} punkter, 3=st|rre avst}nd mellan punkterna osv... med 4,5... 10 EXTEND 20 ; CHR$(12) 30 FGCTL BLK+GRED+BLU+GGRN : FGPOINT 0,0,0 : FGFILL 511,239 40 DEF FNRam$ 50 FGPOINT 40,30,15 60 FGLINE 40,220 70 FGLINE 470,220 80 FGLINE 470,30 90 FGLINE 40,30 100 FGPOINT 414,220 : FGLINE 414,30 105 FGPOINT 414,170 : FGLINE 470,170 110 ; CUR(0,10) EL "S T A P E L - D I A G R A M" 120 ; CUR(2,0) "185-" 130 ; CUR(2,67) "Program" 140 ; CUR(3,67) " av " 150 ; CUR(4,67) "Martin.D" 160 ; CUR(5,67) " <7108> " 161 ; CUR(6,67) "-910720-" 162 ; CUR(8,67) "PF1=Meny" 163 ; CUR(9,67) "PF2=Slut" 170 ; CUR(11,0) " 95-" 180 ; CUR(20,0) " 5-" 190 ; CUR(21,8) "1 2 3 4 5 6 7 8 9 10" 200 RETURN Ram$ 210 FNEND 220 ; DBLE ULN "STAPEL-DIAGRAM f|r ABC806 ver 1.0 " NULN 230 ; 240 ; : ; : ; 250 ; TAB(10) "Med det h{r programmet kan du rita ut ett stapel-" 260 ; TAB(10) "diagram, du best{mmer sj{lv v{rdena p} staplarna." 270 ; TAB(10) "Du matar in 10 v{rden, max v{rde {r 185 och " 280 ; TAB(10) "min v{rde {r 1 (det ser b{st ut d})." 290 ; 300 ; WHT NWBG BLK; : INPUT "Stapel 1: "S1 310 ; WHT NWBG BLK; : INPUT "Stapel 2: "S2 320 ; WHT NWBG BLK; : INPUT "Stapel 3: "S3 330 ; WHT NWBG BLK; : INPUT "Stapel 4: "S4 340 ; WHT NWBG BLK; : INPUT "Stapel 5: "S5 350 ; WHT NWBG BLK; : INPUT "Stapel 6: "S6 360 ; WHT NWBG BLK; : INPUT "Stapel 7: "S7 370 ; WHT NWBG BLK; : INPUT "Stapel 8: "S8 380 ; WHT NWBG BLK; : INPUT "Stapel 9: "S9 390 ; WHT NWBG BLK; : INPUT "Stapel 10:"S10 391 ; WHT NWBG BLK; : INPUT "V{lj stapelm|nster (1-5): "Sm 400 ; CUR(23,0) EL "TRYCK TANGENT!"; : GET R$ 410 ; CHR$(12) 420 ; FNRam$ 430 REM _______________________________UTRITNING_____________________________ 440 FOR Bredd=20 TO 40 STEP Sm 450 REM ------------------------------------- 460 P=37 : REM STAPELNS STARTV[RDE X-LED 470 FGPOINT P+Bredd,30 480 FGLINE P+Bredd,30+S1 490 REM ------------------------------------ 500 P=73 510 FGPOINT P+Bredd,30 520 FGLINE P+Bredd,30+S2 530 REM ------------------------------------ 540 P=109 550 FGPOINT P+Bredd,30 560 FGLINE P+Bredd,30+S3 570 REM ------------------------------------ 580 P=145 590 FGPOINT P+Bredd,30 600 FGLINE P+Bredd,30+S4 610 REM ----------------------------- 620 P=181 630 FGPOINT P+Bredd,30 640 FGLINE P+Bredd,30+S5 650 REM ----------------------------- 660 P=217 670 FGPOINT P+Bredd,30 680 FGLINE P+Bredd,30+S6 690 REM ----------------------------- 700 P=253 710 FGPOINT P+Bredd,30 720 FGLINE P+Bredd,30+S7 730 REM ----------------------------- 740 P=289 750 FGPOINT P+Bredd,30 760 FGLINE P+Bredd,30+S8 770 REM ----------------------------- 780 P=325 790 FGPOINT P+Bredd,30 800 FGLINE P+Bredd,30+S9 810 REM ----------------------------- 820 P=361 830 FGPOINT P+Bredd,30 840 FGLINE P+Bredd,30+S10 850 REM ----------------------------- 860 NEXT Bredd 870 REM __________________________UTRITNING_KLAR__________________________ 880 REM 890 GET Slask$ : IF ASCII(Slask$)<>192% THEN 892 891 GOTO 10 892 IF ASCII(Slask$)<>193% THEN 890 900 GOTO 1000 998 END 999 REM _________________________SLUT_____________________________________ 1000 ; CHR$(12) 1010 FGCTL BLK+GRED+BLU+GGRN 1020 FGPOINT 0,0,0 1030 FGFILL 511,239