Advertisement
Sim_Piko

HELLO.BAS

Feb 11th, 2023 (edited)
2,458
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 0.83 KB | None | 0 0
  1. HELLO.BAS from THE FORGOTTEN ISLAND
  2.  
  3. 5 REM    COPYRIGHT CRYSTAL 1981   
  4. 10 A=B:GRAPHICS 0:POKE 752,3:SETCOLOR 2,0,0:POSITION 13,11:? "PLEASE WAIT......":POKE 16,112:POKE 53774,112
  5. 10000 ENT=36384:RESTORE 10009:FOR A=1664 TO 1707:READ B:POKE A,B:NEXT A
  6. 10001 DLST=1536:MAP=ENT
  7. 10002 POKE DLST,112:POKE DLST+1,112:POKE DLST+2,112
  8. 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
  9. 10004 ZAP=ENT:MAP=ZAP:POKE A-6,66:POKE A-5,96:POKE A-4,159:ADD=28672
  10. 10005 POKE A-3,2:POKE A-2,2:POKE A-1,2
  11. 10006 POKE A,65
  12. 10007 POKE A+1,0:POKE A+2,6
  13. 10008 RUN "D:START"
  14. 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
  15. 10011 DATA 232,165,1,157,0,6,232,232,136,208,231,96
  16. 15000 BH=INT(ZAP/256)
  17. 15010 BL=ZAP-(BH*256)
  18. 15020 RETURN
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement