1 REM ********************************* 2 REM * * 3 REM * AUSBILDUNGSARBEIT: * 4 REM * LERNPROGRAMM-DIGITALTECHNIK-1 * 5 REM * * 6 REM * ERSTELLT-N.WINTERHALTER- * 7 REM * 1.IS-ET 1987/88 * 8 REM * * 9 REM * AUSBILDUNGSWERKSTATT-W.EPTING * 10 REM * S.SIEDLE &.SOEHNE * 11 REM * 7743 FURTWANGEN 1,BREGSTR.1 * 12 REM * * 13 REM ******************************** 15 POKE53280,0 20 POKE53281,0 30 PRINT"" 40 PRINT"[147]" 42 POKE657,128:POKE792,193:POKE788,52 45 DIMX(16):ZZ=15: FORI=0TO15:X(I)=I:NEXT 50 A=1591:B=1831:Z=1680:G=1716 55 GOSUB20000 60 GOTO12000 200 PRINT" 'A' EINGANG A SETZEN ODER RUECKSETZEN":PRINT 210 PRINT" 'B' EINGANG B SETZEN ODER RUECKSETZEN":PRINT 220 PRINT" 'F' FUNKTION ERKANNT":RETURN 300 REM ** UNTERMENUE GATTER ** 310 PRINT" 'A' EINGANG A SETZEN ODER RUECKSETZEN":PRINT 320 PRINT" 'B' EINGANG B SETZEN ODER RUECKSETZEN":PRINT 330 PRINT" 'M' MENUE":GOSUB940:RETURN 340 REM ** WARTESCHLEIFE ** 345 FORI=1TO90:NEXT:RETURN 360 FORII=1TO150:NEXTII:RETURN 400 REM ** TABELLE FUELLEN ** 410 IFPEEK(A)=48ANDPEEK(B)=48THEN435 415 IFPEEK(A)=49ANDPEEK(B)=48THEN440 420 IFPEEK(A)=48ANDPEEK(B)=49THEN445 425 IFPEEK(A)=49ANDPEEK(B)=49THEN450 430 RETURN 435 T=1656:RETURN 440 T=1736:RETURN 445 T=1816:RETURN 450 T=1896:RETURN 580 REM ** GATTER GENERELL ** ** P=ZEILE Q=SPALTE ** 590 GOSUB800 600 PRINT" ? [176][192][192][192][192][174] " :GOSUB800 610 PRINT"A [192][192][192][179] [194] " :GOSUB800 620 PRINT" [194] [194] ?" :GOSUB800 630 PRINT" [194] [171][192][192] Z" :GOSUB800 635 PRINT" [194] [194] " :GOSUB800 640 PRINT"B [192][192][192][179] [194] " :GOSUB800 645 PRINT" ? [173][192][192][192][192][189] 665 [142] 670 [143] ** TABELLE ** ** P=ZEILE:Q=SPALTE ** 690 [141]800 700 [153]" PEEK APEEK BPEEK Z PEEK ":[141]800 710 [153]"TANTAN(null)TANTAN(null)TANTAN(null)TANTANTAN< ":[141]800 720 [153]"1.PEEK 0PEEK 0PEEK PEEK ":[141]800 730 [153]" PEEK PEEK PEEK PEEK ":[141]800 740 [153]"2.PEEK 1PEEK 0PEEK PEEK ":[141]800 750 [153]" PEEK PEEK PEEK PEEK ":[141]800 760 [153]"3.PEEK 0PEEK 1PEEK PEEK ":[141]800 770 [153]" PEEK PEEK PEEK PEEK ":[141]800 780 [153]"4.PEEK 1PEEK 1PEEK PEEK ":[141]800 790 [142] 800 P[178]P[170]1:[151]211,Q:[151]214,P:[158]58732: [142] 805 [143] ** GATTER 1 EINGANG ** ** P=ZEILE Q=SPALTE ** 807 [141]800 810 [153]" ORTANTANTANTAN^ " :[141]800 815 [153]" PEEK PEEK " :[141]800 817 [139]H[177][178]0[167]920 820 [153]" ? PEEK PEEK ?" :[141]800 825 [153]" TANTANTAN< -TANTAN Z" :[141]800 830 [153]" PEEK PEEK " :[141]800 835 [153]" PEEK PEEK " :[141]800 840 [153]" /TANTANTANTANEXP 845 RETURN 920 PRINT" [194] [194] " :GOSUB800 925 PRINT" [194] [171][192][192] Z" :GOSUB800: GOTO830 940 FORI=1985TO1995:POKEI,PEEK(I+47261): NEXT:RETURN 1000 REM ** UND-NAND-IN/A-IN/B-GATTER ** 1010 PRINT"[147]":P=-1:Q=0:GOSUB800 1012 IFE=0THEN1020 1014 IFE=1THEN1018 1016 IFE=2THEN1022 1017 IFE=3THEN1025 1018 PRINT" *** [146] NAND-GATTER  *** [146]":GOTO1030 1020 PRINT" *** [146] UND-GATTER  *** [146]":GOTO1030 1022 PRINT" *** [146] INHIBITIONS-GATTER A  *** [146]":GOTO1030 1025 PRINT" *** [146] INHIBITIONS-GATTER B  *** [146]":GOTO1030 1030 P=4:Q=0:GOSUB800:GOSUB310 1080 P=13:Q=4 :GOSUB590: P=12:Q=22:GOSUB690 1090 POKEG,38 1092 IFE=2THEN1160 1094 IFE=3THEN1170 1100 IFE=0THEN1120 1110 POKEG+2,87 1120 J=PEEK(203) 1125 IFJ=36ANDY=0THEN15000 1130 IFJ=10THEN1200 1135 IFJ=21ANDY=80THENRETURN 1140 IFJ=28THEN1250 1145 IFJ=49ANDY=0THENGOSUB11000 1150 GOTO1120 1160 POKEG-83,87:GOTO1120 1170 POKEG+77,87:GOTO1120 1200 IFPEEK(A)=49ORPEEK(A)=63THEN1220 1210 POKEA,49:GOTO1230 1220 POKEA,48 1230 GOSUB345:GOTO8010 1250 IFPEEK(B)=49ORPEEK(B)=63THEN1270 1260 POKEB,49:GOTO1280 1270 POKEB,48 1280 GOSUB345:GOTO8010 1300 REM ** ODER-NOR-IM/A-IM/B-GATTER ** 1310 PRINT"[147]":P=-1:Q=0:GOSUB800 1312 IFF=0THEN1320 1313 IFF=2THEN1322 1314 IFF=3THEN1324 1317 PRINT" *** [146] NOR-GATTER  *** [146]":GOTO1330 1320 PRINT" *** [146] ODER-GATTER  *** [146]":GOTO1330 1322 PRINT" *** [146] IMPLIKATIONS-GATTER A  *** [146]":GOTO1330 1324 PRINT" *** [146] IMPLIKATIONS-GATTER B  *** [146]":GOTO1330 1330 P=4:Q=0:GOSUB800:GOSUB310 1380 P=13:Q=4 :GOSUB590: P=12:Q=22:GOSUB690 1390 POKEG+39,99:POKEG-1,62: POKEG,49 1392 IFF=2THEN1460 1394 IFF=3THEN1470 1400 IFF=0THEN1420 1410 POKEG+2,87 1420 J=PEEK(203) 1425 IFJ=36ANDY=0THEN15000 1430 IFJ=10THEN1500 1435 IFJ=21ANDY=80THENRETURN 1440 IFJ=28THEN1550 1445 IFJ=49ANDY=0THENGOSUB11000 1450 GOTO1420 1460 POKEG-83,87:GOTO1420 1470 POKEG+77,87:GOTO1420 1500 IFPEEK(A)=49ORPEEK(A)=63THEN1520 1510 POKEA,49:GOTO1530 1520 POKEA,48 1530 GOSUB345:GOTO8050 1550 IFPEEK(B)=49ORPEEK(B)=63THEN1570 1560 POKEB,49:GOTO1580 1570 POKEB,48 1580 GOSUB345:GOTO8050 1600 REM ** NEG/A-NEG/B-ID/A-ID/B ** 1610 PRINT"[147]":P=-1:Q=0:H=-1:GOSUB800 1611 XX=1671 1612 IFN<3THEN1615 1614 PRINT" *** [146] IDENTITAETS-GATTER  *** [146]":GOTO1620 1615 PRINT" *** [146] NEGATIONS-GATTER  *** [146]" 1620 P=4:Q=0:GOSUB800 1625 PRINT" ' ' EINGANG SETZEN ODER RUECKSETZEN":PRINT 1630 PRINT" 'M' MENUE":GOSUB940 1631 P=13:Q=4 :GOSUB807 1632 IFN<3THEN1634 1633 POKEZ+35,103:POKEZ+36,62:GOTO1635 1634 POKEZ+36,49 1635 P=12:Q=22:GOSUB690 1636 IFN<3THEN1639 1637 POKE1708,N-2:POKE1053,N-2: POKE1226,N-2:POKE1237,N-2:GOTO1640 1639 POKE1708,N:POKE1052,N:POKE1226,N: POKE1237,N:POKE1718,87 1640 J=PEEK(203) 1642 IFJ=36ANDY=0THEN15000 1643 IFJ=21ANDY=80THENRETURN 1645 IFJ=10ANDN=1THEN1655 1647 IFJ=28ANDN=2THEN1655 1648 IFJ=10ANDN=3THEN1666 1649 IFJ=28ANDN=4THEN1666 1650 IFJ=49ANDY=0THENGOSUB11000 1652 GOTO1640 1655 GOSUB1667:R=0 1657 IFPEEK(XX)=63ORPEEK(XX)=49 THEN1664 1660 POKEXX,49 :POKEZ,48+R: POKE1736+U,48+R 1661 POKE1896,PEEK(1816-V): GOSUB345:GOTO1640 1664 POKEXX,48 :POKEZ,49-R: POKE1816-U,49-R 1665 POKE1656,PEEK(1736+V): GOSUB345:GOTO1640 1666 R=1:GOSUB1667:GOTO1657 1667 IFN=2ORN=4THEN1669 1668 U=0:V=80:RETURN 1669 U=80:V=0:RETURN 1670 REM ** EX-OR-AEQ.-GATTER ** 1675 PRINT"[147]":P=-1:Q=0:GOSUB800 1676 IFL=0THEN1680 1677 PRINT" *** [146] AEQUIVALENZ-GATTER  *** [146]":GOTO1685 1680 PRINT" *** [146] EX-OR-GATTER  *** [146]" 1685 P=4:Q=0:GOSUB800:GOSUB310 1690 P=13:Q=4 :GOSUB590: P=12:Q=22:GOSUB690 1692 IFL=0THEN1695 1694 POKEG,61:GOTO1700 1695 POKEG-1,61:POKEG,49 1700 J=PEEK(203) 1702 IFJ=36ANDY=0THEN15000 1705 IFJ=10THEN1720 1707 IFJ=21ANDY=80THENRETURN 1710 IFJ=28THEN1740 1712 IFJ=49ANDY=0THENGOSUB11000 1715 GOTO1700 1720 IFPEEK(A)=49ORPEEK(A)=63THEN1730 1725 POKEA,49:GOTO1735 1730 POKEA,48 1735 GOSUB345:GOTO8080 1740 IFPEEK(B)=49ORPEEK(B)=63THEN1750 1745 POKEB,49:GOTO1755 1750 POKEB,48 1755 GOSUB345:GOTO8080 1759 REM ** KONSTANT-GATTER ** 1760 PRINT"[147]":P=-1:Q=0:GOSUB800 1765 IFH=0THEN1775 1770 PRINT" *** [146] KONSTANT-GATTER 1  *** [146]":GOTO1780 1775 PRINT" *** [146] KONSTANT-GATTER 0  *** [146]" 1780 P=4:Q=15:GOSUB800:PRINT"'M' MENUE" 1785 P=13:Q=0 :GOSUB807: P=12:Q=22:GOSUB690 1790 POKEZ-4,H+48 1795 FORI=0TO240STEP80:POKE1656+I,H+48: NEXTI 1800 J=PEEK(203) 1803 IFJ=21ANDY=80THENRETURN 1805 IFJ=36ANDY=0THEN15000 1807 IFJ=49ANDY=0THENGOSUB11000 1810 GOTO1800 8000 REM ** UND,NAND,IN/A,IN/B ** ** Z,T SETZEN ** 8010 IFPEEK(A)=63ORPEEK(B)=63THEN1120 8011 IFE=2THEN8032 8012 IFE=3THEN8034 8015 S=(PEEK(A)-48ANDPEEK(B)-48)+48 8020 IFE=1THENS=SGN(ABS(S-49))+48 8025 POKEZ,S:GOSUB410:POKET,PEEK(Z) 8030 GOTO1120 8032 S=(NOT(PEEK(A)-48)ANDPEEK(B)-48)+48 :GOTO8025 8034 S=(PEEK(A)-48ANDNOT(PEEK(B)-48))+48 :GOTO8025 8040 REM ** ODER,NOR,IM/A,IM/B ** ** Z,T SETZEN ** 8050 IFPEEK(A)=63ORPEEK(B)=63THEN1420 8052 IFF=2THEN8072 8054 IFF=3THEN8074 8060 S=(PEEK(A)-48OR(PEEK(B)-48))+48 8065 IFF=1THENS=SGN(ABS(S-49))+48 8067 POKEZ,S:GOSUB410:POKET,PEEK(Z) 8070 GOTO1420 8072 S=(NOT(PEEK(A)-48)ORPEEK(B)-48)+50 :GOTO8067 8074 S=(PEEK(A)-48ORNOT(PEEK(B)-48))+50 :GOTO8067 8075 REM ** EX-OR,AEQ. ** ** Z,T SETZEN ** 8080 IFPEEK(A)=63ORPEEK(B)=63THEN1700 8085 S=((PEEK(A)-48ANDNOT(PEEK(B)-48))OR (NOT(PEEK(A)-48)ANDPEEK(B)-48))+48 8086 IFL=1THENS=SGN(ABS(S-49))+48 8090 POKEZ,S:GOSUB410:POKET,PEEK(Z) 8095 GOTO1700 10000 PRINT"[147]":P=-1:Q=0:GOSUB800 10010 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][146]":GOSUB800 10020 PRINT"[194] ** LERNPROGRAMM-DIGITALTECHNIK-1 ** [194][146]":GOSUB800 10030 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][146]":GOSUB800 10040 GOSUB10200 10050 PRINT"[194][146] DER AUSB.-BERUFE 'IEGE' [194][146]":GOSUB800 10060 GOSUB10200 10070 PRINT"[194][146] UND 'KEIN' IM 2.A.-JAHR. [194][146]":GOSUB800 10080 GOSUB10200 10090 PRINT"[194][146] AUSB.-WERKSTATT/W.EPTING [194][146]":GOSUB800 10100 GOSUB10200:GOSUB22000:P=9:Q=0:GOSUB800 10105 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][146]":GOSUB800 10110 GOSUB10200 10115 PRINT"[194][146] 1 GRUNDFUNKTIONEN ERLERNEN [194][146]":GOSUB800 10120 GOSUB10200 10125 GOSUB10200 10130 PRINT"[194][146] 2 GRUNDFUNKTIONEN UEBERPUEFEN [194][146]":GOSUB800 10135 GOSUB10200 10140 GOSUB10200 10145 PRINT"[194][146] 3 ENDE [194][146]":GOSUB800 10150 GOSUB10200 10155 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][146]":GOSUB800 10160 PRINT"[194] ERSTELLT VON N.WINTERHALTER 1.IS-ET [194][146]":GOSUB800 10165 PRINT"[194] [194][146]":GOSUB800 10170 PRINT"[194] S.SIEDLE &.S. 7743 FURTWANGEN, 1988 [194][146]":GOSUB800 10175 POKE1984,237:FORI=1985TO2021:POKEI,192:NEXT:POKE2022,253 10180 RETURN 10200 PRINT"[194][146] [194][146]":GOSUB800:RETURN 11000 PRINT"":POKE768,114:POKE769,192: POKE49276,0 11010 OPEN3,4 11020 CMD3:PRINT#3 11030 CLOSE3 11040 IFPEEK(49276)=1THEN11060 11050 SYS49152 11060 POKE768,139:POKE769,227:RETURN 11100 SYS49152:RETURN 12000 POKE53265,PEEK(53265)AND239 12002 U=0:GOSUB10000 12004 POKE53265,PEEK(53265)OR16 12040 J=PEEK(203):U=U+1 12050 IFJ=56THEN15000 12055 IFJ=8 THEN12120 12060 IFJ=59THEN12500 12062 IFU=30 THENGOSUB12100 12064 IFU=35 THENGOSUB12110 12070 GOTO12040 12100 POKE1254,81:POKE1255,81:RETURN 12110 POKE1254,87:POKE1255,87:U=0: RETURN 12120 POKE1334,85:POKE1335,73 12130 POKE1254,87:POKE1255,87: FORI=1TO2300:NEXT 12140 POKE792,71:POKE657,0:POKE788,49 12200 PRINT"[147]":POKE198,0:END 12500 PRINT"[147]":P=-1:Q=0:GOSUB800 12510 PRINT" *** [146] GRUNDFUNKTIONEN  *** [146]" 12520 P=4:Q=7:GOSUB800 12530 PRINT"1 WICHTIGE INFORMATIONEN": PRINT 12540 PRINT" FUER ERSTBENUTZER" 12550 P=10:Q=7:GOSUB800 12560 PRINT"2 START DER UEBERPRUEFUNG" 12570 P=14:Q=7:GOSUB800 12580 PRINT"3 MENUE":GOSUB345 12590 J=PEEK(203) 12600 IFJ=56THEN18000 12610 IFJ=59THEN13000 12620 IFJ=8 THEN12000 12640 GOTO12590 13000 PRINT"[147]":P=-1:Q=0:GOSUB800 13010 PRINT" *** [146] GRUNDFUNKTIONEN  *** [146]" 13015 P=7:Q=4:GOSUB800:Y=80 13020 PRINT"DURCH DAS DRUECKEN EINER TASTE":PRINT 13030 PRINT" WIRD EINE DER 16 GRUNDFUNKTIONEN":PRINT 13040 PRINT" NACH DEM ZUFALLSPRINZIP AUS-":PRINT 13050 PRINT" GEWAEHLT.":PRINT 13060 J=PEEK(203) 13070 IFJ<>64THEN13100 13080 GOTO13060 13100 PRINT"[147]" 13110 GOSUB14105 13120 GOSUB20800 13160 PRINT"[147]":P=-1:Q=0:GOSUB800 13170 PRINT" *** [146] GRUNDFUNKTIONEN  *** [146]" 13180 P=4:Q=0:GOSUB800:GOSUB200 13190 P=13:Q=4 :GOSUB20430: P=12:Q=22:GOSUB690 13200 IFY$="A"THENGOSUB1120 13210 IFY$="B"THENGOSUB1420 13220 IFY$="C"THENGOSUB13246 13230 IFY$="D"THENGOSUB1700 13240 IFY$="E"THENGOSUB1795 13245 GOSUB13250:GOTO13320 13246 IFX=0ORX=14THENXX=1671-80 13247 IFX=1ORX=15THENXX=1671+160 13248 GOTO1640 13250 PRINT"[147]":P=-1:Q=0:GOSUB800 13260 PRINT" *** [146] GRUNDFUNKTIONEN  *** [146]":PRINT:PRINT 13280 FORI=0TO7:PRINT;I;" "LEFT$(A$(I),13):PRINT:NEXTI 13290 P=2:Q=21:GOSUB800:PRINT"8 "LEFT$(A$(8),13) 13300 P=4:Q=21:GOSUB800:PRINT"9 "LEFT$(A$(9),13) 13305 P=6:Q=23:GOSUB800 13307 FORI=0TO5:POKE1325+(I*80),I+1:POKE55597+(I*80),PEEK(646) 13310 PRINT" "LEFT$(A$(10+I),13):P=P+1:GOSUB800:NEXTI:RETURN 13320 P=18:Q=1 :GOSUB20520: P=18:Q=28:GOSUB20590 13330 P=19:Q=15:GOSUB800: PRINT"BESTIMMUNG" 13340 P=21:Q=14:GOSUB800: PRINT"DER FUNKTION" 13360 J=PEEK(203) 13370 IFJ<>64THEN13390 13380 GOTO13360 13390 GOSUB20840 13400 IFX<>WTHEN13450 13410 FORI=1TO3 13420 P=17:Q=1:GOSUB800:GOSUB20660 13430 FORII=1TO300:NEXTII 13440 P=17:Q=1:GOSUB800:GOSUB20520: FORII=1TO300:NEXTII:NEXTI 13445 GOTO12500 13450 FORI=1TO3 13460 P=17:Q=28:GOSUB800:GOSUB20730 13470 FORII=1TO300:NEXTII 13480 P=17:Q=28:GOSUB800:GOSUB20590: FORII=1TO300:NEXTII:NEXTI 13485 IFYY=1THEN13520 13490 PRINT"[147]":P=10:Q=2:GOSUB800: 13500 PRINT"....SIE HABEN NOCH EINEN VERSUCH !":YY=1 13510 FORI=1TO1700:NEXTI:GOTO13120 13520 FORI=0TO4:P=18+I:Q=0:GOSUB800: 13530 PRINT" ":NEXTI:POKE199,1 13540 FORI=0TO2:P=19+I:Q=0:GOSUB800: 13545 PRINT" ":POKE199,1:NEXTI 13547 P=20:Q=1:GOSUB800:POKE199,1 13550 PRINT"RICHTIG WAERE GEWESEN: ";LEFT$(A$(X),13):POKE199,0 13560 FORI=1TO5800:NEXT:YY=0:GOTO12500 14105 IFZZ<>-1THEN14130 14110 FORI=0TO15:X(I)=I:NEXT:ZZ=15: 14130 SS=INT(RND(1)*ZZ+1) 14140 X=X(SS) 14150 FORI=SSTOZZ:X(I)=X(I+1):NEXTI 14160 ZZ=ZZ-1:RETURN 15000 GOSUB13250:Y=0 15010 P=18:Q=1:GOSUB800: 15020 PRINT"[176][192][192][192][192][192][192][192][192][192][192][174] [176][192][192][192][192][192][192][192][192][192][192][192][192][174]" 15030 PRINT" [194] [194] [194] [194]" 15040 PRINT" [194] M MENUE [194] [194] * DRUCKEN [194]" 15050 PRINT" [194] [194] [194] [194]" 15060 PRINT" [173][192][192][192][192][192][192][192][192][192][192][189] [173][192][192][192][192][192][192][192][192][192][192][192][192][189]" 15100 J=PEEK(203) 15105 IFJ=36THEN12000 15107 IFJ=49THENGOSUB11000 15110 IFJ<>64THEN15130 15120 GOTO15100 15130 GOSUB20840:X=W:GOSUB20800 15140 IFY$="A"THENGOTO1000 15150 IFY$="B"THENGOTO1300 15160 IFY$="C"THENGOTO1600 15170 IFY$="D"THENGOTO1670 15180 IFY$="E"THENGOTO1760 15190 GOTO15100 18000 PRINT"[147]":P=-1:Q=0:GOSUB800 18010 PRINT" *** [146] INFORMATIONEN  *** [146]":PRINT:PRINT:PRINT 18020 PRINT" HINTER EINEM MODUL, DAS SO AUSSIEHT:" 18030 P=6:Q=12:GOSUB20430:PRINT:PRINT 18040 PRINT" VERBIRGT SICH EIN BELIEBIGES GATTER." 18045 P=21:Q=12:GOSUB800 18047 PRINT"TASTE DRUECKEN !" 18050 J=PEEK(203) 18060 IFJ<>64THEN18080 18070 GOTO18050 18080 PRINT"[147]":P=-1:Q=0:GOSUB800 18090 PRINT" *** [146] INFORMATIONEN  *** [146]":PRINT:PRINT:PRINT 18100 PRINT" HINTER EINEM MODUL KANN SICH EIN ":PRINT 18110 PRINT" GATTER MIT EINEM EINGANG VERBERGEN":PRINT 18120 PRINT" ODER EIN GATTER MIT ZWEI EINGAENGEN:":PRINT 18130 P=11:Q=2 :GOSUB20260: P=11:Q=22:GOSUB20345 18140 P=21:Q=12:GOSUB800 18150 PRINT"TASTE DRUECKEN !" 18160 J=PEEK(203) 18170 IFJ<>64THEN12500 18180 GOTO18160 20000 PRINT:PRINT:P=11:Q=13:GOSUB800: PRINT"BITTE WARTEN !" 20005 FORI=49152TO49273 20010 READX:POKEI,X:S=S+X:NEXT: DIMA$(17):GOTO20080 20020 DATA169,4,133,186,169,126,133,184, 169,0,160,4,133,113,132,114,133 20030 DATA183,133,185,32,192,255,166,184 ,32,201,255,162,25,169,13,32,210 20040 DATA255,32,225,255,240,46,160,0, 177,113,133,103,41,63,6,103,36 20050 DATA103,16,2,9,128,112,2,9,64,32, 210,255,200,192,40,208,230,152,24 20060 DATA101,113,133,113,144,2,230,114, 202,208,205,169,13,32,210,255,32 20070 DATA204,255,169,126,76,195,255 20075 DATA39,42,39,32,4,18,21,3,11,5,14, 146,137,131,136,148,137,135,160 20076 DATA161,169,1,141,124,192,162,128, 96 20080 A$(0)="NEGATION A C00010" 20090 A$(1)="NEGATION B C00020" 20100 A$(2)="UND A00000" 20110 A$(3)="NAND A10000" 20120 A$(4)="ODER B00000" 20130 A$(5)="NOR B01000" 20140 A$(6)="ANTIVALENZ D00000" 20150 A$(8)="INHIBITION AA20000" 20160 A$(9)="INHIBITION BA30000" 20170 A$(10)="IMPLIKATION AB02000" 20180 A$(11)="IMPLIKATION BB03000" 20190 A$(7)="AEQUIVALENZ D00001" 20200 A$(12)="KONSTANTE 0E00000" 20210 A$(13)="KONSTANTE 1E00100" 20230 A$(14)="IDENTITAET AC00030" 20240 A$(15)="IDENTITAET BC00040" 20250 RETURN 20260 GOSUB800 20270 PRINT" ?  [146] ":GOSUB800 20280 PRINT"A [192][192][192][174][176][192][192][174] [146] ":GOSUB800 20290 PRINT" [194][194] [194] [146] ?":GOSUB800 20300 PRINT" [173][179] 1[215][192][146][192][192] Z":GOSUB800 20310 PRINT"  [194] [194] [146] ":GOSUB800 20320 PRINT"B [192][192][192] [173][192][192][189] [146] ":GOSUB800 20330 PRINT" ?  [146] ":GOSUB800 20340 RETURN 20345 GOSUB800 20350 PRINT" ?  [146] ":GOSUB800 20360 PRINT"A [192][192][192][174][176][192][192][174] [146] ":GOSUB800 20370 PRINT" [173][179] [194] [146] ?":GOSUB800 20380 PRINT"  [194] &[171][192][146][192][192] Z":GOSUB800 20390 PRINT" [176][179] [194] [146] ":GOSUB800 20400 PRINT"B [192][192][192][189][173][192][192][189] [146] ":GOSUB800 20410 PRINT" ?  [146] ":GOSUB800 20420 RETURN 20430 GOSUB800 20440 PRINT" ?  [146] ":GOSUB800 20450 PRINT"A [192][192][192] [146] ":GOSUB800 20460 PRINT"  [146] ?":GOSUB800 20470 PRINT"  [146][192][192] Z":GOSUB800 20480 PRINT"  [146] ":GOSUB800 20490 PRINT"B [192][192][192] [146] ":GOSUB800 20500 PRINT" ?  [146] ":GOSUB800 20510 RETURN 20520 GOSUB800 20530 PRINT"[176][192][192][192][192][192][192][192][192][192][174]":GOSUB800 20540 PRINT"[194] [194]":GOSUB800 20550 PRINT"[194] RICHTIG [194]":GOSUB800 20560 PRINT"[194] [194]":GOSUB800 20570 PRINT"[173][192][192][192][192][192][192][192][192][192][189]" 20580 RETURN 20590 GOSUB800 20600 PRINT"[176][192][192][192][192][192][192][192][192][174]":GOSUB800 20610 PRINT"[194] [194]":GOSUB800 20620 PRINT"[194] FALSCH [194]":GOSUB800 20630 PRINT"[194] [194]":GOSUB800 20640 PRINT"[173][192][192][192][192][192][192][192][192][189]" 20650 RETURN 20660 GOSUB800 20670 PRINT"[176][192][192][192][192][192][192][192][192][192][174]":GOSUB800 20680 PRINT"[194] [146][194]":GOSUB800 20690 PRINT"[194] RICHTIG [146][194]":GOSUB800 20700 PRINT"[194] [146][194]":GOSUB800 20710 PRINT"[173][192][192][192][192][192][192][192][192][192][189]" 20720 RETURN 20730 GOSUB800 20740 PRINT"[176][192][192][192][192][192][192][192][192][174]":GOSUB800 20750 PRINT"[194] [146][194]":GOSUB800 20760 PRINT"[194] FALSCH [146][194]":GOSUB800 20770 PRINT"[194] [146][194]":GOSUB800 20780 PRINT"[173][192][192][192][192][192][192][192][192][189]" 20790 RETURN 20800 Y$=MID$(A$(X),14,1) 20810 E=VAL(MID$(A$(X),15,1)): F=VAL(MID$(A$(X),16,1)) 20820 H=VAL(MID$(A$(X),17,1)): N=VAL(MID$(A$(X),18,1)) 20830 L=VAL(RIGHT$(A$(X),1)):RETURN 20840 IFJ<>35THEN20842 20841 W=0:RETURN 20842 IFJ<>56THEN20845 20843 W=1:RETURN 20845 IFJ<>59THEN20847 20846 W=2:RETURN 20847 IFJ<>8 THEN20850 20848 W=3:RETURN 20850 IFJ<>11THEN20852 20851 W=4:RETURN 20852 IFJ<>16THEN20855 20853 W=5:RETURN 20855 IFJ<>19THEN20857 20856 W=6:RETURN 20857 IFJ<>24THEN20860 20858 W=7:RETURN 20860 IFJ<>27THEN20862 20861 W=8:RETURN 20862 IFJ<>32THEN20865 20863 W=9:RETURN 20865 IFJ<>10THEN20867 20866 W=10:RETURN 20867 IFJ<>28THEN20870 20868 W=11:RETURN 20870 IFJ<>20THEN20872 20871 W=12:RETURN 20872 IFJ<>18THEN20875 20873 W=13:RETURN 20875 IFJ<>14THEN20877 20876 W=14:RETURN 20877 IFJ<>21THEN20880 20878 W=15:RETURN 20880 IFY=0THEN15100 20890 IFY=80THEN13360 20900 RETURN 22000 P=3:Q=28:GOSUB800 22005 PRINT" [176][192][192][174]":GOSUB800 22010 PRINT"[192][179][215][215][194]":GOSUB800 22020 PRINT" [194][167] [171][192]":GOSUB800 22030 PRINT"[192][179][202][203][194]":GOSUB800 22040 PRINT" [173][192][192][189]":RETURN