home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh26b.d64
/
testbild-lader
(
.txt
)
< prev
Wrap
Commodore BASIC
|
1995-03-30
|
588b
|
20 lines
100 FOR X=1 TO 3
105 B$(1)="GITTER":B$(2)="BALKEN":B$(3)="TESTBILD"
110 N$=B$(X)
115 POKE 781,8:REM GERAETEADRESSE
120 POKE782,1:REM SEKUNDAERADRESSE
130 SYS65466:REM FILEPARAMETER SETZEN
140 POKE780,LEN(N$)
150 POKE781,192:POKE782,2:REM P.NAME
160 FORI=1TOLEN(N$):POKE703+I,ASC(MID$(N$,I)):NEXT:REM FILENAME
170 SYS65469:REM NAMENSPARAMETER
180 POKE780,0:REM LOAD-FLAG
190 POKE781,0:POKE782,92:REM ADR=$5C00
200 SYS65493:REM LOAD
220 M1=PEEK(56576):POKE56576,(PEEK(56576)AND252)OR2:REM VIC-AB $4000
230 M2=PEEK(53272):POKE53272,121:REM VIDEO-RAM
240 M3=PEEK(53265):POKE53265,M3OR32:REM HIRES EINSCHALTEN
270 POKE198,0:WAIT198,1:REM TASTE
275 NEXT X
280 POKE56576,M1:POKE53272,M2:POKE53265,M3: