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 >
Wrap
Commodore BASIC
|
2023-02-26
|
565b
|
14 lines
1 print"[147]":rem by tigercrew
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 forx=15to0step-1
4 pokel,x:pokea,15:pokeh,0:pokefh,40:pokefl,200:pokew,129
5 next
6 pokew,0:pokea,0
7 geta$:ifa$=""then3:rem by lost brain
8 print"[147]":poke53280,0:poke53281,0:a$=" [129] [150] [158] [158] [150] [129] ":poke648,160
9 poke53265,0:print"[147] ..small basicdemopart by lost brain.."chr$(8);:goto13
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 poke53272,132:poke56576,149:poke648,4:fort=1to100:printa$;:next:poke53265,27
12 printa$;:goto12
13 print" visit computer's hell 2000 in berlin!":goto10