Top 10k strings from trondhei.tap in <root> / bin / z80 / software / ZxTapGames.zip / games /
Back to the directory listing
4 ----------------------- 3 ;"NY AKSJEKURS Kr "; 2 sav12=sav11 2 a(stoc)=a(stoc)*tax2 2 INTBANKCRUPT 2 ;e$;e$;e$;e$ 2 ;e$,,e$,,e$ 2 ;b$(n);" MOTTAR Kr "; 2 ;a$(stoc); 2 ;"TAP: Kr "; 2 ;"FORTJENESTE: Kr "; 2 ------ --------- -- 2 -- -- -- -- -- -- 1 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx8xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx8xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx8xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx8xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx8888888888888888888888888888888888888888888888888888888888888888^ 1 we=playersnr 1 trend=4500 1 tell2=tell2+1 1 taxes=4000 1 tax=tax+a(n)*j(n) 1 tax=tax+a(n)*c((p-1 1 tax2=q(se)*z(1 1 tax2=c((n-1 1 stocknr>16 1 stocknr=stocknr+1 1 se1=b(stoc)*70 1 se1=b(stoc)*55 1 se1=b(stoc)*25 1 se1=b(stoc)*12 1 se1=-b(stoc)*40 1 se1=-b(stoc)*30 1 se1=-b(stoc)*25 1 se1=-b(stoc)*15 1 se1=-b(stoc)*10 1 se1=(se1-40 1 se1=(se1+40 1 se1;" I ";a$(se) 1 sav22=sav21 1 q(f)=h(f)/l(f) 1 playersnr= 1 playersnr: 1 paid=(d(n)+e(n))*(tax2)/100 1 p=playersnr 1 l(f)=h(f): 1 j(stock)=j(stock)+we 1 j(stoc)=we 1 interest=4300 1 factor=3400 1 e(we)=e(we)+a(n)*c((we-1 1 e(p);" I AKSJER. " 1 e(n)=e(n)+d(n) 1 e(n)=e(n)+c((n-1 1 e(n)=e(n)+a(q)*c((n-1 1 e(n)=-10000 1 d(p)=d(p)-a(stock)*ant 1 d(p);" I KONTANTER. " 1 d(n)=d(n)-paid 1 d(n)=d(n)+we 1 d(n)=d(n)+tax2 1 d(n)=50000 1 d$="SELL": 1 change=3700 1 bcrupt=5300 1 bank=bank+ant*a(stock) 1 b(stock)=b(stock)-ant 1 b(stock)=b(stock)+we 1 b(stock)<(90 1 b(stock);b(stock) 1 b(stoc)=we 1 ant>c((p-1 1 ant>b(stock) 1 ant*a(stock)>d(p) 1 a(stock)=a(stock)*(1 1 a(stoc)=tax 1 a(stoc)=a(stoc)/(q(stoc)^( 1 a(stoc)=a(stoc)*z(1 1 a(stoc)<tax 1 a(n)=a(n)*z(1 1 a(n)=a(n)*q(n) 1 a$(stoc)=a$(stocknr) 1 Thor Vollset. All kopiering forbudt Folkedata Boks 2225 7001 Trondheim 1 TRONDHEIM B0RS LOADING!!!!!!!!!! 1 T R O N D H E I M B 0 R S : 1 T R O N D E I M B 0 R S " 1 SUB WINNINGS 1 SUB TREND -- -- -- 1 SUB SPEKMORO 1 SUB PRINTOUT3 1 SUB PRINTOUT 1 SUB PRINT FORTUNE 1 SUB PLAYERSNAME,NR 1 SUB INTEREST STOCKS 1 SUB FAKTOR 1 SUB DEMAND 1 SUB CHANGE 1 SUB BIG TURN 1 SUB BANKCRUPT 1 STOCKRATE CHANGE 1 PRESS ENTER 1 LURERI JUMP UP 1 JUMP INCOME 1 INIT VERDI 1 INIT PLAYER MONEY 1 INIT NAMES 1 INIT FAKFORHOLD 1 INIT COMP NAME 1 INIT BANK 1 END DEMAND 1 END CHECK INPUT. 1 CHECK WHAT WINNINGS 1 CHECK NOT EQUAL 1 CHECK BANKCRUPT 1 B0RS BIL 1 B0RS "] 1 B0RS 1 ;n;".";b$(n) 1 ;e$;e$;e$;e$;e$ 1 ;b$(p);" BETALER 15 % RENTE.": 1 ;b$(n);" BETALER Kr "; 1 ;a$(stock); 1 ;a$(stoc);f$ 1 ;a$(stoc);" GIR ";tax2;" % I UTBYTTE." 1 ;a$(stoc);" ER KONKURS. " 1 ;"Ved aa trykke paa 'K' kan du kjope aksjer i NOB0 FAB.. Eller du kan selge ved aa trykke 'S'.",,,,, 1 ;"VELKOMMEN TIL TRONDHEIM B0RS. DETTE ER EN FORBEDRING AV DET KJENTE SPILLET ~OSLO B0RS~ AV FOLKEDATA I TRONDHEIM. SAA VI BESTEMTE OSS FOR AA LAGE EN LITEN FORBEDRING AV SPILLET,MEN DE SOM LAGET SPILLETER ~FOLKEDATA~(IKKE GLEM DET!). VI FRA NESS DATA 0NSKER DERE LYKKE TIL MED SPILLET!!!!!!!" 1 ;"UTVIDER AKSJEKAPITALEN." 1 ;"Trykker du paa 'T' forandrer tilbudene seg. Etter fire trykk faar neste spiller sjansen. " 1 ;"TJENTE Kr ";se1;" I ";a$(se) 1 ;"TAPTE Kr "; 1 ;"STORE TAP I "; 1 ;"STOR INTERESSE I ";a$(stock) 1 ;"STILLING" 1 ;"SPILLER" 1 ;"SPILLER NR." 1 ;"SKRIV INN NYTT SELSKAP. ": 1 ;"SELSKAP KURS ANT.AKSJER PR.SP. " 1 ;"PR0V AA 0KE FORTJENESTEN SAA MYESOM MULIG. MEN SE OPP! MARKEDET KAN VAERE USTABILT OG UVENTEDE TING KAN SKJE. F0LG MED KURSENE! LYKKE TIL! " 1 ;"NYTT SELSKAP ER ";a$(stoc) 1 ;"NY KURS DnC Kr "; 1 ;"NY AKSJEKURS ER Kr "; 1 ;"NOB0 FAB.": 1 ;"N0BO FAB.": 1 ;"KR 50000 I KONTANTER" 1 ;"KR 0 I GULL" 1 ;"KR 0 I AKSJER" 1 ;"K=KJ0P,S=SELG,T=TILBUD,E=EXIT" 1 ;"I GULL. " 1 ;"Her ser du et merkelig tall. Dette er en indeks for aksje- markedet. Stiger den er det stigende tendens paa markedet, motsatt om den faller." 1 ;"Her folger kommandoer for aa blaeller hoppe ut av veiledningen: " 1 ;"GULL KAN STIGE !! " 1 ;"GULL KAN FALLE !! " 1 ;"GRUNNET ";f$ 1 ;"FRA Kr "; 1 ;"EN UNSE" 1 ;"Du starter med 50000 Kr. i kontanter. Ingenting i aksjer eller gull." 1 ;"DnC GIR ";tax;" % I UTBYTTE." 1 ;"Det er to eksperter som gir tipsDen overste er noe forsiktig, den nederste meget spekulativ. (0verst til hoyre ser du deres raad.)",, 1 ;"DU KAN IKKE HA SAA MANGE AKSJER.": 1 ;"DU HAR IKKE NOK KONTANTER. ": 1 ;"DU FIKK IKKE KJ0PT AKSJENE. ": 1 ;"AKSJEKURSEN ER ";a(stoc) 1 ;"0nsker du aa vite stillingen kandu taste 'E'. 'F' bringer deg tilbake til spillet.",,,,, 1 ;" TILBUD K/S " 1 ;" SELG ";a$(de1);" !" 1 ;" NAA SKULLE DU VAERE ISTAND TIL AA SPILLE. " 1 ;" KJ0P ";a$(we1);" !" 1 ;" KJ0P ";a$(se1);" !" 1 ;" INCOME TAX : ";TAX;" % " 1 ;" GJELD kr "; 1 ;" FORS0K EN GANG TIL !! ": 1 ;" En av spillerne faar tilbud om aa kjope og selge aksjer eller gull. Altsaa kjop og salg kun i det selskapet tilbudet gjelder. " 1 ;" 10 ": 1 ;" ";n;". ";b$(we1) 1 ;" TILBUD ": 1 ;" SELG",,: 1 ;" SELG NOB0 FAB.!" 1 ;" KJ0P",,: 1 ;" KJ0P GULL!", 1 ;" Her ser du selskapene, kursen paa aksjene og antallet som hverspiller har. Helt til hoyre angis totalt antall aksjer som er tilgjengelig." 1 ;" F=Fram,B=Begynnelsen,S=Start " 1 ;" SKATT : ";TAX2;" % " 1 ;" E=EXIT,F=FORTSETT" 1 ;" K/S " 1 /tax2-.005 1 /tax2+.005 1 - - - - - - - - - - - 1 - - - - - - - - - - - 1 ,stoc)=tax2-.002 1 ,stoc)=tax2+0.002 1 ,stoc)=1.06 1 ,stoc)=1.002 1 ,stoc))/tax)<.30 1 ,stoc))/tax)<(.235 1 +stock)=c((p-1 1 +stock)+ant>j(stock)*.52 1 +stock)+ant>999 1 +stock)+ant 1 +stoc)*tax*tax2/100 1 ********************** T R O N D H E I M B 0 R S 1 );" " 1 (we1=se1)) 1 (n);". SPILLERS NAVN "; 1 (j(stock)*we1);" TIL Kr "; 1 (d(p));" .": 1 (b(stock)+100 1 (b$(n))," I ORDEN ?"; 1 ((j(stock)+we)*we1) 1 ((a(stoc)*z(1 1 (((a(stoc)*z(1 1 "To eksperter gir tips. Den ene er spekulativ. " 1 "Skatten blir utregnet av overskuddet ditt minus gull. " 1 "NIDAR A.S","ADRESSA","NOB0 FAB.","NORVING","GRAND HOT.","DnC","GULL","BERGESEN","MYCRON","H & M","MOELVEN","NEBB","BIK BOK","TIKI DATA","DATASHIP","POLAR" 1 "Man kan plassere sine verdier i 5 aksjeselskaper,gull eller sette pengene i banken. " 1 "Dine disposisjoner paavirker kursene. " 1 "DATAMASKIN FEIL","STREIK ","UNDERSLAG","DAARLIG LEDELSE","DAARLIG SALG","SPEKULASJON" 1 "B0RS BIL" 1 "ANTALL SPILLERE (1..4) ? "; 1 "ANTALL SPILLERE ";(playersnr)," OK ?"; 1 " HAR GOD INNTJENING."," HAR 0KT PRODUKTIVITET."," HAR GOD LIKVIDITET."," HAR FAST UTVIKLING."," HAR GOD LEDELSE." 1 " ANTALL ? "; 1 " Spillet gaar ut paa aa skaffe seg storst mulig overskudd ved aksje- og gullspekulasjon.": 1 " Opptil 4 kan delta. " 1 NESS DATA 1987 1 FRANK TORE NESS 1987 ALL RIGHTS RESERVED. ADRESSE NESS DATA ALF GODAGERSV.1B 7081 SJETNHAUGAN TELEFON (07) 88 58 03 ********************** 1 ****************** TRONDHEIM B0RS LOADER!! ****************** 1 --FAKTOR-- 1 -- --