home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 25 / Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_C.d64 / b.portal (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  335b  |  13 lines
  1. 10 code=7*4096:vars=5*4096+6*256
  2. 15 sys code,24,1
  3. 20 sys code,3:rem clearnorm scn
  4. 30 print"[194]ank[194]*rse"
  5. 40 sys code,6,5
  6. 45 poke 2,0
  7. 50 cl=peek(2):if cl=0 then 50
  8. 55 poke 2,0
  9. 60 if cl=1 then sys code,1,"l.bank",8
  10. 70 if cl=2 then sys code,25,2:sys code,1,"l.boerse",8
  11. 80 if cl=99 then z=peek(vars+2):a$="l.city"+str$(z):sys code,1,a$,8
  12. 90 goto 50
  13.