home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 4: Demo 1
/
almathera_demo1.bin
/
sourcecode
/
intro2.s
< prev
next >
Wrap
Text File
|
1995-03-17
|
16KB
|
615 lines
opt c-,d+
incdir "df0:include/"
include graphics/gfx.i
include graphics/rastport.i
include graphics/graphics_lib.i
include exec/memory.i
include exec/exec_lib.i
include hardware/custom.i
custom equ $dff000
memory equ MEMF_CHIP+MEMF_CLEAR
lea GFXLIB,a1
MOVEQ #0,D0
CALLEXEC OPENLIBRARY
TST D0
BEQ ERROR
MOVE.L D0,_GFXBASE
MOVE.L #MYPICCY,MEMORY_POINTER
LEA MYBITMAP,A0
MOVE.L #$05,D0
MOVE.L #368,D1
MOVE.L #256,D2
CALLGRAF INITBITMAP
LEA MYRASTPORT,A1
CALLGRAF INITRASTPORT
LEA MYRASTPORT,A1
MOVE.L #MYBITMAP,RP_BITMAP(A1)
MOVE.L MEMORY_POINTER,D0
MOVE.L D0,D1
ADD.L #11776,D1
MOVE.L D1,D2
ADD.L #11776,D2
MOVE.L D2,D3
add.l #11776,D3
move.l d3,d4
add.l #11776,d4
LEA MYBITMAP,A0
MOVE.L D0,BM_PLANES(a0)
MOVE.L D1,BM_PLANES+4(a0)
MOVE.L D2,BM_PLANES+8(a0)
MOVE.L D3,BM_PLANES+12(A0)
move.l d4,BM_PLANES+16(a0)
MOVE.W D0,PL0L
MOVE.W D1,PL1L
MOVE.W D2,PL2L
MOVE.W D3,PL3L
move.w d4,pl4l
SWAP D0
SWAP D1
SWAP D2
SWAP D3
swap d4
MOVE.W D0,PL0H
MOVE.W D1,PL1H
MOVE.W D2,PL2H
MOVE.W D3,PL3H
move.w d4,pl4h
move.l #mytext,read
move.l #wavedata,wavepos
MOVE.L _GFXBASE,A6
ADD.L #$32,A6
MOVE.W #$80,DMACON
MOVE.L (A6),OLDCOPPER
MOVE.L #NEWCOPPER,(A6)
MOVE.W #$8080,DMACON
callexec forbid
jsr copsetup
move.w #$8010,$dff09a
move.l $6c,old
move.l #new,$6c
WAIT ANDI.B #$40,$BFE001
BNE WAIT
move.l old,$6c
callexec permit
MOVE.L _GFXBASE,A6
ADD.L #$32,A6
MOVE.W #$80,DMACON
MOVE.L OLDCOPPER,(A6)
MOVE.W #$8080,DMACON
move.w #$8020,$dff096
ERROR clr.l d0
move.w #$f,$dff096
move.w #$0,$dff0a8
move.w #$0,$dff0b8
move.w #$0,$dff0c8
move.w #$0,$dff0d8
RTS
new: movem.l d0-d7/a0-a6,-(sp)
and #$10,$dff01e
beq out
move.w #$10,$dff09c
bsr colcop1
bsr textit
BSR WAVEIT
out movem.l (sp)+,d0-d7/a0-a6
dc.w $4ef9
old dc.l 0
copsetup move.l #mypiccy,d1
move.l #cblock2,a1
move.l #15,d0
add.l #14,a1
add.l #8556,d1
move.l d1,d2
add.l #952,d2
russloop swap d1
move.w d1,(a1)
add.l #4,a1
swap d1
move.w d1,(a1)
add.l #20,a1
swap d2
move.w d2,(a1)
add.l #4,a1
swap d2
move.w d2,(a1)
add.l #20,a1
add.l #46,d1
subi.w #1,d0
cmp.w #0,d0
bne russloop
rts
waveit move.l #cblock2,a0
add.l #23,a0
moveq #23,d0
move.l wavepos,a1
waveloop move.b 24(a0),(a0)
add.l #24,a0
subi.w #1,d0
cmp.w #0,d0
bne waveloop
move.b (a1),(a0)
add.l #1,WAvepos
move.l wavepos,a5
cmp.b #$fe,(a5)
bne waveok
move.l #wavedata,wavepos
waveok rts
colcop1: move.l #90,d0
lea cblock1,a0
add.l #6,a0
scrollc move.w 24(a0),(a0)
add.l #24,a0
subi.l #1,d0
cmp #0,d0
bne scrollc
cjin1 clr.l d0
move.l coppos,a2
move.w (a2),d0
add.l #2,coppos
cmp.w #$ffff,d0
bne cok
move.l #copdata,coppos
bra cjin1
cok
move.w d0,(a0)
rts
textit lea myrastport,a1
MOVEQ #1,d0
callgraf setapen
lea myrastport,a1
move.l #0,d1
move.l #2,d0
move.l #0,d2
move.l #186,d3
move.l #368,d4
move.l #199,d5
callgraf scrollraster
; store bit of screen to be zapped
; lets say 16 rows starting at 185
; = mypiccy+185*46
move.l #mypiccy,a0
add.l #185*46,a0
moveq #16,d0
move.l #buffy,a1
inbuff move.w (a0),(a1)+
add.l #46,a0
subi.w #1,d0
cmp.w #0,d0
bne inbuff
move.b count,d0
addi.b #1,d0
move.b d0,count
cmpi.b #4,d0
bne EEE
move.b #0,count
EEE lea myrastport,a1
move.l #366,d0
clr.l d3
move.b count,d3
sub.l d3,d0
sub.l d3,d0
move.l #196,d1
callgraf move
move.l read,a0
lea myrastport,a1
move.l #1,d0
callgraf text
move.l #mypiccy,a0
add.l #185*46,a0
moveq #16,d0
move.l #buffy,a1
oubuff move.w (a1)+,(a0)
add.l #46,a0
subi.w #1,d0
cmp.w #0,d0
bne oubuff
cmp.b #0,count
bne zzz
move.l read,d0
addi.l #1,d0
move.l d0,read
moveq #0,d4
move.l read,a5
cmp.b #255,(a5)
bne zzz
move.l #mytext,read
on1
zzz rts
count dc.b 0
read dc.l 0
buffy ds.w 30
falagz dc.b 0
coppos dc.l copdata
copdata
dc.w $000,$010,$020,$030,$040,$050,$060,$070,$080,$090,$0a0,$0b0,$0c0,$0d0,$0e0
dc.w $0f0,$1f0,$2f0,$3f0,$4f0,$5f0,$6f0,$7f0,$8f0,$9f0,$af0,$bf0,$cf0,$df0,$ef0
dc.w $ff0,$ee0,$dd0,$cc0,$bb0,$aa0,$990,$880,$770,$660,$550,$440,$330,$220,$110
dc.w $000,$110,$220,$330,$440,$550,$660,$770,$880,$990,$aa0,$bb0,$cc0,$dd0,$ee0
dc.w $ff0,$fe0,$fd0,$fc0,$fb0,$fa0,$f90,$f80,$f70,$f60,$f50,$f40,$f30,$f20,$f10
dc.w $f00,$e00,$d00,$c00,$b00,$a00,$900,$800,$700,$600,$500,$400,$300,$200,$100
dc.w $000,$100,$200,$300,$400,$500,$600,$700,$800,$900,$a00,$b00,$c00,$d00,$e00
dc.w $f00,$f01,$f02,$f03,$f04,$f05,$f06,$f07,$f08,$f09,$f0a,$f0b,$f0c,$f0d,$f0e
dc.w $f0f,$e0e,$d0d,$c0c,$b0b,$a0a,$909,$808,$707,$606,$505,$404,$303,$202,$101
dc.w 0,$101,$202,$303,$404,$505,$606,$707,$808,$909,$a0a,$b0b,$c0c,$d0d,$e0e
dc.w $f0f,$e0f,$d0f,$c0f,$b0f,$a0f,$90f,$80f,$70f,$60f,$50f,$40f,$30f,$20f,$10f
dc.w $f,$e,$d,$c,$b,$a,$9,$8,$7,$6,$5,$4,$3,$2,$1,$0
dc.w 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15
dc.w $00f,$01f,$02f,$03f,$04f,$05f,$06f,$07f,$08f,$09f,$0af,$0bf,$0cf,$0df,$0ef
dc.w $ff,$ee,$dd,$cc,$bb,$aa,$99,$88,$77,$66,$55,$44,$33,$22,$11
dc.w 0,$11,$22,$33,$44,$55,$66,$77,$88,$99,$aa,$bb,$cc,$dd,$ee
dc.w $0ff,$0fe,$0fd,$0fc,$0fb,$0fa,$0f9,$0f8,$0f7,$0f6,$0f5,$0f4,$0f3,$0f2,$0f1
dc.w $f0,$e0,$d0,$c0,$b0,$a0,$90,$80,$70,$60,$50,$40,$30,$20,$10
dc.w $ffff
OLDCOPPER DC.L 0
NEWCOPPER DC.W $0100,$5200,$0102,$0000,$0104,$000A
DC.W $0108,$0000,$010A,$0000
DC.W $0092,$0028,$0094,$00e0
DC.W $008E,$1069,$0090,$50d9
dc.w $0096,$0020
DC.W $00E0
PL0H DC.W $0000,$00E2
PL0L DC.W $0000,$00E4
PL1H DC.W $0000,$00E6
PL1L DC.W $0000,$00E8
PL2H DC.W $0000,$00EA
PL2L DC.W $0000,$00EC
PL3H DC.W $0000,$00EE
PL3L DC.W $0000,$00F0
PL4H DC.W $0000,$00F2
PL4L DC.W $0000
DC.W $009c,$8010
DC.W $0180,$0000,$0182,$0eca
DC.W $0184,$0fff,$0186,$0eee
DC.W $0188,$0ddd,$018A,$0bbb
DC.W $018C,$0aaa,$018E,$0999
DC.W $0190,$0888,$0192,$0777
DC.W $0194,$0666,$0196,$0555
DC.W $0198,$0333,$019A,$0222
DC.W $019C,$0111,$019E,$0000
cblock1:
dc.w 11273,$fffe,$180,0,$102,0
dc.w 11529,$fffe,$180,0,$102,0
dc.w 11785,$fffe,$180,0,$102,0
dc.w 12041,$fffe,$180,0,$102,0
dc.w 12297,$fffe,$180,0,$102,0
dc.w 12553,$fffe,$180,0,$102,0
dc.w 12809,$fffe,$180,0,$102,0
dc.w 13065,$fffe,$180,0,$102,0
dc.w 13321,$fffe,$180,0,$102,0
dc.w 13577,$fffe,$180,0,$102,0
dc.w 13833,$fffe,$180,0,$102,0
dc.w 14089,$fffe,$180,0,$102,0
dc.w 14345,$fffe,$180,0,$102,0
dc.w 14601,$fffe,$180,0,$102,0
dc.w 14857,$fffe,$180,0,$102,0
dc.w 15113,$fffe,$180,0,$102,0
dc.w 15369,$fffe,$180,0,$102,0
dc.w 15625,$fffe,$180,0,$102,0
dc.w 15881,$fffe,$180,0,$102,0
dc.w 16137,$fffe,$180,0,$102,0
dc.w 16393,$fffe,$180,0,$102,0
dc.w 16649,$fffe,$180,0,$102,0
dc.w 16905,$fffe,$180,0,$102,0
dc.w 17161,$fffe,$180,0,$102,0
dc.w 17417,$fffe,$180,0,$102,0
dc.w 17673,$fffe,$180,0,$102,0
dc.w 17929,$fffe,$180,0,$102,0
dc.w 18185,$fffe,$180,0,$102,0
dc.w 18441,$fffe,$180,0,$102,0
dc.w 18697,$fffe,$180,0,$102,0
dc.w 18953,$fffe,$180,0,$102,0
dc.w 19209,$fffe,$180,0,$102,0
dc.w 19465,$fffe,$180,0,$102,0
dc.w 19721,$fffe,$180,0,$102,0
dc.w 19977,$fffe,$180,0,$102,0
dc.w 20233,$fffe,$180,0,$102,0
dc.w 20489,$fffe,$180,0,$102,0
dc.w 20745,$fffe,$180,0,$102,0
dc.w 21001,$fffe,$180,0,$102,0
dc.w 21257,$fffe,$180,0,$102,0
dc.w 21513,$fffe,$180,0,$102,0
dc.w 21769,$fffe,$180,0,$102,0
dc.w 22025,$fffe,$180,0,$102,0
dc.w 22281,$fffe,$180,0,$102,0
dc.w 22537,$fffe,$180,0,$102,0
dc.w 22793,$fffe,$180,0,$102,0
dc.w 23049,$fffe,$180,0,$102,0
dc.w 23305,$fffe,$180,0,$102,0
dc.w 23561,$fffe,$180,0,$102,0
dc.w 23817,$fffe,$180,0,$102,0
dc.w 24073,$fffe,$180,0,$102,0
dc.w 24329,$fffe,$180,0,$102,0
dc.w 24585,$fffe,$180,0,$102,0
dc.w 24841,$fffe,$180,0,$102,0
dc.w 25097,$fffe,$180,0,$102,0
dc.w 25353,$fffe,$180,0,$102,0
dc.w 25609,$fffe,$180,0,$102,0
dc.w 25865,$fffe,$180,0,$102,0
dc.w 26121,$fffe,$180,0,$102,0
dc.w 26377,$fffe,$180,0,$102,0
dc.w 26633,$fffe,$180,0,$102,0
dc.w 26889,$fffe,$180,0,$102,0
dc.w 27145,$fffe,$180,0,$102,0
dc.w 27401,$fffe,$180,0,$102,0
dc.w 27657,$fffe,$180,0,$102,0
dc.w 27913,$fffe,$180,0,$102,0
dc.w 28169,$fffe,$180,0,$102,0
dc.w 28425,$fffe,$180,0,$102,0
dc.w 28681,$fffe,$180,0,$102,0
dc.w 28937,$fffe,$180,0,$102,0
dc.w 29193,$fffe,$180,0,$102,0
dc.w 29449,$fffe,$180,0,$102,0
dc.w 29705,$fffe,$180,0,$102,0
dc.w 29961,$fffe,$180,0,$102,0
dc.w 30217,$fffe,$180,0,$102,0
dc.w 30473,$fffe,$180,0,$102,0
dc.w 30729,$fffe,$180,0,$102,0
dc.w 30985,$fffe,$180,0,$102,0
dc.w 31241,$fffe,$180,0,$102,0
dc.w 31497,$fffe,$180,0,$102,0
dc.w 31753,$fffe,$180,0,$102,0
dc.w 32009,$fffe,$180,0,$102,0
dc.w 32265,$fffe,$180,0,$102,0
dc.w 32521,$fffe,$180,0,$102,0
dc.w 32777,$fffe,$180,0,$102,0
dc.w 33033,$fffe,$180,0,$102,0
dc.w 33289,$fffe,$180,0,$102,0
dc.w 33545,$fffe,$180,0,$102,0
dc.w 33801,$fffe,$180,0,$102,0
dc.w 34057,$fffe,$180,0,$102,0
dc.w 34313,$fffe,$180,0,$102,0
dc.w 34569,$fffe,$180,0,$102,0
dc.w 34825,$fffe,$180,0,$102,0
dc.w 35081,$fffe,$180,0,$102,0
dc.w 35337,$fffe,$180,0,$102,0
dc.w 35593,$fffe,$180,0,$102,0
dc.w 35849,$fffe,$180,0,$102,0
dc.w 36105,$fffe,$180,0,$102,0
dc.w 36361,$fffe,$180,0,$102,0
dc.w 36617,$fffe,$180,0,$102,0
dc.w 36873,$fffe,$180,0,$102,0
dc.w 37129,$fffe,$180,0,$102,0
dc.w 37385,$fffe,$180,0,$102,0
dc.w 37641,$fffe,$180,0,$102,0
dc.w 37897,$fffe,$180,0,$102,0
dc.w 38153,$fffe,$180,0,$102,0
dc.w 38409,$fffe,$180,0,$102,0
dc.w 38665,$fffe,$180,0,$102,0
dc.w 38921,$fffe,$180,0,$102,0
dc.w 39177,$fffe,$180,0,$102,0
dc.w 39433,$fffe,$180,0,$102,0
dc.w 39689,$fffe,$180,0,$102,0
dc.w 39945,$fffe,$180,0,$102,0
dc.w 40201,$fffe,$180,0,$102,0
dc.w 40457,$fffe,$180,0,$102,0
dc.w 40713,$fffe,$180,0,$102,0
dc.w 40969,$fffe,$180,0,$102,0
dc.w 41225,$fffe,$180,0,$102,0
dc.w 41481,$fffe,$180,0,$102,0
dc.w 41737,$fffe,$180,0,$102,0
dc.w 41993,$fffe,$180,0,$102,0
dc.w 42249,$fffe,$180,0,$102,0
dc.w 42505,$fffe,$180,0,$102,0
dc.w 42761,$fffe,$180,0,$102,0
dc.w 43017,$fffe,$180,0,$102,0
dc.w 43273,$fffe,$180,0,$102,0
dc.w 43529,$fffe,$180,0,$102,0
dc.w 43785,$fffe,$180,0,$102,0
dc.w 44041,$fffe,$180,0,$102,0
dc.w 44297,$fffe,$180,0,$102,0
dc.w 44553,$fffe,$180,0,$102,0
dc.w 44809,$fffe,$180,0,$102,0
dc.w 45065,$fffe,$180,0,$102,0
dc.w 45321,$fffe,$180,0,$102,0
dc.w 45577,$fffe,$180,0,$102,0
dc.w 45833,$fffe,$180,0,$102,0
dc.w 46089,$fffe,$180,0,$102,0
dc.w 46345,$fffe,$180,0,$102,0
dc.w 46601,$fffe,$180,0,$102,0
dc.w 46857,$fffe,$180,0,$102,0
dc.w 47113,$fffe,$180,0,$102,0
dc.w 47369,$fffe,$180,0,$102,0
dc.w 47625,$fffe,$180,0,$102,0
dc.w 47881,$fffe,$180,0,$102,0
dc.w 48137,$fffe,$180,0,$102,0
dc.w 48393,$fffe,$180,0,$102,0
dc.w 48649,$fffe,$180,0,$102,0
dc.w 48905,$fffe,$180,0,$102,0
dc.w 49161,$fffe,$180,0,$102,0
dc.w 49417,$fffe,$180,0,$102,0
dc.w 49673,$fffe,$180,0,$102,0
dc.w 49929,$fffe,$180,0,$102,0
dc.w 50185,$fffe,$180,0,$102,0
dc.w 50441,$fffe,$180,0,$102,0
dc.w 50697,$fffe,$180,0,$102,0
dc.w 50953,$fffe,$180,0,$102,0
dc.w 51209,$fffe,$180,0,$102,0
dc.w 51465,$fffe,$180,0,$102,0
dc.w 51721,$fffe,$180,0,$102,0
dc.w 51977,$fffe,$180,0,$102,0
dc.w 52233,$fffe,$180,0,$102,0
dc.w 52489,$fffe,$180,0,$102,0
dc.w 52745,$fffe,$180,0,$102,0
dc.w 53001,$fffe,$180,0,$102,0
dc.w 53257,$fffe,$180,0,$102,0
dc.w 53513,$fffe,$180,0,$102,0
dc.w 53769,$fffe,$180,0,$102,0
dc.w 54025,$fffe,$180,0,$102,0
dc.w 54281,$fffe,$180,0,$102,0
dc.w 54537,$fffe,$180,0,$102,0
dc.w 54793,$fffe,$180,0,$102,0
dc.w 55049,$fffe,$180,0,$102,0
dc.w 55305,$fffe,$180,0,$102,0
dc.w 55561,$fffe,$180,0,$102,0
dc.w 55817,$fffe,$180,0,$102,0
dc.w 56073,$fffe,$180,0,$102,0
dc.w 56329,$fffe,$180,0,$102,0
dc.w 56585,$fffe,$180,0,$102,0
dc.w 56841,$fffe,$180,0,$102,0
dc.w 57097,$fffe,$180,0,$102,0
dc.w 57353,$fffe,$180,0,$102,0,$182,$200
cblock2:
dc.w $e109,$fffe,$180,$000,$102,$ff,$e0,0,$e2,0,386,4
dc.w $e209,$fffe,$180,$111,$102,$ff,$e0,0,$e2,0,386,4
dc.w $e309,$fffe,$180,$222,$102,$ee,$e0,0,$e2,0,386,4
dc.w $e409,$fffe,$180,$333,$102,$ee,$e0,0,$e2,0,386,$501
dc.w $e509,$fffe,$180,$444,$102,$dd,$e0,0,$e2,0,386,$502
dc.w $e609,$fffe,$180,$555,$102,$dd,224,0,226,0,386,$503
dc.w $e709,$fffe,$180,$666,$102,$cc,224,0,226,0,386,$604
dc.w $e809,$fffe,$180,$777,$102,$cc,224,0,226,0,386,$605
dc.w $e909,$fffe,$180,$888,$102,$bb,224,0,226,0,386,$606
dc.w $ea09,$fffe,$180,$999,$102,$bb,224,0,226,0,386,$707
dc.w $eb09,$fffe,$180,$aaa,$102,$aa,224,0,226,0,386,$708
dc.w $ec09,$fffe,$180,$bbb,$102,$aa,224,0,226,0,386,$709
dc.w $ed09,$fffe,$180,$ccc,$102,$99,224,0,226,0,386,$80a
dc.w $ee09,$fffe,$180,$ddd,$102,$99,224,0,226,0,386,$80b
dc.w $ef09,$fffe,$180,$eee,$102,$88,224,0,226,0,386,$80c
dc.w $f009,$fffe,$180,$fff,$102,$88,224,0,226,0,386,$90d
dc.w $f109,$fffe,$180,$eee,$102,$77,224,0,226,0,386,$90e
dc.w $f209,$fffe,$180,$ddd,$102,$77,224,0,226,0,386,$90f
dc.w $f309,$fffe,$180,$ccc,$102,$66,224,0,226,0,386,$a0e
dc.w $f409,$fffe,$180,$bbb,$102,$66,224,0,226,0,386,$a0d
dc.w $f509,$fffe,$180,$aaa,$102,$55,224,0,226,0,386,$a0c
dc.w $f609,$fffe,$180,$999,$102,$55,224,0,226,0,386,$b0b
dc.w $f709,$fffe,$180,$888,$102,$44,224,0,226,0,386,$b0a
dc.w $f809,$fffe,$180,$777,$102,$44,224,0,226,0,386,$b09
dc.w $f909,$fffe,$180,$666,$102,$33,224,0,226,0,386,$c08
dc.w $fa09,$fffe,$180,$555,$102,$33,224,0,226,0,386,$c07
dc.w $fb09,$fffe,$180,$444,$102,$22,224,0,226,0,386,$c06
dc.w $fc09,$fffe,$180,$333,$102,$22,224,0,226,0,386,$d05
dc.w $fd09,$fffe,$180,$222,$102,$11,224,0,226,0,386,$d04
dc.w $fe09,$fffe,$180,$111,$102,$11,224,0,226,0,386,$d03
dc.w $ff09,$fffe,$180,0
DC.W $FFFF,$FFFE
ds.w 20
wavedata
dc.b 0,0,0,0,$10,$10,$10,$10,$20,$20,$20,$30,$30,$30,$40,$40,$50,$50,$60,$70
dc.b $80,$90,$a0,$a0,$b0,$b0,$c0,$c0,$c0,$d0,$d0,$d0,$e0,$e0,$e0,$e0,$f0,$f0
dc.b $f0,$f0
dc.b $e0,$e0,$e0,$e0,$d0,$d0,$d0,$c0,$c0,$c0,$b0,$b0,$a0,$a0,$90,$80,$70,$60
dc.b $50,$50,$40,$40,$30,$30,$30,$20,$20,$20,$10,$10,$10
dc.b $10
dc.b 0,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,14,13,12,11,10,9,8,7
dc.b 6,5,4,3,2,1,$fe
wavepos dc.l wavedata
gfxlib dc.b "graphics.library",0
EVEN
_gfxbase dc.l 0
MEMORY_POINTER dc.l 0
MYRASTPORT ds.b RP_Sizeof
MYBITMAP ds.b BM_Sizeof
colour dc.w 0
flagz dc.b 0
mytext dc.b "Hello Leyla!!! Hi it's Comrade J here. We're listening to some"
dc.b " really COOOOOOOL muzaxs at da momento. (well pretty old"
dc.b "stuff really, such as HISTORY by MAI TAI and AXEL F by old HAROLD F. "
dc.b "Yep, it's really COOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOL (Totaly frozen)."
dc.b "All about 2000 million years old, the tapes are fossilised! "
dc.b "TIW is sitting next to me at the moment. He is eating a pizza and"
dc.b " watchi...."
dc.b "sorry boring scrolltexts strike again! Yeah, wat's next. it's a"
dc.b " record called "
dc.b "OBSESSION by someone we can't remember (lamers no doubt). Let's"
dc.b " fast forward this one, TIW"
dc.b " Yeah, now we have: Crazy for U by Mad Donna. It's shit so we"
dc.b " swap the tapes. OK It's TIW"
dc.b " here. Now I want to listen to Public Enemy,but Comrade J"
dc.b " doesn't want me to. Oh well. "
dc.b 255
dc.l 0
mypiccy dc.b "fog "
ds.b 58876
endmess dc.b "Yupp, its over. Do not try and newzap"
dc.b "this message, cause it does nothing anyway."
dc.b "it's just the hidden message."
dc.b "You seem to be pretty cool at getting into demos."
dc.b "there's a prize to the first person who writes to us"
dc.b "and says - Big Al is a total lamer mateys -"
dc.b "See you soon!"