1 REM *********************************
2 REM *                               *
3 REM *      LOGELEIEN FUER ZWEI      *
4 REM *           VARIABLE            *
5 REM *                               *
6 REM *  HEIMO PONNATH  HAMBURG 1985  *
7 REM *                               *
8 REM *********************************
9 REM
10 PRINTCHR$(147):POKE53280,0:POKE53281,0:POKE646,5:GOTO30
15 REM **** UP CURSOR SETZEN ****
20 POKE211,S:POKE214,Z:SYS58640:RETURN
25 REM **** HP-1: FUNKTIONENEINGABE ***
30 S=11:Z=5:GOSUB20:POKE646,7:PRINT"LOGELEIEN FUER ZWEI"
35 S=16:Z=6:GOSUB20:POKE646,2:PRINT"VARIABLE"
40 S=6:Z=10:GOSUB20:POKE646,5:PRINT"IM PROGRAMM IST DIE FUNKTION:"
45 K=1:GOSUB100:K=0:S=0:Z=15:GOSUB20:PRINT"C="L$
50 S=6:Z=20:GOSUB20
55 PRINTCHR$(18)"A"CHR$(146)"LTE ODER "CHR$(18)"N"CHR$(146)"EUE FUNKTION ?"
60 GETA$:IFA$<>"A"ANDA$<>"N"THEN60
65 IFA$="A"THEN95
70 S=0:Z=22:GOSUB20:PRINT"C(A,B)=";:INPUTL$:POKE781,22:SYS59903
75 GOSUB20:PRINT"C="L$:FORI=0TO500:NEXT:POKE646,0
80 PRINTCHR$(147)CHR$(17):PRINT"100L$="CHR$(34)L$CHR$(34)
85 PRINT"110DEFFNL(A)="L$:PRINT"120DEFFNM(B)="L$:PRINT"RUN95"CHR$(19);
90 POKE631,13:POKE632,13:POKE633,13:POKE634,13:POKE198,4:END
94 REM **** HP-2: BERECHNUNGEN ****
95 POKE646,5:PRINTCHR$(147)
100 L$="NOT(A AND(NOT B))"
110 DEFFNL(A)=NOT(A AND(NOT B))
120 DEFFNM(B)=NOT(A AND(NOT B))
130 IFK=1THENRETURN
140 S=5:Z=5:GOSUB20:POKE646,2:PRINT"HIER IST DIE WAHRHEITSTABELLE:"
145 PRINT:PRINT:PRINT:POKE646,1:PRINTTAB(5)"A"TAB(10)"B"TAB(25)"ERGIBT C"
150 PRINTTAB(4)"--------------------------------":POKE646,5:PRINT
155 FORA=-1TO0:FORB=-1TO0:PRINTTAB(5)ATAB(10)BTAB(27)FNM(B)
160 NEXTB:NEXTA
165 PRINT:POKE646,1:PRINTTAB(4)"--------------------------------":POKE646,5
170 S=0:Z=20:GOSUB20:PRINT"C="L$