1 REM *********************************
2 REM *                               *
3 REM * DIE SCHLUSSFOLGERUNGSMASCHINE *
4 REM *       BIS ZU 4 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=7:Z=5:GOSUB20:POKE646,7:PRINT"SCHLUSFOLGERUNGSMASCHINE
35 S[178]10:Z[178]6:[141]20:[151]646,2:[153]"BIS ZU 4 VARIABLE"
40 S[178]6:Z[178]9:[141]20:[151]646,5:[153]"IM PROGRAMM IST DIE FUNKTION:"
45 K[178]1:[141]100:K[178]0:S[178]0:Z[178]12:[141]20:[153]"Y="L$
46 Z[178]14:[141]20:[153]"MIT "N" VARIABLEN"
50 S[178]6:Z[178]16:[141]20
55 [153][199](18)"A"[199](146)"LTE ODER "[199](18)"N"[199](146)"EUE FUNKTION ?"
60 [161]A$:[139]A$[179][177]"A"[175]A$[179][177]"N"[167]60
62 Z[178]17:[141]20:[153]"WIEVIELE VARIABLE (MAX 4)";:[133]B$
63 N[178][197](B$):[139]N[179]1[176]N[177]4[167]62
65 [139]A$[178]"A"[167]95
70 S[178]0:Z[178]19:[141]20:[153]"Y(A,B,..)=";:[133]L$:[151]781,19:[158]59903
75 [141]20:[153]"Y="L$:[129]I[178]0[164]500:[130]:[151]646,0
80 [153][199](147)[199](17):[153]"100L$="[199](34)L$[199](34)
85 [153]"110DEFFNL("[199](64[170]N)")="L$:[153]"120N="N:[153]"RUN95"[199](19);
90 [151]631,13:[151]632,13:[151]633,13:[151]634,13:[151]198,4:[128]
94 [143] **** HP-2: BERECHNUNGEN ****
95 [151]646,5:[153][199](147)
100 L$[178]"((A>=B)AND(B>=C)AND(C>=D))>=(A>=D)"
110 [150][165]L(D)[178]((A[177][178]B)[175](B[177][178]C)[175](C[177][178]D))[177][178](A[177][178]D)
120 N[178] 4
125 C$[178]"    --------------------------------"
130 [139]K[178]1[167][142]
140 S[178]2:Z[178]0:[141]20:[151]646,2:[153]"HIER IST DIE WAHRHEITSTABELLE VON:"
145 S[178]0:Z[178]2:[141]20:[153]"Y="L$:[151]646,1:[153]:[153]C$:[151]646,5
150 [145]N[141]200,300,400,500:[153]:[151]646,1:[153]C$:[151]646,5:[153]
155 [153]"WENN ALLE ERGEBNISSE -1 LAUTEN, DANN"
160 [153]"IST DER SCHLUSS RICHTIG ! (TASTE)":[151]198,0:[146]198,1
190 [128]
195 [143] ***** 1 VARIABLE *****
200 [153][163]15)"A"[163]30)"ERGIBT":[151]646,1:[153]C$:[153]:[151]646,5
205 [129]A[178][171]1[164]0:[153][163]15)A[163]30)[165]L(A)
210 [130]A:[142]
295 [143] ***** 2 VARIABLE *****
300 [153][163]5)"A"[163]10)"B"[163]30)"ERGIBT":[151]646,1:[153]C$:[153]:[151]646,5
305 [129]A[178][171]1[164]0:[129]B[178][171]1[164]0
310 [153][163]5)A[163]10)B[163]30)[165]L(B)
315 [130]B:[130]A:[142]
395 [143] ***** 3 VARIABLE *****
400 [153][163]5)"A"[163]10)"B"[163]15)"C"[163]30)"ERGIBT"
405 [151]646,1:[153]C$:[153]:[151]646,5
410 [129]A[178][171]1[164]0:[129]B[178][171]1[164]0:[129]C[178][171]1[164]0
415 [153][163]5)A[163]10)B[163]15)C[163]30)[165]L(C)
420 [130]C:[130]B:[130]A:[142]
495 [143] ***** 4 VARIABLE *****
500 [153][163]5)"A"[163]10)"B"[163]15)"C"[163]20)"D"[163]30)"ERGIBT"
505 [151]646,1:[153]C$:[153]:[151]646,5
510 [129]A[178][171]1[164]0:[129]B[178][171]1[164]0:[129]C[178][171]1[164]0:[129]D[178][171]1[164]0
515 [153][163]5)A[163]10)B[163]15)C[163]20)D[163]30)[165]L(D)
520 [130]D:[130]C:[130]B:[130]A:[142]