home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 99 / 099.d81 / profiler (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  93 lines
  1. 100 rem ******************************
  2. 110 rem  profile - (c) copyright 1990
  3. 120 rem         by rick nash
  4. 130 rem     all rights reserved.
  5. 140 rem ******************************
  6. 150 rem
  7. 160 rem
  8. 170 printchr$(14):flag=0
  9. 180 n=36864:ifpeek(n)=76andpeek(n+3)=76andpeek(n+8)=169thenbase=n:goto290
  10. 190 n=49152:ifpeek(n)=76andpeek(n+3)=76andpeek(n+8)=169thenbase=n:goto290
  11. 200 print"[147]   [208]rofile information was not found.   "
  12. 210 print"   [217]ou must run ([204]/[200])-[208][210][207][198][201][204][197] first!":end
  13. 220 tq%=a%(0):sys(peek(71)+peek(72)*256):return
  14. 230 print#2,right$("     "+mid$(str$(ln),2),5);sp$;:return
  15. 240 print#2,"":print#2,"[194]asic [208]rofile                                         ";
  16. 250 print#2,"                [208]age";pg
  17. 260 print#2,"[204]ine#  [195]ount                                   [199]raph"
  18. 270 print#2,"-----------------------------------------------------------------";
  19. 280 print#2,"--------------":pg=pg+1:return
  20. 290 def fndp(n) = peek(n)+peek(n+1)*256
  21. 300 s$="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  22. 310 s$=s$+s$:dima%(6),tq%
  23. 320 fori=0to5:reada%(i):next
  24. 330 cc(0)=108:cc(1)=123:cc(2)=126:cc(3)=124:xc=0
  25. 340 poke53280,0:poke53281,0:printchr$(147)chr$(14)
  26. 350 print""tab(10)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  27. 360 printtab(10)"[153]                    "
  28. 370 printtab(10)"   [194][193][211][201][195] [208][210][207][198][201][204][197][210]   "
  29. 380 printtab(10)"      (c) 1992      "
  30. 390 printtab(10)"    [194]y [210]ick [206]ash    "
  31. 400 printtab(10)"                    "
  32. 410 printtab(10)"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  33. 420 ifflag=1then550
  34. 430 print""tab(14)"[215]orking...."
  35. 440 nm=fndp(base+6):min=65535:max=0:ad=base+850
  36. 450 ifnm=0then200
  37. 460 poke55801,5
  38. 470 fori=0tonm
  39. 480 : ct=fndp(ad)
  40. 490 : ifct < min then min=ct
  41. 500 : ifct > max then max=ct
  42. 510 : ad = ad + 4
  43. 520 : poke1529,cc(xc)
  44. 530 : xc=(xc+1)and3
  45. 540 next
  46. 550 poke198,0
  47. 560 print"[153]   ([211])creen, ([208])rinter or ([209])uit?      [157][157][157][157]";
  48. 570 geta$:ifa$<>"s"anda$<>"p"anda$<>"q"then570
  49. 590 ifa$="s" then a$="[211]"
  50. 600 ifa$="p" then a$="[208]"
  51. 610 ifa$="q"ora$="[209]"thenprint:goto1010
  52. 620 ifa$="[208]"thendv=4:ll=58:sz=66:sp$="  ":goto650
  53. 630 ifa$="[211]"then dv=3:ll=22:sz=27:sp$=" ":goto650
  54. 640 goto560
  55. 650 nrm = (sz/(max-min)):flag=1
  56. 660 ifdv=3then open2,dv
  57. 670 ifdv<>4then720
  58. 680 open2,dv,7:pg=1
  59. 690 print:print"[208]repare printer, then press a key..."
  60. 700 poke198,0:wait198,1:poke198,0
  61. 710 gosub240:goto740
  62. 720 print"[147][204]ine# [195]ount           [199]raph"
  63. 730 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  64. 740 ad=base+848:lc=0
  65. 750 fori=0tonm
  66. 760 : ln=fndp(ad)
  67. 770 : ct=fndp(ad+2)
  68. 780 : gosub230
  69. 790 : ln=ct:gosub230
  70. 800 : print#2,""left$(s$,int(ct*nrm))
  71. 810 : ad=ad+4:lc=lc+1
  72. 820 : iflc<>llthen930
  73. 830 : ifdv=3then890
  74. 840 : forj=1to4
  75. 850 :   print#2,""
  76. 860 : next
  77. 870 : lc=0:gosub240
  78. 880 : goto930
  79. 890 : print"    [208]ress any key to ";
  80. 900 : print"continue...";
  81. 910 : poke198,0:wait198,1:poke198,0
  82. 920 : lc=0:gosub220:print"";
  83. 930 next
  84. 940 print""tab(13)"[193]gain? (y/n) ";
  85. 950 poke56282,5
  86. 960 : poke2010,cc(xc)
  87. 970 : xc=(xc+1)and3
  88. 980 geta$:ifa$=""then960
  89. 990 printa$;
  90. 1000 ifa$="y"ora$="[217]"thenclose1:close2:run
  91. 1010 close1:close2:end
  92. 1020 data -24062,8447,-5656,-8167,-28424,24576
  93.