home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 1 #2 / Commodore_Disk_User_Vol.1_2_1988_-.d64 / vertbas (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  318b  |  12 lines
  1. 5 ifa=0thena=1:poke53265,peek(53265)and247
  2. 10 ifa=1thena=2:load"ballcha*",8,1
  3. 20 ifa=2thena=3:load"ballscr*",8,1
  4. 30 dim l(26),r(25):l(1)=1024
  5. 31 poke53281,14
  6. 40 poke53272,(peek(53272)and240)or2
  7. 50 poke53270,peek(53270)or16
  8. 60 fora=1to25:r(a)=l(a)+39:l(a+1)=r(a)+1:next
  9. 70 fora=0to39:pokel(1)+a,peek(l(25)+a):next
  10. 80 fora=24to1step-1:forb=0to39:pokel(a+1)+b,peek(l(a)+b):nextb,a
  11. 90 goto70
  12.