home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh43a.d64 / borderless.demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  709b  |  27 lines
  1. 1 IFPEEK(51000)<>120THENLOAD"BORDERLESS",8,8
  2. 2 POKE56,63:CLR
  3. 3 SYS65409:SYS51000
  4. 4 POKE53280,12:POKE53281,11
  5. 5 V=5:N=172:J=1:K=2
  6. 10 POKE53269,3:POKE2040,11:POKE2041,11
  7. 11 POKE53288,0
  8. 12 FORI=.TO62:POKE704+I,RND(0)*256:NEXT
  9. 13 PRINT"[147]"TAB(6)"[154]OBERE GRENZE TEXTBILDSCHIRM
  10. 14 [153]""[163]6)"UNTERE GRENZE TEXTBILDSCHIRMDEF
  11. 15 PRINT"  DEMO 'BORDERLESS': SPRITES IM RAHMEN
  12. 16 [153]"   NIKOLAUS HEUSLER, 1989 -- SH 64'ER
  13. 17 PRINT" WEGEN DER SPRITES FLACKERT ES ETWAS...
  14. 18 [153]"      SORRY...  IST HALT NUR BASIC
  15. 20 FORY=.TO255STEP5
  16. 22 POKE53249,Y
  17. 24 X=SIN(A)*148+172
  18. 26 POKE53264,X/256:POKE53248,XAND255
  19. 28 A=A+.05
  20. 30 POKE53251,((COS(A*7)*17)+12)AND255
  21. 32 POKE53250,N
  22. 34 N=N+V:IFN<94ORN>250THENV=-V
  23. 36 POKE16383,2^K
  24. 38 K=(K+J)AND7:W=W+1:IFW=20THENW=.:J=-J
  25. 40 NEXT
  26. 50 GOTO20
  27.