home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 173 / 173.d81 / b.picaloger (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1998-01-01  |  4.2 KB  |  171 lines
  1. 10 poke56,48:poke55,0:clr:poke53281,0:poke53280,0:poke53371,0:poke788,49:tq=ti
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 30 dimf$(297)
  4. 32 gosub60000
  5. 40 poke53281,0:poke53280,0:print""
  6. 50 sys57812"pica font",dv,0:poke780,0:poke781,0:poke782,48:sys65493
  7. 60 sys57812"pica ml hi",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  8. 70 sys57812"pica ml lo",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  9. 80 ifti<tq+100then80
  10. 90 poke788,52
  11. 100 id=56*256:dr=58*256:ss=59*256:cm=14976:poke14865,dv
  12. 102 syscm,48*256,60*256,1024
  13. 110 close15:open15,dv,15,"i0":close15
  14. 120 sysid,"$0:*",dv,0
  15. 130 nt=peek(251)+256*peek(252)-1
  16. 140 np=0:fori=1tont:ifright$(f$(i),4)=".shp"thennp=np+1
  17. 150 next
  18. 160 hz$="[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]"
  19. 170 tz$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  20. 180 bz$="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  21. 190 sp$="                                                                    "
  22. 200 tg$(0)="[159][207][198][198]":tg$(1)="[159][207][206] "
  23. 210 sc=204*256:syssc,96,92,48
  24. 230 goto410
  25. 240 :
  26. 250 :rem bottom box
  27. 260 :
  28. 270 x=1:y=18:xx=36:yy=3:gosub330
  29. 280 poke214,20:print"[159]":printtab(21-len(q$)/2)q$
  30. 290 return
  31. 300 :
  32. 310 :rem box routine
  33. 320 :
  34. 330 poke214,y:print
  35. 340 printtab(x)"[176]"left$(hz$,xx)"[174]"
  36. 350 fori=1toyy:printtab(x)"[221]"left$(sp$,xx)"[221]":next
  37. 360 printtab(x)"[173]"left$(hz$,xx)"[189]"
  38. 370 return
  39. 380 :
  40. 390 :rem menu
  41. 400 :
  42. 410 print"[147]":poke53272,29:x=1:y=0:xx=36:yy=3:gosub330
  43. 420 print"[129][176][192][192][174] [178] [176][192][192][174][176][192][192][174] [174]   [176][192][192][174][176][192][192][174][176][192][192][174][176][192][192][174]
  44. 430 [153]"-tantanexp (NULL) (NULL)   -tantan< (NULL)   (NULL)  (NULL)(NULL)ortan^-tan< -=tanexp
  45. 440 print"[177]    [177] [173][192][192][189][189]  [173] [173][192][192][189][173][192][192][189][173][192][192][189][173][192][192][189][189][173][192][189]"
  46. 450 x=6:y=5:xx=26:yy=11:gosub330
  47. 460 poke214,7:print
  48. 470 printtab(9)"1[154] [196]irectory"
  49. 480 printtab(9)"2[154] [206]ew [196]isk"
  50. 490 printtab(9)"3[154] [208]rint '.shp' files"
  51. 500 printtab(9)"4[154] [212]itler is "tg$(tg)
  52. 510 printtab(9)"5[154] [209]uit[155]"
  53. 520 q$="[154].[211][200][208] files:[155]"+str$(np)+"[154]   [208]ages:[155]"+str$(int(np/12)+1):gosub270
  54. 530 poke198,0
  55. 540 geta$:ifa$<"1"ora$>"5"then540
  56. 550 a1=val(a$)
  57. 552 sysss,1
  58. 560 ona1goto600,720,850,1380,40000
  59. 570 :
  60. 580 rem dir routine
  61. 590 :
  62. 600 gosub270
  63. 610 q$="[196]isk in drive"+str$(dv)+" - [210][197][212][213][210][206]":gosub270
  64. 620 poke198,0
  65. 630 geta$:ifa$<>chr$(13)then630
  66. 640 print"[147]":poke53272,23:sysdr
  67. 650 poke198,0
  68. 660 geta$:ifa$=""then660
  69. 670 sysss+3,1:poke53272,29
  70. 680 goto530
  71. 690 :
  72. 700 rem new disk
  73. 710 :
  74. 720 x=1:y=18:xx=36:yy=3:gosub330
  75. 730 q$="[196]isk in drive"+str$(dv)+" - [210][197][212][213][210][206]":gosub270
  76. 740 poke198,0
  77. 750 geta$:ifa$<>chr$(13)then750
  78. 760 close15:open15,dv,15,"i0":close15
  79. 770 sysid,"$0:*",dv,0
  80. 780 nt=peek(251)+256*peek(252)-1
  81. 790 np=0:fori=1tont:ifright$(f$(i),4)=".shp"thennp=np+1
  82. 800 next
  83. 810 goto520
  84. 820 :
  85. 830 rem print pics
  86. 840 :
  87. 850 n=1:np=0
  88. 860 q$="[211]et top of form - [210][197][212][213][210][206]":gosub270
  89. 870 poke198,0
  90. 880 geta$:ifa$<>chr$(13)then880
  91. 890 forj=0to3
  92. 900 fork=0to2
  93. 910 ifright$(f$(n),4)=".shp"then940
  94. 920 n=n+1:ifn>ntthenk=2:next:j=3:next:goto1320
  95. 930 goto910
  96. 940 np=np+1
  97. 950 pg=int((np-1)/12)+1:pp=np-(pg-1)*12
  98. 960 x=1:y=18:xx=36:yy=3:gosub330
  99. 970 g$=left$(f$(n),len(f$(n))-4)
  100. 980 poke214,20:print"[159]"
  101. 990 printtab(3)g$tab(18)"[208][201][195]:[155]"pptab(28)"[159][208][193][199][197]:[155]"pg
  102. 1000 sys51328,f$(n),dv,96,92
  103. 1030 poke252,96:poke253,92:sys51459
  104. 1032 md=128:ifpeek(53270)=216thenmd=0
  105. 1037 :
  106. 1038 :rem title routine
  107. 1039 :
  108. 1040 le=len(g$)
  109. 1050 iftg=0then1140
  110. 1052 syssc+3,"[144]"
  111. 1054 ifmd=0thensyscm,52*256,48*256,1024:syssc+3,"[144]"
  112. 1060 syssc+6,38-le,0,"[172]"+left$(tz$,le)+"[187]"
  113. 1070 syssc+6,38-le,1,"[165]"
  114. 1080 fori=1tole:h$=mid$(g$,i,1):h=asc(h$)
  115. 1090 ifh>64andh<91thensyssc+3,chr$(h+128):goto1110
  116. 1100 syssc+3,h$
  117. 1110 next
  118. 1120 syssc+3,"[167]"
  119. 1130 syssc+6,38-le,2,"[188]"+left$(bz$,le)+"[190]"
  120. 1132 ifmd=0thensyscm,60*256,48*256,1024
  121. 1140 sys49155,160*k,3,2,640,md
  122. 1150 :
  123. 1160 :rem printer backup routine
  124. 1170 :
  125. 1180 open4,4,7
  126. 1190 ifk=2thenprint#4,chr$(27)chr$(106)chr$(50):goto1210
  127. 1200 fori=0to11:print#4,chr$(27)chr$(106)chr$(214):next:rem backup
  128. 1210 close4
  129. 1220 :
  130. 1230 geta$
  131. 1240 ifa$="q"thenk=2:next:j=3:next:goto890
  132. 1250 sys51459
  133. 1252 poke53281,0:poke53280,0:sysss+3,1
  134. 1260 n=n+1:ifn>ntthenk=2:next:j=3:next:goto1320
  135. 1270 poke186,dv
  136. 1280 nextk
  137. 1290 nextj
  138. 1300 ifn=nt-1then1320
  139. 1310 goto860
  140. 1320 q$="[196]one!":gosub270
  141. 1322 poke186,dv
  142. 1340 goto530
  143. 1350 :
  144. 1360 :rem toggle titler
  145. 1370 :
  146. 1380 tg=1-tg
  147. 1390 goto460
  148. 1400 :
  149. 10000 d=peek(186):n$="b.picaloger":open15,d,15,"s0:"+n$:close15:saven$,d:end
  150. 40000 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
  151. 40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
  152. 40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
  153. 40030 forj=8to29:i=peek(820+j):ifi=14thennext
  154. 40040 close2:open2,i,2:close2:ifstthen40060
  155. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  156. 40060 next:return
  157. 40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  158. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  159. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  160. 60000 print"[147]":z$=" [152]                                      ":poke214,10:print
  161. 60010 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":fori=0to11:printz$:next
  162. 60020 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  163. 60030 z$(0)="[208] [201] [195] [193] [204] [207] [199] [197] [210]
  164. 60040 z$(2)[178]"by ascender (NULL)ucker
  165. 60050 z$(4)="(c) 1998 by [202] & [198] [208]ublishing, [201]nc."
  166. 60060 z$(6)="[212]his program is not shareware
  167. 60070 z$(7)[178]"or in the public domain."
  168. 60080 z$(9)[178]"1-800-594-3370 or 1-318-221-8718
  169. 60090 poke214,12:print:fori=0to9:printtab(20-(len(z$(i))/2))""z$(i):next:return
  170. 60100 fori=0to6:printtab(20-(len(z$(i))/2))""z$(i):next:return
  171.