1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
5 REM unary operator precedence
7 OPEN "output.txt" FOR OUTPUT AS 1
8 ON ERROR GOTO 2000
10 PRINT#1, "-1^2 = "; -1^2
20 PRINT#1, "1^-2 = "; 1^-2
30 PRINT#1, "-13*7 = "; -13*7
40 PRINT#1, "13*-7 = "; 13*-7
50 PRINT#1, "-13/7 = "; -13/7
60 PRINT#1, "13/-7 = "; 13/-7
70 PRINT#1, "-13\7 = "; -13\7
80 PRINT#1, "13\-7 = "; 13\-7
90 PRINT#1, "-13 MOD 7 = "; -13 MOD 7
100 PRINT#1, "13 MOD -7 = "; 13 MOD -7
110 PRINT#1, "-13+7 = "; -13+7
120 PRINT#1, "13+-7 = "; 13+-7
130 PRINT#1, "-13-7 = "; -13-7
140 PRINT#1, "13--7 = "; 13--7
150 PRINT#1, "-1=1 = "; -1=1
160 PRINT#1, "1=-1 = "; 1=-1
170 PRINT#1, "-1<>1 = "; -1<>1
180 PRINT#1, "1<>-1 = "; 1<>-1
190 PRINT#1, "-1>1 = "; -1>1
200 PRINT#1, "1>-1 = "; 1>-1
210 PRINT#1, "-NOT 1"; -NOT 1
220 PRINT#1, "NOT -1"; NOT -1
230 PRINT#1, "-13 AND 7 = "; -13 AND 7
240 PRINT#1, "13 AND -7 = "; 13 AND -7
250 PRINT#1, "-13 OR 7 = "; -13 OR 7
260 PRINT#1, "13 OR -7 = "; 13 OR -7
270 PRINT#1, "-13 XOR 7 = "; -13 XOR 7
280 PRINT#1, "13 XOR -7 = "; 13 XOR -7
290 PRINT#1, "-13 EQV 7 = "; -13 EQV 7
300 PRINT#1, "13 EQV -7 = "; 13 EQV -7
310 PRINT#1, "-13 IMP 7 = "; -13 IMP 7
320 PRINT#1, "13 IMP -7 = "; 13 IMP -7
1010 PRINT#1, "NOT 0^2 = "; NOT 0^2
1020 PRINT#1, "10^NOT 0 = "; 10^NOT 0
1030 PRINT#1, "NOT 13*7 = "; NOT 13*7
1040 PRINT#1, "13*NOT 7 = "; 13*NOT 7
1050 PRINT#1, "NOT 13/7 = "; NOT 13/7
1060 PRINT#1, "13/NOT 7 = "; 13/NOT 7
1070 PRINT#1, "NOT 13\7 = "; NOT 13\7
1080 PRINT#1, "13\NOT 7 = "; 13\NOT 7
1090 PRINT#1, "NOT 13 MOD 7 = "; NOT 13 MOD 7
1100 PRINT#1, "13 MOD NOT 7 = "; 13 MOD NOT 7
1110 PRINT#1, "NOT 13+7 = "; NOT 13+7
1120 PRINT#1, "13+NOT 7 = "; 13+NOT 7
1130 PRINT#1, "NOT 13-7 = "; NOT 13-7
1140 PRINT#1, "13-NOT 7 = "; 13-NOT 7
1150 PRINT#1, "NOT 1=1 = "; NOT 1=1
1160 PRINT#1, "1=NOT 1 = "; 1=NOT 1
1170 PRINT#1, "NOT 1<>1 = "; NOT 1<>1
1180 PRINT#1, "1<>NOT 1 = "; 1<>NOT 1
1190 PRINT#1, "NOT 1>1 = "; NOT 1>1
1200 PRINT#1, "1>NOT 1 = "; 1>NOT 1
1230 PRINT#1, "NOT 13 AND 7 = "; NOT 13 AND 7
1240 PRINT#1, "13 AND NOT 7 = "; 13 AND NOT 7
1250 PRINT#1, "NOT 13 OR 7 = "; NOT 13 OR 7
1260 PRINT#1, "13 OR NOT 7 = "; 13 OR NOT 7
1270 PRINT#1, "NOT 13 XOR 7 = "; NOT 13 XOR 7
1280 PRINT#1, "13 XOR NOT 7 = "; 13 XOR NOT 7
1290 PRINT#1, "NOT 13 EQV 7 = "; NOT 13 EQV 7
1300 PRINT#1, "13 EQV NOT 7 = "; 13 EQV NOT 7
1310 PRINT#1, "NOT 13 IMP 7 = "; NOT 13 IMP 7
1320 PRINT#1, "13 IMP NOT 7 = "; 13 IMP NOT 7
1330 CLOSE
1999 END
2000 PRINT#1, "error"; ERR; ERL
2010 RESUME NEXT
|
