home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 25 / Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_C.d64 / b.modern (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  294b  |  12 lines
  1. 10 co=7*4096:poke2,0
  2. 20 poke37887,1:poke 37886,0
  3. 21 sys code,3
  4. 22 print"[205]odernisieren"tab(29)"[193]brei\en"
  5. 23 sys code,6,5
  6. 30 a=peek(2):ifa=0then 30
  7. 31 poke 2,0
  8. 40 if a=1then sysco,1,"l.extras*",8
  9. 50 if a=2then poke 37886,128:sysco,1,"l.hausko*",8
  10. 55 if=a 99 then z=peek(vars+2):a$="l.city"+str$(z):sys code,1,a$,8
  11. 60 goto 30
  12.