' Parameterblock mit Farbpaletten und ' Distanzwerten ((2+32)*5) INLINE pblockadr%,170 ' GOSUB gfa_poppal__ palette$=lib_rv__$ RESTORE parameterblock FOR i&=0 TO 5*17-1 ! Farbtabellen und Distanzwerte READ word& ! einlesen => Parameterblock WORD{pblockadr%+(i&*2)}=word& ! erzeugen NEXT i& FOR i&=0 TO 304 STEP 20 ! Bild aufbauen DEFFILL i&/20,2,8 PBOX i&,0,i&+39,199 NEXT i& PRINT AT(1,1);"<<< Weiter mit Taste >>>" HIDEM ' GOSUB gfa_mpal__(1,pblockadr%) ! MPAL starten ' ~INP(2) ! Warten auf Tastendruck ' GOSUB gfa_mpal__(0,0) ! MPAL stoppen ' SHOWM ~XBIOS(6,L:V:palette$) ' parameterblock: DATA 40 DATA &H777,&H765,&H567,&H707,&H770,&H077,&H713,&H700 DATA &H070,&H007,&H767,&H677,&H776,&H766,&H676,&H667 DATA 40 DATA &H666,&H654,&H456,&H606,&H660,&H066,&H613,&H600 DATA &H060,&H006,&H656,&H566,&H665,&H655,&H565,&H556 DATA 40 DATA &H555,&H543,&H345,&H505,&H550,&H055,&H513,&H500 DATA &H050,&H005,&H545,&H455,&H554,&H544,&H454,&H445 DATA 40 DATA &H444,&H432,&H234,&H404,&H440,&H044,&H413,&H400 DATA &H040,&H004,&H434,&H344,&H443,&H433,&H343,&H334 DATA 90 DATA &H333,&H321,&H123,&H303,&H330,&H033,&H313,&H300 DATA &H030,&H003,&H323,&H233,&H332,&H322,&H232,&H223