home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 25 / Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_D.d64 / b.wen.entl (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  62 lines
  1. 10 code=7*4096:vars=5*4096+6*256:gr=peek(code+3)+peek(code+4)*256
  2. 12 ac=peek(36862)-1:gosub1100:gosub1200:syscode,3
  3. 15 print"[155][194]itte warten !"
  4. 16 print"[211]trukturen werden entpackt !":syscode,6,3
  5. 18 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  6. 19 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]":gosub2000
  7. 20 syscode,6,3:syscode,3:print"[206]ame[194]eruf[199]ehalt[204].:[209].:"
  8. 22 print"----------------------------------------"
  9. 39 print""tab(15)"[197]ntlassen":syscode,6,3:poke2,0
  10. 50 cl=peek(2):ifcl=0then50
  11. 55 poke2,0:ifcl=17then3500
  12. 70 ifcl>1andcl<12then3000
  13. 110 ifcl=99thensyscode,1,"l.anstell",8
  14. 140 goto50
  15. 1100 rem
  16. 1110 rt=peek(vars+7+1+(peek(vars+1)-1)*67):rb=vars+7+67*4+11+rt*16:ax=peek(rb+0)
  17. 1150 bx=peek(rb+1):cx=peek(rb+2):dx=peek(rb+3):ex=peek(rb+4):return
  18. 1200 rem
  19. 1210 w=gr+17+ac*31+(peek(vars+2)-1)*31*6:az=peek(w+0):bz=peek(w+1):cz=peek(w+2)
  20. 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)
  21. 1310 jz=peek(w+9):bb=vars+7+4*67+5*16+32*16:ay=0:forx=0to9
  22. 1331 ifpeek(bb+peek(w+x)*7)=1thenay=ay+1
  23. 1332 next:by=0:forx=0to9:ifpeek(bb+peek(w+x)*7)=2thenby=by+1
  24. 1342 next:cy=0:forx=0to9:ifpeek(bb+peek(w+x)*7)=3thency=cy+1
  25. 1352 next:dy=0:forx=0to9:ifpeek(bb+peek(w+x)*7)=4thendy=dy+1
  26. 1362 next:ey=0:forx=0to9:ifpeek(bb+peek(w+x)*7)=5theney=ey+1
  27. 1372 next:return
  28. 2000 rem
  29. 2010 w=gr+17+ac*31+(peek(vars+2)-1)*31*6:bb=vars+7+4*67+5*16+32*16:dimxb(10)
  30. 2022 dimxv(10):dimxn(10):dimxg(10):dimxl(10):dimxq(10):forx=0to9:ifpeek(w+x)=255then2100
  31. 2040 xb(x)=peek(bb+peek(w+x)*7):xg(x)=peek(bb+1+peek(w+x)*7)*100
  32. 2060 xv(x)=peek(bb+2+peek(w+x)*7):xn(x)=peek(bb+3+peek(w+x)*7)
  33. 2080 xq(x)=peek(bb+4+peek(w+x)*7):xl(x)=peek(bb+5+peek(w+x)*7)
  34. 2100 nextx:forx=0to9:fori=0to6:poke1224+x*40+i,peek(vars+355+i+xv(x)*8):nexti:nextx:forx=0to9
  35. 2160 fori=0to3:poke1232+x*40+i,peek(vars+611+i+xn(x)*8):nexti:nextx:print"";:forx=0to9
  36. 2195 print"";:zg=peek(vars+7+4*67+5*16+7):ifzg=1then2230
  37. 2220 ifxb(x)=1thenprinttab(13)"[203]och[157][157][157][157]";
  38. 2221 ifxb(x)=2thenprinttab(13)"[199]ehilfe[157][157][157][157][157][157][157]";
  39. 2222 ifxb(x)=3thenprinttab(13)"[203]ellner[157][157][157][157][157][157][157]";
  40. 2223 ifxb(x)=4thenprinttab(13)"[208]utzmann[157][157][157][157][157][157][157][157]";
  41. 2224 ifxb(x)=5thenprinttab(13)"[193]usfahrer[157][157][157][157][157][157][157][157][157]";
  42. 2225 goto2240
  43. 2230 ifxb(x)=1thenprinttab(13)"[203]*chin[157][157][157][157][157][157]";
  44. 2231 ifxb(x)=2thenprinttab(13)"[199]ehilfin[157][157][157][157][157][157][157][157]";
  45. 2232 ifxb(x)=3thenprinttab(13)"[203]ellnerin[157][157][157][157][157][157][157][157][157]";
  46. 2233 ifxb(x)=4thenprinttab(13)"[208]utzfrau[157][157][157][157][157][157][157][157]";
  47. 2234 ifxb(x)=5thenprinttab(13)"[193]usfahrerin[157][157][157][157][157][157][157][157][157][157][157]";
  48. 2240 next:print"";:forx=0to9
  49. 2275 ifxg(x)<1000thenprint"";:goto2290
  50. 2280 printxg(x)"[196][205][157][157][157][157][157][157][157][157]";
  51. 2290 nextx:forx=0to9:poke211,32:poke214,4+x:print"":poke211,32:poke214,4+x:printxl(x)
  52. 2331 poke211,36:poke214,4+x:printxq(x):nextx:print"";:forx=0to9
  53. 2370 print"%%";:nextx:forx=0to9
  54. 2400 ifpeek(w+x)<>255then2430
  55. 2410 syscode,4,3,0,(x+5):syscode,7,96,40,1
  56. 2430 next:return
  57. 3000 syscode,4,3,0,(ww+5):syscode,7,32,40,1:syscode,4,8,0,(cl+3)
  58. 3015 syscode,7,32,40,1:ww=cl-2:goto50
  59. 3500 rem
  60. 3510 w=gr+17+ac*31+(peek(vars+2)-1)*31*6:pokew+ww,255:syscode,3
  61. 3530 syscode,4,3,0,(ww+5):syscode,7,96,40,1:syscode,6,3:goto50
  62.