HELLO.BAS

HELLO.BAS from THE FORGOTTEN ISLAND

5 REM    COPYRIGHT CRYSTAL 1981
10 A=B:GRAPHICS 0:POKE 752,3:SETCOLOR 2,0,0:POSITION 13,11:? "PLEASE WAIT......":POKE 16,112:POKE 53774,112
10000 ENT=36384:RESTORE 10009:FOR A=1664 TO 1707:READ B:POKE A,B:NEXT A
10001 DLST=1536:MAP=ENT
10002 POKE DLST,112:POKE DLST+1,112:POKE DLST+2,112
10003 FOR A=DLST+3 TO DLST+66 STEP 3:ZAP=MAP:GOSUB 15000:POKE A,66:POKE A+1,BL:POKE A+2,BH:MAP=MAP+128:NEXT A
10004 ZAP=ENT:MAP=ZAP:POKE A-6,66:POKE A-5,96:POKE A-4,159:ADD=28672
10005 POKE A-3,2:POKE A-2,2:POKE A-1,2
10006 POKE A,65
10007 POKE A+1,0:POKE A+2,6
10008 RUN "D:START"
10010 DATA 104,162,4,160,19,165,0,157,0,6,232,165,1,157,0,6,232,232,165,0,24,105,128,133,0,157,0,6,144,2,230,1
10011 DATA 232,165,1,157,0,6,232,232,136,208,231,96
15000 BH=INT(ZAP/256)
15010 BL=ZAP-(BH*256)
15020 RETURN