home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V1D2.D64 / vertbas (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  318 b   |  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.