From 86847c2fb4ae011eee5fb984d2ccfe9939dfa7d9 Mon Sep 17 00:00:00 2001 From: Markus Birth Date: Thu, 14 Dec 1995 19:10:56 +0100 Subject: [PATCH] Added COMPI.BAS + config + examples. --- COMPI/COMPI.BAS | 257 ++++++++++++++++++++++++++++++++++++++++++++++ COMPI/COMPI.CFG | 3 + COMPI/HANS.CFG | 3 + COMPI/HANS2.CFG | 3 + COMPI/HCV386.CFG | 3 + COMPI/HCV3862.CFG | 3 + 6 files changed, 272 insertions(+) create mode 100644 COMPI/COMPI.BAS create mode 100644 COMPI/COMPI.CFG create mode 100644 COMPI/HANS.CFG create mode 100644 COMPI/HANS2.CFG create mode 100644 COMPI/HCV386.CFG create mode 100644 COMPI/HCV3862.CFG diff --git a/COMPI/COMPI.BAS b/COMPI/COMPI.BAS new file mode 100644 index 0000000..d32ddb4 --- /dev/null +++ b/COMPI/COMPI.BAS @@ -0,0 +1,257 @@ +5 FLE$="COMPI.CFG" +10 CLS +20 KEY OFF +30 CO=10 +40 OF=8 +50 PIN=14 +60 BR=15 +70 A=2:B=2:C=2:D=2:E=2:F=2:G=2 +80 H=2:I=2:J=2:K=2:L=2:M=2:N=2 +90 TUR=0 +100 REM Anzeigeroutine +110 COLOR 15:LOCATE 5,30:PRINT"W - Werte speichern [";FLE$;"]" +120 LOCATE 6,30:PRINT"R - Werte laden [";FLE$;"]" +130 LOCATE 7,30:PRINT"S - Datei ndern (momentan: ";FLE$;")" +140 LOCATE 8,30:PRINT"Q - Werte zurcksetzen" +150 LOCATE 9,30:PRINT"Z - Zufallswerte setzen" +160 LOCATE 10,30:PRINT"T - TURBO AN/AUS" +170 LOCATE 11,30:PRINT"U - mgliche Dateinamen" +180 LOCATE 12,30:PRINT"A-N - Werte einzeln ndern" +190 LOCATE 13,30:PRINT"^/ - EXIT TO DOS" +200 LOCATE 14,30:PRINT"[SPCE]- alle Werte ndern" +210 LOCATE 1,2:IF A=1 THEN COLOR BR:PRINT"" ELSE COLOR PIN:PRINT"o" +220 LOCATE 2,1:IF A=2 THEN COLOR BR:PRINT"" ELSE IF A=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"" +230 LOCATE 3,2:IF A=3 THEN COLOR BR:PRINT"" ELSE COLOR PIN:PRINT"o" +240 LOCATE 1,4:IF B=1 THEN COLOR BR:PRINT"" ELSE COLOR PIN:PRINT"o" +250 LOCATE 2,3:IF B=2 THEN COLOR BR:PRINT"" ELSE IF B=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"" +260 LOCATE 3,4:IF B=3 THEN COLOR BR:PRINT"" ELSE COLOR PIN:PRINT"o" +270 LOCATE 1,6:IF C=1 THEN COLOR BR:PRINT"" ELSE COLOR PIN:PRINT"o" +280 LOCATE 2,5:IF C=2 THEN COLOR BR:PRINT"" ELSE IF C=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"" +290 LOCATE 3,6:IF C=3 THEN COLOR BR:PRINT"" ELSE COLOR PIN:PRINT"o" +300 LOCATE 1,8:IF D=1 THEN COLOR BR:PRINT"" ELSE COLOR PIN:PRINT"o" +310 LOCATE 2,7:IF D=2 THEN COLOR BR:PRINT"" ELSE IF D=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"" +320 LOCATE 3,8:IF D=3 THEN COLOR BR:PRINT"" ELSE COLOR PIN:PRINT"o" +330 LOCATE 1,10:IF E=1 THEN COLOR BR:PRINT"" ELSE COLOR PIN:PRINT"o" +340 LOCATE 2,9:IF E=2 THEN COLOR BR:PRINT"" ELSE IF E=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"" +350 LOCATE 3,10:IF E=3 THEN COLOR BR:PRINT"" ELSE COLOR PIN:PRINT"o" +360 LOCATE 1,12:IF F=1 THEN COLOR BR:PRINT"" ELSE COLOR PIN:PRINT"o" +370 LOCATE 2,11:IF F=2 THEN COLOR BR:PRINT"" ELSE IF F=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"" +380 LOCATE 3,12:IF F=3 THEN COLOR BR:PRINT"" ELSE COLOR PIN:PRINT"o" +390 LOCATE 1,14:IF G=1 THEN COLOR BR:PRINT"" ELSE COLOR PIN:PRINT"o" +400 LOCATE 2,13:IF G=2 THEN COLOR BR:PRINT"" ELSE IF G=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"" +410 LOCATE 3,14:IF G=3 THEN COLOR BR:PRINT"" ELSE COLOR PIN:PRINT"o" +420 REM Untere Reihe +430 LOCATE 13,2:IF H=1 THEN COLOR BR:PRINT"" ELSE COLOR PIN:PRINT"o" +440 LOCATE 14,1:IF H=2 THEN COLOR BR:PRINT"" ELSE IF H=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"" +450 LOCATE 15,2:IF H=3 THEN COLOR BR:PRINT"" ELSE COLOR PIN:PRINT"o" +460 LOCATE 13,4:IF I=1 THEN COLOR BR:PRINT"" ELSE COLOR PIN:PRINT"o" +470 LOCATE 14,3:IF I=2 THEN COLOR BR:PRINT"" ELSE IF I=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"" +480 LOCATE 15,4:IF I=3 THEN COLOR BR:PRINT"" ELSE COLOR PIN:PRINT"o" +490 LOCATE 13,6:IF J=1 THEN COLOR BR:PRINT"" ELSE COLOR PIN:PRINT"o" +500 LOCATE 14,5:IF J=2 THEN COLOR BR:PRINT"" ELSE IF J=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"" +510 LOCATE 15,6:IF J=3 THEN COLOR BR:PRINT"" ELSE COLOR PIN:PRINT"o" +520 LOCATE 13,8:IF K=1 THEN COLOR BR:PRINT"" ELSE COLOR PIN:PRINT"o" +530 LOCATE 14,7:IF K=2 THEN COLOR BR:PRINT"" ELSE IF K=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"" +540 LOCATE 15,8:IF K=3 THEN COLOR BR:PRINT"" ELSE COLOR PIN:PRINT"o" +550 LOCATE 13,10:IF L=1 THEN COLOR BR:PRINT"" ELSE COLOR PIN:PRINT"o" +560 LOCATE 14,9:IF L=2 THEN COLOR BR:PRINT"" ELSE IF L=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"" +570 LOCATE 15,10:IF L=3 THEN COLOR BR:PRINT"" ELSE COLOR PIN:PRINT"o" +580 LOCATE 13,12:IF M=1 THEN COLOR BR:PRINT"" ELSE COLOR PIN:PRINT"o" +590 LOCATE 14,11:IF M=2 THEN COLOR BR:PRINT"" ELSE IF M=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"" +600 LOCATE 15,12:IF M=3 THEN COLOR BR:PRINT"" ELSE COLOR PIN:PRINT"o" +610 LOCATE 13,14:IF N=1 THEN COLOR BR:PRINT"" ELSE COLOR PIN:PRINT"o" +620 LOCATE 14,13:IF N=2 THEN COLOR BR:PRINT"" ELSE IF N=0 THEN COLOR PIN:PRINT"oo" ELSE COLOR PIN:PRINT"o";:COLOR BR:PRINT"" +630 LOCATE 15,14:IF N=3 THEN COLOR BR:PRINT"" ELSE COLOR PIN:PRINT"o" +640 LOCATE 1,40:IF TUR=0 THEN COLOR OF:PRINT"" ELSE COLOR 14:PRINT"" +650 COLOR 15:LOCATE 2,39:PRINT"TURBO" +660 IF A=1 AND TUR=0 OR A=3 AND TUR=1 THEN COLOR CO ELSE COLOR OF +670 IF A=2 THEN COLOR CO +680 LOCATE 6,2:PRINT"":LOCATE 7,2:PRINT"" +690 IF B=1 AND TUR=0 OR B=3 AND TUR=1 THEN COLOR CO ELSE COLOR OF +700 IF B=2 THEN COLOR CO +710 LOCATE 8,3:PRINT"" +720 IF C=1 AND TUR=0 OR C=3 AND TUR=1 THEN COLOR CO ELSE COLOR OF +730 IF C=2 THEN COLOR CO +740 LOCATE 5,3:PRINT"" +750 IF D=1 AND TUR=0 OR D=3 AND TUR=1 THEN COLOR CO ELSE COLOR OF +760 IF D=2 THEN COLOR CO +770 LOCATE 6,6:PRINT"":LOCATE 7,6:PRINT"" +780 IF E=1 AND TUR=0 OR E=3 AND TUR=1 THEN COLOR CO ELSE COLOR OF +790 IF E=2 THEN COLOR CO +800 LOCATE 6,9:PRINT"":LOCATE 7,9:PRINT"" +810 IF F=1 AND TUR=0 OR F=3 AND TUR=1 THEN COLOR CO ELSE COLOR OF +820 IF F=2 THEN COLOR CO +830 LOCATE 5,10:PRINT"" +840 IF G=1 AND TUR=0 OR G=3 AND TUR=1 THEN COLOR CO ELSE COLOR OF +850 IF G=2 THEN COLOR CO +860 LOCATE 6,13:PRINT"":LOCATE 7,13:PRINT"" +870 REM Untere Reihe +880 IF H=1 AND TUR=0 OR H=3 AND TUR=1 THEN COLOR CO ELSE COLOR OF +890 IF H=2 THEN COLOR CO +900 LOCATE 9,2:PRINT"":LOCATE 10,2:PRINT"" +910 IF I=1 AND TUR=0 OR I=3 AND TUR=1 THEN COLOR CO ELSE COLOR OF +920 IF I=2 THEN COLOR CO +930 LOCATE 11,3:PRINT"" +940 IF J=1 AND TUR=0 OR J=3 AND TUR=1 THEN COLOR CO ELSE COLOR OF +950 IF J=2 THEN COLOR CO +960 LOCATE 9,6:PRINT"":LOCATE 10,6:PRINT"" +970 IF K=1 AND TUR=0 OR K=3 AND TUR=1 THEN COLOR CO ELSE COLOR OF +980 IF K=2 THEN COLOR CO +990 LOCATE 9,9:PRINT"":LOCATE 10,9:PRINT"" +1000 IF L=1 AND TUR=0 OR L=3 AND TUR=1 THEN COLOR CO ELSE COLOR OF +1010 IF L=2 THEN COLOR CO +1020 LOCATE 11,10:PRINT"" +1030 IF M=1 AND TUR=0 OR M=3 AND TUR=1 THEN COLOR CO ELSE COLOR OF +1040 IF M=2 THEN COLOR CO +1050 LOCATE 8,10:PRINT"" +1060 IF N=1 AND TUR=0 OR N=3 AND TUR=1 THEN COLOR CO ELSE COLOR OF +1070 IF N=2 THEN COLOR CO +1080 LOCATE 9,13:PRINT"":LOCATE 10,13:PRINT"" +1090 COLOR OF:LOCATE 11,7:PRINT"":LOCATE 11,14:PRINT"" +1100 LOCATE 16,30:COLOR 15:PRINT" A B C D E F G H I J K L M N" +1110 LOCATE 17,30 +1120 X=A:GOSUB 1150:X=B:GOSUB 1150:X=C:GOSUB 1150:X=D:GOSUB 1150:X=E:GOSUB 1150:X=F:GOSUB 1150:X=G:GOSUB 1150 +1130 X=H:GOSUB 1150:X=I:GOSUB 1150:X=J:GOSUB 1150:X=K:GOSUB 1150:X=L:GOSUB 1150:X=M:GOSUB 1150:X=N:GOSUB 1150 +1140 GOTO 1200 +1150 IF X=0 THEN COLOR 15 +1160 IF X=1 THEN COLOR 8 +1170 IF X=2 THEN COLOR 10 +1180 IF X=3 THEN COLOR 14 +1190 PRINT X;:RETURN +1200 REM Eingaberoutine +1210 A$=INKEY$:IF A$="" THEN 1210 +1220 IF A$="T" OR A$="t" THEN IF TUR=0 THEN TUR=1:GOTO 640 ELSE TUR=0:GOTO 640 +1230 IF A$=" " THEN 1890 +1240 IF A$="w" OR A$="W" THEN 2120 +1250 IF A$="q" OR A$="Q" THEN 2310 +1260 IF A$="r" OR A$="R" THEN 2190 +1270 IF A$="s" OR A$="S" THEN 2260 +1280 IF A$="u" OR A$="U" THEN 2490 +1290 IF A$="z" OR A$="Z" THEN 2330 +1300 IF A$="a" OR A$="A" THEN 1470 +1310 IF A$="b" OR A$="B" THEN 1500 +1320 IF A$="c" OR A$="C" THEN 1530 +1330 IF A$="d" OR A$="D" THEN 1560 +1340 IF A$="e" OR A$="E" THEN 1590 +1350 IF A$="f" OR A$="F" THEN 1620 +1360 IF A$="g" OR A$="G" THEN 1650 +1370 IF A$="h" OR A$="H" THEN 1680 +1380 IF A$="i" OR A$="I" THEN 1710 +1390 IF A$="j" OR A$="J" THEN 1740 +1400 IF A$="k" OR A$="K" THEN 1770 +1410 IF A$="l" OR A$="L" THEN 1800 +1420 IF A$="m" OR A$="M" THEN 1830 +1430 IF A$="n" OR A$="N" THEN 1860 +1440 IF A$="^" OR A$="" THEN CLS:COLOR 15:END +1450 GOTO 1210 +1460 REM INPUT +1470 LOCATE 17,1:INPUT "Neuer Wert fr A: ",A +1480 IF A<0 OR A>3 THEN 1470 +1490 LOCATE 17,1:PRINT SPACE$(25):GOTO 100 +1500 LOCATE 17,1:INPUT "Neuer Wert fr B: ",B +1510 IF B<0 OR B>3 THEN 1500 +1520 LOCATE 17,1:PRINT SPACE$(25):GOTO 100 +1530 LOCATE 17,1:INPUT "Neuer Wert fr C: ",C +1540 IF C<0 OR C>3 THEN 1530 +1550 LOCATE 17,1:PRINT SPACE$(25):GOTO 100 +1560 LOCATE 17,1:INPUT "Neuer Wert fr D: ",D +1570 IF D<0 OR D>3 THEN 1560 +1580 LOCATE 17,1:PRINT SPACE$(25):GOTO 100 +1590 LOCATE 17,1:INPUT "Neuer Wert fr E: ",E +1600 IF E<0 OR E>3 THEN 1590 +1610 LOCATE 17,1:PRINT SPACE$(25):GOTO 100 +1620 LOCATE 17,1:INPUT "Neuer Wert fr F: ",F +1630 IF F<0 OR F>3 THEN 1620 +1640 LOCATE 17,1:PRINT SPACE$(25):GOTO 100 +1650 LOCATE 17,1:INPUT "Neuer Wert fr G: ",G +1660 IF G<0 OR G>3 THEN 1650 +1670 LOCATE 17,1:PRINT SPACE$(25):GOTO 100 +1680 LOCATE 17,1:INPUT "Neuer Wert fr H: ",H +1690 IF H<0 OR H>3 THEN 1680 +1700 LOCATE 17,1:PRINT SPACE$(25):GOTO 100 +1710 LOCATE 17,1:INPUT "Neuer Wert fr I: ",I +1720 IF I<0 OR I>3 THEN 1710 +1730 LOCATE 17,1:PRINT SPACE$(25):GOTO 100 +1740 LOCATE 17,1:INPUT "Neuer Wert fr J: ",J +1750 IF J<0 OR J>3 THEN 1740 +1760 LOCATE 17,1:PRINT SPACE$(25):GOTO 100 +1770 LOCATE 17,1:INPUT "Neuer Wert fr K: ",K +1780 IF K<0 OR K>3 THEN 1770 +1790 LOCATE 17,1:PRINT SPACE$(25):GOTO 100 +1800 LOCATE 17,1:INPUT "Neuer Wert fr L: ",L +1810 IF L<0 OR L>3 THEN 1800 +1820 LOCATE 17,1:PRINT SPACE$(25):GOTO 100 +1830 LOCATE 17,1:INPUT "Neuer Wert fr M: ",M +1840 IF M<0 OR M>3 THEN 1830 +1850 LOCATE 17,1:PRINT SPACE$(25):GOTO 100 +1860 LOCATE 17,1:INPUT "Neuer Wert fr N: ",N +1870 IF N<0 OR N>3 THEN 1860 +1880 LOCATE 17,1:PRINT SPACE$(25):GOTO 100 +1890 REM Gesamteingabe +1900 COLOR 15 +1910 LOCATE 17,1:INPUT"A=",A:IF A<0 OR A>3 THEN 1910 +1920 INPUT"B=",B:IF B<0 OR B>3 THEN LOCATE 18,1:GOTO 1920 +1930 INPUT"C=",C:IF C<0 OR C>3 THEN LOCATE 19,1:GOTO 1930 +1940 INPUT"D=",D:IF D<0 OR D>3 THEN LOCATE 20,1:GOTO 1940 +1950 INPUT"E=",E:IF E<0 OR E>3 THEN LOCATE 21,1:GOTO 1950 +1960 INPUT"F=",F:IF E<0 OR E>3 THEN LOCATE 22,1:GOTO 1960 +1970 INPUT"G=",G:IF G<0 OR G>3 THEN LOCATE 23,1:GOTO 1970 +1980 LOCATE 17,5:INPUT"H=",H:IF H<0 OR H>3 THEN 1980 +1990 LOCATE 18,5:INPUT"I=",I:IF I<0 OR I>3 THEN 1990 +2000 LOCATE 19,5:INPUT"J=",J:IF J<0 OR J>3 THEN 2000 +2010 LOCATE 20,5:INPUT"K=",K:IF K<0 OR K>3 THEN 2010 +2020 LOCATE 21,5:INPUT"L=",L:IF L<0 OR L>3 THEN 2020 +2030 LOCATE 22,5:INPUT"M=",M:IF M<0 OR M>3 THEN 2030 +2040 LOCATE 23,5:INPUT"N=",N:IF N<0 OR N>3 THEN 2040 +2050 LOCATE 17,1:PRINT SPACE$(70) +2060 PRINT SPACE$(70) +2070 PRINT SPACE$(70) +2080 PRINT SPACE$(70) +2090 PRINT SPACE$(70) +2100 PRINT SPACE$(70) +2110 PRINT SPACE$(70):GOTO 100 +2120 REM Werte speichern +2130 OPEN "O",#1,FLE$ +2140 LOCATE 17,1:COLOR 15:PRINT"Werte gesichert!" +2150 WRITE#1,A,B,C,D,E,F,G,H,I,J,K,L,M,N +2160 WRITE#1,TUR +2170 CLOSE #1 +2180 GOTO 1200 +2190 REM Werte laden +2200 OPEN "I",#1,FLE$ +2210 LOCATE 17,1:COLOR 15:PRINT"Werte geladen! " +2220 INPUT#1,A,B,C,D,E,F,G,H,I,J,K,L,M,N +2230 INPUT#1,TUR +2240 CLOSE #1 +2250 GOTO 100 +2260 REM Datei ndern +2270 LOCATE 17,1:COLOR 15:INPUT"Neuer Dateiname: ",NFLE$ +2280 IF NFLE$="" THEN CLS:GOTO 100 +2290 FLE$=NFLE$ +2300 CLS:GOTO 100 +2310 REM RESET +2320 GOTO 70 +2330 REM Zufall +2340 A=INT(RND(1)*4) +2350 B=INT(RND(1)*4) +2360 C=INT(RND(1)*4) +2370 D=INT(RND(1)*4) +2380 E=INT(RND(1)*4) +2390 F=INT(RND(1)*4) +2400 G=INT(RND(1)*4) +2410 H=INT(RND(1)*4) +2420 I=INT(RND(1)*4) +2430 J=INT(RND(1)*4) +2440 K=INT(RND(1)*4) +2450 L=INT(RND(1)*4) +2460 M=INT(RND(1)*4) +2470 N=INT(RND(1)*4) +2480 GOTO 100 +2490 REM Directory +2500 LOCATE 17,1:COLOR 15 +2510 FILES "*.CFG" +2520 PRINT"Bitte Taste drcken!" +2530 A$=INKEY$:IF A$="" THEN 2530 +2540 LOCATE 17,1:FOR Z=1 TO 7:PRINT SPACE$(79):NEXT Z +2550 GOTO 1200 + \ No newline at end of file diff --git a/COMPI/COMPI.CFG b/COMPI/COMPI.CFG new file mode 100644 index 0000000..cf40e27 --- /dev/null +++ b/COMPI/COMPI.CFG @@ -0,0 +1,3 @@ +2,2,2,2,2,2,2,2,2,2,2,2,2,2 +0 + \ No newline at end of file diff --git a/COMPI/HANS.CFG b/COMPI/HANS.CFG new file mode 100644 index 0000000..09c4f60 --- /dev/null +++ b/COMPI/HANS.CFG @@ -0,0 +1,3 @@ +3,3,0,2,1,3,2,0,0,2,3,3,2,1 +1 + \ No newline at end of file diff --git a/COMPI/HANS2.CFG b/COMPI/HANS2.CFG new file mode 100644 index 0000000..d256e45 --- /dev/null +++ b/COMPI/HANS2.CFG @@ -0,0 +1,3 @@ +3,2,2,2,3,2,2,0,2,2,3,2,1,2 +1 + \ No newline at end of file diff --git a/COMPI/HCV386.CFG b/COMPI/HCV386.CFG new file mode 100644 index 0000000..54248e4 --- /dev/null +++ b/COMPI/HCV386.CFG @@ -0,0 +1,3 @@ +1,3,2,2,1,2,2,1,2,2,1,2,2,2 +1 + \ No newline at end of file diff --git a/COMPI/HCV3862.CFG b/COMPI/HCV3862.CFG new file mode 100644 index 0000000..50e1ee7 --- /dev/null +++ b/COMPI/HCV3862.CFG @@ -0,0 +1,3 @@ +0,3,3,3,1,2,2,0,3,3,1,2,2,2 +1 + \ No newline at end of file