home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 August / 64er_Magazin_88-08_1988_Markt__Technik_de_Side_A.d64 / screens (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  434 b   |  20 lines
  1. 10 print"[147][211]creens"
  2. 15 z0=49152:q0=1024:an=254
  3. 20 fori=49to52:z1=z0+(i-49)*1024:q1=q0:forj=40to998:printchr$(i);
  4. 30 next:gosub1900:print"":next
  5. 35 z0=1024:q0=49152
  6. 40 :
  7. 50 print"[215]elchen [211]creen (1,2,3,4 - 0=[197]nde)";:inputx$:x=val(x$)-1
  8. 60 ifx<0orx>3thenend
  9. 70 z1=z0:q1=q0+x*1024:gosub1900
  10. 80 goto50
  11. 999 end
  12. 1900 fork=0to3:zi=z1+k*254:qu=q1+k*254:gosub2100:next
  13. 1910 return
  14. 2100 z=zi:gosub2200:poke53,lo:poke54,hi
  15. 2105 z=qu:gosub2200:poke781,lo:poke782,hi
  16. 2110 poke780,an+1:sys46728
  17. 2120 return
  18. 2200 hi=int(z/256):lo=z-hi*256
  19. 2210 return
  20.