1 POKE 53281,11:POKE53280,11:PRINT"[147][194]RUCHRECHNUNGSPROGRAMM[155] VON [198]ELIX [198]ISCHER"
2 PRINT"       [194]ITTE WAEHLEN SIE ZWISCHEN":PRINTTAB(12)"+[146]  -[146]  *[146]  UND  :[146] !"
3 X=0:PRINT"[154]":GETW$:IFW$=""THEN3
4 IFW$="+"THENQ$=" + ":GOSUB17:X=2:IFN1=N2THENE3=Z1+Z2:N3=N1:GOTO11
5 IFX=2THENN3=N1*N2:F1=N3/N1:E1=Z1*F1:F2=N3/N2:E2=Z2*F2:E3=E1+E2:GOTO11
6 IFW$="-"THENQ$=" - ":GOSUB17:X=3:IFN1=N2THENE3=Z1-Z2:N3=N1:GOTO11:
7 IFX=3THENN3=N1*N2:F1=N3/N1:E1=Z1*F1:F2=N3/N2:E2=Z2*F2:E3=E1-E2:GOTO11
8 IF W$="*"THENQ$=" * ":GOSUB17:E3=Z1*Z2:N3=N1*N2:GOTO11
9 IFW$=":"THENQ$=" : ":GOSUB17:E3=Z1*N2:N3=N1*Z2:GOTO11
10 GOTO 3
11 IFE3=N3THENT$="= 1 ":GOTO14
12 IFE3>N3THENI=N3:GOSUB19:GOSUB19:GOTO14
13 IFN3>E3THENI=E3:GOSUB19:GOSUB19
14 PRINT"[147][192][192][192][192][192][192]"Q$"[192][192][192][192][192][192] = [192][192][192][192][192][192]":PRINT""Z1""Z2""E3;
15 PRINT""N1""N2""N3"":PRINT""TAB(27)""T$:GOTO2
16 IFN1 <> 0  AND N2 <> 0 THEN RETURN
17 PRINT"":PRINT"[147]  [192][192][192][192][192]":INPUT"";Z1:INPUT"";N1:PRINT""Q$"[192][192][192][192][192]
18 [133]"";Z2:[133]"";N2:[141]16:[142]
19 [139]N3[173]I[178][181](N3[173]I)[167]C[178]I:[139]E3[173]I[178][181](E3[173]I)[167]V[178]I:[139]C[178]V[167]N3[178]N3[173]C:E3[178]E3[173]V:[142]
20 I[178]I[171]1:[137]19