10 REM HIRES-LOADER.MF =============C64
20 REM WRITTEN BY A. MITTELMEYER
30 REM ================================
100 REM ---- BEREICHSWAHL -----
110 REM EVTL BASICENDE VERLEGEN
120 POKE 56,92:CLR
130 VB=1:REM VIC-BEREICH
140 GB=8:REM GRAFIK-BEREICH
150 VR=7:REM VIDEO-RAM-BEREICH
160 GOTO380:REM HAUPTPROGRAMM
170 REM ============
180 REM  ROUTINEN
190 REM ============
200 REM ---- GRAFIK-AN ----
210 POKE56576,PEEK(56576)AND252OR(3-VB):REM VIC-BEREICH
220 POKE53265,PEEK(53265)OR32:REM GRAFIK-EIN
230 POKE53272,VR*16+GB:REM GRAFIK-BEREICH, VIDEO-RAM-BEREICH
240 RETURN
250 REM ---- GRAFIK-AUS ----
260 POKE56576,PEEK(56576)AND252OR3:REM VIC-BEREICH
270 POKE53265,PEEK(53265)AND223:REM GRAFIK-AUS
280 POKE53272,21:REM GRAFIK-BEREICH, VIDEO-RAM-BEREICH
290 RETURN
300 REM ---- FARBE KLAEREN ----
310 POKE648,VB*64+4*VR:PRINTCHR$(147);:POKE648,4:RETURN
320 REM ---- GRAFIK LADEN ----
330 SYS57812FI$,8,0:POKE780,0:POKE781,0
340 POKE782,64*VB+4*VR:SYS65493:RETURN
350 REM ====================
360 REM  HAUPTPROGRAMM
370 REM ====================
380 PRINTCHR$(147):INPUT"NAME DER GRAFIK:";FI$
390 GOSUB310:GOSUB210
400 GOSUB330
410 GETA$:IFA$=""THEN410
420 GOSUB260