home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 25 / Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_C.d64 / b.architek (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  43 lines
  1. 10 code=7*4096:vars=5*4096+6*256:gr=peek(code+3)+peek(code+4)*256
  2. 12 ac=peek(36862):syscode,3:print"[144]-----"
  3. 31 print"[144]-----"
  4. 32 print"[144]-----"
  5. 33 print"[144]-----"
  6. 34 print"[144][197]xtras"
  7. 36 print"[144][203]osten"
  8. 40 syscode,6,5:ifpeek(36857)=1then400
  9. 42 ifpeek(36857)=2then300
  10. 43 ifpeek(36857)=3then200
  11. 44 ifpeek(36857)=4then100
  12. 45 poke2,0
  13. 50 cl=peek(2):ifcl=0then50
  14. 55 poke2,0:w=gr+(ac-1)*31+(peek(vars+2)-1)*31*6:y=(peek(w+3)and240)/16
  15. 60 ifcl=99thenz=peek(vars+2):a$="l.city"+str$(z):syscode,1,a$,8
  16. 61 ifcl=1andy>5then100
  17. 62 ifcl=2andy>3then200
  18. 63 ifcl=3andy>1then300
  19. 64 ifcl=4then400
  20. 70 ifcl=5thensyscode,1,"l.extras",8
  21. 80 ifcl=7thensyscode,1,"l.hauskost",8
  22. 90 goto50
  23. 100 syscode,3:print"[212]yp[160][193]"
  24. 111 print"[144]-----"
  25. 112 print"[144]-----"
  26. 113 print"[144]-----"
  27. 120 syscode,6,5:poke(36857),4:goto50
  28. 200 syscode,3:print"-----"
  29. 211 print"[144][212]yp[160][194]"
  30. 212 print"[144]-----"
  31. 213 print"[144]-----"
  32. 220 syscode,6,5:poke(36857),3:goto50
  33. 300 syscode,3:print"-----"
  34. 311 print"[144]-----"
  35. 312 print"[144][212]yp[160][195]"
  36. 313 print"[144]-----"
  37. 320 syscode,6,5:poke(36857),2:goto50
  38. 400 syscode,3:print"-----"
  39. 411 print"[144]-----"
  40. 412 print"[144]-----"
  41. 413 print"[144][212]yp[160][196]"
  42. 420 syscode,6,5:poke(36857),1:goto50
  43.