home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 May / 1994-05b.d64 / demo.t (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  25 lines
  1. 100 poke53280,0:poke53281,0:print"[147]"
  2. 110 forx=832to894:reada:pokex,a:next
  3. 120 forn=0to7:poke2040+n,13:poke53287+n,n+7:next
  4. 130 x1=150:y1=150:x2=150:y2=150
  5. 140 v1=2:w1=3:v2=-3:w2=-4:poke53269,255
  6. 150 x1=x1+v1:y1=y1+w1:x2=x2+v2:y2=y2+w2
  7. 160 poke53248,x1:poke53249,y1:poke53250,x2:poke53251,y2
  8. 170 if(x1>220)or(x1<50)thenv1=-v1:gosub220
  9. 180 if(y1>220)or(y1<50)thenw1=-w1:gosub220
  10. 190 if(x2>220)or(x2<50)thenv2=-v2:gosub220
  11. 200 if(y2>220)or(y2<50)thenw2=-w2:gosub220
  12. 210 goto150
  13. 220 poke54273,16:poke54278,242
  14. 230 poke54296,15:poke54276,129
  15. 240 poke54276,128:return
  16. 1000 data 0,60,0,1,255,128,7
  17. 1010 data 255,224,15,255,240,31,255
  18. 1020 data 248,63,255,252,127,255,254
  19. 1030 data 127,255,254,255,255,255,255
  20. 1040 data 255,255,255,255,255,255,255
  21. 1050 data 255,255,255,255,127,255,254
  22. 1060 data 127,255,254,63,255,252,31
  23. 1070 data 255,248,15,255,240,7,255
  24. 1080 data 224,1,255,128,0,60,0
  25.