home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 53
/
Tiger_Disk_053_1998-08_Tiger-Crew-Disk_de_Side_B.d64
/
koala-art-show
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
57 lines
15 ifx=0thenifpeek(34592)=76thenx=3
17 ifx=0thenpoke53280,6:poke53281,6:print"[147]commodore 64 art show"
19 ifx=0thenx=1:print"loading ..."
20 ifx=1thenx=2:load"logo",8,1
22 ifx=2thenx=3:load"dissolve",8,1
25 ifx=3thenpoke55,0:poke56,31:clr:x=4:
30 ifx=4thenx=5:poke53280,0:poke53281,0:goto50
40 ifx=5then130
50 print"[147] disk einlegen und..."
51 print" ...taste druecken !"
52 geta$:ifa$=""then52
53 print"[147]":fort=0to50:next:goto60
60 rem
61 goto1000
100 sys34592
104 pokevic+21,0
105 fort=0to100:next
110 sys34592+3
120 goto2000
130 sys34592+6
140 rem
150 ife=1then9000
160 goto100
1000 sys34592+9
1005 poke2040,254
1010 poke2041,255
1020 vic=53248
1030 pokevic+39,6
1040 pokevic+40,2
1050 pokevic+29,0
1060 pokevic+28,0
1070 pokevic+23,0
1080 pokevic+16,0
1090 pokevic+1,136
1100 pokevic+3,136
1110 pokevic+0,128
1120 pokevic+2,128
1130 pokevic+21,3
1150 print"[147] commodore 64"
1160 print" art show"
1165 goto2000
1166 pokevic+21,0
2000 rem
2100 nn=n+65:f$=chr$(nn)+"*"
2200 fi$=chr$(129)+"pic "+f$
2201 n=n+1:ifn>16then8000
2205 open15,8,15:
2206 open2,8,2,fi$+",p,r"
2207 input#15,a:ifa<>0thenclose2:close15:goto2000
2208 close15:close2
2210 loadfi$,8,1
2211 if st<>0then2000
2220 end
8000 fort=0to9000:next
9000 sys34592+9
9100 clr:n=0:x=5:goto50