home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 25 / Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_C.d64 / b.sel.einr (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  46 lines
  1. 1 code=7*4096:vars=5*4096+6*256
  2. 2 gr=peek(code+3)+peek(code+4)*256
  3. 3 actg=8*4096+15*256+254
  4. 10 sys code,16:rem load act. citymap
  5. 11 poke53281,11
  6. 20 sys code,12:rem copy restaurants
  7. 30 sys code,11,0,1,20,9:rem showmap
  8. 40 sys code,3:rem clr norm
  9. 50 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  10. 51 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  11. 52 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  12. 53 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  13. 54 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  14. 55 poke 1024+24*40+39,96:rem space
  15. 56 sys code,4,5,7,20:sys code,21,1
  16. 57 sys code,4,5,7,21:sys code,21,2
  17. 58 sys code,4,5,27,20:sys code,21,3
  18. 59 sys code,4,5,27,21:sys code,21,4
  19. 60 sys code,6,5:print"[160][152][160]"
  20. 61 print"[160][160]"
  21. 65 sys code,15
  22. 66 gosub 300
  23. 70 poke2,0
  24. 80 cl=peek(2):if cl=0 then 80
  25. 90 poke2,0
  26. 100 if cl=99 then z=peek(vars+2):a$="l.city"+str$(z):sys code,1,a$,8
  27. 110 if cl>0 and cl<7 then poke actg,cl:goto 200
  28. 120 goto 80
  29. 200 w=gr+(peek(vars+2)-1)*31*6+(peek(actg)-1)*31
  30. 210 x=peek(w+2) and 240:rem eigner
  31. 220 z=peek(w+2) and 15:rem status
  32. 230 if x=peek(vars+1)*16 and z=2 then 1000
  33. 240 goto 80
  34. 300 x=0:poke 2,255
  35. 301 sys code,3:poke1024+24*40+39,96
  36. 302 print"[215]@hlen[160][211]ie[160]bitte[160]eines[160][201]hrer[160][160][160][160][160][160][160][160][160][160][160][160]";
  37. 303 print"[210]estaurants[160]an...[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  38. 304 sys code,6,5
  39. 305 cl=peek(2):if cl<>255 then 308
  40. 306 x=x+1
  41. 307 if x<300 then 305
  42. 308 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  43. 309 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
  44. 310 poke1024+24*40+39,96:sys code,6,5:sys code,15:return
  45. 1000 sys code,25,2:sys code,1,"l.einricht*",8
  46.