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 >
Commodore BASIC  |  2023-02-26  |  369b  |  14 lines
  1. 10 code=7*4096:vars=5*4096+6*256
  2. 20 sys code,24,1
  3. 45 poke 2,0
  4. 50 cl=peek(2):if cl=0 then 50
  5. 55 poke 2,0
  6. 60 if cl=1 then sys code,1,"l.waschmas",8
  7. 70 if cl=2 then sys code,1,"l.stuehle",8
  8. 80 if cl=3 then sys code,1,"l.sanitaer",8
  9. 90 if cl=4 then sys code,1,"l.kueche",8
  10. 100 if cl=5 then sys code,1,"l.kuehlschr",8
  11. 110 if cl=99 then sys code,25,1:goto 200
  12. 140 goto 50
  13. 200 z=peek(vars+2):a$="l.city"+str$(z):sys code,1,a$,8
  14.