home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 25
/
Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_C.d64
/
b.verkaufn
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
53 lines
1 code=7*4096:vars=5*4096+6*256:gr=peek(code+3)+peek(code+4)*256
3 actg=8*4096+15*256+254:syscode,24,1:syscode,3
45 print"[209]uadratmeter[160][160][160]":print"[214][203]-[208]reis/qm[160][160][160][160]"
47 print"[214][203]-[208]reis[160]gesamt"
48 print"[209][205][160][160][160][160][160][160][160][160]"
49 print"[196][205][160][160][160][160][160][160][160][160]"
50 print"[196][205][160][160][160][160][160][160][160][160]"
51 print"[214]erkaufen[160]"
52 syscode,6,5:gosub600:syscode,6,5:x=peek(vars+7+5+((peek(vars+1)-1)*67))and128
62 k=(peek(vars+7+2+((peek(vars+1)-1)*67))*1)
63 k=k+(peek(vars+7+3+((peek(vars+1)-1)*67))*256)
64 k=k+(peek(vars+7+4+((peek(vars+1)-1)*67))*65536)
65 k=k+((peek(vars+7+5+((peek(vars+1)-1)*67))and127)*16777216):ifx=128thenk=-k
68 gosub4000:poke2,0
80 cl=peek(2):ifcl=0then80
90 poke2,0:ifcl=99then 10000
110 ifcl=3then200
120 goto80
200 w=gr+(peek(vars+2)-1)*31*6+peek(actg)*31:x=peek(w+2)and240:ifx=0thengoto500
230 ifx=peek(vars+1)*16then400
240 goto80
400 pokew+2,0:k=k+preis:iv=iv-preis:goto1000
500 poke(w+2),peek(w+2)orpeek(vars+1)*16:pokew+2,peek(w+2)or1
530 k=k-preis:iv=iv+preis:goto1000
600 w=gr+(peek(vars+2)-1)*31*6+peek(actg)*31:x=peek(w+5):gosub680:x=x*10:preis=qm*x
640 print"[144][209][205]";qm
650 print"[144][196][205]";x
660 print"[144][196][205]";preis:return
680 z=(peek(w+3)and240)/16:ifz=1thenqm=250:return
682 ifz=2thenqm=500:return
683 ifz=3thenqm=500:return
684 ifz=4thenqm=750:return
685 ifz=5thenqm=750:return
686 ifz=6thenqm=1000:return
687 ifz=7thenqm=1250:return
688 ifz=8thenqm=1250:return
690 print"[147] error !":syscode,17:end
1000 z=0:ifk<0thenk=k-k-k:z=1
1001 b=(vars+7+2+((peek(vars+1)-1)*67)):pokeb+3,int(k/16777216)and127
1003 k=k-(int(k/16777216)*16777216):pokeb+2,int(k/65536):k=k-(int(k/65536)*65536)
1006 pokeb+1,int(k/256):k=k-(int(k/256)*256):pokeb+0,k:pokeb+3,peek(b+3)orz*128
1010 syscode,24,2:gosub5000:goto 10000
4000 rem
4001 b=vars+1643+((peek(vars+1)-1)*8):x=peek(b+3)and128:iv=peek(b+0)
4004 iv=iv+(peek(b+1)*256):iv=iv+(peek(b+2)*65536)
4006 iv=iv+((peek(b+3)and127)*16777216):ifx=128theniv=-iv
4010 return
5000 b=vars+1643+((peek(vars+1)-1)*8):x=0:ifiv<0theniv=iv-iv-iv:x=128
5030 poke(b+3),int(iv/16777216):iv=iv-(int(iv/16777216)*16777216)
5050 poke(b+2),int(iv/65536):iv=iv-(int(iv/65536)*65536):poke(b+1),int(iv/256)
5080 iv=iv-(int(iv/256)*256):poke(b+0),iv:poke(b+3),peek(b+3)orx:return
10000 z=peek(vars+2):a$="l.city"+str$(z):sys code,1,a$,8