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