10 POKE56,51:CLR:POKE53281,0:POKE53280,0:POKE53371,0
20 DV=PEEK(186):IFDV<8THENDV=8
30 PRINT"[147]":GOSUB60000
32 TQ=TI
34 IFTI<TQ+100THEN34
40 DIMW$(108),F$(250)
50 UN=54*256:HG=UN+3:SR=205*256:SQ=SR+6:ID=52*256:CM=14160:IN=51*256
52 SYS57812"ANTH 3300-3799",DV,0:POKE780,0:POKE781,0:POKE782,51: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
57 TQ=TI
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
82 IFTI<TQ+100THEN82
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]"
132 BL$="                                 "
140 SYSID,"$C.*",DV,0
142 NF=PEEK(251)+256*PEEK(252)-1
150 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 SETUP PIC/MUS/TXT
320 :
330 SYS57812F$(S+P*16),DV,0:POKE780,0:POKE781,248:POKE782,63:SYS65493
332 M1=PEEK(16378)+256*PEEK(16379)
334 M2=PEEK(16380)+256*PEEK(16381)
336 M3=PEEK(16382)+256*PEEK(16383)
338 POKEM3-1,42:POKEM3,13:POKEM3+1,0
340 W$(4)=""
348 FORI=0TO105
350 W$(I)="":SYSIN,M2,I:W$(I)=W$
352 IFW$="*"THENH=I-1:I=105
354 NEXT
356 FORI=H+1TOH+4:W$(I)="":NEXT
360 SYSCM,M1,128*256,M2-M1
430 RETURN
440 :
450 :REM DISPLAY/PLAY
460 :
470 POKE251,64:POKE252,96:POKE253,76:SYSUN
480 POKE252,96:POKE253,76:SYSHG
482 POKE53280,PEEK(16377)
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
612 GOSUB880:REM MENU
614 IFF2THENF2=0:SYSID,"$C.*",DV,0:NF=PEEK(251)+256*PEEK(252)-1:GOTO612
616 SYSCM,1024,152*256,1000:SYSCM,55296,156*256,1000
620 POKE214,18:PRINT:FORI=0TO4:PRINTBL$:NEXT
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 [153][163]7)"CONTUSE CRSR KEYS TO PAGE TEXT
630 GOSUB330:REM LOAD/SETUP
632 N=0
640 GOSUB470:REM  DISPLAY/PLAY
650 SYSSQ-3,"	[144][159]"
660 IFPEEK(16376)THENSYSSQ-3,"	[159]"
670 FORI=0TO4:SYSSQ,1,20+I,SP$:NEXT
680 FORI=0TO4
690 IFLEN(W$(N+I))<3THEN710
700 SYSSQ,20-INT((LEN(W$(N+I))/2)),20+I,W$(N+I)
710 NEXT
720 SYSSQ-3,"[146]"
730 IFPEEK(49152)<>7THENA$=" ":GOTO828
740 GETA$:IFA$=""THEN730
742 IFF1THENIFA$="Q"THENF1=0:G=0:GOSUB540:GOTO612
750 IFA$<>""THEN790
760 IFN>=H-5THEN730
770 N=N+5
780 GOTO660
790 IFA$<>""THEN830
800 IFN<2THEN730
810 N=N-5
820 GOTO660
828 IFA$<>" "THEN730
830 GOSUB540
832 IFF1THENS=S+1:IFS+P*16>NFTHENS=0
834 SYSCM,152*256,1024,1000:SYSCM,156*256,55296,1000
838 GOTO612
840 GOTO730
850 :
860 :REM MENU SCREEN
870 :
880 POKE53281,0:POKE53280,0
882 IFS=0THENS=1:F1=0:GOTO1050
890 IFG=1THEN1050
910 G=1:PRINT"[153]":X=2:XX=35:Y=0:YY=22:GOSUB250
920 PRINT"[129]"TAB(10)"[176][192][192][174]           [176][192][192][174]
930 [153][163]10)"-TANTAN<SYSNTHEMS ANDFOR -TAN<SYSLAGS
940 PRINTTAB(10)"[129][189]  [173][192][192][192][192][192][192]    [192][189]
950 [153][163]13)"ONTANTANTANTAN^  OR
960 PRINTTAB(13)"[158]OF THE[129] [221][176][174][221][158]ORLD
970 [153][163]13)"FOR       /EXP/EXP
972 PRINT"[149][221][160][220][160]"TAB(33)"[146][149][221][160][220][160]"
974 PRINT"[149][221][159][160][188][160]"TAB(33)"[146][149][221][160][188][160]"
976 PRINT"[149][221]"TAB(33)"[221]"
978 PRINT"[149][221]"TAB(33)"[221]"
980 P=0
984 POKE214,8:PRINT
986 FORI=0TO7:PRINTBL$:NEXT
988 POKE214,8:PRINT
990 FORI=1TO8:PRINTTAB(4)""CHR$(I+64);
1000 PRINTTAB(6)"[154]"MID$(F$(I+P*16),3);
1010 PRINTTAB(21)""CHR$(I+72);
1020 PRINTTAB(23)"[154]"MID$(F$(I+8+P*16),3):NEXT
1022 PRINT""BL$"[145]":PRINTTAB(14)"PAGE[158]"P+1"OF[158]"INT((NF-1)/16)+1
1028 IFNF>16THENPRINTTAB(9)"+ [154]PAGE UP  - [154]PAGE DOWN"
1030 POKE214,19:PRINT
1032 PRINTTAB(9)"R  [154]'ROUND THE WORLD
1040 [153][163]9)"Q  CONTQUIT
1042 PRINTTAB(9)"S  [154]SWAP DISK
1050 [139]F1[167][161]A$:[139]A$[178]""[167][142]
1058 [151]198,0
1060 [161]A$:[139]A$[178]""[167]1060
1070 [139]A$[179][177]"R"[167]1100
1080 F1[178]1:S[178]1
1090 [142]
1100 [139]A$[178]"Q"[167][141]39900:[137]1040
1110 [139]A$[179]"A"[176]A$[177]"P"[167]1140
1120 S[178][198](A$)[171]64:F1[178]0
1122 [139]F$(S[170]P[172]16)[178]""[167]1060
1130 [142]
1140 [139]A$[179][177]"+"[167]1160
1150 P[178]P[170]1:[139]P[172]16[178][177]NF[167]P[178]P[171]1
1156 [137]984
1160 [139]A$[179][177]"-"[167]1180
1170 P[178]P[171]1:[139]P[178][179]0[167]P[178]0
1176 [137]984
1180 [139]A$[179][177]"S"[167]1060
1182 [151]214,18:[153]:[129]I[178]0[164]4:[153]BL$:[130]
1184 [151]214,19:[153]
1186 [153]"      INSERT DISK IN DRIVE"DV"
1187 PRINT"           PRESS SPACE.
1188 [151]198,0
1190 [161]A$:[139]A$[179][177]" "[167]1190
1192 F2[178]1:G[178]0:[142]
10000 D[178][194](186):N$[178]"B.ANTH-FLAG":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128]
39900 [151]214,20:[153]:[153][163]16)"CONT? ARE YOU SURE? (YCONT/NCONT)ON"
39910 [161]A$:[139]A$[178]""[167]39910
39920 [139]A$[178]"Y"[167]40000
39930 [153][163]16)"CONT                     ON"
39940 [142]
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
40010 A$[178]"PRESENTER":[141]40030:A$[178]"HELLO CONNECT":[141]40030
40020 [153]"LOAD":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
40030 [129]J[178]8[164]29:I[178][194](820[170]J):[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]:[142]
40070 A$[178]"HELLO CONNECT":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]
40100 [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
40110 [153]"P(null)53272,23: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]11:[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$(2)[178]"BY (null)ARQUIS, LEFT$ARNED AND (null)UCKER"
60040 Z$(4)[178]"(LEN) 1998 BY MID$ & ASC (null)UBLISHING, RIGHT$NC.
60050 Z$(6)="[212]HIS PROGRAM IS NOT SHAREWARE
60070 Z$(7)[178]"OR IN THE PUBLIC DOMAIN."
60080 Z$(9)[178]"1-800-594-3370 OR 1-318-221-8718"
60090 [151]214,12:[153]
60100 [129]I[178]0[164]9:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]