home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 27
/
64er_Magazin_Sonderheft_27_19xx_Markt__Technik_de_Disk_2_of_2_Side_A.d64
/
demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
702b
|
27 lines
10 rem demo
20 rem by
30 rem stefan landfried
40 rem kelheimerstr. 9
50 rem 8421 painten
70 rem
72 ifa=1then90
74 print"[147] andere farben (y/n) ?"
75 geta$:ifa$=""then75
76 ifa$="y"then190
80 ifa=0thena=1:load"alley. sim.",8,1
90 sys49152,130,2,8,0:
100 rem in zeile 10 ((8*10)+50)
110 rem ziemlich schnell und alle balken
120 print"[144][147]"
130 print" this is only a little demo "
140 geta$:ifa$=""then140
150 goto150
160 rem farbentausch
170 rem
180 rem
190 fori=49278to49308:reada:pokei,a:next:goto90
200 data11,12,15,15,15,1,12,11,4,6,6,14,,1,14,14,6: rem 16 farben
210 data4,2,2,10,1,10,10,2,5,13,3,3,3,1,13,5: rem insgesamt 32 farben
220 rem in den datazeilen koennen die gewuenschten farben eingetragen werden
230 rem end