home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 25 / Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_D.d64 / b.anstell (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  45 lines
  1. 5 dimll(5,4,5):code=7*4096:vars=5*4096+6*256:syscode,24,2
  2. 11 gr=peek(code+3)+peek(code+4)*256:ac=peek(36862)-1:gosub1100:gosub1200:syscode,3
  3. 21 print"[155][211]ie[160]haben":print"folgendes"
  4. 23 print"[208]ersonal[160]ein-":print"gestellt:"
  5. 25 print"";ay;"[203]och/[203]*che":print"";by;"[199]ehilfe/n"
  6. 27 print"";cy;"[203]ellner":print"";dy;"[208]utzfrau/en"
  7. 29 print"";ey;"[193]usfahrer":print""tab(24)"[155][211]ie[160]sollten"
  8. 31 print""tab(24)"folgendes":print""tab(24)"[208]ersonal[160]ein-"
  9. 33 print""tab(24)"stellen:"
  10. 34 print"";ax;"[203]och/[203]*che"
  11. 35 print"";bx;"[199]ehilfe/n"
  12. 36 print"";cx;"[203]ellner"
  13. 37 print"";dx;"[208]utzfrau/en"
  14. 38 print"";ex;"[193]usfahrer"
  15. 39 print"[197]ntlassenweiter":syscode,6,3
  16. 45 poke2,0
  17. 50 cl=peek(2):ifcl=0then50
  18. 55 poke2,0:ifcl=9thensyscode,1,"l.wen.entl",8
  19. 70 ifcl=10thensyscode,1,"l.aamt",8
  20. 110 ifcl=99thensyscode,25,1:goto40000
  21. 140 goto50
  22. 1100 rem
  23. 1110 rt=peek(vars+7+1+(peek(vars+1)-1)*67):rb=vars+7+67*4+11+rt*16:ax=peek(rb+0)
  24. 1150 bx=peek(rb+1):cx=peek(rb+2):dx=peek(rb+3):ex=peek(rb+4):goto50000
  25. 1200 rem
  26. 1210 w=gr+17+ac*31+(peek(vars+2)-1)*31*6:az=peek(w+0):bz=peek(w+1):cz=peek(w+2)
  27. 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)
  28. 1310 jz=peek(w+9):bb=vars+7+4*67+5*16+32*16:ay=0:by=0:cy=0:dy=0:ey=0
  29. 1330 forx=0to9:ifpeek(w+x)=255then1372
  30. 1332 ifpeek(bb+peek(w+x)*7)=1thenay=ay+1
  31. 1341 ifpeek(bb+peek(w+x)*7)=2thenby=by+1
  32. 1351 ifpeek(bb+peek(w+x)*7)=3thency=cy+1
  33. 1361 ifpeek(bb+peek(w+x)*7)=4thendy=dy+1
  34. 1371 ifpeek(bb+peek(w+x)*7)=5theney=ey+1
  35. 1372 nextx:return
  36. 40000 z=peek(vars+2):a$="l.city"+str$(z):syscode,1,a$,8
  37. 50000 restore:forlt=0to4:forlr=0to3:forla=0to4:readll(la,lr,lt):nextla,lr,lt
  38. 50060 wk=gr+3+ac*31+(peek(vars+2)-1)*31*6:lr=(peek(wk)and15)-1
  39. 50080 lt=peek(vars+7+1+(peek(vars+1)-1)*67):ax=ll(0,lr,lt):bx=ll(1,lr,lt)
  40. 50110 cx=ll(2,lr,lt):dx=ll(3,lr,lt):ex=ll(4,lr,lt):return:data 0,2,0,1,1 
  41. 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
  42. 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
  43. 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
  44. 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
  45.