home *** CD-ROM | disk | FTP | other *** search
/ Bild Zeitung 6 / Bild_Zeitung_6_1991-07_Bild_Zeitung_Staff_X-Ray.d64 / -apbas (.txt) next >
Commodore BASIC  |  2023-02-26  |  3KB  |  49 lines
  1. 10 poke52,32:poke54,32:poke56,32:poke51,00:poke53,00:poke55,00:clr:a1=peek(820):a3=peek(846):a5=peek(823):b1=peek(824):b2=peek(825):b3=peek(834):b4=peek(835):b5=peek(838):b6=peek(839):c1=peek(832):c2=peek(833):c3=peek(836):c4=peek(837)
  2. 24 d1=peek(840):d2=peek(860):d3=peek(861):d4=peek(862):d5=peek(863):e1=peek(850):e2=peek(851):e3=peek(853):e4=peek(854):e5=peek(852):c=100:w=59:nv=17:dimc$(17),d(17):poke53280,0:poke53281,0:printchr$(14)"[147]";:goto43
  3. 41 a$=str$(x)+".0":printtab(33)mid$(a$,2,3)" %":return
  4. 42 printtab(32)right$(m$,2)"'"mid$(s$,2,2):return
  5. 43 ifb1>wthenb1=w
  6. 44 ifc3>wthenc3=w
  7. 45 ife1>wthene1=w
  8. 46 ife3>wthene3=w
  9. 47 ifb5>wthenb5=w
  10. 50 print"[146][159]REPORT TOTAL MISSION":print"[154][211][212][193][210][212] [210][197][208][207][210][212]":print"  [156]calculate error of start";:x=a1/6:gosub41:print"  ignition error";:x=a3/20:gosub41:print"[154][198][201][206][193][204][160][193][195][195][197][204][197][210][193][212][201][207][206]":print"  [156]ignition error";:x=a5/5:gosub41
  11. 110 print"[154]DOCKING[160]REPORT":print"  [156]total time";:m$=str$(b2):s$=str$(b1):gosub42:print"[154]COURSE[160]CORRECTIONS[160]REPORT":print"  [156]total time";:m$=str$(c4):s$=str$(c3):gosub42:print"  horizontal error";tab(32)c1"[157].0 %":print"  vertical error";tab(32)c2"[157].0 %"
  12. 170 print"[154][204][213][206][193][210][160][204][193][206][196][201][206][199][160][210][197][208][207][210][212]":a$=str$(d1):print"  [156]impact velocity"tab(36-len(a$));a$:print"  damage to craft                0.0 %":print"          [154]- press any key -";:poke198,0:wait198,1:poke198,0
  13. 220 printchr$(14)"[147]";:print"[146][154][197][216][212][210][193][160][214][197][200][201][195][213][204][193][210][160][193][195][212][201][214][201][212][217] [210][197][208][207][210][212]":print"  [156]excursion length";:m$=str$(e2):s$=str$(e1):gosub42:print"  flag";:ifd2thenprinttab(33)"yes":goto260
  14. 251 printtab(34)"no"
  15. 260 print"  tools";:ifd3thenprinttab(33)"yes":goto270
  16. 261 printtab(34)"no":a$=str$(d4)
  17. 270 print"  minerals";tab(36-len(a$));a$:d5=d5/2:a$=str$(d5):print"  photos";tab(36-len(a$));a$:fori=25592to25597:w=peek(i):ifw<>219thendd=dd+1
  18. 282 next:a$=str$(dd):print"  his photos"tab(36-len(a$));a$:print"[154][210][197][211][212][193][210][212][160][207][198][160][204][213][206][193][210][160][205][207][196][213][204][197]":a$=str$(e5):print"  [156]attempts"tab(36-len(a$));a$:print"[154]DOCKING[160]REPORT":print"  [156]total time";:m$=str$(e4):s$=str$(e3):gosub42:print"[154]COURSE[160]CORRECTIONS[160]REPORT"
  19. 350 print"  [156]total time";:m$=str$(b6):s$=str$(b5):gosub42:print"  horizontal error";tab(32)b3"[157].0 %":c1=c1+1:c2=c2+1:b3=b3+1:b4=b4+1:print"  vertical error";tab(32)b4"[157].0 %":pv=((e2*60)+e1)*10:ifpv>3000thenpv=3000
  20. 372 pv=pv+(c/e5)+(c/a1)+(c/a3)+(c/a5)+(c/b4)+(c/d1):pv=pv+(300/((b2*60)+b1))+(300/((c4*60)+c3))+(300/((b6*60)+b5)):ifd2thenpv=pv+50
  21. 375 ifd3thenpv=pv+60
  22. 376 pv=pv+(d4*15)+(d5*15)+(dd*10):pt=int(pv):pv=pt:print"[159][198][201][206][193][204][160][205][201][211][211][201][207][206][160][212][207][212][193][204]"tab(28)pt:print"          [154]- press any key -";:poke198,0:wait198,1:poke198,0:ifst<>64then1060
  23. 420 print"[147][158]";chr$(14);chr$(8);tab(12)"[212][207][208][160][208][197][210][198][207][210][205][193][206][195][197][211]":print"[159]";tab(13)"pilot";tab(23)"score":print"":poke53280,0:poke53281,0:open15,8,15:close15:l=st:ifl<>0then490
  24. 460 open8,8,8,"scores,u,r":open15,8,15:input#15,l:ifl=0then510
  25. 490 fori=1to16:c$(i)="-    [164][164][164][164][164][164][164][164][164][164][164]":next:goto540
  26. 510 fori=1to16:input#8,c$(i):next
  27. 540 close8:close15:gosub870:a=val(c$(16)):ifpv<=athen1030
  28. 580 printtab(10)"[158]jour name is ? ";
  29. 590 poke204,0:poke646,1:geta$:ifa$=""then590
  30. 620 ifa$<>chr$(13)anda$<>chr$(20)anda$>chr$(31)anda$<chr$(96)thenf$=f$+a$
  31. 630 poke204,1:iff$>""thenprinta$;
  32. 650 ifa$=chr$(20)andf$>""thenf$=left$(f$,len(f$)-1)
  33. 660 ifa$<>chr$(13)andlen(f$)<12then590
  34. 670 iflen(f$)=12thenprint
  35. 680 poke198,0:print:printtab(10)"[145][145]                              ":poke646,5:a$=mid$(str$(pv),2,5):c$(17)=a$+"     ":c$(17)=left$(c$(17),5):f$=f$+"[164][164][164][164][164][164][164][164][164][164][164]":c$(17)=c$(17)+left$(f$,11):d=int(nv/2)
  36. 760 p=nv-d
  37. 770 f=0:fori=1top:d(i)=val(c$(i)):ifd(i)<val(c$(i+d))thenf=1:a$=c$(i):c$(i)=c$(i+d):c$(i+d)=a$
  38. 810 next:iffthenp=p-d:goto770
  39. 830 d=int(d/2):ifdthen760
  40. 850 gosub870:gosub950:goto1040
  41. 870 print"":fori=1to9:printtab(10)i:next:fori=10to16:printtab(9)i:next:print"":fori=1to16:printtab(13);right$(c$(i),11):next:print"":fori=1to16:printtab(25);left$(c$(i),5):next:return
  42. 950 ifl=-128thenreturn
  43. 960 open15,8,15,"s:scores":open8,8,8,"scores,u,w":fori=1to16:print#8,c$(i):next:input#15,l,a$:close15:close8:poke198,0:ifl=0then1040
  44. 1030 printa$
  45. 1040 printtab(7)"[158]   [193]nother mission ?"
  46. 1050 geta$:ifa$<>"y"anda$<>"n"then1050
  47. 1060 ifa$="y"thensys49792
  48. 1070 sys64738
  49.