home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 25 / Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_C.d64 / b.hauptsit (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  256b  |  11 lines
  1. 10 code=7*4096:vars=5*4096+6*256
  2. 20 sys code,3:rem clearnorm scn
  3. 30 print" [215]@hlen [211]ie [201]hren"
  4. 35 print" [200]auptsitz aus !"
  5. 40 sys code,6,3
  6. 45 poke2,0
  7. 50 cl=peek(2):if cl=0 then 50
  8. 55 poke2,0
  9. 60 if cl>0 and cl<10 then a$="l.city"+str$(cl):poke vars+2,cl:sys code,1,a$,8
  10. 70 goto 50
  11.