home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 April / 64er_Magazin_91-04_1991_Markt__Technik_de_Side_A.d64 / ping-pong (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  851b  |  15 lines
  1. 0 print"[147][158]";:for i=0 to39:print" ";:next:v=49152:for j=1 to 7:read a$:fori=1to36
  2. 1 pokev,10*(asc(mid$(a$,i*2-1,1))-65)+val(mid$(a$,i*2,1)):v=v+1:next:next
  3. 2 v=832:for i=vto960:pokei,0:next:fori=0to20:pokev+i*3,255:next:v=53248:poke 2,0
  4. 4 poke49263,2
  5. 6 poke49335,18
  6. 8 pokev+16,2:pokev+4,0:pokev+21,7:q=(peek(2)and3):p(q)=p(q)+1:print""p(2);
  7. 9 print spc(25);p(1):sys49152:goto8
  8. 50 data q9o3o1a1u8o1a3u8q9a0o1d3u8o1c3u8o1c9u8q9h2o1a2u8q9d2o1a0u8q2b3o2y9a7o2y8
  9. 51 data a7x2o2z0a7x2o2n1a3o2n4a3q2a4o2e0u8x2o2d9u8x2o2m8a3o2n7a3x2o2d2u8q9r3o1a2
  10. 52 data t2o1a5t2q9f0o1s5t2r4a1u8r3a0w0d2w1t2o2a1u8r4a3u8r3a1w0d2w1t2o2a3u8u6z5u7
  11. 53 data u8d4q9a1o1z5u7r4a5u8r3z0t2u8b0u2w4f9r6b3x8z0t2u8a8x2w4y7o4a3u6z0t2o2a5u8
  12. 54 data r3b6u8e1a4r2y9t2u8b5x8a4u8u8c3h4u8g6q9a6o1b6u8u8b3u6a4u8u8a8b0y0f4q9a2o1
  13. 55 data b6u8q2b8q0z5n6u8z3u2u8y8r3d1u8u8a8r3d0u8y0b6u6s5t2r3b6u8x8y9t2e1a4u8a3o1
  14. 56 data y9t2h6i1t2k6o4b1k6o4b5j6n3a2j6q9a1u8y9u2w4f8r6y3x2j6x2w4x0o4x6u2j6a1a1z5
  15.