home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 17 / Tiger_Disk_017_19xx_Tiger-Crew-Disk_de_Side_B.d64 / ende (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  777b  |  18 lines
  1. 10 poke53280,.:poke53281,.:printchr$(147)
  2. 20 m=54272::pokem+5,7:pokem+6,202:pokem+24,15:
  3. 30 :readh,n,w
  4. 40 ifh<0thenpokem+24,0:             :end
  5. 45 poke646,int(rnd(0)*15)+1:
  6. 50 pokem+2,n:pokem+1,h:pokem+4,129:
  7. 60 fori=0to8:nexti:pokem+4,128:fori=1to 2:
  8. 61 poke56325,54:print"     du bist  u n t e n  angekommen     [146]":print"":next
  9. 65 print"         und und da ist wieder:         "
  10. 66 print"            [183][183][183] [223][169]    [223][169] [183][183][183]            ":
  11. 70 print"[155]>>>>>>>>>>  s c h l u s s !!  <<<<<<<<<<[158]":print"
  12. 75 [153]"newnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew":[153]"onon";
  13. 76 :[137]30
  14. 100 [131]29,69,512,49,69,1536,47,160,512,34,157,768,47,160,768,29,69,1536
  15. 101 [131]32,219,768,34,207,512,32,219,768,29,69,256,26,20 ,512,32,219,1024
  16. 106 [131]69,98,768,72,89,1536,49,69,768,49,69,256,59,109,1536,13,8,1536,-1,-1,-1
  17. 108 [131]88,129,1024,57,224.1024,105,240,1024,224,250,768,224,224,1024,-1,-1,-1
  18.