Added COMPI.BAS + config + examples.

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 zur<75>cksetzen"
+150 LOCATE 9,30:PRINT"Z     - Zufallswerte setzen"
+160 LOCATE 10,30:PRINT"T     - TURBO AN/AUS"
+170 LOCATE 11,30:PRINT"U     - m”gliche 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 f<>r 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 f<>r 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 f<>r 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 f<>r 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 f<>r 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 f<>r 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 f<>r 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 f<>r 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 f<>r 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 f<>r 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 f<>r 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 f<>r 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 f<>r 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 f<>r 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 dr<64>cken!"
+2530 A$=INKEY$:IF A$="" THEN 2530
+2540 LOCATE 17,1:FOR Z=1 TO 7:PRINT SPACE$(79):NEXT Z
+2550 GOTO 1200
+

COMPI/COMPI.CFG

@@ -0,0 +1,3 @@
+2,2,2,2,2,2,2,2,2,2,2,2,2,2
+0
+

COMPI/HANS.CFG

@@ -0,0 +1,3 @@
+3,3,0,2,1,3,2,0,0,2,3,3,2,1
+1
+

COMPI/HANS2.CFG

@@ -0,0 +1,3 @@
+3,2,2,2,3,2,2,0,2,2,3,2,1,2
+1
+

COMPI/HCV386.CFG

@@ -0,0 +1,3 @@
+1,3,2,2,1,2,2,1,2,2,1,2,2,2
+1
+

COMPI/HCV3862.CFG

@@ -0,0 +1,3 @@
+0,3,3,3,1,2,2,0,3,3,1,2,2,2
+1
+