home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 169 / 169.d81 / b.anth-flag (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  190 lines
  1. 10 poke56,51:clr:poke53281,0:poke53280,0:poke53371,0
  2. 20 dv=peek(186):ifdv<8thendv=8
  3. 30 print"[147]":gosub60000
  4. 32 tq=ti
  5. 34 ifti<tq+100then34
  6. 40 dimw$(108),f$(250)
  7. 50 un=54*256:hg=un+3:sr=205*256:sq=sr+6:id=52*256:cm=14160:in=51*256
  8. 52 sys57812"anth 3300-3799",dv,0:poke780,0:poke781,0:poke782,51:sys65493
  9. 54 sys57812"anth-flag.shp",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  10. 56 print"[147]":poke251,64:poke252,96:poke253,80:sysun
  11. 57 tq=ti
  12. 58 poke252,96:poke253,80:syshg
  13. 60 sys57812"anth font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  14. 80 sys57812"anth c000-cf5f",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  15. 82 ifti<tq+100then82
  16. 90 fs$="[129][193][206][212][200][197][205][211] [193][206][196] [198][204][193][199][211]"
  17. 100 sp$="                                      "
  18. 110 syssr,96,76,56
  19. 120 tp$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  20. 130 bt$="[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]"
  21. 132 bl$="                                 "
  22. 140 sysid,"$:c.*",dv,0
  23. 142 nf=peek(251)+256*peek(252)-1
  24. 150 syshg
  25. 210 goto600
  26. 220 :
  27. 230 :rem box
  28. 240 :
  29. 250 poke214,y:print
  30. 260 printtab(x)"[176]"left$(tp$,xx)"[174]"
  31. 262 printtab(x)"[170]["left$(sp$,xx-2)"][180]"
  32. 270 forii=2toyy:printtab(x)"[170]"left$(sp$,xx)"[180]":next
  33. 272 printtab(x+1)"[145]<"tab(x+xx)">"
  34. 280 printtab(x)"[173]"left$(bt$,xx)"[189]"
  35. 290 return
  36. 300 :
  37. 310 :rem setup pic/mus/txt
  38. 320 :
  39. 330 sys57812f$(s+p*16),dv,0:poke780,0:poke781,248:poke782,63:sys65493
  40. 332 m1=peek(16378)+256*peek(16379)
  41. 334 m2=peek(16380)+256*peek(16381)
  42. 336 m3=peek(16382)+256*peek(16383)
  43. 338 pokem3-1,42:pokem3,13:pokem3+1,0
  44. 340 w$(4)=""
  45. 348 fori=0to105
  46. 350 w$(i)="":sysin,m2,i:w$(i)=w$
  47. 352 ifw$="*"thenh=i-1:i=105
  48. 354 next
  49. 356 fori=h+1toh+4:w$(i)="":next
  50. 360 syscm,m1,128*256,m2-m1
  51. 430 return
  52. 440 :
  53. 450 :rem display/play
  54. 460 :
  55. 470 poke251,64:poke252,96:poke253,76:sysun
  56. 480 poke252,96:poke253,76:syshg
  57. 482 poke53280,peek(16377)
  58. 490 sys49615:poke781,0:poke782,128:sys49664:poke49152,7:mu=1
  59. 500 return
  60. 510 :
  61. 520 :rem turn off pic/mus
  62. 530 :
  63. 540 poke49152,0:poke54276,0:poke54283,0:poke54290,0:sys49897:sys49935:mu=0
  64. 550 syshg
  65. 560 return
  66. 570 :
  67. 580 :rem loop
  68. 590 :
  69. 600 s=1
  70. 610 print"[147]":poke53272,31
  71. 612 gosub880:rem menu
  72. 614 iff2thenf2=0:sysid,"$:c.*",dv,0:nf=peek(251)+256*peek(252)-1:goto612
  73. 616 syscm,1024,152*256,1000:syscm,55296,156*256,1000
  74. 620 poke214,18:print:fori=0to4:printbl$:next
  75. 622 poke214,19:print
  76. 624 iff1thenprinttab(4)"space [154] next song  q [154] quit to menu":goto628
  77. 626 printtab(12)"space [154] stop song
  78. 628 [153][163]7)"contuse crsr keys to page text
  79. 630 gosub330:rem load/setup
  80. 632 n=0
  81. 640 gosub470:rem  display/play
  82. 650 syssq-3,"[144][159]"
  83. 660 ifpeek(16376)thensyssq-3,"[159]"
  84. 670 fori=0to4:syssq,1,20+i,sp$:next
  85. 680 fori=0to4
  86. 690 iflen(w$(n+i))<3then710
  87. 700 syssq,20-int((len(w$(n+i))/2)),20+i,w$(n+i)
  88. 710 next
  89. 720 syssq-3,"[146]"
  90. 730 ifpeek(49152)<>7thena$=" ":goto828
  91. 740 geta$:ifa$=""then730
  92. 742 iff1thenifa$="q"thenf1=0:g=0:gosub540:goto612
  93. 750 ifa$<>""then790
  94. 760 ifn>=h-5then730
  95. 770 n=n+5
  96. 780 goto660
  97. 790 ifa$<>""then830
  98. 800 ifn<2then730
  99. 810 n=n-5
  100. 820 goto660
  101. 828 ifa$<>" "then730
  102. 830 gosub540
  103. 832 iff1thens=s+1:ifs+p*16>nfthens=0
  104. 834 syscm,152*256,1024,1000:syscm,156*256,55296,1000
  105. 838 goto612
  106. 840 goto730
  107. 850 :
  108. 860 :rem menu screen
  109. 870 :
  110. 880 poke53281,0:poke53280,0
  111. 882 ifs=0thens=1:f1=0:goto1050
  112. 890 ifg=1then1050
  113. 910 g=1:print"[153]":x=2:xx=35:y=0:yy=22:gosub250
  114. 920 print"[129]"tab(10)"[176][192][192][174]           [176][192][192][174]
  115. 930 [153][163]10)"-tantan<sysnthems andfor -tan<syslags
  116. 940 printtab(10)"[129][189]  [173][192][192][192][192][192][192]    [192][189]
  117. 950 [153][163]13)"ontantantantan^  or
  118. 960 printtab(13)"[158]of the[129] [221][176][174][221][158]orld
  119. 970 [153][163]13)"for       /exp/exp
  120. 972 print"[149][221][160][220][160]"tab(33)"[146][149][221][160][220][160]"
  121. 974 print"[149][221][159][160][188][160]"tab(33)"[146][149][221][160][188][160]"
  122. 976 print"[149][221]"tab(33)"[221]"
  123. 978 print"[149][221]"tab(33)"[221]"
  124. 980 p=0
  125. 984 poke214,8:print
  126. 986 fori=0to7:printbl$:next
  127. 988 poke214,8:print
  128. 990 fori=1to8:printtab(4)""chr$(i+64);
  129. 1000 printtab(6)"[154]"mid$(f$(i+p*16),3);
  130. 1010 printtab(21)""chr$(i+72);
  131. 1020 printtab(23)"[154]"mid$(f$(i+8+p*16),3):next
  132. 1022 print""bl$"[145]":printtab(14)"page[158]"p+1"of[158]"int((nf-1)/16)+1
  133. 1028 ifnf>16thenprinttab(9)"+ [154]page up  - [154]page down"
  134. 1030 poke214,19:print
  135. 1032 printtab(9)"r  [154]'round the world
  136. 1040 [153][163]9)"q  contquit
  137. 1042 printtab(9)"s  [154]swap disk
  138. 1050 [139]f1[167][161]a$:[139]a$[178]""[167][142]
  139. 1058 [151]198,0
  140. 1060 [161]a$:[139]a$[178]""[167]1060
  141. 1070 [139]a$[179][177]"r"[167]1100
  142. 1080 f1[178]1:s[178]1
  143. 1090 [142]
  144. 1100 [139]a$[178]"q"[167][141]39900:[137]1040
  145. 1110 [139]a$[179]"a"[176]a$[177]"p"[167]1140
  146. 1120 s[178][198](a$)[171]64:f1[178]0
  147. 1122 [139]f$(s[170]p[172]16)[178]""[167]1060
  148. 1130 [142]
  149. 1140 [139]a$[179][177]"+"[167]1160
  150. 1150 p[178]p[170]1:[139]p[172]16[178][177]nf[167]p[178]p[171]1
  151. 1156 [137]984
  152. 1160 [139]a$[179][177]"-"[167]1180
  153. 1170 p[178]p[171]1:[139]p[178][179]0[167]p[178]0
  154. 1176 [137]984
  155. 1180 [139]a$[179][177]"s"[167]1060
  156. 1182 [151]214,18:[153]:[129]i[178]0[164]4:[153]bl$:[130]
  157. 1184 [151]214,19:[153]
  158. 1186 [153]"      insert disk in drive"dv"
  159. 1187 print"           press space.
  160. 1188 [151]198,0
  161. 1190 [161]a$:[139]a$[179][177]" "[167]1190
  162. 1192 f2[178]1:g[178]0:[142]
  163. 10000 d[178][194](186):n$[178]"b.anth-flag":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  164. 39900 [151]214,20:[153]:[153][163]16)"cont? are you sure? (ycont/ncont)on"
  165. 39910 [161]a$:[139]a$[178]""[167]39910
  166. 39920 [139]a$[178]"y"[167]40000
  167. 39930 [153][163]16)"cont                     on"
  168. 39940 [142]
  169. 40000 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
  170. 40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
  171. 40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  172. 40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
  173. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  174. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  175. 40060 [130]:[142]
  176. 40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  177. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  178. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  179. 60000 [153]"load":z$[178]" print#                                      ":[151]214,10:[153]
  180. 60010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]11:[153]z$:[130]
  181. 60020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  182. 60030 z$(0)[178]"atn(NULL)(NULL)left$val(NULL)(NULL) atn(NULL)str$ asc(NULL)atnchr$(NULL) (NULL)asc (NULL)left$val (NULL)(NULL)(NULL)(NULL)str$"
  183. 60032 z$(2)[178]"by (NULL)arquis, left$arned and (NULL)ucker"
  184. 60040 z$(4)[178]"(len) 1998 by mid$ & asc (NULL)ublishing, right$nc.
  185. 60050 z$(6)="[212]his program is not shareware
  186. 60070 z$(7)[178]"or in the public domain."
  187. 60080 z$(9)[178]"1-800-594-3370 or 1-318-221-8718"
  188. 60090 [151]214,12:[153]
  189. 60100 [129]i[178]0[164]9:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  190.