home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh6x
/
sh62a.d64
/
veraenderer
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
463b
|
20 lines
10 REM EV. WICHTIGE POKE'S
11 SYS 52736
12 PRINT "[147] (1) 50 HZ (2) 60 HZ ";
15 GOSUB 200
20 ON ASC (A$)-48 GOTO 30,32
30 POKE56334,PEEK(56334)AND127:GOTO40
32 POKE56334,PEEK(56334)OR 128
40 PRINT "FARBE DER ANZEIGE (A-P) ";
45 GOSUB 200
47 POKE 52886,ASC(A$)-65:SYS 52736
50 INPUT "X-KOORDINATE DES ANZEIGETEILS 1 ";X
55 POKE 52867,X:SYS 52736
60 INPUT "X-KOORDINATE DES ANZEIGETEILS 2 ";X
65 POKE 52872,X:SYS 52736
70 INPUT "MSB DER X-KOORDINATEN";X
75 POKE 52862,X:SYS 52736
80 END
200 GET A$:IF A$="" THEN 200
210 PRINT A$:RETURN