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
70
71
72
73
74
75
76
77
78
79
|
10 REM PC-BASIC test
20 REM PMAP function
30 OPEN "OUTPUT.TXT" FOR OUTPUT AS 1
40 ON ERROR GOTO 10000
50 PRINT#1, PMAP
60 PRINT#1, PMAP(
70 PRINT#1, PMAP("ABC"
80 PRINT#1, PMAP(1
90 PRINT#1, PMAP(1.5
100 PRINT#1, PMAP(-1)
110 PRINT#1, PMAP(1)
120 PRINT#1, PMAP(-1.5)
130 PRINT#1, PMAP(1.4)
140 PRINT#1, PMAP(-1.5#)
150 PRINT#1, PMAP(1.4#)
160 PRINT#1, PMAP("ABC")
200 PRINT#1, PMAP(0)
300 PRINT#1, PMAP(1)
310 PRINT#1, PMAP(#1)
320 PRINT#1, PMAP (1)
330 PRINT#1, PMAP(1, 2)
400 PRINT#1, PMAP(1, #2)
420 PRINT#1, PMAP(1, 2, 3)
500 PRINT#1, PMAP(0, 0)
505 PRINT#1, PMAP(1, 0)
510 PRINT#1, PMAP(-1, 0)
520 PRINT#1, PMAP(256, 0)
530 PRINT#1, PMAP(65536, 0)
540 PRINT#1, PMAP(1.701412E+38, 0)
550 PRINT#1, PMAP(1.701411834604692D+38, 0)
600 PRINT#1, PMAP(1, "ABC")
610 PRINT#1, PMAP("ABC", 1)
620 PRINT#1, PMAP(-1, "ABC")
630 PRINT#1, PMAP("ABC", -1)
1500 PRINT#1, PMAP(0, 1)
1505 PRINT#1, PMAP(1, 1)
1510 PRINT#1, PMAP(-1, 1)
1520 PRINT#1, PMAP(256, 1)
1530 PRINT#1, PMAP(65536, 1)
1540 PRINT#1, PMAP(1.701412E+38, 1)
1550 PRINT#1, PMAP(1.701411834604692D+38, 1)
2500 PRINT#1, PMAP(0, 2)
2505 PRINT#1, PMAP(1, 2)
2510 PRINT#1, PMAP(-1, 2)
2520 PRINT#1, PMAP(256, 2)
2530 PRINT#1, PMAP(65536, 2)
2540 PRINT#1, PMAP(1.701412E+38, 2)
2550 PRINT#1, PMAP(1.701411834604692D+38, 2)
3500 PRINT#1, PMAP(0, 3)
3505 PRINT#1, PMAP(1, 3)
3510 PRINT#1, PMAP(-1, 3)
3520 PRINT#1, PMAP(256, 3)
3530 PRINT#1, PMAP(65536, 3)
3540 PRINT#1, PMAP(1.701412E+38, 3)
3550 PRINT#1, PMAP(1.701411834604692D+38, 3)
4500 PRINT#1, PMAP(0, -1)
4505 PRINT#1, PMAP(1, -1)
4510 PRINT#1, PMAP(-1, -1)
4520 PRINT#1, PMAP(256, -1)
4530 PRINT#1, PMAP(65536, -1)
4540 PRINT#1, PMAP(1.701412E+38, -1)
4550 PRINT#1, PMAP(1.701411834604692D+38, -1)
5500 PRINT#1, PMAP(0, 4)
5505 PRINT#1, PMAP(1, 4)
5510 PRINT#1, PMAP(-1, 4)
5520 PRINT#1, PMAP(256, 4)
5530 PRINT#1, PMAP(65536, 4)
5540 PRINT#1, PMAP(1.701412E+38, 4)
5550 PRINT#1, PMAP(1.701411834604692D+38, 5)
6500 PRINT#1, PMAP(0, 32768)
6505 PRINT#1, PMAP(1, 32768)
6510 PRINT#1, PMAP(-1, 32768)
6520 PRINT#1, PMAP(256, 32768)
6530 PRINT#1, PMAP(65536, 32768)
6540 PRINT#1, PMAP(1.701412E+38, 32768)
6550 PRINT#1, PMAP(1.701411834604692D+38, 32768)
9999 END
10000 PRINT#1, ERR, ERL
10010 RESUME NEXT
|
