home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8506a.d64 / pic-loader (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  938b  |  26 lines
  1. 10 REM*******************************
  2. 20 REM*                             *
  3. 30 REM*  LADEN VON HI-EDDI-BILDERN  *
  4. 40 REM*     IN  BASICPROGRAMMEN     *
  5. 50 REM*                             *
  6. 60 REM*******************************
  7. 100 INPUT"FILENAME";N$
  8. 110 POKE781,8:REM  GERAETEADRESSE
  9. 120 POKE782,0:REM  SEKUNDAERADRESSE
  10. 130 SYS65466:REM  FILEPARAMETER SETZEN
  11. 140 POKE780,LEN(N$)
  12. 150 POKE781,192:POKE782,2:REM  POINTER AUF FILENAMEN
  13. 160 FORI=1TOLEN(N$):POKE703+I,ASC(MID$(N$,I)):NEXT:REM  FILENAME
  14. 170 SYS65469:REM  NAMENSPARAMETER SETZEN
  15. 180 POKE780,0:REM  LOAD-FLAG
  16. 190 POKE781,0:POKE782,224:REM  ADRESSE=$E000
  17. 200 SYS65493:REM  LOAD
  18. 210 REM  GRAFIK EINSCHALTEN
  19. 220 M1=PEEK(56576):POKE56576,M1 AND 252:REM  VIC-ADRESSBEREICH AB $C000
  20. 230 M2=PEEK(53272):POKE53272,8:REM  VIDEORAM- UND GRAFIK-ADRESSEN
  21. 240 M3=PEEK(53265):POKE53265,M3OR32:REM  HIRES EINSCHALTEN
  22. 250 F=16*7+6:REM  16*VORDERGRUNDFARBE+HINTERGRUNDFARBE
  23. 260 FORI=49152TO50152:POKEI,F:NEXT
  24. 270 POKE198,0:WAIT198,1:REM  AUF TASTE WARTEN
  25. 280 POKE56576,M1:POKE53272,M2:POKE53265,M3:REM  WIEDER NORMALZUSTAND
  26.