100 IF M=0 THEN M=1:LOAD "SHOW.49408",8,1
101 IF M=1 THEN M=2:LOAD "DEPACKER.49152",8,1
102 IF M=2 THEN M=3:LOAD "[BI] QUADRANT",8,1
103 REM ******************************
104 REM *                            *
105 REM * BASIC DEMO ZU DEN ROUTINEN *
106 REM * -SHOW.49408                *
107 REM * -DEPACKER.49152            *
108 REM *                            *
109 REM * BEACHTEN SIE DASS DAS BILD *
110 REM * (ZEILE 102) AUCH WIRKLICH  *
111 REM * EIN FLIP-BILD IST UND SICH *
112 REM * AUF DER EINGELEGTEN        *
113 REM * DISKETTE BEFINDET,         *
114 REM * ANSONSTEN KANN ES ZUM      *
115 REM * ABSTURZ KOMMEN!!           *
116 REM ******************************
117 REM
118 REM
119 :    SYS49152
120 REM
130 REM
140 REM
150 REM  WIRD EIN NORMALES FLI BILD
160 REM  MIT DER STARTADRESSE $3C00
170 REM  GELADEN, DANN KANN DIESER
180 REM  SYS-BEFEHL ENTFALLEN.
190 REM
200 REM
210 REM
220 :    SYS49408
230 REM
240 REM
250 REM
260 REM  DAS BILD WIRD JETZT DARGE-
270 REM  STELLT UND AUF EINEN TASTEN-
280 REM  DRUCK GEWARTET. DANACH WIRD
290 REM  WIEDER AUF DEN GELOESCHTEN
300 REM  BILDSCHIRM UMGESCHALTET.
310 REM
320 REM
330 REM
340 :    PRINT"DAS WAR'S ...."
350 :    PRINT:PRINT
360 :    PRINT"              MICHAEL"