home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 25
/
Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_D.d64
/
b.einricht
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
369b
|
14 lines
10 code=7*4096:vars=5*4096+6*256
20 sys code,24,1
45 poke 2,0
50 cl=peek(2):if cl=0 then 50
55 poke 2,0
60 if cl=1 then sys code,1,"l.waschmas",8
70 if cl=2 then sys code,1,"l.stuehle",8
80 if cl=3 then sys code,1,"l.sanitaer",8
90 if cl=4 then sys code,1,"l.kueche",8
100 if cl=5 then sys code,1,"l.kuehlschr",8
110 if cl=99 then sys code,25,1:goto 200
140 goto 50
200 z=peek(vars+2):a$="l.city"+str$(z):sys code,1,a$,8