home *** CD-ROM | disk | FTP | other *** search
- 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"
-