home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_05_1985_Transactor_Publishing.d64 / hires listing 3 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  47 lines
  1. 10 print"[147]":poke 53280,5:poke 53281,0
  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,1,0,1,2,6
  12. 210 sys dmode,1:sys selpc,1
  13. 220 sys draw,33,168 to 33,87 to 133,87
  14. 230 sys draw,33,86 to 133,86
  15. 240 for k=1 to 5
  16. 250 for j=37 to 133 step 4
  17. 260 sys plot,j,84+16*k
  18. 270 nextj,k
  19. 280 for k=0 to 5
  20. 290 y(k)=rnd(1)*80+88:c=rnd(1)*8+1
  21. 300 sys colour,1,c,6
  22. 310 for i=0 to 8
  23. 320 s=43+k*16+i
  24. 330 sys draw,s,88 to s,y(k),2
  25. 340 next i
  26. 350 next k
  27. 360 sys move,34,88
  28. 370 for k=0 to 5
  29. 380 s=47+k*16
  30. 390 sys draw,s,y(k),3
  31. 400 next k
  32. 410 sys colour,1,0,1
  33. 420 sys prnt,11,15,"79  80  81  82  83  84"
  34. 430 a$="10 8 6 4 2"
  35. 440 for i=1 to len(a$) step 2
  36. 450 sys prnt,6,3+i,mid$(a$,i,2)
  37. 460 next
  38. 470 sys colour,2,0,2
  39. 480 sys prnt,14,2,"annual sales"
  40. 490 sys colour,0,0,6
  41. 500 sys prnt,9,17,"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  42. 510 sys prnt,9,18," b a r   g r a p h s [146]"
  43. 520 sys colour,5,7,7
  44. 530 sys prnt,12,20,"a r e   n i c e"
  45. 540 sys prnt,2,22,"i n   m u l t i - c o l o r   m o d e"
  46. 550 get a$:if a$<>chr$(13) then 550
  47.