home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 133
/
133.d81
/
b.anth_flag
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
5KB
|
170 lines
10 poke52,52:poke56,52:clr:poke53281,0:poke53280,0
20 dv=peek(186):ifdv<8thendv=8
30 print"[147]":gosub60000
40 dimw$(100),b(15),s$(17),m$(17),t$(17),mc(17),br(17)
50 unpack=13824:hg=13827:sr=52480:sq=52486:g=49153:ip=13312
52 sys57812"anth 3400-3747",dv,0:poke780,0:poke781,0:poke782,52:sys65493
54 sys57812"anth/flag.shp",dv,0:poke780,0:poke781,0:poke782,64:sys65493
56 print"[147]":poke251,64:poke252,96:poke253,80:sysun
58 poke252,96:poke253,80:syshg
60 sys57812"anth font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
80 sys57812"anth c000-cf5f",dv,0:poke780,0:poke781,0:poke782,192:sys65493
90 fs$="[129][193][206][212][200][197][205][211] [193][206][196] [198][204][193][199][211]"
100 sp$=" "
110 syssr,96,76,56
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]"
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]"
140 fori=0to15:reads$:s$(i)=s$+".shp":m$(i)=s$+".mus":t$(i)=s$+".txt"
150 readmc(i),br(i):next
151 dataafghanistan,0,6
152 dataalbania,0,6
153 dataalgeria,0,6
154 dataandorra,0,5
155 dataargentina,0,6
156 dataaustralia,1,14
157 dataaustria,0,6
158 databahamas,0,5
159 databahrain,0,5
160 databangladesh,0,6
161 databarbados,0,5
162 databelgium,0,5
163 databelize,0,5
164 databenin,0,6
165 databhutan,1,14
166 databolivia,0,6
200 syshg
210 goto600
220 :
230 :rem box
240 :
250 poke214,y:print
260 printtab(x)"[176]"left$(tp$,xx)"[174]"
262 printtab(x)"[170]["left$(sp$,xx-2)"][180]"
270 forii=2toyy:printtab(x)"[170]"left$(sp$,xx)"[180]":next
272 printtab(x+1)"[145]<"tab(x+xx)">"
280 printtab(x)"[173]"left$(bt$,xx)"[189]"
290 return
300 :
310 :rem load pic/mus/txt
320 :
330 poke214,20:print:printtab(14)"[155][204]oading [208]icture[145]"
340 sys57812s$(s),dv,0:poke780,0:poke781,0:poke782,64:sys65493
350 printtab(22)"[205]usic [145]"
360 sys57812m$(s),dv,0:poke780,0:poke781,0:poke782,128:sys65493
370 printtab(22)"[215]ords [145]"
380 fori=0to50:w$(i)="":next
390 sys13312,t$(s),dv
400 h=peek(252)*256+peek(251)
410 w$(0)=mid$(w$(0),3)
420 printtab(14)" "
430 return
440 :
450 :rem display/play
460 :
470 poke251,64:poke252,96:poke253,76:sysun
480 poke252,96:poke253,76:syshg
490 sys49615:poke781,0:poke782,128:sys49664:poke49152,7:mu=1
500 return
510 :
520 :rem turn off pic/mus
530 :
540 poke49152,0:poke54276,0:poke54283,0:poke54290,0:sys49897:sys49935:mu=0
550 syshg
560 return
570 :
580 :rem loop
590 :
600 s=1
610 print"[147]":poke53272,31
620 gosub880
622 poke214,19:print
624 iff1thenprinttab(4)"space [154] next song q [154] quit to menu":goto628
626 printtab(12)"space [154] stop song
628 [141]330
630 n[178]0
640 [141]470:[151]53280,br(s)
650 [158]sq[171]3,"stopopen"
660 [139]mc(s)[167][158]sq[171]3,"stop"
670 [129]i[178]0[164]4:[158]sq,1,20[170]i,[200](sp$,38):[130]
680 [129]i[178]0[164]4
690 [139][195](w$(n[170]i))[179]3[167]710
700 [158]sq,20[171][181](([195](w$(n[170]i))[173]2)),20[170]i,w$(n[170]i)
710 [130]
720 [158]sq[171]3,"wait"
730 [139][194](49152)[179][177]7[167]a$[178]" ":[137]830
740 jv[178][194](56320):[161]a$:[139]a$[178]""[175](jv[178]127)[167]730
742 [139]f1[167][139]a$[178]"q"[167]f1[178]0:[141]540:[137]620
750 [139]a$[179][177]""[175](jv[179][177]126)[167]790
760 [139]n[177][178]h[171]5[167]730
770 n[178]n[170]5
780 [137]660
790 [139]a$[179][177]""[175](jv[179][177]125)[167]830
800 [139]n[179]2[167]730
810 n[178]n[171]5
820 [137]660
830 [139]a$[178]" "[176]jv[179]112[167][141]540:s[178](s[170]1)[175]15:[137]620
840 [137]730
850 :
860 :[143] menu screen
870 :
880 [151]53281,0:[151]53280,0
882 [139]s[178]0[167]s[178]1:f1[178]0:[137]1050
890 [139](g[178]1)[175](mc(s[171]1)[178]0)[175](f1[178]1)[167]1050
900 [139](g[178]1)[175](mc(s[171]1)[178]0)[175](f1[178]0)[167]1050
910 g[178]1:[153]"load":x[178]2:xx[178]35:y[178]0:yy[178]21:[141]250
920 [153]"for"[163]10)"ortantan^ ortantan^
930 printtab(10)"[171][192][192][179][158]nthems and[129] [171][192][179][158]lags
940 [153][163]10)"forexp /tantantantantantan tanexp
950 printtab(13)"[145][192][192][192][192][174] [176]
960 [153][163]13)"sysof thefor (NULL)or^(NULL)sysorld
970 printtab(13)"[129] [173][189][173][189]
972 [153]"verify(NULL)close(NULL)close"[163]33)"waitverify(NULL)close(NULL)close"
974 [153]"verify(NULL)opencloselogclose"[163]33)"waitverify(NULL)closelogclose"
976 [153]"verify(NULL)"[163]33)"(NULL)"
978 [153]"verify(NULL)"[163]33)"(NULL)"
980 [151]214,8:[153]
990 [129]i[178]0[164]7:[153][163]6)""[199](i[170]65);
1000 [153][163]9)"cont"[200](s$(i),[195](s$(i))[171]4);
1010 [153][163]22)""[199](i[170]73);
1020 [153][163]25)"cont"[200](s$(i[170]8),[195](s$(i[170]8))[171]4):[130]
1030 [153][163]12)"r cont'round the world
1040 printtab(12)"q [154]quit
1050 [139]f1[167][161]a$:[139]a$[178]""[167][142]
1052 [151]214,19:[153]:[153]" "
1060 [161]a$:[139]a$[178]""[167]1060
1070 [139]a$[179][177]"r"[167]1100
1080 f1[178]1:s[178]0
1090 [142]
1100 [139]a$[178]"q"[167][141]39900:[137]1040
1110 [139]a$[179]"a"[176]a$[177]"p"[167]1060
1120 s[178][198](a$)[171]65:f1[178]0
1130 [142]
10000 dv[178][194](186):n$[178]"b.anth/flag":[159]15,dv,15,"s0:"[170]n$:[160]15:[148]n$,dv:[128]
39900 [151]214,18:[153]:[153][163]8)"contquit? are you sure? (ycont/ncont)on"
39910 [161]a$:[139]a$[178]""[167]39910
39920 [139]a$[178]"y"[167]40000
39930 [153][163]8)"cont on"
39940 [142]
40000 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
40010 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]40030
40020 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
40030 a$[178]"hello connect":[129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
40060 [130]:[153]"load":[151]53272,23:[151]186,8:[128]
40070 q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
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
40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
60000 [153]"load":z$[178]" print# ":[151]214,10:[153]
60010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]9:[153]z$:[130]
60020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
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$"
60032 z$(1)[178]"by (NULL)arquis, left$arned and (NULL)ucker"
60040 z$(2)[178]"(len) 1995 by (NULL)oftdisk (NULL)ublishing"[170][199](13)
60050 z$(3)[178]"(NULL)his program is the copyrighted work
60060 z$(4)="of [211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199]. [201]t is not"
60070 z$(5)="shareware or in the public domain."
60080 z$(6)="[212]o subscribe call 1-800-594-3370."
60090 poke214,12:print
60100 fori=0to6:printtab(20-(len(z$(i))/2))""z$(i):next:return