Antic Magazine 1985 May/Antic_Magazine_1985_05_Antic.atr/mixdemo.dsp

Text File | 2023-02-26 | 811b | 1 lines

10 GOSUB 30000:LMEM=PEEK(88):HMEM=PEEK(89)¢20 POKE 87,1¢30 POKE 87,0:BYTE=80:GOSUB 31000¢40 POKE 87,7:BYTE=160:GOSUB 31000¢50 POKE 87,0:BYTE=800:GOSUB 31000¢60 POKE 87,8:BYTE=160:GOSUB 31000¢70 POKE 87,5:BYTE=800:GOSUB 31000¢29999 END¢30000 POKE 106,PEEK(106)-1:DL=256*PEEK(106)¢30010 GRAPHICS 8:POKE 559,0¢30020 FOR I=0 TO 63:READ A:POKE DL+I,A:NEXT I¢30030 DATA 112,112,112,70,80,97,6,6,6,2,2,2,2,14,14,14,14,14,14,14¢30040 DATA 14,14,14,14,14,14,14,14,14,14,14,14,14,5,5,5,5,15,15,15¢30050 DATA 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,10,10,10¢30060 DATA 10,10,10,65¢30070 POKE DL+4,PEEK(88):POKE DL+5,PEEK(89)¢30080 POKE 560,0:POKE 561,DL/256:POKE 559,34¢30090 RETURN¢31000 HMEM=256*HMEM+LMEM+BYTE¢31010 LMEM=HMEM-256*INT(HMEM/256)¢31020 HMEM=INT(HMEM/256)¢31030 POKE 88,LMEM:POKE 89,HMEM:RETURN¢