42 lines
1.2 KiB
Plaintext
42 lines
1.2 KiB
Plaintext
0 ON NOT T GOTO 20 : FOR A = T TO L : B = PEEK(S + P) : ON C%(ASC(MID$(C$, A, T))) GOSUB 1, 2, 3, 4, 5, 8, 6, 7 : NEXT A : END
|
|
1 P = P + T : ON P < E GOTO 11 : O = 1E99
|
|
2 P = P - T : ON P > M GOTO 11 : O = 1E99
|
|
3 B = B + T : B = B - (B > U) * B : GOTO 9
|
|
4 B = B - T : B = B - (B < 0) * (B - U) : GOTO 9
|
|
5 PRINT CHR$(B); : RETURN
|
|
6 D = T : ON NOT B GOTO 10 : RETURN
|
|
7 D = M : ON NOT NOT B GOTO 10 : RETURN
|
|
8 GET B$ : B = LEN(B$) : IF B THEN B = ASC(B$)
|
|
9 POKE S + P, B : RETURN
|
|
10 FOR K = D TO 0 STEP 0 : A = A + D : K = K + D%(ASC(MID$(C$, A, T))) : NEXT K : RETURN
|
|
11 RETURN
|
|
20 HIMEM: 38401
|
|
21 LOMEM: 8185
|
|
22 DIM C%(14999) : CLEAR
|
|
23 POKE 105, PEEK(175)
|
|
24 POKE 106, PEEK(176)
|
|
25 POKE 107, PEEK(175)
|
|
26 POKE 108, PEEK(176)
|
|
27 POKE 109, PEEK(175)
|
|
28 POKE 110, PEEK(176)
|
|
29 HIMEM: 8192
|
|
30 T = 1
|
|
31 M = -1
|
|
32 S = 8192
|
|
33 E = 30000
|
|
34 U = 255
|
|
35 DIM C%(255), D%(255)
|
|
43 C%(ASC("+")) = 3
|
|
44 C%(ASC(",")) = 6
|
|
45 C%(ASC("-")) = 4
|
|
46 C%(ASC(".")) = 5
|
|
60 C%(ASC("<")) = 2
|
|
62 C%(ASC(">")) = 1
|
|
91 C%(ASC("[")) = 7
|
|
92 D%(ASC("[")) = 1
|
|
93 C%(ASC("]")) = 8
|
|
94 D%(ASC("]")) = -1
|
|
95 C$ = "++++++++[>++++[>++>+++>+++>+<<<<-]>+>->+>>+[<]<-]>>.>>---.+++++++..+++.>.<<-.>.+++.------.--------.>+.>++.+++."
|
|
98 L = LEN(C$)
|
|
99 GOTO
|