home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 July / 1987-07.d64 / love.data (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  970b  |  36 lines
  1. 10 poke55,255:poke56,99:rem love data file maker
  2. 20 dim bx(11),by(11),ex(11),ey(11)
  3. 30 forn=0to11:readbx(n),by(n),ex(n),ey(n):next
  4. 40 data -22,3,-22,-3,-22,-3,-14,-3
  5. 50 data -10,3,-10,-3,-10,-3,-2,-3
  6. 60 data -2,-3,-2,3,-2,3,-10,3
  7. 70 data 2,3,6,-3,6,-3,10,3
  8. 80 data 22,3,14,3,14,3,14,-3
  9. 90 data 14,-3,22,-3,20,0,14,0
  10. 100 cx=160:cy=100:a=2*(NULL)
  11. 110 ns=71
  12. 400 printchr$(147);:input"filename";f$:pa=25600
  13. 410 print"computing screen number: ";
  14. 420 forsc=1tons:print sc;
  15. 430 gosub 1000
  16. 440 ifsc<>nsthenpokepa-1,254:nextsc
  17. 450 pokepa-1,255
  18. 460 sys57812 f$,8
  19. 470 poke193,0:poke194,100
  20. 480 poke174,int(pa)and255:poke175,int(pa/256):sys62954
  21. 490 print:print"animation data file ";chr$(34);f$;chr$(34);" is complete":end
  22. 500 pokepa,int(y1):pa=pa+1
  23. 510 pokepa,int(x1)and255:pa=pa+1:pokepa,int(x1/256):pa=pa+1
  24. 520 pokepa,int(y2):pa=pa+1
  25. 530 pokepa,int(x2)and255:pa=pa+1:pokepa,int(x2/256):pa=pa+1
  26. 540 pokepa,0:pa=pa+1:pokepa,0:pa=pa+1
  27. 550 return
  28. 1000 forn=0to11
  29. 1010 ze=-bx(n)*sin(a)+30
  30. 1020 x1=50*bx(n)*cos(a)/ze+cx:y1=-100*by(n)/ze+cy
  31. 1030 ze=-ex(n)*sin(a)+30
  32. 1040 x2=50*ex(n)*cos(a)/ze+cx:y2=-100*ey(n)/ze+cy
  33. 1050 gosub 500
  34. 1060 nextn:a=a-.0872665
  35. 1070 return
  36.