Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement