@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr   -MAINMODE ;AB,;@a,". PAGE SIX.$&GG162,16,169,}1,157,72,3,169,0,157,73,3,32,86,228,48,1,96,104,104,96(! #A!-A6AV* " , .GG6.=h01}eeAO ݩ֩N`0@@6.6hBDEHI  <2OO67}@U,.<    ĩ4OO67A,.:AU, }:QQ67A),.>`RɥPee`/ee<GG67A,.4(ee }eeB+@%@D!6-?:C:,,!@eF//@@D:FIREPLAC.P }ICH6-?:C:,,J@L%D:GENTLMEN.MUS D:CHRISTMAS iLm>j FL ~Jjjjii p qEhJ DO NOT RENUMBER THIS PROGRAM ****************************The first screen is a menu with 8 itemslisted. The  }default is "1".1. Read a text file - If you want thisitem, press "1" or "RETURN". You willbe asked for the filename to re}ad. Ifthe default is OK, press return. Ifnot, enter the complete filename toread.2. Change default finename - To chang}ethe default filename, press "2" andenter the desired filename at theprompt. This is initally set at"D1:DOC.TXT"3. Cust}omize screen colors - Tocustomize the colors, press "3".Establish the colors you want with theup/down arrows (no need to p}resscontrol). When the desired color isdisplayed, press return to enter it.When you have finished the selection,you will }be prompted to save theprogram to disk or continue.4. Directory for any drive - This willprint a directory for any drive }to thescreen or a printer. Just follow theprompts.5. Save this program - If you havechanged the defaults, you can save }themodified program with this item.6. Delete a file - To delete any filefrom any drive follow the prompts7. Copy a file} - To copy a file fromanydrive to any other drive, follow theprompts.8. Quit - This will remind you to savethe program i}f any changes have beenmadeWhile you are reading a text file, youcan vary the printing rate with the upand down arrows (}again, no control keyneeded). At the fastest rate theprinting is one complete line at atime.You can stop the printing by} pressingany key other than the up/down arrowsand resume by pressing any key otherthan the up/down arrows. (This will not}work with the fastest rate printing.Just press the down arrow to slow downand then toggle with any key other thanthe up/do}wn arrows).Use the control-A key to abort andreturn to the main menu.)ע ? 0E088FG \oJ67FNSTDLKEDELACOUNLINNKENCOCIS7177743LO0& AA} &&Bd i | DTASTR}.BAS by: Ken Cox |n | 9 APR 89 |s | 򠠠 |x zA"}AU+}j >:A%,"A @4AAFAAXAR@j@}AY-@ -- % -- %  } -- % ҮӠ -- % 砠 -- % !} -- % AY@4;@8,006.&hXYi"}`X=USR(ADR(LO$))6( ( (((((((!($('(*(-(0(3(6(& A0&TRAP FOR BX#}E CARTRIDGE9S@'S@9S@ A0a6-?:C:,,!A @3-@$}@a Error F:A, (problem with )7-@@'  Ӡ٠4)@7%;@,%};@,W6-?:C:,,!AR@3@EAVA$WA"##@@&}K:6-?:C:,,;-@@; !Data to be converted must be in a7-@@7 listed file with l'}ine numbers.-@@ . between 600 and 700. <-@@< ";-@(}@; !Enter a name for the string to beV-@@V created or press >:@4,RETURN>:@4,)} for the ;-@@; !default name. (4 character limit)C-@@C >:@4,LO$>:@4, *} is not valid6-A6-A";-@@. String name? ̤;@#6 4LO$-@@+},  6 A$=B:,!@$-@@3  = A'! 4̤6.ML$! A,,}-@@ : 1D 6-B:,7<,0$+-@@:  D A6 A ;d-@@-}; ! N67%@,.$`-@@d(@F A -@@F "Comple.}te filename for listed data?E"-@@ "@J;;7@<@,4:)7@<@,4:A@OR/}-@@ )  ;-@@H R A%T A%Y+ @@+0}@^<-@@!< "c9-@ @", Everything OK? /N9)@1}h++"@)"A!)"AUAum"@x)"A%r AUw]6-?:C:,,!-@@E Sc2}reen blanks out while workingY-@A] |" >:A%,"A 8-@8 ENTER >:@43},>:@4,.-@. POKE 842,12:GOTO 400*-@'AB@*& >:A%,4}/-@ /  =>:@4, A0)-@A%6-%@)"7"AU)"@4%5}6-@c7A@H >:@',>:,  >:@4,d-@d  DIM (&@):R6}EM >:@4, X=USR(ADR())>:@4,.-@ . POKE 842,12:GOTO 450*-@'AB@7}*& >:A%,6-A6-# A5-@AA-@8}A"#"@4)"AU# A ."6-@$  . A  "@9} : A   $$ (,)=CHR$() F6-%@"@)6-76-%@C6-:}F $I  I ;POKE 842,12:PRINT CHR$(125):POKE 709,14:LIST:POKE 752,0:END-@ NEW!*-;}'AB@*& D4:DTASTR.BAS FILESTYPE "Y" TO WRITE DOS TO DRIVE 1.D1:DOS.SYSERROR - NOT VERSIO7(#'  D@$DDUEUVZj jZVUU#UUVZj jZVUD003! =}DDUUVZjjZVUU10 !UVZjjZVUDF(*D DDUUVZjjXTU(*) >} UVZjjYUD@D@ DDUEEUTU 0C 0 UTU%UD#DDU ?}jZVUEEUVZjU 1$UjZVUVZjUDL'DDUjZVUEUVZjU @}'UjZVVZjUD'DDU jZVUEEUVZj U'U jZVVZj U D&DD A}U IUVUIU 0&U UQU D&DDUEUVZjjZVUE U 0&UVZj B}jZV% U D&DDUEUVZj jZVUU'UVZj jZVUD@'DDUEUVZj C}jZVUEU0'UVZjjZVUUD@LDOE DDTd dTQaaQQURPRP D}SPR PRPUU@`f@ADAU  0UPpPXYU@ADA@U  U   ( E}  UU&LfTU"b "!&Rb "(( ( (( U9UDDUV"Rb F} "!%&b "V2""UUfFVD*""UU @UEUQU G}UUf `f3D3U!DEDOUUU@UQSQUUUff3D3UDVUEqWDUUU H}U5UU@@Ѓ UUfd@f3D3UD DTUETUAUDODU@@ UU@U I}QUUeUU@ ( @UUf@f3D3UD D Df dDf@ $ @ UUU J}UPPQU< @ ( UUf?0@`LC@`0D3UD D Ddeg%&f0 P @UU? K}SPTU8UUf d&f&*D3UDHDGUTiVTUU0?*@UUU L}*QUeZPYT?@UUfLf3D3UDHDETUUU  UU@PU M}\UW*U@U*  fUUUf f3D3UDDEWZUUUF UUU N}WUU@XPfUUUf@f3D3UDHDUWuUU@UUTWUUU O}ZWUWUWU+P &f]UUf@&f3D3UD D DjUYD]UUU + UVU P}U1UUuQU UTU/ &fhUUff3D3UD D DFfVRBVVf   Q}u_UUUUUQMUAUU <&fh_UUff3D3UDde%&fU/  R}WUUUUUp/PQA_UUfof`fd`3D3UDHDEDUZeQUVUecle@ S}A_UUUPViUU_ UU0&f3D3UD DHDUe T}ePUDt]ryUDU_ U?01  UUeaE]QUvzUUUUfLff3D3UD U}DTWDTDDUUUUUQUQQUQU߂UUfff3D3U(EU߁_UUU V}U)UUffed2F*B@UUUU-U2(  W} (( ( UUffUO ((  ( UUUOU X} dTU`&fU@@U PP %%Ņ%UT U@UU PP D Y}LDT4DD  U Q D*DUJVTTV@U)URQUURUD Z})DUjJVTTVJjU)U*RQUUR*UD0@G DUjJFTTFJj [}U  U*ZRUURZ*UDDDU jJFVUUTFJj U 0U *ZRU \}URZ* U@ @@DU UTFJVTUU U URZRQUU 6-%6-%'6-%/6-%;6-@ TBC>RMUSIWOSPCODMTOFBDUPAUSBUPAUSTWAITIMTWFOULOO^} _}************************** ** Yet, still another, ** fine pr`}ogram, by: ** ** Tom Arena ** and ** Jonathana} Gilbert ** * ************************* @נȠſB-@b}@#(-A4."B @ %$@ ƛ6-?:C:,<<<<," Ҡ¬ǠӛG "c}6-?:C:,<<<<,+6-@/ C6-?:C:,<<<<,G ٠ӛ- "6-?:C:,<<<<,)6-@- d}ҠӬǠ›G "6-?:C:,<<<<,+6-@/ C6-?:C:,<<<<,G ٠ӬƠқ#e} "6-?:C:,<<<<,# РśNOŠŠԠӡP -$ $STǠf}ŠÛU= -$ %6-?:C:,<<<<,) 56-@9 = W6-?:C:,<<<<,%D:LXǛYg}Z;@ ,;@,26.hˢhh`>6-@J6-@V6-@b6-@n6-@z6-Abh}6-At6-@([f%27B7h@A#AU-A6AVY"_c f#i}\a-6-F:A`,%AV$F:Aa,%AP9ABM%@ABa%@0AB]<A@'Aj}9BBA<$bӠŠÛc*dhh2,96,193,*,2,96,193,*,2,64,193,*,2,64,102,*,2,72,128,*,2,81k},96,*,2,85,128,*,2,96,121,*,2,108,162,*e==2,96,121,*,2,85,128,*,2,81,96,*,2,72,121,*,4,64,128,6,*fhh2,96,193,*,2,96,193l},*,2,64,193,*,2,64,102,*,2,72,128,*,2,81,96,*,2,85,128,*,2,96,121,*,2,108,162,*g==2,96,121,*,2,85,128,*,2,81,96,*,2,72,121m},*,4,64,128,6,*hmm2,64,96,*,2,60,72,*,2,72,85,*,2,64,81,*,2,60,96,*,2,53,128,*,2,47,121,*,2,64,162,*,2,72,128,*,2,81,96,*n}i332,96,193,*,2,85,108,*,2,81,128,*,4,72,108,4,*j CHORUSkff2,81,96,*,2,72,85,*,4,64,81,4,*,2,60,121,*,2,64,81,*,2,64o},162,*,2,72,144,*,2,81,128,*,2,85,128,*lee4,96,193,4,*,4,81,96,1,*,4,85,96,1,*,2,96,193,*,1,72,108,121,*,2,81,128,*,2,72,1p}28,*,2,64,162,*m^^2,60,96,*,2,53,128,*,2,47,121,*,2,64,162,*,2,72,144,*,2,81,128,*,2,85,128,*,4,96,193,6,*n##END CHORUSq} AND START 2CD PASSoff2,96,193,*,2,96,193,*,2,64,81,*,2,64,85,*,2,72,102,*,2,81,96,*,2,85,108,*,2,96,121,*,2,108,128,*p<r}<2,96,193,*,2,85,102,*,2,81,96,*,2,72,96,*,4,64,102,6,*qff2,96,193,*,2,96,193,*,2,64,81,*,2,64,85,*,2,72,102,*,2,81,96,*,s}2,85,108,*,2,96,121,*,2,108,128,*rBB2,96,193,*,2,85,102,*,2,81,96,*,2,72,96,*,4,64,102,4,*,0,2,*smm2,64,96,*,2,60,96,*,t}2,72,108,*,2,64,108,*,2,60,81,*,2,53,91,*,2,47,96,*,2,64,108,*,2,72,102,*,2,81,96,*t222,96,114,*,2,85,108,*,2,81,162,*,4,7u}2,85,4,*u CHORUSvff2,81,162,*,2,72,108,*,4,64,108,4,*,2,60,96,*,2,64,108,*,2,64,81,*,2,72,85,*,2,81,96,*,2,85,102,*wv}ff4,96,193,4,*,4,81,128,1,*,4,85,128,1,*,2,96,114,*,4,72,108,4,*,2,81,96,*,2,72,102,*,3,64,60,81,*xVV2,53,81,*,2,47,81,*,w}2,64,81,*,2,72,85,*,2,81,96,*,2,85,102,*,4,96,193,12,*,0,2,*y THE ENDPP72,138,72,165,204,41,8,105,48,230,204,141,10,2x}12,141,24,208,104,138,104,64 D:GENTLMEN.*TA&@+@&@E6-%AV$+&@,T(@1FG/SECNAMEMLDLIOFFSESEDDIRINOUTPIADDSAASSDNUz} {}nVS@@x**##** CONVERT PRINTSHOP |}ICONS TO** MICROPRINTER SCREENS.** CHARLES M. BARTISH** LEHIGH VALLEY** ATARI USERS GROUP** FEB}}RUARY 1989**** THIS VERSION REQUIRES!!** RAMDISK D8: AND BASIC XE** OR BASIC XL.**11;A)~},;@ ,;@@,;@,6. H ԩh@226.(hhhhhͱIˈi(˥i`F6-A(F**} This centers the icon on the micropainter screen.1 +AR@1AA(" AP,B-}B((6B-@B(( @B-}@B(( PRINTSHOP JB-@B(( }TB-@B(( TO ^B-@B(( } hB-@B(( MICROPAINTER rB-@B(( } |B-@B(( CONVERTER B-@ B(( } B-@B(( version 1.01 B-@B(( } B-@B(( Charles M. Bartish B-@B((}A-@@>($Load Print Shop Data Disk in Drive 1A(--(%ݠ}3-(%Ҡ0(3(AY@4.@(("6-Ab}.6-@ +4A ' 06-A:, A ' A A@2-@@@2}26.7<%@1,+7@<@,4!'+ A`&J ( - 7@<@,.6-%@2 @6-%@}J A 0-(>:A%, Your Choice) A`-:"AD @)A`NJ6-P:+&@},'@,J6-+&+$@,&@,$@2%@X.6-Ab% A@.6.7<%@1,b+0@@}@+(>:A%,l8 ( 5(7@<@,8(v6.7@<@,-@@}67<,4 )6.7@<&@,,'6 Ap 5 6.D8:67@,.567B:,%@,..PIC.$(} ((+(.($ (Hit return to convert...$0 +@$A06-%^:@,i};6-@:7@<@,,%@:7@<@,,$AVG6-S6-@_6-@i A@Q%@:7<,,!6-}%@-!A&96-@G6-%@Q A@E6-%@!@)6-76-%@E6-%@@} @SA %6-@6-@R% A A ( ( ( ( 1 Run again( } 2 End to Basic ( 3 End to DOS*( (( What's next46-A:,>A@APA`}H >:A%, A@R B\ B.f,,Copy Graphics 8 to Micropainter Formatp @@}z C@@@$A*@F:A,*@F:A,*@F:A ,*@}F:A,@ +0@@( COPIED TO )&(COPY FILES FROM D8: TO} FLOPPY!)($6-^:@,%6-$AV%6-?:C:,<<,$\67A),.(6-P:C:,'AV,;6}-C:,&$AVL6-P:'AV,\6-&$AVWArAs'Ax3AyEAi@WAp}@$6-?:C:h S`,,.F:Aq,"@$8"AF:Aq," AB'A@A@L3}A@f3( }Error - F:A,V#(#(۱ Retry ۲ Cancel `Q@@9@@}K:F)@Q@j!! @I)!@PA t&A#6-&@H&$~#AY}#A#"6-^:A`,.-@"*%F:%,%A(. B6-P:C:,'AV,*6-C:,&$AV6}ABA*BBA'AV*$ 1,18 D1:PSCONV.016IS$=>:@4,7@<@_110 Fast :Set 15,1120 Rem **130 Rem ** CONVERT PRINTSHOP ICONS TO140 Rem ** MICROPRINTER SCREENS.150 Rem ** CHARLES M. BA}RTISH160 Rem ** LEHIGH VALLEY170 Rem ** ATARI USERS GROUP180 Rem ** FEBRUARY 1989190 Rem **200 Rem ** THIS VERSION REQUI}RES210 Rem ** RAMDISK D8: AND BASIC XE220 Rem ** OR BASIC XL.230 Rem **240 Dim Sec$(129),Name$(20),Ml$(40),Dli$(11)250 D}li$="H ԩh@"260 Ml$="hhhhhͱIˈi(˥i`"270 Offset=2815:Rem ** This centers the icon on the micr}opainter screen.280 Graphics 0:Poke 752,1:Poke 710,128290 Gosub 1150300 Position 0,0:? "}"310 Position 0,1:? " "320 Position 0,2:? " PRINTSHOP } "330 Position 0,3:? " "340 Position 0,4:? " TO } "350 Position 0,5:? " "360 Position 0,6:? " MICROPAINTER } "370 Position 0,7:? " "380 Position 0,8:? " CONVERTER } "390 Position 0,9:? " "400 Position 0,10:? " version 1.01 } "410 Position 0,11:? " "420 Position 0,12:? " Charles M. Bartish } "430 Position 0,13:? ""440 Position 2,17:? "Load Print Shop Data Disk in Drive 1}":? 450 ? "ݠ"460 ? "Ҡ":? :? 470 Poke 559,34480 In}put #16;Name$:? :? :Sec=362:P=1490 Graphics 0500 If Name$="" Then 520510 If Name$<>"" Then N=Val(Name$):Trap 520:Goto 590}520 Gosub 1040530 For I=1 To 97 Step 32:Ddir$=Sec$(I,I+31)540 If Ddir$(1,3)="" Then Pop :Goto 560550 ? P;" - ";Ddir}$(1,16):P=P+1:Next I:Sec=Sec+1:Goto 520560 ? Chr$(125);"Your Choice";:Trap 560:Input N570 If N=0 Then 280580 If N<1 Or N>=}P Then 560590 P=Int((N-1)/4):I=(N-(P*4)-1)*32+1600 Sec=362+P:Gosub 1040:Ddir$=Sec$(I,I+31)610 Setcolor 2,12,2:? Chr$(125);}620 ? " ":? Ddir$(1,16):? 630 In$=Ddir$(1,8)640 For J=1 To 8650 If In$(J,J)=" " Then In$=In$(1,J}-1):Pop :Goto 670660 Next J670 Out$="D8:":Out$(4)=In$:Out$(Len(Out$)+1)=".PIC"680 ? " ":? Out$:}? :? 690 ? "Hit return to convert...":Input Name$700 Graphics 24:Poke 710,0:Pic=Offset+Dpeek(88)710 Sec=Asc(Ddir$(17,17))+}Asc(Ddir$(18,18))*256:P=0:S=1:L=1:Gosub 1040720 Poke Pic+P,Asc(Sec$(S,S)):S=S+1:If S>126 Then S=1:Sec=Sec+1:Gosub 1040730 P}=P+1:If P>10 Then P=0:L=L+1:Pic=Pic+40740 If L<53 Then 720750 W=10:H=52:Gosub 1000760 Gosub 880770 ? :? :? 780 ? " 1} Run again"790 ? " 2 End to Basic"800 ? " 3 End to DOS"810 ? :? :? " What's next";820 Input Name$:N=}Val(Name$)830 On N Goto 840,850,860840 Print Chr$(125);:Goto 440850 Trap 40000:End 860 Trap 40000:Dos 870 Rem Copy Graph}ics 8 to Micropainter Format880 Open #2,8,0,Out$890 Bput #2,Addr,40*192900 Put #2,Peek(712)910 Put #2,Peek(708)920 Put #}2,Peek(709)930 Put #2,Peek(710)940 Close #2950 Graphics 0960 Setcolor 2,8,0970 ? In$;" COPIED TO ";Out$980 ? "COPY FILE}S FROM D8: TO FLOPPY!":? 990 Return 1000 Pic=Dpeek(88)+Offset1010 Sz=W*256+H1020 A=Usr(Adr(Ml$),Pic,Sz)1030 Return 1040} Sec$(129)="":Ah=Int(Adr(Sec$)/256):Al=Adr(Sec$)-Ah*256:Sh=Int(Sec/256):Sl=Sec-Sh*2561050 Poke 772,Al:Poke 773,Ah:Poke 778,}Sl:Poke 779,Sh:Poke 769,1:Poke 770,821060 A=Usr(Adr("h S`"))1070 If Peek(771)=1 Then Return 1080 Poke 195,Peek(771):Gosub} 11001090 Pop :On K Goto 440,4401100 Poke 712,66:? "}Error - ";Peek(195);""1110 ? :? "۱ Retry ۲ Cancel ";1120 Clo}se #1:Close #2:Open #2,4,0,"K:":Get #2,K:Close #21130 If K<49 Or K>50 Then 11201140 Poke 712,0:K=K-48:Return 1150 Poke 559},0:Restore 1200:Read Dnum1160 D=Dpeek(560)1170 For I=1 To Dnum:Read B:Poke D+B,Peek(D+B)+128:Next I1180 B=Int(Adr(Dli$)/25}6):A=Adr(Dli$)-B*256:Poke 512,A:Poke 513,B1190 Poke 54286,192:Poke 256,0:Return 1200 Data 1,18)"@)+!@*a2Print Shop to Micropainter ConverterCharles M. BartishLehigh Valley Atari Users GroupEver since I purchased Vide}o Title Shop, I've looked for sources of graphics to use with the program. Video Title Shop uses Micropainter format, which }requires over 7000 bytes of storage for each picture. I was never able to find general art work that I could incorporate int}o my Video Title Shop presentations easily. What I really wanted were simple screens, with just a little art work and lots o}f room for text. Print Shop graphic icons looked like they would be excellent sources of such simple graphics for VCR titlin}g use. In spite of many graphics conversion programs available, there was no simple way to convert Print Shop graphic icons }to Micropainter screens.The program PSCONV.BXL reads a Print Shop graphics disk, centers the icon onto a graphic 24 screen,} and stores the picture as a disk file with the same name as the Print Shop graphic, an extender of PIC added for convenience}.Program RequirementsPSCONV.BXL requires Basic XL or Basic XE to run. It is currently configured to save the *.PIC fi}le to ramdisk D8:. However, this could be changed to any other disk drive by changing the first part of line 670 from Out$="}D8:" to Out$="Dn:", where Dn is the desired drive number. The program runs under Dos 2.0/2.5, and all the SpartaDos's, inclu}ding SpartaDos X. If you are using SpartaDos X with Basic XE, be sure to turn off the screen display of the time-date line w}ith a TD OFF statement in your AUTOEXEC.BAT file.Using the ProgramLoad and run PSCONV.BXL. After displaying its title} screen, the program instructs you to load the Print Shop data disk in drive 1. If you want a directory of the disk, hit ret}urn. If you already know the number of the desired graphic, enter the number.If you've selected the directory option, th}e directory of the screen will scroll by. Note the number of the desired icon and enter it when prompted.Once the choice o}f icon is made, the program tells you it is loading Print Shop Icon ..name.. and saving it as Micropainter Picture ..name..PI}C. Hit the return key to convert the icons.PSCONV.BXL reads the Print Shop data disk, centers the icon on the screen, disp}lays it on a graphics 24 screen, and saves the picture to ramdisk.After icon conversion is complete, the program reminds yo}u to save the converted picture to a floppy disk. The program waits for instructions to run again, return to Basic, or retur}n to DOS.Icon Screen LocationThe Print Shop Icon is centered on the graphics 24 screen. The screen memory location fo}r storing picture data is listed in line 700 by Pic = Offset + Dpeek(88). Offset, set to default at a value of 2815 in lin}e 270, moves the starting location of the icon display away from the upper left corner of the screen. Giving Offset a value }of zero would put the icon at the upper left corner of the Micropainter picture.Exercising a fair degree of control over th}e location of the icon in the Micropainter picture is easy by changing the value of Offset. Offset is the memory offset from} the beginning of screen memory to the memory location of the upper left corner of the icon. The value of Offset for a parti}cular graphics 24 X,Y coordinate is calculated from the expression Offset = (Y*40) + (X/8).The dimensions of the icon in }graphics 24 pixels are horizontal 52, vertical 10. Have fun experimenting with various locations for the icon on the screen }or change the code to print two or more icons on the same screen!ReferencesThere is no really new programming in PSCON}V.BXL. I borrowed extensively from John French's Newsroom Converter, Antic, 7(8), 40 (1988) for the routines to read t}he Print Shop directory and from the Basic XE manual for the picture saving routines.Lehigh Valley Atari Users GroupTh}ree Atari BBS's serve as focal points for communicating news through the Atari community in the Lehigh Valley of Pennsylvania}. Warehouse 215-432-3679 Wishing Well 215-264-1481 Starship 215-266-6825Charles Ba}rtish20 March 1989DDL1DL1SA1SA1MODDL2DL2SA2SA2Dfffffff~`~~~fl0fF68of;p88p~0~ 0 }`@~fnvf~8<~f~`~~F~ ll~ ~`~f~~`~ff~~F ~f0  ~~`00`< }f ~ff~~f|f|f~|`nf~>ff~fff~~~f~<flxxlf````~~cwkccfv~~nf }~fff~~~ff~``~ffn|v~ff|lf~`~~~~ffff~~ffff<cckwcff<~F~``~ff~|```|~ff~~f~`|>~ff~~``~fff8<>``n|lf8<c }kc|ffff~fff~~ff~``~ff~~f```~`~~~ffff>fff~cckcf~~ffff~~~<`~ }~8|nf8x8 A-@!@( COMPUTING POINTS 6-+&,'6-+&,' 6-&6 {GAMENNBLNKNQLENALENNNQ1RECNUQ2ANS1ANS2APTRANS3ANS4RTANSKEEIOIOCBUFLERFILFLEFLFNUMF$}LOFRECLENFRELRERECEDISTRPORECQLEANSLEFNUMAXFNN1N1::@@o;&&@;&&;$}@ :& @ :& : :1; ;;\;@2;**@@$}A@@@n;A]; BAP @!@"@#@$A%@&@8$}'@()@*@+@,@ ##*****************************##* *##$}* QUIZ MAKER *(##* A PROGRAM BY *2##* DALE MCPHERSON *<##* TO CONSTRUCT QUE$}STION *K##* FILES FOR TARIQUIZ *P##* *U##* V. 1.0 3/9/85 *Z##* $} *_##*****************************d! B A! B(67,. 67BP,. $}(67,.306.& 3$L- -"(%(-( (( $} ((( x#( Ԡ#( @$( Ġ$( #( Ġ#( $} $( Ƞ$( 0-@-(¯ïĩ0$BAAR!-%$}-(B:,56-&8'B B - -@("-@("6.2B-@@$}( ((B:,06. 86. B A#0B 6.3-@@$((0(B:,86. B A#0 6.4 $}ZA@d'-@'@+Z+@:,&@d,!A:,)+@:,&@d, A#0$ <AR-@"<( dit$} ext uit8 A0L Q"@:E,-@"9(A6. G6-Q A"` "@$}:N,$t @:Q,A#` ' AU B IO$ CALLING ROUTINE 446.*hhh hEhDhIhHhhB VC$}ԩ` 6-?:C:,<:,4NB >:,0YA2  A6-  6-(} ! -!(ŠנŠ # -$}(  #6- * A*PROMPTS AND INPUT ROUTINES A" I AU6-6-%/!AB$}IINSTALL INPUTS IN GAME$  (} A2pG LOAD FILE ROUTINEH (A4ER @ (}-@6(ile in Memor$}y! ſ (Y/N)@ A0\ >:,4NBp >:,0YA4u (}z W A8(& Number of to Lo%}ad (1-9)?;(W( Press to exit.{  A06.>:,| %6-&@H%"@uB~  )!@ A4P%} B --@ %(! + BB67@<@,. . A5@*)@.  # -#(%}Ǡڠ.. &(&( has  Questions.  6-6-$6-@ 1 A%@6- Ae' A0%}1 A6 ;-@;($ doesn't exist. Try another File#. ! Ae A0! BUPDATE MENU%}) B(})(ŠŠ$( 1. ADD TO FILE8 ( 2. REVIEW/EDIT FILEL##( 3. RETURN %}TO MAIN MENU`( Your choice ?t A0#6-&@H# )!A7 A8A9B%}ADD TO FILEU (}6-%!A)-@K(Max File size is 100 records!U A8@ A2! Ae%} A0! A6;REVIEW/EDIT FILE<5 (})(  There are  records.5ARP//(' Select range to %}Review (First, Last)d,( Ԡĺ,( Ԡĺn A9Px3-@@+-@@/% }3  )!)!A9P (}-6- 6-$@ APRINT PROMPTSJ< -(  % }#-<(7&AH<&A,T(-@((7&A<&@s,^(-@((7&@r<&@U,h(-@% }((7&@T<&@7,|.-@@.(7&@6<&@,(-@@((7&@<&,-@(% }@(7<,9 6- A#@! AU9REVIEW AND GET INPUTS : (}6-+&,%:(   Re% }cords REVIEWED. Ae A0 A6PRINT DISK DIRECTORY3 (} B/@D:*.*%}3 &-@&(ˠ٠@-@ - 07<,4FREE3'6'@ AQ-%@$+"%},%(   D(*( Press any to continue.4 A0:(}D AP 0 (  Ae& A0%}0 B{CONSTRUCT STRING|(6-$67&AI<&AI,. B:, 67B:,%,.67&AH<&%}A,. B:, 67B:,%,.67&A<&@s,. B:, 67B:,%,.67&@r<&@U,.%} B:, 67B:,%,.67&@T<&@7,. B:, 67B:,%,.67&@6<&@,. B:, 6%}7B:,%,.67&@<&,.67<,.$oSAVE FILE ROUTINEp (}A`@B$( No in %}memory. Ae8 A0B BA:,AaP (}4(& Number of 堨P( Press %} to exit.8 A06.>:,$6-&@H8"@uA  )!@ A``$ B$67@<@%},.& B"& @ -!( @( Okay to overwrite? (Y/N) A0>%}:,4YAb>:,0NAa0 A`P87 B#6-+6-$76-@L2(( .. Writi%}ng  *.-A2 `- A%@ -A# - Bd)(&( Any to return to MENU)$'FIL%}E LIMIT REMINDER'1 (}-1( is (100 Questions).$'4 -4(&Only valid options are or 8'! A%}e A0! Bs'FILE IN MEMORY CHECKt'  $') (})( No to Update.' Ae' A0%}' Bg)DISK ERRORh)(  ˠ Ae|) A0 BNMAIN MENU NP (}AR(%} ( #()-E(ڠŠҠH(P( 4N''( 1. CREATE NEW QUIZ FILEHN$$( 2. UPDATE EXISTIN%}G FILE\N$$( 3. PRINT DISK DIRECTORYpN""( 4. LOAD EXISTING FILEN##( 5. SAVE FILE IN MEMORYN( %} Your choice ?N- A06-&@H- )!B@N//A2A6APA4A`RINITIALIZATIO%}NRw6-6-@#6-%+6-%36-%;6-%C6-%K6-%S6-%_6-@k6-@8w@RL% }+AR("6-B.A @AA`L6-AP0R..;BP,;,;,;,;,;,;,:RG9;%!},;@B,;,;@,;,;,;,;,?6-G6.0DRS06.& I6. %"} S BXR6. D:QUIZ .DATlR$D:QUIZMAKE.BAS% A@ A!p&6-F:Ad$GFiles included in this ARC package are:1. PSCONV.BXL The program "Print Shop to Micopainter Conversion" in saved Basic )$}XL/XE.2. PSCONV.LST The same program in listed Basic XL.3. PSCONV.PCP A doc file in Paperclip format.4. README)%} This file.Charles BartishMarch 20, 1989Û"@V Aƛ"@@ APқ"(8op#-DTCBFNFLOALNCOPYDRIVEDVBCLKEVDQUNTNCNBDRIVPCBUFFSIZBUFFERBUFFEKENCOCIS7177743-'}@A&A &&DPx     @@-(}PAUB@@-)} !d$$DO NOT RENUMBER THIS PROGRAM!!n""x"" READTEXT.BAS by: Ken Cox -*}"" 19 August 1990 ""6-@'6-6-A&'6-A-+}]AY'@9A)@EKA0@]AY >:A%,##@@-,}K:GG;@,;@,;@8,;@,;A ,;Ac,11;@,;@,;@--},;@,6. ıî 6-B:,%%6-+@@&+@#%,,'@006.&hXYi-.}`9A A'A9AR@B-B (-/}B-@B (ԮӠ"B-@B (-0},B-@B (6B-@B (-1}@0-@0 JC-@C )-2} T#-@@#  MAIN MENU^.-@@. . Read a text file.h5-@@5 2. Change de-3}fault filename.r5-@@5 3 Customize screen colors.|5-@@5 4. Directory for any drive./-4}-@@/ 5. Save this program.+-@@+ 6. Delete a file.)-@@) 7. Copy a fil-5}e."-@@" 8. Quit.&-@@!&  Your choice?AY@4)@/%+"@I-6},)+"AU,A@/ Ap#+"@P,A # A#+"@Q,A0# A#+"@R,A `-7}# A#+"@S,AP# A#+"@T,A&# A #+"@U,A'P# A0#+-8}"@V,A(p# AP6-?:C:,,6-@&9-@@9 Enter complete filename to read08-@-9}@8 If default is OK, press RETURN::-@@:  If not, enter correct filename..D9-@@9 -:}Default filename can be changedN/-@@/ from the main menu...X6-+@9&,'@b-@ -;}l-@@v4AP A`5-@167<,.>:+@:7<,,,&A(,5 RR7@-<}<@,4:)7@<@,4:*7@<@,4DAR-@@" 4-@@H -=} R A6-?:C:,,? -@@? "k-@@->}k >:@',>:AV, >:@',>:AW,砠=-@ @0 Press any key-?} to start=)@B-@B ( -@ A0-@}+@+@@ AP)@ -@  >:,  F:Ad,AU-A}A* A04 Ap>6-?:C:,,H6-@6-@RB-@B (-B}\5-@@5 SELECT THE BACKGROUND COLORfg-@@ g Review colors with the >:@'-C},>:@(,>:@',>:@), arrowsp<-@@< "Make selection with the RETURN KeyzA-D}+"@)"@+A +")"@+A @--@@-  Background: -E} )@"@%+"@E6-%@+6-%@%!AT6-% A0-F}"@E A0+"@a6-&@+6-&@"AU6- A`% 6-AT% A-G}0 A0 A 0"@6-"6@6-@ A$5-@@5  -H}SELECT THE TEXT LUMINANCE .+6-%@!@+6-&@8"@6-B"6@6-@-I}L+"*"@E!6-%@+ AV+"*"@a!6-&@+ A`--@@-  Text: -J} jA t)@~"@%'"@E6-%@' A'"@a6-&@' -K}A"AU6- A A@ A;-@@5  SELECT THE BORDER COLOR ;6--L}A--@@-  Border:  )@"@%"@E6-%@%-M}!AT6-% A "@E A  "@a6-&@"AU6- A0%-N} 6-AT% A ( A 26-?:C:,,A <5-@5 160 TC=:CC=:BC=F-O}4-@/ POKE 842,12:GOTO 13704P*-@'AB@*&Z6-?:C:,,dA -P}n&-@@&  ave to diskx"-@@" ontinue)@/%+"@,)+"A,AP-Q}/ A0"@g)"@% A86-?:C:,,!-@@8 Save> READTEXT.BASA-@@-R}&  Which drive?3)@A6-&@H!! @)!@ APS67@<@,.D667@<@-S},.=:,S67@,. :READTEXT.BAS@-@@3 Press any key to save: @)@6-?:C:,, A-T}0)-@@)  saving file> !!"@)"A!A) 6-?:C:,,%3(3((-U}::( That's all of >:@4,>:@4, "00((ȭ٠-V},A6@)@%@66Poke 622,0:Poke 16,192:Poke 53774,192:Poke 752,0J6-?:C:,,-W}T -@@ END ^ F:A,"A6APh,6-?:C:,,,F:A,"A8Ar,6-?:C:,,,-X}F:A,"A`A|,6-?:C:,,,F:A,"ApA6-@@, Error #F:A,6 A-Y}2-@@(  Can't find: 2 A:-@@:  Drive error> 7@<@,9-@@-Z}) Ӡ٠٠6)@9%A@H!"@H!AA@ /F:-[}Ad,"A% >:A%,/ A`@F:Ad,AU*AdAU6A@ Ap A0BF:A-\}d,"@*AdAU86-&@B A A & 6-6@& AP AN-]}F:Ad,"@*AdAU86-%@DAN A&pF:Ad,"A% >:A%,1A =-^}AIAT@fAYp A 0AF:Ad,AU*AdAU7)@A Ap-_}: APD F:Ad,"@A N@X*F:Ad,"@*AdAUbpF:Ad,"A-`}% >:A%,1A =AIAT@fAYp A l v A`6-?:C:,,-a} A5-@167<,.>:+@:7<,,,&A(,5 --@@- Present default> >-@@-b}> $Enter new complete default filename:"-@@"@RR7@<@,4:)7@<@-c},4:*7@<@,4DAR-@@" 4-@@H  R A` 6-d}-B:, >:A%,5-@167<,.>:+@:7<,,,%A(,5 A F:A,J-@D 2-e}20 F$=>:@4,7@<,>:@4,J)-@) POKE 842,12:RUN*-@'AB@-f}*& 6-?:C:,,@@  A%`*.-@ @. Drives 1-9 are valid4K-@@> -g} Which drive for the directory? K)@>-"AU6-@#6.1- A!@H$6-&@H6.=:,$ -q}BCHRISTMSRUNB DOC TXTB!DTASTR BASB!<FIREPLACPICB]GENTLMENMUSB%yPSCONV BXLB!PSCONV LSTB"PSCONV PCPB QUIZ FNTB9QUIZMAKEBASB#README B[&READTEXTBASB SAMHANDLBASBSAMHANDLEXEBSAMHANDLM65B(STIKWRITBASBSTRDTA BASBSTRING DOCB;TARIQUIZBASA!@R A!\!! @)!@ A!f67@<@,.Dp-@4@ z67@<@-r},.67@<@,.:*.*&-@@&  Printer? Y/)@/"@)"A!%6-@-s}/ A"P/"@x)"A%6-/ A"p%"AU6-% A"p A"a-@-t}@6  Be sure printer is ready9 T  ٠٠a)@.@.@@-u}P:(6-?:C:,,!-@#(   A%` @@" >:A%,"- -v}??  Directory for >:@4,D:>:@4, WL @ Directory for >:@4,D:-w}>:@4,W @ -- %$ @6-%@. QA@:7@<@,,!-x}@G*@:7@<@,, @XG6.Q A$p8  ||B  @  L @6-%@-y}V QA@:7@<@,,!@G*@:7@<@,, @XG6.Q A$@` |j  @ t -z}(*!@4 A%~ A#@   | '' @  P:,A$p ---{} %    + @+ @  #@@-|}# A%@ -- % &&  Ӡ٠٠ҠŠ 36-)@)-}} >:A%,3 A# +  ٠٠+)@ % PAB@!6-?:C:,,3-@@P -~} Error number F:A, 5 %  2)@5%  >:A%, @@( 6-?:-}C:,,2 <-@@< "Enter complete filename to delete:< "-@@"@F ;;7@<@,4-}:)7@<@,4:A&PP R-@ @" 4-@@H  R A& Z 6-?:-}C:,,d K-@@K Press >:@4,Y>:@4, to delete> n )@x !!"@)"A!A'-} % A0 6-?:C:,, <-@@<  Deleting >:@4,>:@4, ((@3@-} % 6-?:C:,, A0 3-@@&  Copy from: 3@ 3-@@&  -} to: 3@ '-@@'  C O P Y I N G cc67@,.P Dh hhۅthh hh h-}hhh֦۩B֝HםIݝDޝ ff67@,.SE V2ڽHؽI٦ܩ B؝HٝIݝDޝE V0Ԧ۩ B-} VܝBLV 6-BP;,6-C:, +@+@@ +@+@@-} ##6-?:C:,<@<@<<," @@, %6 6-?:C:,,@ --@@- Save this file?-} Y/J )@T /%+"@,)+"A!,AP/ A)^ ;1+"@x,)+"A,)+"AU,A) ; A(-}h % >:A%,"AR%AB@%088 83>u67B:,%,?THE SAM HANDLERBY CHRIS BONE(c)1985, ANTIC MAGAZINE OO104,162,01},134,203,189,26,3,240,9,201,86,240,25,232,232,232,208,242,169,86DD157,26,3,169,40,157,27,3,169,6,157,28,3,169,0,157,29,3,1}96,55,6BB125,6,54,6,58,6,55,6,54,6,76,55,6,96,160,1,96,72,165,203,170(OO104,201,155,208,17,169,46,157,20,32,232,169,151}5,157,20,32,76,111,6,157,202PP32,201,44,208,6,157,20,32,232,169,32,157,20,32,232,138,133,203,201,254,208<LL17,169,155,11}57,20,32,32,11,32,169,155,141,20,32,169,0,133,203,160,1,96FKK169,155,157,20,32,32,11,32,169,155,141,20,32,169,0,133,203,161}0,1,96,0P/ (}-@@/(LOADING HANDLERZ-A6Ad"n x 6-?:A6,B (1}}-@@B("HANDLER NOW LOADED AND INITIALISED=-@@=(#IF YOU PRESS SYSTEM RESET YOU WILL 51}-@@5(NEED TO ENTER 'A=USR(1536)'>-@@>($AS A DIRECT COMMAND TO REINITIALISE.D1:SAM1}HANDL.BASĩ2OO67A,.SAMHAND ;MSB OF VECTOR ADDRESS0350 STA HATABS+2,X0360 LDA #00370 STA HATA9}BS+3,X ;ENSURE PROPER END OF TABLE0380 END0381 RTS 0382 ;0390 ;HANDLER TABLE UPDATED0400 ;IN9} ORDER TO USE AFTER RESET0410 ;USE "A=USR(1536)"0420 .PAGE "THIS IS SAM HANDLER"0430 SAMHAND0440 .WORD VOPEN-1049}50 .WORD VCLOSE-10460 .WORD VGETB-1 ;IMPOSSIBLE, BUT A VECTOR0461 ; IS R9}EQUIRED0470 .WORD VPUTB-10480 .WORD VSTATUS-10490 .WORD VXIO-10500 JMP VXIO ;FOR SAFETY!0510 VXIO ; 9} ERROR IT0520 VGETB ; CANNOT BE DONE0521 RTS 0522 ;0530 VOPEN ; DO NOTHING BUT 9} TELL O.S. THAT0540 VSTATUS ; EVERYTHING O.K.0550 LDY #1 ;IF CALLED,0560 RTS ;THEY SIGNA9}L SUCCESS!0570 VPUTB0580 PHA ;SAVE DATA BYTE0590 LDA BUFFO0600 TAX 9};BUFFER OFFSET IN X0610 PLA 0620 CMP #EOL ;IS IT AN END OF LINE?09}630 BNE NEXT ;NO0631 ;0640 LDA #'. ;YES, SO SEND A0650 STA BUFF,X ;PERIOD FOR 9} INFLECTION0660 INX 0670 LDA #EOL ;AND THEN SEND0680 STA BUFF,X ;END OF LINE0690 JMP SPEAK ;AND S9}AY IT0691 ;0700 STA BUFF,X0710 NEXT0711 CMP #', ;IS IT A COMMA?0720 BNE NEXT1 ;NO0721 ;0730 STA 9}BUFF,X ;YES SO SEND IT,0740 INX 0750 LDA #$20 ;AND A SPACE.0760 NEXT10761 STA BUFF,X0770 INX 0780 9} TXA 0790 STA BUFFO ;INCREMENT BUFFER OFFSET0800 CMP #$FE ;BUFFER FULL?0810 BNE NO9}TFULL0811 ;0820 LDA #EOL ;BUFFER FULL SO SEND EOL TO0830 STA BUFF,X ;BUFFER AND 9} SAY IT.0840 SPEAK0850 JSR SAYIT0860 LDA #EOL0870 STA BUFF ;EMPTY BUFFER0880 LDA #9}00890 STA BUFFO ;MARK BUFFER EMPTY0900 NOTFULL0901 LDY $01 ;MARK SUCCESS0910 9}RTS 0911 ;0920 ;AND THAT'S IT!0930 VCLOSE0940 LDA #EOL0950 STA BUFF,X0960 JSR SAYIT ;ON CLOSE, SPEAK 9} WHAT ID IN0961 ; BUFFER0970 LDA #EOL0980 STA BUFF ;EMPTY BUFFER0990 LDA #9}01000 STA BUFFO ;MARK BUFFER EMPTY1010 LDY #1 ;SIGNAL SUCCESS1020 RTS %+(,8wPh.DBMAINTEMPCOARYLWORDPUNCWORFLAGOLDWORPAUSMOVPIXSCRNXYERERRLTITLL=}@ =} STICK WRITERBY BILL LUKEROTH (c) 1985, ANTIC PUBLISHING( A0=}SET UP PROGRAM2 Ap<&F%AR@$%CURSOR OFFP$AR$$CURSOR ONZ>@=}A'B7tA*$>DISABLE BREAK KEYdF-@@)-@A0( 4 7$FCLEAR SCREENn=}B:,@A0x6.7@:, ' *('-@@#(>:, ' *-@H=}@W#(>:, ' *(,-@@%(7<, ) ,(((( LEAR SCREEN ACKSPACE RINT,,($RASE ME=}MORY ELETE WORD ING BELL"(OICE UIT,"-@@8(" 6nn(fӺ=}堠@++(#ϠԺJ/A=} AT/MAKE CHARACTERS VISIBLET T:,"@A@^6-h+@ A6.+6-=}r9-@@ @&( 9JOYSTICK ROUTINE|5 6-6-!6-5"@A""B:, =}A@&AAvA@H'-@@Q(%٠̮ŬԠҠԮc-@@j(=} v6-@;6-R:,$@w;DISABLE ATTRACT MODE"@A@$$P:'@,'@=}Ap*F:@,"*@@ ( A!!"@)"@A*F:@,"@=}*@@# ( !@* @ ( !@* @ ()6-%@!@=})6-@(- (SLOW DOWN CURSOR T:,"A`& A0+6-%@+1F:@=},F:@,:@ 6.>:,  A#A@CURSOR OVER INVERSE CHARACTERD6.>:&A(,NEB:,"A@A=}EMEMORY FULL, ACCEPT ERASE, PRINT OR QUITX2(>:A&,(2BACKSPACE, REPRINT LETTERb67B:,%@,.l67=}B:,%@,.v0 A`W"@ A# A@- APWDELETE BLANK SPACE AFTER SINGLE LETTERS5=}B:,!AQ+6.7B:,&A A A`H>>POKE 8208,100:CLOSE#2:OPEN #2,8,0,"V:":?#2;MAIN$:CLOSE#2R A`=}\@+fDATA FOR WORD SCREENp2,8,13,19,23,30z::DID,HAVE,HOW,I'M,LET,THAT,WAS,WILL,WHO,WHAT,WH=}Y,WHEN55ALL,ARE,CAN,EAT,GET,HER,HIS,OUR,SEE,THE,YES,YOU@@COLD,FOOD,HOME,MUST,NEED,SEEN,SICK,PLAY,SOME,TOO,YOUR,WORK=}((AM,AT,DO,HI,IS, ,IT,ME,MY,NO,TO,WEIIDRINK,HAPPY,LET'S,LOVE,ROOM,SLEEP,TELL,THERE,THEIR,THINK,TIME,WHEREIIBATHROOM=},DOES,GO,GOING,GOOD,HOT,MEDICINE,NOT,NOW,PLEASE,THANKS,THIS$(>:AS, A$ERRORS46-F:A,46-F:A=},$AV%F:A,A8A J-@@@(&ҠҮˠҠĠŮJ A0-=}@@0(Ҡ ԠŠ**("ӠˠΠϠŮ T:,"@A,@=} A P" A, A` A PRR;@,;A@,;@,9@,;@,;@,;A=}u,6.,;:.!?'#()&$%*+-/=$o+@%@'A9AA2KA@0]@e=}oA1@.L(@+(@ 6(@A(@L(@8O(@ BY&(=}@1(@O(@ BILL LUKEROTHB9-@@0,T:,"/'9 A@L=-@@P=} '"36-@= A V6-`0@@j t$D:STIKWRIT.BAS$=} A@ɛ,,(/+.ީ1 16-"@ A! 6-%6-$+!,! A<G)*^sFNSTLNLIKEDELACOUNMLINLORU@0& ?A@A} C && BVd i | STRDTA.BAS by: Ken Cox |n | A} 9 APR 89 |s | 򠠠 |x zA"AU+}j >:A}A%,"A @4AAFAAXAR@j@AY-A}@ -- % -- % -- % A}Ӡ -- % ᠠ -- % -- % A}AY@4;@8,006.&hXYi`A}-@A 6( ( (((((((!($('(*(-(0(3(6(& A0&TRAP FOR BXE CARTRIDGE9S@A}'S@9S@ A0a6-?:C:,,!A @3-@@a Error F:AA}, (problem with )7-@@'  Ӡ٠4)@7%11;@,;@,;@,A};@,W6-?:C:,,!AR@3@EAVA$WA"##@@A}K:6-@7-@@7 Be sure that the dimensioning">-@@> $statement and string arA}e in a listed';-@@ ; !file numbered between 500 and 999)8-@@8 with a string variable of lA}ess*<-@@< "than 4 characters. (Can't be LO$),>-@@> $A}16-A6-@@;-@@. String name? ̤;@F=B:,!@$-@@3 A} = A G4LO$A I 4̤6.ML$JD 6-B:,7<,0$+-@@:  A}D A O6-?:C:,,P4-@@4 Enter the name of the fileQO-@@ O containing the listed sA}tring >:@4,>:@4,Y6 AE-@@6 Complete filename?^"-@@"@c;;A}7@<@,4:)7@<@,4:AehR-@@)  ;-@@H A}R APm A%r+ @@+@w>-@@> $A}|9-@ @, Everything OK? /N9)@++"@)"A!)"AUA"@x)"AA}% A]6-?:C:,,!-@@E Screen blanks out while workingY-@A] " >:A%A},"A 5-@5 1015 PRINT ASC((I,I));.-@. POKE 842,12:GOTO 425*-A}@'AB@*& >:A%,8-@8 ENTER >:@4,>:@4,.-@A}. POKE 842,12:GOTO 445*-@'AB@*& >:A%, >:A%, Ae#-A}@#  DATA $$Reserved for data from line 7836-%@6-%@3"@A5 ,A} A :-@:( POKE842,12:? CHR$(125):GOTO 1010 6-%6-*-@'ABA}@*&)  ./-@/(POKE 842,12:GOTO 10803*-@'AB@*&8* >:A%,A}"-@* NEW='-@'AABU-@"U ;POKE 842,12:PRINT CHR$(125):LIST:POA}KE 709,14:POKE 752,0:ENDG*-'AB@*& D4:STRDTA.BAS2[-(% oad Sve memory xit @XThere are two working files, DTASTR.BAS and STRDTA.BAS. They will convertmachine language routines, up to 110 bytes, from dE}ata statements to relocatablestrings and back to data again. DTASTR.BAS (data to string)1. ML data statements must E}be in a separate listed file using line numbers inthe 600 to 700 range.2. Enter any valid string name, other than "LO$". E}There is a 4 characterlimit to conserve space.3. Enter the complete filename for the file containing the listed data.4. E}If OK, press RETURN or "Y". Screen blanks out while working (Appx 15sec).5. ML string and dimensioning line will be listeE}d to the screen. If there areany bytes 34 or 155 in the data statements, the border will turn red and theerrant bytes willF} be replaced in the string with 63's (question mark). Thecorrect values will be entered in the supplemental line or lines.F} STRDTA.BAS (string to data)1. The ML string must be dimensioned and listed in a separate file with linenumbers betwF}een 500 and 999.2. Enter the name of the string to be converted to data.3. Enter the filename of the file containing the F}string information.4. If OK, press RETURN or "Y". Screen blanks out while working (Appx 15sec).5. Data lines are listedF} to the screen If there is a need for strings longer than 110 bytes, you can easily divide thedata statements into blockF}s of 100-110 and then convert each block into astring. The strings can then be reassembled into one longer string up to theF}limits of memory. Comments are requested and any suggestions or criticisms will be appreciated! Ken CoxF}, 71777,430DATMOVPMBASSPABARBhdBh@@$ KKӢD E\NYNEYPONAPTNTIMNNSTRPOPTRECLEQ1GAMENAPTRANSRTANSOTIMCHTEAPLYRQSBLNKRECNUGAMENSELJ }ECTSCORENNHOFALEQLEQ2DKEMEMTOCHBASBUFADBUFLEROUNFLYFNUMFMAXROUNDMAXFOUNDESEXPCOLCOLO@ J }@ @@@@@d@ @ @ @ AT @6AP:&&::@J }:@::@@@@@:&'@`$;=dA ;J }!@"AV#B$@%@8&:&'B(@)A`*AV+Bc2,A-@.; /0;J }12@345678 ##*****************************##* J} *##* TARI QUIZ VER. 1.0 *(##* *2##* BY DALE MCPHERSON *<##* J} *P##* 2/20/85 *U##* *Z##***********************J}****** A""ˠǠĠŠ˛ 6-@  (T:,$:F:Ad,"@(*AdAJ}U06-: B@116-%$+R:,"@,&@$+R:,"@, @ 6-@  +!@ %+&,$+6-J}@ %+&,$""A`&1 -( -!(=> '6-1 A0RF:@ ,!@` 6-&,@ J}H2@P@@R Au: A?"-%@ ( "2D12A@@'-J}12I( ' A A"@N AXJ-@'2@0@5-@ 9 = G2J}J$3 -!2@B@/-A3 " 2-@0 "$+ BP Bp! B`+ BJ}--@ A&# A3- A6àǠЛEEA8@$+",%@d$+",%A`$J}+",%A$+",1 6-$&6.7&AH<&A,,-1()6.7&A<&@s,$-)('6.7&AIJ}<&AI,'6-A:, @ -&@6.7&+@r&$@,<&+@U&$@,, )-@ %$)(>:@e%,.J} 4 H6.7<,6-@ \> A#6--)-%@ 0(: A!> p7 A-6-@e%+J}&@ ,'@7 A"D2@@@'-+ 52=-A D$ˠӛI @:J},6- B& A$0 A5: A"@IWRONG ANSWER8 6- B A$' A48CORRECT ANSWER 6J}-%!6-6-%+ 6-% A"`!-@+ A& A3 A # ! B@#LOAD NEW GAMJ}E$נś -(=> $  -( $$  -(>>>$^ _ Ǡӛ` 6-J}@ %$+@:,&@e,t ' - A#@#-@P'   A# -@P    A#@$  J}ˠΛ  --%(  $ --@ %$ ($  & --@%(# &$( 4*(PLAJ }YER , PRESS TRIGGER TO GO.4 A'<  A%$  (T:,$ =F:Ad,"@(*AdAU06-3'= J!}B@ A'  ΠΛ &-P:'@,&6-P:H:,$,% #7<,4N67<,.U '#$ J"} 5 5AT LEAST HALF RANDOM PICKS, THEN SEQUENTIAL - #7<,4N67<,.U '#$4  G ԠҠJ#}śH 0-@ (0( - CORRECT ANSWER ! -\ 68,-8,%$f 33-%@ $+",%@ $+",%@)$+",J$}p  (8, A$ 5-@ (2( - INCORRECT ANSWER ! -5$=-@=(({{{{{{{{{{{{{{{{{{{{{{{{{{{{J%}{{{{{{{{{{*$= -9((| |= 841(({{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{4$J&}6ŠĠҠٛ6A8 Bb6( (0) Resume Game6L%( (1) Play again ... new fileL(" (2)J'} Change Time limit or Players6&&( Press number for Choice ...6 B6-&@H7 +&$,)!B@`7+J(} Bb+%BCBBBEw7Πśx7* 6-6-6--&68,-* 7= BPP Bb-J)}'( 3-@=( 7/-@#( %-@3/( 7! Bb B! A 7 A6J*} A 8 !6-9+ Bb Bb! A6+ A :ś:O6-6-@#6-%+6-J+}%36-%;6-%C6-$O6-AV:]6-AP6-!6-B-6-@96-@8E@K6-Q6-]@J,}e:44;BP,;,;,;,;,;,;@9,:%%;A,9,;,;@,:.67,. 67BP,.J-} .67@,.:306.& 3$>MODIFY DISPLAY LIST>6-F:A`,%F:Aa,$J.}>+%@h%+2 LINES ANTIC 4>=%@%%@A4=2 LINES ANTIC 4 + DLI>+%@A0J/}+%@"A0>'-@"#A6%' >++72,169,0,141,10,212,141,24,208,104,64>-AAJ0}-BBA>Ԡϛ>6 -6((  >((( a: b: c: J1} d:G?ԠӛH?00(({{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{R?` -2($ TARIQUIZ may be played by up to J2}4`() players. Plug a joystick into port 1.\?%%( Number of players? (1-4) a? Bf?%%&@H )&@H!J3}Bb%p?6-A:>:,,(z?,,(# Answer time limit? (5-25 secs.) ? Bc?M-@4@) )!@%J4};-@4@C( M Bb`?   6-?" -("$?'-@4@( ' BbUgJ5}B٠ҠԛhB'6-F:A, A&$+'(|B?AR@-A@R?A @(J6}B 6-&6-$6-A$B1 B# D:QUIZ.FNT' 1 BqBAV$B306-?:C:hRhJ7}UhThYhX V`,<<,3$OF$$TRAP FOR FONT FILE NOT PRESENTPF6+-@3(MUST HAVE 'QUIZ.FNT' ON D1:6FJ8}ĠӛF%K:)"%$G3B7h@'B7aAc3B7b"G%-@@AuJ9}%B7`,G - 6G @G;(B7`AP(-@%, 8B7a;$JGE --@/2J:}@ @7-; E2TG 2 $7JԠŠĠě8JQ B%D:*.J;}DAT+6-16-Q( Available Question Files:LJ( (7<@,4FREEB`VJ/ 6-6-%/( NO. 7@J<}<@,`J B jJtJ@( (1(! 6@ BJ;  ;($ Press number fJ=}or Desired File. (1-)J- B6-&@H- )!BJ5 6.=:,6. D:QUIZ .DAT567@<@,.J>}K B) K:6( MAXIMUM Rounds for  Players is P:',: K""( No. of Rounds Desired KJ?}# B-@$@#(K )!P:',B02KD )( Loading File No. ....16-$:6-C:,D BqJ@}( CHECK DRIVE 1 & PRESS ANY KEYH BR BbP\ BJB}D:TARIQUIZ.BAS4ename AUTORUN.SYS. Compressedpictures (ie, KoalaPad, Micro Illustr.)must use a ".PIC" fn extender. HNormalpictures (ie, Micro Painter, any 62sector pic) use ".*IC" fn extenders.Reboot with this pic disk to view your"slideJD} show". Press OPTION to hold apicture on the screen; START to skipthe pause between pics; or SELECT to goto DOS. (PatrickJE} Dell'Era, ANTIC 5/85)5. FADER MOD. Use to change FADER II'spausing rate. Self prompting. BASIC.(Patrick Dell'Era, ANTICJF} 5/85)6. 3D GRAPHICS. A 3-D graphics editor.(Paul Chabot, ANTIC 10/85, JC mods)7. G.U.P. The Graphics Utility PackageJG}is a ML program which will speedup yourBASIC graphic commands & adds ten newones: circles, squares, patterned fills& more!JH} Read the magazine article forfull tutorial/instructions. For bestresults rename to AUTORUN.SYS & rebootto load. If loadedJI} from this menu, youmust press RESET upon load completion.(Darek Mihocka, ANTIC, 6/85, p45)8. G.U.P. DMO. A demonstratioJJ}n of someof G.U.P.'s capabilities. Load G.U.P.(per above) prior to running this demo.(Darek Mihocka, ANTIC, 6/85)9. HORSJK}E. A galloping horse demo usingcharacter graphics. (B.R.A.C.E.)10. MILOADER. Loads/displays Micro-Illustrator (KoalaPadJL}) pics. (ANTIC&JC)11. MUSICIAN. A "Music construction"program. Integral command list. Allowsediting of last note only! TJM}his versionis not compatable with the original!(A.Giambra, ANTIC, 6/85, pg37, JC mods)12. LAURA. Demo tune for The MusicJN}ianabove. Load "LAURA" to hear it play orto edit. (ANTIC disk, 6/85, JC mods)13. PENCILS. A sharp GTIA demo! (GreggTravJO}ares, ANTIC disk, 6/85, JC mods)14. SLIDE SHOW. A BASIC demo using theAtari to present computer "slides".(Steve Wright, JP}from B.R.A.C.E. disk) DISK CONTENTS - Back Side of Disk(NOTE: These programs should be loadedw/o BASIC to insure propeJQ}r operation.)1. FUJIBOINK. Famous Atari demo with abouncing multi-color "Fuji" logo.(Park '86)2. MCP. Multi-Colored PJR}layers demo.Brilliant colors. ML. (ANTIC 2/86)3. SPLASH. Splash colors on a Gr.7+screen. ACTION. (ANTIC, 4/85)4. SWAN.JS} Another sharp Atari demo withflying swan & twirling Fuji. (Park '86)5. VIEW 3D. Create 3-D wire frame picsin Gr 8/7+. JT}Magnify, shrink, rotate, &shift viewing position fairly fast. Seemagazine article for details. ACTION.(Paul Chabot, ANTIC JU}6/85, p37)6. HOUSE.V3D. A sample VIEW 3D image.(Paul Chabot, ANTIC 6/85)rticle for details. ACTION.(Paul Chabot, ANTIC HM