home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 73 / Tiger_Disk_073_20xx_Tiger-Crew-Disk_de_Side_B.d64 / ......ende...... (.txt) next >
Commodore BASIC  |  2023-02-26  |  918b  |  20 lines
  1. 10 poke53280,.:poke53281,.:printchr$(147)chr$(8):s=54272:pokes+24,15
  2. 11 a=a+1:ifa=5thenpokes+4,128:pokes+11,0 :fort=1to1000:next:goto60
  3. 12 forc=5to7:poke53265,80:pokes+4,17
  4. 15 print"[147][154]<><><><><><><><><><><><><><><><><><><><>";:pokes+5,9:pokes+6,138
  5. 16 poke646,c/2:poke53282,c:poke53283,c+1:pokes+1,c:pokes+22,7
  6. 20 print"----------------------------------------[146]";:poke646,c:poke53283,c+c
  7. 25 print"    [160][160][160][160][160][160] [160][160][160]  [160] [160][160][160][160][160]  [160][160][160][160][160][160] [160][160][160][160]    ";:pokes+7,202:pokes+22,128
  8. 30 print"    [160][160][160]    [160][160][160][160] [160] [160][160][160]  [160] [160][160][160]    [160][160][160][160]    ";:pokes+8,6+abs(191+11)/c
  9. 35 print"    [160][160][160][160][160]  [160][160][160] [160][160] [160][160][160]  [160] [160][160][160][160][160]  [160][160][160][160]    ";:pokes+13,205:pokes+11,24
  10. 40 print"    [160][160][160]    [160][160][160]  [160] [160][160][160]  [160] [160][160][160]            ";
  11. 45 print"    [160][160][160][160][160][160] [160][160][160]  [160] [160][160][160][160][160]  [160][160][160][160][160][160]  [160][160]     ";:poke646,c/2
  12. 50 print"----------------------------------------[146]";:poke646,14
  13. 55 print"<><><><><><><><><><><><><><><><><><><><>[146]";:
  14. 56 forf=16to16*rnd(.)+c       :poke53284,f:poke646,f:poke53282,f+1:poke53283,f+2
  15. 57 next:next:pokes+4,16:pokes+11,21
  16. 58 goto11:
  17. 60 forc=.to8:poke646,c:print"[147][160][204][213][203][201][193][206][160]":poke53284,c:next:fort=1to350:next:sys2048
  18. 65475 (NULL)forc
  19. 0 
  20.