home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 64 / Tiger_Disk_064_19xx_Tiger-Crew-Disk_de_Side_B.d64 / basic-demo (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  565b  |  14 lines
  1. 1 print"[147]":rem            by tigercrew
  2. 2 si=54272:fl=si:fh=si+1:tl=si+2:th=si+3:w=si+4:a=si+5:h=si+6:l=si+24
  3. 3 forx=15to0step-1
  4. 4 pokel,x:pokea,15:pokeh,0:pokefh,40:pokefl,200:pokew,129
  5. 5 next
  6. 6 pokew,0:pokea,0
  7. 7 geta$:ifa$=""then3:rem  by lost brain
  8. 8 print"[147]":poke53280,0:poke53281,0:a$=" [129] [150] [158]   [158] [150] [129]     ":poke648,160
  9. 9 poke53265,0:print"[147]  ..small basicdemopart by lost brain.."chr$(8);:goto13
  10. 10 fort=1to15:print"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]":next
  11. 11 poke53272,132:poke56576,149:poke648,4:fort=1to100:printa$;:next:poke53265,27
  12. 12 printa$;:goto12
  13. 13 print"  visit computer's hell 2000 in berlin!":goto10
  14.