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