home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_05_1985_Transactor_Publishing.d64 / hires listing 2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  48 lines
  1. 10 print"[147]":poke 53280,5:poke 53281,1
  2. 20 if peek(49152)<>76 then load "hires",8,1
  3. 97 :
  4. 98 rem initialize variables
  5. 99 :
  6. 100 hires=12*4096:draw=hi+3:plot=dr+3:move=pl+3:clscr=mo+3:dmode=cl+3
  7. 110 selpc=dm+3:colour=se+3:box=co+3:text=bo+3:prnt=te+3:chset=pr+3:trap=ch+3
  8. 197 :
  9. 198 rem begin the show
  10. 199 :
  11. 200 sys hires,0,1,6
  12. 210 xc=159:yc=100:xr=70:yr=50:inc=10:sa=45:ea=75:gosub 600
  13. 220 sa=75:ea=160:gosub 600
  14. 230 sa=160:ea=240:gosub 600
  15. 240 sa=240:ea=325:gosub 600
  16. 250 sys colour,7
  17. 260 xc=175:sa=-35:ea=45:gosub 600
  18. 270 sys colour,9
  19. 280 sys box,6,170,307,165
  20. 290 sys box,3,172,313,169
  21. 300 sys chset,1
  22. 310 sys prnt,15,9,"[210]ent"
  23. 320 sys prnt,13,13,"[156][198]ood"
  24. 330 sys prnt,18,16,"[195]lothes"
  25. 340 sys prnt,24,12,"[158][212]ravel[142]"
  26. 350 sys prnt,0,0,"[154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
  27. 360 sys prnt,0,1,"[221]         [144][208][201][197] [195][200][193][210][212][211] are [197]asy[154]          "+chr$(142)+"[221]"
  28. 370 sys prnt,0,2,"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][146]"
  29. 380 get a$:if a$<>chr$(13) then 380
  30. 390 end
  31. 497 :
  32. 498 rem draw arc
  33. 499 :
  34. 500 z1=sa*(NULL)/180:z2=ea*(NULL)/180:z3=inc*(NULL)/180
  35. 510 x=xc+xr*cos(z1):y=yc+yr*sin(z1)
  36. 520 sys move,x,y
  37. 530 for i=z1 to z2 step z3
  38. 540 x=xc+xr*cos(i):y=yc+yr*sin(i)
  39. 550 sys draw,x,y
  40. 560 next
  41. 570 sys draw,xc+xr*cos(z2),yc+yr*sin(z2)
  42. 580 return
  43. 597 :
  44. 598 rem draw pie
  45. 599 :
  46. 600 gosub 500
  47. 610 sys draw,xc,yc:sys draw,xc+xr*cos(z1),yc+yr*sin(z1):return
  48.