home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
s85xx
/
s8504b.d64
/
lupe
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
453b
|
23 lines
0 REM TASTEN : A B < >
10 (null)1:(null):(null)1:(null)1:(null):(null)1:(null)14,6
20 (null)"GESICHT",8
30 POKE650,128
40 (null)0:(null)20:(null)0:(null)23:(null)0,0,0:(null)
50 (null)1
70 POKE50168,120:POKE50169,121
80 VI=53248
90 POKEVI+2,40:POKEVI+3,212:POKEVI+16,2
100 POKEVI+21,3
110 POKEVI+23,2:POKEVI+29,2
120 POKEVI+39,1:POKEVI+40,1
130 X=160:Y=100:GOTO150
140 GETA$:IFA$=""THEN140
150 IFA$="A"THENIFY>50THENY=Y-1
160 IFA$="Z"THENIFY<229THENY=Y+1
170 IFA$=","THENIFX>24THENX=X-1
180 IFA$="."THENIFX<320THENX=X+1
190 (null)1,X-24,Y-50
200 POKEVI,XAND255:POKEVI+16,X/256+2
210 POKEVI+1,Y
220 GOTO140