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