-
Notifications
You must be signed in to change notification settings - Fork 0
/
printout for typing in.txt
137 lines (137 loc) · 4.94 KB
/
printout for typing in.txt
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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
REM ========================================
REM PROJECT : THE EYEBALL
REM TARGET : COMMODORE 64
REM COMMENTS : DEMO OF PERSEPTION OF THE EYE
REM AUTHOR : STEIN-OVE BRATTHAMMER
REM ========================================
REM FOR MANUAL TYPING IN REAL COMMODORE 64
1000 REM CENTER 192
1004 DATA 0,63,0,0,255,192,3,255
1008 DATA 240,15,255,252,15,255,252,63
1012 DATA 255,255,63,247,255,63,217,255
1016 DATA 255,217,255,255,122,127,255,106
1020 DATA 127,255,106,127,255,217,255,63
1024 DATA 217,255,63,247,255,63,255,255
1028 DATA 63,255,252,15,255,252,15,255
1032 DATA 240,3,255,240,0,255,192
1036 REM 12 CLOCK 193
1040 DATA 0,12,0,0,247,0,3,217
1044 DATA 192,3,217,240,15,122,112,15
1048 DATA 170,188,15,106,124,15,217,252
1052 DATA 63,217,252,63,247,255,63,255
1056 DATA 255,63,255,255,63,255,255,63
1060 DATA 255,255,15,255,255,15,255,252
1064 DATA 15,255,252,15,255,252,3,255
1068 DATA 240,0,255,240,0,63,192
1072 REM 2 CLOCK 194
1076 DATA 0,0,0,0,12,0,3,255
1080 DATA 192,3,255,240,15,253,112,15
1084 DATA 246,156,15,246,156,15,210,164
1088 DATA 63,234,168,63,218,167,63,250
1092 DATA 159,63,246,159,63,253,127,63
1096 DATA 255,255,15,255,255,15,255,252
1100 DATA 15,255,252,15,255,252,3,255
1104 DATA 240,0,255,240,0,255,192
1108 REM 3 CLOCK 195
1112 DATA 0,0,0,0,12,0,0,255
1116 DATA 192,3,255,240,3,255,240,15
1120 DATA 255,252,15,255,252,15,255,220
1124 DATA 15,255,100,63,255,103,63,253
1128 DATA 233,63,254,170,63,253,169,63
1132 DATA 255,103,63,255,103,15,255,220
1136 DATA 15,255,252,15,255,252,15,255
1140 DATA 240,3,255,240,0,255,192
1144 REM 5 CLOCK 196
1148 DATA 0,48,0,3,252,0,15,255
1152 DATA 0,15,255,192,63,255,192,63
1156 DATA 255,240,63,255,240,63,255,240
1160 DATA 255,255,240,255,245,252,255,250
1164 DATA 252,255,218,124,255,238,188,255
1168 DATA 234,188,63,234,188,63,218,112
1172 DATA 63,250,240,63,245,240,15,255
1176 DATA 192,3,255,192,0,255,0
1180 REM 6 CLOCK 197
1184 DATA 0,0,0,0,12,0,3,255
1188 DATA 192,3,255,240,15,255,240,15
1192 DATA 255,252,15,255,252,15,255,252
1196 DATA 63,255,252,63,255,255,63,255
1200 DATA 255,63,255,255,63,247,255,63
1204 DATA 217,255,15,122,127,15,106,124
1208 DATA 15,106,124,15,106,124,3,106
1212 DATA 112,0,217,240,0,213,192
1216 REM 7 CLOCK 198
1220 DATA 0,12,0,0,255,192,3,255
1224 DATA 240,3,255,240,15,255,252,15
1228 DATA 255,252,15,255,252,15,255,252
1232 DATA 63,255,255,63,255,255,63,95
1236 DATA 255,61,167,255,62,235,255,62
1240 DATA 171,255,14,171,252,13,167,252
1244 DATA 15,95,252,15,255,240,3,255
1248 DATA 240,0,255,240,0,63,192
1252 REM 9 CLOCK 199
1256 DATA 0,48,0,3,252,0,15,255
1260 DATA 0,15,255,192,63,255,192,63
1264 DATA 255,240,63,255,240,247,255,240
1268 DATA 217,255,240,122,127,252,106,127
1272 DATA 252,106,127,252,106,127,252,217
1276 DATA 255,252,55,255,252,63,255,240
1280 DATA 63,255,240,63,255,240,15,255
1284 DATA 192,15,255,0,0,252,0
1288 REM 11 CLCOK 200
1292 DATA 0,12,0,3,255,192,3,255
1296 DATA 240,15,255,240,15,255,252,15
1300 DATA 95,252,13,231,252,61,167,252
1304 DATA 62,171,255,61,167,255,61,167
1308 DATA 255,63,95,255,63,255,255,15
1312 DATA 255,255,15,255,252,15,255,252
1316 DATA 15,255,252,3,255,240,3,255
1320 DATA 192,0,255,0,0,0,0
1330 PRINT CHR$(147):REM CLEAR SCREEN AND HOME
2000 FOR CNT=0 TO 8:REM #9 SPRITES
2001 FOR N=0 TO 62
2010 READ DT:POKE 12288+N+CNT*64,DT:NEXT N:NEXT CNT
2020 POKE 2040, 12288/64:REM PT
2024 POKE 53248+0,156:POKE 53248+1,119:REM X Y
2028 POKE 53248+21,1:POKE 53248+28,1:REM E M
2032 POKE 53248+23,1:POKE 53248+29,1:REM W H
2100 CX=INT(RND(1)*40):CY=INT(RND(1)*25)
2110 SX=PEEK(53248+0):SY=PEEK(53248+1):R = 0:LR=0
2120 IF PEEK(53279) AND 1 THEN GOTO 2100
2130 LX = CX:LY = CY
3000 REM REPEAT
3005 IF CX<>LX OR CY<>LY THEN POKE 1024+LX+40*LY,32:LX = CX : LY = CY
3010 R = INT(RND(1)*16)
3015 IF LR = 1 AND R=2 THEN GOTO 3010
3018 IF LR = 2 AND R=1 THEN GOTO 3010
3019 IF LR = 4 AND R=8 THEN GOTO 3010
3024 IF LR = 5 AND R=10 THEN GOTO 3010
3026 IF LR = 10 AND R=5 THEN GOTO 3010
3028 IF LR = 6 AND R=9 THEN GOTO 3010
3029 LR = R
3030 IF R AND 1 THEN CX = CX + 1
3031 IF R AND 2 THEN CX = CX - 1
3040 IF R AND 4 THEN CY = CY + 1
3050 IF R AND 8 THEN CY = CY - 1
3055 IF R = 0 OR R=3 OR R=12 OR R= 15 THEN GOTO 3000
3060 IF CX > 39 THEN CX = 0
3070 IF CX < 0 THEN CX = 39
3080 IF CY >24 THEN CY = 0
3090 IF CY < 0 THEN CY = 24
3100 POKE 1024+CX+40*CY,81
3110 FLAG = 1
3120 IF PEEK(53279) AND 1 THEN FLAG = 0
3125 EYE = 0
3130 IF FLAG = 1 AND CX<19 THEN EYE = EYE OR 1
3140 IF FLAG = 1 AND CY<12 THEN EYE = EYE OR 2
3150 IF FLAG = 1 AND CX>19 THEN EYE = EYE OR 4
3160 IF FLAG = 1 AND CY>12 THEN EYE = EYE OR 8
3170 IF FLAG = 0 THEN POKE 2040,192:EYE = 0:GOTO 3000
3180 IF EYE = 3 THEN POKE 2040,200:
3185 IF EYE = 6 THEN POKE 2040,194:
3188 IF EYE = 12 THEN POKE 2040,196:
3189 IF EYE = 9 THEN POKE 2040,198:
3199 IF EYE = 1 THEN POKE 2040,199:
3209 IF EYE = 2 THEN POKE 2040,193:
3219 IF EYE = 4 THEN POKE 2040,195:
3229 IF EYE = 8 THEN POKE 2040,197:
3239 GOTO 3000