DataMuseum.dk

top - download

    Length: 3968 (0xf80)
    Types: TextFile
    Names: »NYFIL.LST«, »SLETTRIX.LST«

└─⟦b07c548bc⟧ Bits:30004188 COMMENU vers. 4.0
    └─ ⟦this⟧ »NYFIL.LST« 
    └─ ⟦this⟧ »SLETTRIX.LST« 

TextFile

0010 demo
0020 // SLETTRIX   En proceduresamling til at slette skærmen helt eller
0030 //            delvist.
0040 // Procedurerne kan anvendes i egne programmer - eller eleverne kan
0050 // bruge dem i programmeringsundervisning i datalære.
0060 // Det er op til brugeren selv at sørge for, at parametrene i
0070 // i procedurekaldet passer til skærmen. Ellers gives fejlmelding!
0080 // Proceduren DEMO indeholder en demonstration af samtlige procedurer.
0090 //
0100 // Carsten Borre Larsen  jan. 1988
0110 //*****************************************************************
0120 
0130 PROC sletvh(xmax,ymax)
0140 FOR x:=1 TO xmax DO 
0150 FOR y:=1 TO ymax DO 
0160 PRINT AT y,x: " "
0170 ENDFOR y
0180 ENDFOR x
0190 ENDPROC sletvh
0200 
0210 PROC slethv(xmax,ymax)
0220 FOR x:=xmax DOWNTO 1 DO 
0230 FOR y:=1 TO ymax DO 
0240 PRINT AT y,x: " ",
0250 ENDFOR y
0260 ENDFOR x
0270 ENDPROC slethv
0280 
0290 PROC rullegardin(xmax,ymax)
0300 FOR y:=ymax DOWNTO 1 DO 
0310 PRINT AT y,1: SPC$(xmax)
0320 ENDFOR y
0330 LOOP 200 TIMES // en lille forsinkelsesløkke
0340 ENDLOOP 
0350 ENDPROC rullegardin
0360 
0370 PROC hivop
0380 FOR i:=1 TO 25 DO 
0390 PRINT AT 1,1: ""17""
0400 ENDFOR i
0410 ENDPROC hivop
0420 
0430 PROC forhæng
0440 FOR x:=40 DOWNTO 1 STEP 3 DO 
0450 FOR y:=1 TO 25 DO 
0460 PRINT AT y,x: "   ",
0470 PRINT AT y,81-x: "   ",
0480 ENDFOR y
0490 ENDFOR x
0500 ENDPROC forhæng
0510 
0520 PROC fyldud(tekst$)
0530 PAGE 
0540 FOR y:=1 TO 24 DO 
0550 FOR x:=1 TO 80 STEP LEN(tekst$) DO 
0560 PRINT AT y,x: tekst$,
0570 ENDFOR x
0580 ENDFOR y
0590 ENDPROC fyldud
0600 
0610 PROC trækop(linie)
0620 FOR i:=linie TO 25 DO 
0630 PRINT AT linie,1: ""17""
0640 ENDFOR i
0650 ENDPROC trækop
0660 
0670 PROC hivned(linie)
0680 FOR i:=linie TO 25 DO 
0690 PRINT AT linie,1: ""16""
0700 ENDFOR i
0710 ENDPROC hivned
0720 
0730 PROC spalte
0740 hivned(12)
0750 trækop(1)
0760 ENDPROC spalte
0770 
0780 PROC vent(sek)
0790 FOR i:=1 TO 1000*sek DO NULL 
0800 ENDPROC vent
0810 
0820 PROC demo
0830 PAGE 
0840 fyldud("::::::::")
0850 PRINT AT 5,40: " Proceduren FYLDUD fylder skærmen "
0860 PRINT AT 6,40: " med en vilkårligt valgt tekst    "
0870 vent(3)
0880 sletvh(32,24)
0890 PRINT AT 12,1: " Proceduren SLETVH"
0900 PRINT AT 13,1: " sletter skærmen lodret"
0910 PRINT AT 14,1: " fra venstre mod højre!"
0920 vent(3)
0930 PRINT AT 12,55: " Proceduren SLETHV      "
0940 PRINT AT 13,55: " sletter skærmen lodret "
0950 PRINT AT 14,55: " fra højre mod venstre  "
0960 vent(3)
0970 slethv(79,24)
0980 PRINT AT 12,30: " Proceduren HIVOP"
0990 PRINT AT 13,30: " fjerner teksten"
1000 PRINT AT 14,30: " ved at hive den op"
1010 vent(3)
1020 hivop
1030 fyldud(" DEMO ")
1040 PRINT AT 9,20: "                          "
1050 PRINT AT 10,20: " Proceduren RULLEGARDIN  "
1060 PRINT AT 11,20: " sletter nede fra og op  "
1070 PRINT AT 12,20: "                         "
1080 vent(3)
1090 rullegardin(18,11)
1100 vent(2)
1110 rullegardin(40,18)
1120 vent(1)
1130 rullegardin(80,24)
1140 fyldud(" HIVNED ")
1150 vent(2)
1160 hivned(20)
1170 vent(2)
1180 hivned(12)
1190 vent(1)
1200 hivned(3)
1210 PRINT AT 12,20: " Proceduren HIVNED"
1220 PRINT AT 13,20: " hiver skærmen ned "
1230 vent(3)
1240 hivned(1)
1250 fyldud(".*.")
1260 vent(1)
1270 PRINT AT 11,20: " Proceduren SPALTE        "
1280 PRINT AT 12,20: " deler skærmen i to dele, "
1290 PRINT AT 13,20: " der hives hver sin vej   "
1300 vent(3)
1310 spalte
1320 fyldud("*********************")
1330 PRINT AT 12,20: " Proceduren FORHÆNG deler "
1340 PRINT AT 13,20: " også skærmen i to dele   "
1350 PRINT AT 14,20: " der slettes hver sin vej "
1360 vent(3)
1370 forhæng
1372 fyldud(". . . . . . . . . . . . . . .")
1373 PRINT AT 12,20: " Proceduren TRÆKOP deler  "
1374 PRINT AT 13,20: " trækker skærmen op       "
1376 vent(3)
1377 trækop(15)
1378 trækop(1)
1380 ENDPROC demo
«eof»