home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 25 / Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_C.d64 / b.bahnhof (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  44 lines
  1. 10 code=7*4096:vars=5*4096+6*256:dimci(9)
  2. 20 sys code,3:rem clearnorm scn
  3. 30 gosub 5000:gosub 1000
  4. 40 sys code,6,3
  5. 45 poke2,0
  6. 50 cl=peek(2):if cl=0 then 50
  7. 55 poke2,0
  8. 60 if cl>0 and cl<10 then a$="l.city"+str$(cl):poke vars+2,cl:sys code,1,a$,8
  9. 70 goto 50
  10. 1000 print"[211]ie befinden"
  11. 1001 print"sich in:"
  12. 1002 print"[193]nzahl der"
  13. 1003 print"[198]ilialen:"
  14. 1004 print"[194]erlin:";ci(0)
  15. 1005 print"[205]^nchen:";ci(1)
  16. 1006 print"[198]rankfurt:";ci(2)
  17. 1007 print"[200]amburg:";ci(3)
  18. 1008 print"[204]eipzig:";ci(4)
  19. 1009 print"[194]onn:";ci(5)
  20. 1010 print"[196]^sseldorf:";ci(6)
  21. 1011 print"[196]resden:";ci(7)
  22. 1012 print"[210]eutlingen:";ci(8)
  23. 1013 print"[211]uchen [211]ie"
  24. 1014 print"sich [201]hr"
  25. 1015 print"[198]ahrziel"
  26. 1016 print"aus !"
  27. 1020 n=peek(vars+2):rem act. city
  28. 1030 if n=1 then print"[194]erlin"
  29. 1040 if n=2 then print"[205]^nchen"
  30. 1050 if n=3 then print"[198]rankfurt"
  31. 1060 if n=4 then print"[200]amburg"
  32. 1070 if n=5 then print"[204]eipzig"
  33. 1080 if n=6 then print"[194]onn"
  34. 1090 if n=7 then print"[196]^sseldorf"
  35. 1100 if n=8 then print"[196]resden"
  36. 1110 if n=9 then print"[210]eutlingen"
  37. 1120 if n<1 or n>9 then print"[197][210][210][207][210] !!!!"
  38. 1200 return
  39. 5000 ap=peek(vars+1)
  40. 5010 fori=0to8
  41. 5020 forz=0to5:gb=peek(co+3)+(peek(co+4)*256)+i*31*6+z*31+2
  42. 5030 if (peek(gb)and240)=(ap*16) and (peek(gb)and 15)=2 then ci(i)=ci(i)+1
  43. 5040 nextz,i:return
  44.