home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 25 / Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_D.d64 / b.aamt (.txt) next >
Commodore BASIC  |  2023-02-26  |  3KB  |  103 lines
  1. 5 dimll(5,4,5):code=7*4096:vars=5*4096+6*256
  2. 11 gr=peek(code+3)+peek(code+4)*256:ac=peek(36862)-1:lx=00:ly=5:syscode,3:gosub2000
  3. 35 gosub1200:gosub50000:syscode,6,3:poke2,0
  4. 50 cl=peek(2):ifcl=0then50
  5. 55 poke2,0:ifcl=1then6000
  6. 71 ifcl=2then6010
  7. 72 ifcl=3then6020
  8. 73 ifcl=4then6030
  9. 74 ifcl=5then6040
  10. 75 ifcl=6then6050
  11. 110 ifcl=99thensyscode,1,"l.anstell",8
  12. 140 goto50
  13. 1110 rt=peek(vars+7+1+(peek(vars+1)-1)*67):rb=vars+7+67*4+11+rt*16:ax=peek(rb+0)
  14. 1150 bx=peek(rb+1):cx=peek(rb+2):dx=peek(rb+3):ex=peek(rb+4):goto50000
  15. 1200 rem
  16. 1210 w=gr+17+ac*31+(peek(vars+2)-1)*31*6:az=peek(w+0):bz=peek(w+1):cz=peek(w+2)
  17. 1250 dz=peek(w+3):ez=peek(w+4):fz=peek(w+5):gz=peek(w+6):hz=peek(w+7):iz=peek(w+8)
  18. 1310 jz=peek(w+9):bb=vars+7+4*67+5*16+32*16:ay=0:by=0:cy=0:dy=0:ey=0
  19. 1330 forx=0to9:ifpeek(w+x)=255then1372
  20. 1332 ifpeek(bb+peek(w+x)*7)=1thenay=ay+1
  21. 1341 ifpeek(bb+peek(w+x)*7)=2thenby=by+1
  22. 1351 ifpeek(bb+peek(w+x)*7)=3thency=cy+1
  23. 1361 ifpeek(bb+peek(w+x)*7)=4thendy=dy+1
  24. 1371 ifpeek(bb+peek(w+x)*7)=5theney=ey+1
  25. 1372 nextx:return
  26. 2000 rem
  27. 2010 w=gr+17+ac*31+(peek(vars+2)-1)*31*6:bb=vars+7+4*67+5*16+32*16:dimxb(6)
  28. 2022 dimxv(6):dimxn(6):dimxg(6):dimxl(6):dimxq(6):dimxa(6)
  29. 2025 for x=0to5
  30. 2030 z=int(rnd(1)*80)
  31. 2031 eu=0
  32. 2032 if xa(eu)=z then 2030
  33. 2033 eu=eu+1:if eu<x then 2032
  34. 2034 xa(x)=z
  35. 2037 xb(x)=peek(bb+z*7):xg(x)=peek(bb+1+z*7)*100:xv(x)=peek(bb+2+z*7)
  36. 2070 xn(x)=peek(bb+3+z*7):xq(x)=peek(bb+4+z*7):xl(x)=peek(bb+5+z*7):nextx
  37. 2110 x=0:wb=1224:gosub5000:x=1:wb=1238:gosub5000:x=2:wb=1252:gosub5000
  38. 2140 x=3:wb=1626:gosub5000:x=4:wb=1638:gosub5000:x=5:wb=1651:gosub5000
  39. 2180 x=0:print"";:gosub5100:x=1:print"";tab(14):gosub5100
  40. 2200 x=2:print"";tab(28):gosub5100:x=3:print"";:gosub5100
  41. 2220 x=4:print"";tab(14):gosub5100
  42. 2230 x=5:print"";tab(27):gosub5100:x=0:print"";:gosub5200
  43. 2250 x=1:print"";tab(14):gosub5200:x=2:print"";tab(28):gosub5200
  44. 2270 x=3:print"";:gosub5200
  45. 2280 x=4:print"";tab(14):gosub5200
  46. 2290 x=5:print"";tab(27):gosub5200:return
  47. 3000 rem
  48. 3010 syscode,4,8,mx,my:syscode,7,32,10,6:lx=mx:ly=my:goto50
  49. 5000 fori=0to6:pokewb+i,peek(vars+355+i+xv(x)*8):nexti:fori=0to7
  50. 5020 pokewb+40+i,peek(vars+611+i+xn(x)*8):nexti:return
  51. 5100 zg=peek(vars+7+4*67+5*16+7+xv(x)*8):ifzg=1then5130
  52. 5120 ifxb(x)=1thenprint"[203]och"
  53. 5121 ifxb(x)=2thenprint"[199]ehilfe"
  54. 5122 ifxb(x)=3thenprint"[203]ellner"
  55. 5123 ifxb(x)=4thenprint"[208]utzmann"
  56. 5124 ifxb(x)=5thenprint"[193]usfahrer"
  57. 5125 goto5140
  58. 5130 ifxb(x)=1thenprint"[203]*chin"
  59. 5131 ifxb(x)=2thenprint"[199]ehilfin"
  60. 5132 ifxb(x)=3thenprint"[203]ellnerin"
  61. 5133 ifxb(x)=4thenprint"[208]utzfrau"
  62. 5134 ifxb(x)=5thenprint"[198]ahrerin"
  63. 5140 return
  64. 5200 print"[204]eist:"xl(x)"[157]%";:print"[157][157][157][157][157][157][157][157][157][157][209]ual.:"xq(x)"[157]%[157][157][157][157][157][157][157][157][157][157][145][145]";
  65. 5220 print"[196][205]"xg(x)"[157][160]":return
  66. 6000 mx=0:my=5:goto6300
  67. 6010 mx=14:my=5:goto6300
  68. 6020 mx=28:my=5:goto6300
  69. 6030 mx=2:my=15:goto6300
  70. 6040 mx=14:my=15:goto6300
  71. 6050 mx=27:my=15:goto6300
  72. 6100 w=gr+17+ac*31+(peek(vars+2)-1)*31*6:x=0
  73. 6120 ifpeek(w+x)=255then6200
  74. 6130 x=x+1:ifx<10then6120
  75. 6150 print"[147]error !!!!!":goto6150
  76. 6200 pokew+x,xa(cl-1):xa(cl-1)=255:goto3000
  77. 6300 rem
  78. 6301 ifxb(cl-1)=1then6350
  79. 6310 ifxb(cl-1)=2then6360
  80. 6320 ifxb(cl-1)=3then6370
  81. 6330 ifxb(cl-1)=4then6380
  82. 6340 ifxb(cl-1)=5then6390
  83. 6345 print"[147]whoops !":goto6345
  84. 6346 end
  85. 6350 ifay<axthen6100
  86. 6355 goto50
  87. 6360 ifby<bxthen6100
  88. 6365 goto50
  89. 6370 ifcy<cxthen6100
  90. 6375 goto50
  91. 6380 ifdy<dxthen6100
  92. 6385 goto50
  93. 6390 ifey<exthen6100
  94. 6395 goto50
  95. 50000 restore:forlt=0to4:forlr=0to3:forla=0to4:readll(la,lr,lt):nextla,lr,lt
  96. 50060 wk=gr+3+ac*31+(peek(vars+2)-1)*31*6:lr=(peek(wk)and15)-1
  97. 50080 lt=peek(vars+7+1+(peek(vars+1)-1)*67):ax=ll(0,lr,lt):bx=ll(1,lr,lt)
  98. 50110 cx=ll(2,lr,lt):dx=ll(3,lr,lt):ex=ll(4,lr,lt):return:data 0,2,0,1,1
  99. 60002 data 0,3,0,1,1:data 0,4,0,2,1:data 0,5,0,2,1:data 1,1,1,1,1 :data 1,2,1,2,1
  100. 60013 data 1,3,2,2,1:data 1,4,2,2,1:data 1,1,1,1,1 :data 1,1,1,2,1:data 1,2,2,2,1
  101. 60024 data 2,2,2,3,1:data 1,1,1,1,1 :data 1,2,1,2,1:data 2,2,1,2,1:data 3,2,2,2,1
  102. 60041 data 1,1,1,1,1 :data 1,1,2,1,1:data 2,1,3,2,1:data 2,1,4,2,1
  103.