home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 127 / Tiger_Disk_127_20xx_Tiger-Crew-Disk_de_Side_B.d64 / ende ii_101 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  537b  |  13 lines
  1. 8 :printchr$(147):poke53265,80:
  2. 9 a=a+10:ifa=20then29
  3. 11 poke53280,.:poke53281,.:forc=3to10:forf=6to17:poke646,f
  4. 16 print"                        [146]             " :poke53283,f
  5. 18 print"             [160][160][160][160][160][160][160][160][160][160][160][146]             " :poke53282,c
  6. 20 print"             [160][160][197][160][206][160][196][160][197][160][160][146]             " :poke53284,c/f
  7. 24 print"                        [146]             " :poke53283,f+c/2
  8. 25 print"[146]                        [146]" :poke53283,c:poke53284,peek(53282)
  9. 27 poke214,f:sys59749::next:next:goto9
  10. 28 print"                                  "
  11. 29 poke56325,1:print"lukian";:poke56325,55
  12. 30 fort=1to300:next:sys2048
  13.