home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 25 / Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_C.d64 / b.sel.archi (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  41 lines
  1. 1 code=7*4096:vars=5*4096+6*256:gr=peek(code+3)+peek(code+4)*256
  2. 3 actg=8*4096+15*256+254:syscode,16:poke53281,11:syscode,12
  3. 30 syscode,11,0,1,20,9:syscode,3
  4. 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]";
  5. 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]";
  6. 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]";
  7. 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]";
  8. 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]";:poke1024+24*40+39,96
  9. 56 syscode,4,5,7,20:syscode,21,1:syscode,4,5,7,21:syscode,21,2
  10. 58 syscode,4,5,27,20:syscode,21,3:syscode,4,5,27,21:syscode,21,4
  11. 60 syscode,6,5:print"[160][152][160]"
  12. 61 print"[160][160]":syscode,15
  13. 66 gosub300:poke2,0
  14. 80 cl=peek(2):ifcl=0then80
  15. 90 poke2,0:ifcl=99thenz=peek(vars+2):a$="l.city"+str$(z):syscode,1,a$,8
  16. 110 ifcl>0andcl<7thenpokeactg,cl:goto200
  17. 120 goto80
  18. 200 w=gr+(peek(vars+2)-1)*31*6+(peek(actg)-1)*31:x=peek(w+2)and240
  19. 230 ifx=peek(vars+1)*16then2000
  20. 240 goto80
  21. 300 x=0:poke2,255:syscode,3:poke1024+24*40+39,96
  22. 302 print"[215]@hlen[160][211]ie[160]bitte[160][201]hr[160][199]rundst^ck[160]an,[160][160][160][160][160]";
  23. 303 print"da\[160][211]ie[160]bebauen[160]m*chten[160]...[160][160][160][160][160][160][160][160][160][160][160][160]";
  24. 304 syscode,6,5
  25. 305 cl=peek(2):ifcl<>255then308
  26. 306 x=x+1:ifx<300then305
  27. 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]";
  28. 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]";
  29. 310 poke1024+24*40+39,96:syscode,6,5:syscode,15:return
  30. 1000 poke36861,0:poke36860,0:poke36859,0:poke36858,0:poke36857,1
  31. 1100 syscode,1,"l.architek*",8
  32. 2000 z=peek(w+2)and15:ifz=1then1000
  33. 2020 ifz=2then3000
  34. 2030 goto80
  35. 3000 z=peek(w+6)and240:poke36861,0:poke36860,0:poke36859,0:poke36858,0
  36. 3010 if(zand128)=128thenpoke36861,1
  37. 3020 if(zand64)=64thenpoke36860,1
  38. 3030 if(zand32)=32thenpoke36859,1
  39. 3040 if(zand16)=16thenpoke36858,1
  40. 3050 syscode,1,"l.modern*",8
  41.