@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu  } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 138ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u!"zDATCHK3LLENLINEADRCHAD T} kkDISKIO VERSION 4.3 -- BY BERNARD OPPENHEIM. ANTIC, JANUARY,1985. PUBLIC DOMAIN. REQUIRES DOS 2.0S.D;U}A,;@,'6-B'hDF:A,"AU@--@AX")A5%- jj104,104,104,13V}3,205,104,104,170,104,133,204,104,133,203,24,165,203,101,205,133,203,144,2,230,204,160ii0,177,203,133,212,200,177,203,133W},213,48,72,232,228,212,240,10,134,212,165,213,9,128,133,213,208,57ll200,177,203,133,205,56,233,3,133,206,169,0,168,74,144X},2,9,128,81,203,200,196,206,144,244,133,207,74,74kk74,74,201,10,144,3,24,105,7,105,48,209,203,208,13,200,200,196,205,240,Y}167,136,165,207,41,15,16,230,96hh104,104,133,204,104,133,203,160,0,132,213,177,203,56,233,48,201,10,144,2,233,7,10,10,10,Z}10,133,212 FF200,177,203,56,233,48,201,10,144,2,233,7,24,101,212,133,212,96,0 A @"6-?:A6<<<,( :A[}AU>A @ !AAU#6-&=(LINE  IS MISSING@ q*(!READY TO CREATE AUTORUN.SYS FILE?\}5@U@@K:b)@n@q V@9@@ D:AUTORUN]}.SYSC#@ L6-C:,V @>"6-B:,&@'@:,!@G>@:, @q@;-@6.7,#6^}-@:,/"@3;6-AU*@  @N-@@"6.7,36-?:AG<,@*@D_} N @@B%6-F:A8,%AV$F:A9,.6-F:,?6-F:%@,B$HHFFFF0C1D342968AD01A0C9CA`}F009C908D06EA9238DF71DA50C8D4A1EA50D8D4B49HH1EA949850CA91E850DA9F9A226206126A024888888B91A03C945D0F6B91B03856AHHCBA9Fa}C991B03B91C0385CCA91C991C03A00FB1CB99FC1C8810F8A9868D001DA91EHH1D8D011D18A004B1CB69018D881DC8B1CB69008D891DA9358DE702A929b}8DE802ECHH60203EF608C99BF005EEF91D286098488A48A206B5CB48CA10FAADF91DF0378516HHCDA9008DF91D85D08DFE02ADF202F026BAADF61c}DD0038EF61DECF61DD075A96493HH85CBA91E85CCD00320FB1DA0FFC8C4CDF0F6B1CBC9FFF05B297FD98005D0E9B10DHHCB10EAC884CEB1CB48C8d}B1CB4860000000223100C8B1CB10FB981869034C3D2282HHA00084D0A92E998005C884CD84CEA922CDF71DF00BA95585CBA91E85CC4CA52073HHAe}5D0D0DCA9801865CD8524A9058525A9058522A2F96895D2E830FA68AA68A8A9AAHH9B286020401520271DA9008DF91D60FF585846494E442F4026252Ff}B11E254449B6HHD21F362EC4216344454CAE20A444454C4554C520712ECB21654C4F43CB20752E6B HHD52165554EAE20A4554E4C4F43CB20792ECg}E21635245AE20A452454E414DC52015!HH7D4B494CCC20972EC5216545AE20A4454E5445D220E32ECC21654C4FAE20A44CAF"HH4F41C420E32ED221h}6552554EC4215A2ED3216353AE20A4534156C520E32ED82166#HH634C49AE20A44C495354C4215A4CAE20A44C4953D41E252EC22165424CAE20A4D0$i}HH424C4F41C4260648454CD02683464F524D41D425192ECD21634DAE20A44D4F565B%HHC523E657444FD3249EFF44313A2A2E2A9B20B419A9028552A9j}31A004C4CDD003DA&HHAD83058DF81D8D311FA006A93048A91F48A90320D6259810034CBC23206722A93B'HH008DEE0585D1A97D8DC605A91D8DC70k}5A99B8DC805A9C648A90548A028A909A2A9(HH0020D625ADEE05D010A91C8DC6058DC705A99B8DC8052056E4207C22A220F81878)HHA5D1690185D1l}D82901F00AA9C685CBA90585CCD008A9DA85CBA90585CCA5CB48BF*HHA5CC48A014A90520D62598100620B4194C061EEEEE05A00DA920D1CBD097CEEEBm}C+HH05A01288B1CBC891CB88D0F7C8B1CBC891CBA000A5D129F0D006A92091CBD00968,HH4A4A4A4A18693091CBC8A5D1290F18693091CB4A90C6A9n}208DD8058DD9054CA23A-HH1F202D204C061E8DEF05A4CE20EF2020C324A5D0F00568684C061EE6CEA220A944.HH00A4CD9980053898E5CEA818A98o}065CE48A905690048ADEF05C903D002A0042052/HHD6259810066868984CBC2360A921D0B1A923D0ADA924D0A9A4CE20EF202056252C0HHF0053007p}4C061EA920D096A90085D04C261EAD4A1E850CAD4B1E850D4C74E4A00B1HH0020FB1DA4CE88B1CB297F998005B1CB3008C820CB20E6CE10EDC8B1CB48Cq}8B11B2HHCB48A4CE608CF005E6CDA4CD88B98005998105CCF005D0F4A92099800560A4CEA53HH20EF2020C3244C261E203321ADF71DD98005D013C8r}C8A93AD98005D02F20CB20304HHA931998005D02520CB20ADF71D998005C820CB20A944998005C820CB20ADF81DC55HH998005C820CB20A93A99800s}560B98005C920D020C4CDF01CC6CD8CF005B98105626HH998005C4CDF003C810F3A920998105ACF00510D960A4CEA920997F05D080E6D0D87HHA5CDt}C902F064AD8205C930305DC93A105938E920C910D002A9008DF105AD83059A8HH38E9208DF205C910300AC91A1006A5CDC903D00BADF1058DF205A9808u}DF105A5609HHCB48A5CC4838A558E91285CBA559E90085CCA015B1CBD005A928203D22A9142014:HH3D22A001B1CBD0096868A90085D04C261ECDF2v}05D0E788ADF105297FD1CBD0DDE8;HHC8C8B1CBC900F004C90AD0D1A9208D81058D82052CF10530038D8305A0012033F9<HH21A90B203D22A002202w}D22A92E204722A9F8203B22A007202D226885CC6885CB2F=HHA90185CE4CA520B1CBF0062054222047228810F360C6CC1865CB85CB9002E6CC4A>HHx}608D80059848A00020CB2068A860482A2A2A2A2903AA68299F1D63226020400007?HH6018A55869168DF505A55969008DF605A9FF8DF7056020A623EEFy}705AEF705F035@HH0B8EF805CAD006ADEE05F00160A212A028208023CEF805F011A028207E23A000A0AHH209223A928203D22D0EAA014207E23A000z}209223A212A014209423A003B1CBD031BHH034C1F23A902203D2238A5CBE9148DF305A5CCE9008DF405A212A000208023A2E7CHH24A028208023202{}F2320B123A028207E2320A623A00220922320B123A914203D96DHH22A224A028209423A212A028208023A013B98005F003202F23A027A90091588805E|}HH10FBA02BA911915860A9008DF905204423ADF905F0016020B12320442360ADF7E5FHH058DF805A000207E23A200A012C8E8E00CF015B98005DD800}}5300DF0F0A212A04CGHH28209423EEF90560A028209223A9D8203B22CEF805D0CD60A200A9128DFA05B101HHHCB9D8005E8C8CEFA05D0F460A200A9~}128DFA05BD800591CBE8C8CEFA05D0F46010IHHADF50585CBADF60585CC60ADF30585CBADF40585CC6048ADF71DC923F01420B498JHH1968A2FF9A8}5B92C41B930034C40B94C34B968A2028E860420E6BD20B4194C06F6KHH1EA903202D20A59048A59148A9079D420338ADE502E5908DFD05A8ADE602E591}3DLHH8DFE0520E52598107CC988D0A9BD49038DFE05BD48038DFD0520B419A4CEA931DBMHHD98105D02EA9498DA926A9A9A22620BE19A0FF8CFC02C}CFC02F0FBADFC028CFC42NHH02A220C93ED00CA9FF8DFE02A99D48A924D00EA4CEA9319981059818698048A9A3OHH0548A008A90320D62598309FA5}9048A59148A90B9D4203ACFD05ADFE0520E5258FPHH9830881007A9D0A22620BE1920B419A9008DFE024C061E453AA220ADF81D8DBA40QHH24A9B94}8A92448A008A90320D6259830B910D944313A444F532E535953A5D0D056RHH0160A200A98048A90548A4CDA93F998005C8A90B20D62520B419A004A918}48A958SHH2548A90320D625A000A91848A92548A90720D62585D0A9CFA22620BE1920B41940THHA959C5D0D004A90085D0A4CDA920998005604B3AA}DF81D8D9A26A98E85CBA926C5UHH85CCA000A206208023E6D0A01384CD20C324A5D0D017A00D207E23E6D0A00E84EFVHHCD20C324A5D0D005A9FE4C}27204C061EA6CDA0FF8CFB05A92CC8CAF06FD98005DAWHHD0F7EEFB058888B9800548A944998005B9810548AD8805998105A93A998205E81AXHHE8E}88E4803984820B4196848186980488D4403A9006905488D4503A004A9032057YHHD625C0AAF014EEFB05A90B8D4203A2002056E4A9DBA22620BE1920B4}1968A868ABZHH99810568998005A92C998205ADFB05609D4203C903D006989D4A031009A9009D22[HH4903989D4803688DC505688DC405689D45036}89D4403ADC40548ADC505484C568C\HHE4A4CE20EF20A210A9008D9E1518A98165CE9D4403A90569009D4503A4CDB97E8B]HH05C92FD00EC6CDC6CD}B97F05C94ED003CE9E15A4CDA99B99800520A415E000D05A^HH034C061EE003F00620AA194CBC23A9EBA22620BE1920AA194C061E85CB86CCA50B_HH}CBA6CC20BE19A0FF08C8B1CBF00E28F0EEC99B08E6CBD002E6CCD0EE2860A93F90`A2272061264C061E2044FFaHHISK DRIVE 1ARE YOU SURE?}?INSERT DISK2;HIT ANY KEY (S=TO SCREEN)!08b11OUT OF RAM! ALREADY EXISTS!BAD LOAD FILE!7Bc1D1D1D449CdIIISKIO 4.3 by} Bernard Oppenheim!Antic 1/85!Type HELP for commands!CAe007D4313fnnOMMANDS:!! DIR Directory! DIRn } Dir. Drive n! FORMAT Format disk! 62ghhWDOS Write DOS.SYS!.X->LI.->LISTD List to disk!.S->S. ->SAVE } Save to disk!.E->E. ->ENTER EF1hkknter to mem.!.L->LO.->LOAD Load to mem.!.R-> RUND Run disk file!.K-> LOCK } Lock file!.EBimmU->UN.->UNLOCK Unlock file!.N->RE.->RENAME Rename file!.D->DEL.>DELETE Delete file!.B->BL.->BLOAD BiF4}jmmnary load!.M->M. ->MOVE Move file!!.R9 runs #9 etc. To use DOS type KILL.Reboot to restore DISKIO.!24k00E202E3020}D1D47 D1:DISKIO.BASE Move file!!.R9 runs #9 etc. To use DOS type KILL.Reboot to restore DISKIO.!24k00E202E302010 ; LISTING 215 ; INFOBITS.ASM30 ICCOM = $034240 ICBAL = $034450 ICBAH = $034560 ICBLL = $034870 ICBLH = $03 }4980 CIOV = $E45690 PUTREC = $090100 GETREC = $050110 ROWCUR = $540120 CH = $02FC0130 EOL = $9B0140 RBLL = $ }03580150 SBUFL = $E00160 SBUFH = $E10170 SBLL = $E20180 R = $E30190 RBUF = $03FD0200 *= $06000210 PLA }0220 PLA 0230 STA SBUFH0240 PLA 0250 STA SBUFL0260 PLA 0270 PLA 0280 STA SBLL0290 ;0300 G }ET LDX #$100310 LDA #GETREC0320 STA ICCOM,X0330 LDA #RBUF&$FF0340 STA ICBAL,X0350 LDA #RBUF/2560360 } STA ICBAH,X0361 LDA #1310363 STA ICBLL,X0365 LDA #00367 STA ICBLH,X0370 JSR CIOV0380 BMI E }ND0390 ;0400 LDX #00420 LDY #00450 P1 LDA RBUF,X0460 P2 CMP (SBUFL),Y0470 BEQ P30480 CPY #00490 } BEQ P40500 LDY #00505 LDX R0510 JMP P40520 P3 INY 0530 CPY SBLL0540 BCS PRINT0560 P4 INX 0570 } CPX RBLL0580 BCS GET0585 CPY #00590 BNE P10595 STX R0600 JMP P10610 ;0620 END RTS 0630 ;0800 } PRINT LDX #$200810 LDA #PUTREC0820 STA ICCOM,X0830 LDA #1310840 STA ICBLL,X0850 LDA #00860 STA } ICBLH,X0870 ;0880 LDA ROWCUR0890 CMP #200900 BCS PROMPT0910 ;0920 LDA #RBUF+$0A&$FF0930 STA ICBAL },X0940 LDA #RBUF+$0A/2560950 STA ICBAH,X0970 JSR CIOV0980 JMP GET0990 ;1000 PROMPT LDA #MESSAGE&$FF101 }0 STA ICBAL,X1020 LDA #MESSAGE/2561030 STA ICBAH,X1040 JSR CIOV1050 WAIT LDA CH1060 CMP #2551070 } BEQ WAIT1072 LDA #2551074 STA CH1080 LDA #CLEAR&$FF1090 STA ICBAL,X1100 LDA #CLEAR/2561110 ST }A ICBAH,X1120 LDA #51130 STA ICBLL,X1140 LDA #01150 STA ICBLH,X1160 JSR CIOV1170 JMP PRINT2000 } ;2010 MESSAGE .BYTE "٠٠",EOL2015 CLEAR .BYTE "}",EOL1150 STA ICBLH,X1160 JSR CIOV1170 JMP PRINT2000 ?`z{ RAMTOPMBASXPOAL } KOALA CURSOR DEMONSTRATIONBY KARL E. WIEGERSANTIC MAGAZINE(16-A1AD=1596 FOR ATARI TOUCH TABL}ET.2>>104,169,7,162,6,160,10,76,92,228,173,112,2,141,0,208,160<@@6,169,0,145,205,136,16,251,173,113,2,133,205,160,0,177},203FSS60 DATA 6,169,0,145,205,136,16,251,169,228,56,237,113,2,133,205,160,0,177,203PDDFOR TOUCH TABLET, USE THE ABOVE }DATA LINE IN PLACE OF LINE 60.Z@@145,205,200,192,7,208,247,165,20,201,4,208,7,206,192,2,169d;;0,133,20,76,98,228,104,16}0,98,162,228,169,7,76,92,228n,,RESERVE 8 PAGES OF RAM FOR PM GRAPHICSx6-F:A,&@6-$AVA}&@ +@BByAY77LOAD VERTICAL BLANK INTERRUPT ROUTINE INTO PAGE 61-}@+&A&,"-A5%1 +-%A$%Ay'+ !A!A)A})A%@LOAD PLAYER DATA'-@"#%' 128,64,32,20,12,30,6 }+@/-@@/(@ *** MENU ***.-@@.(@ menu item 1".-@@.(}@ ,.-@@ .(@ ՠ͠6'-@@'(@QUIT@&&TURN ON PMG }AND INITIALIZE TIMERJAY@bTB2w@^@ h88TURN ON VBI ROUTINE. TO TURN IT OFF,} USE A=USR(AD)r6-?:A6,|-@A  R:,"@A5+F:A,!@c*F:A}, @t5 AP5+F:A,!@y*F:A, @5 A 5+F:A,!@*F:A, A5 A}5+F:A,!A*F:A, A"5 AP A1 +@AY@b1B2H 6-?:},0-@@0(@ AT OPTION ONEM-@@3(@ӠΠM(@ }-@A  R:,"@A A`1 +@AY@b1AR@}9A@'A 9AA,-@@,(@ 7 + 5 = ?&0-@@0(}@ 10 12 2 160))(! Point to answer and press button: R:,"@ApD6-B`P&@$N//}F:A%, )F:A%,!%@ApXA+F:A$,!@*F:A$, A!5 A APADDLE(0)bT-@}2(@SORRY-TRY AGAINF-@@PJ T Apl2-@2(@ CORRECT!! v%-@}@%(@##(} PRESS BUTTON FOR MENU-@A  R:,"@A`} A`1 +@AY@b1B2H 6-?:,2-@@2(@AT OPTION THREEM}-@@3(@ӠΠM(@ -@A  R:,"@}A0 A`B2H6-?:, AF:A,%@"AY@+" D}:KOALA.BAS@+"" Dk PEEKERBY BILL MORRISANTIC MAGAZINE(B6-BBDATA STATEMENTS WILL ST}ART WITH THIS LINE NUMBER2-A6A@<"(>:A%,"-@@F( DATA P(F:,,Z}(F:%@,,d(F:%@,,n(F:%@,,x(F:%@,,(F:%@,B-@}'AB@9-@@B(CONT-@@&AB@6-%@ } D:PEEKER.BAS9-@@B(CONT-@@&AB@6-%@ @00MOVEALIVEOFCHBRBIBTIMNBXYUULLCSCORBONUNNXIIIFBLBLLBASJUNINSECHANG} }} !"#$%&'(Q.T. BY BRIAN MCWILLIAMSANTIC MAGAZINE J}UNE 1984 I;@2,;@,'6-@36-Ar?6-@I B:-F:A,-67<,.=:F:A%,},1 :6-A:,2= @a,/@+,@!=/@@!7],@@'/@@9/@}@ K/@@ ]/@@< Ab,@%/@ 7,@@I/@@ S@4}e,@@w/@@,@@/@@F @G,@@1/@@C/}@@U/@@g/@@y,@@/@@,@@PC/@@}',@@9,@ @CAuUg,@@',@@9-@@U(@antic m}agazineg-@@Zw(@PRESENTS+-@@G(@programmed byY-@@ w(@}BRIAN MCWILLIAMSdm Ap36-%+ @,&@$+"@,?6-%+",M6-@P$Y-@#m(@top} i"@A}y6-@r$+",%@t$+"@,%@u$+"@,%@X$+"@,%@$+"@},%@$+"@, Ap " A@M Ap @a,)/@;/@@"G/@"M/}O Aq Aq/6-AP&+$@P,E6-@%@$O Aq0AAAP A}% @G%-@u%@$Q6-P:@$H:,,%56-P:@ $H:,,%@=1Q@2A ,} -@u6-P:@$H:,,%@;6-P:@$H:,,%@C1u!@6* @A)"@ *"@ }A@G@6%, %6-@B16-@ =6-@G Ape, (T:, A`6 6-R:,6-+"@})"@)"@,%@$+"@,%@$+"@)"@ )"@,%@$+"@,APA }AA@@y1@%1@@91@@!G1@!y"@7*"@8*"@9*"@@}AT# As@w# A^ 6-66-h(1%%"@2% Ap0($r&"@G Ap}# Ap0&$|*(*!@6* @A)"A$?1%$@%$@+"@25 Ap@? Ap0}$ 6-6- A`4"@C6-@B!6-'6-1 Ap04$ 6-6- A`4"@B}6-@C!6-'6-1 Ap04$ 6-6-6 A`9/6-@D$+"@B,%@$+"@C,39,8}-@@E602@@4 8 F Ape-1&+"@C,%+"@B,C"@2)"@aF$}"@BA --&61&&@2* -$H!2A&@@+@21,5=,&}A E H$0-%@1%)@2- 0$H!2A%@@+@21,5=,%A }E H$XQ AqP!-@@!)1Q"@2)"@B)"@CA b - A@l91@9}"@2)"@B)"@CAPv#-@ A@# AP((@>:%A(,% Aq($ 6-}%% $  @2,@%,@7,@@I,@@[,@@"m/@@"w}@a,@/@@,@@*/@@',@@!9,@@!K,@@ }]/@@ g@4s,@,@4,@@',@@3,@?/@!Q,@}@c/@@!u,@@/@@!,@@/@@!>O @,@}@+%A(=,@@I6-@O6-R16-@ 6-@'6-@B1 Ape\T-@&}6-R:,T6-+!@* @,%@$+!@* @,a7 @b,@-A A@7 Auf}-@ k @,@ p6-P:@$H:,,%g6-@d$+"@,%@G$+"@,%@5$+"}@,%$+"@,6-P:@$H:,,%@u--6-$+",%@P$+"@d)"@G,zww6-+"@d)"@X)}"@r)"@t,%@$+"@u)"@G,%@$+"@5)"@)"@,36-P:@$H:,,%36-%A(}$+"@,d-@@#,,6-R:,d6-+!@* @,%@$+!@* @,(}-@ 'A A@!@2',g!2@W%@@ % /2=1@I@2}g"Ac)"@5Aqh,@%+"@2,--@1 96-&J6-6+@2,T Ap^@2}h,%%!!"Ac)"@5A`"@2A @2,@'-@%N(@>:%A}(,>:@4, X@al,@%@/@%@! 6-% Aqp !6-%! Aq! @}A`[ 6-6--@' A + 5 AqPC-@M Aq`W Aq[  6-%$ A}`! Aq`! @A`q-@@b',@5-@S2AW&@@W }a@m,@q 7-@ @2%,) - 7 Aqw @2,@"+/@@"}5@aA,@S/@@e,@@w/@@.16-@6-@'6-@B1 Ape}8AB-@&G ( $L)@w Aq)(T:,AQ-@% V 6-R:,6-+}!@* @*@,%@$+!@* @*@,%@$+!@* @*"@,`_16-%@}$+!@* @*"@,UA A@APA0_ A@j-@ t9 1%#"@2}*@/6-@9 Ape~O"@a*"@E6-@B$+ @,%@C$+!@,O Ape/"@3})"Aa%6-@/ A !!"@*"@"A6T:,*"@@2$,,6-%6 Ape }(* 6-A@c6-P:@$H:,,%M6-@5$+",%@c$+"@,%$+"@,c6-P:@$H:},,%s)6-@3$+",%Aa$+"@,?6-P:@$H:,,%s6-@$+"@5,%@P$+"@c,%$+",ym6}-+"@5,%@$+"@c)"@u)"@t)"@r,%@$+"@X)"@)"@,y6-@ 36-P:}@$H:,,%36-%A($+"@,*-&&61&"@2* I @2,!/%@)6-%}-3,=@AE,%IC,%@/2AP%@@C"@2A(X @Y,$-@}6:2@V@> H2R@2X,-"@6-%/ 6-6-&2[ @2,%+}-%@@"31?"@I@2Q,&[ A<K @2,&,=2A$%@@}A K2F @2,& Av6-@ Ape/-@@K2@AP@O} Y@6_,v-@6@U2@AP@# -1&9"@2=C,K6-&U Ape}2@ A 6-6 1%@26-. @2,6-%% Ape+6-.$ 6-} A5@/-@2 )@2/,E @a,@@"1/@@";@AM,@}@!_,@@ q,@@!,@@ Aa,@@Jn,@@@E1},@ @!H-@!@6R@2`,@%n/@%T @a,@%/@/@E}=,@ &G@A[,@&@o,@&@yAa,@&@^I,@&@%-@}) - 96-@ ?6-I Aqh6-@6-@Bm9 Ap @2#,@"5/@@"9}oE,@%@!@B-6-@;,@%E#Are-@%@%%@23,&@= A}peC"Y2@@a-e |P-@6$2@( , 46-&B-@ L AP }n6-@&-@!@60@28,%B ApeF"\2@@j-@n ? @6},$-@642@8 < ?$::68,50,102,50,76,50,114,100,114,50,76,50,68,50,85,1006647,243,53,243 },96,243,60,243,53,243,47,243,60,243 Ap @4#,@5/@@ A,@S/@@ ]@a }o,@@/@@/@@'/@@9/@@K-@@a(@ }you win^s-@@(@CONGRATULATIONS^!Arp& Ar0  X+-@+(@ }PRESS TRIGGER]@wT:,Apb$l4 @2-@"!,-/@1 4$vP @2, }6-%#6-%- ApeI2@W@@M P$X @2,%%5,%$@%$@Q2A}@@U X$ ,$s @Y,%%%-@A2@h@@E S-@o2}@@@s  6-%@$+",$#-@ (@=#$H Ap-',@}%+ 5@aE,@%%H$( @a,@%/@($& "-@ &(@=$}6 6--@@3(@bonus x 6$s @2,@!-%?(@ >:@4,]I@a}W,%@k/@%@s6-%8-@-2A(@@1 5 8$ a!2%A$@}@)6-%;-@@H(@L Z-@%^ a$S @E,#ArP+-@1"G2}@@O-S  A-@6$2@( , 46-&A(Ar`*9 @2, Aq9}Ar0Ar Ar04 @AP> Ap  A0R$$85,85,76,25,72,25,85,50,60,100\F Aq -}@@8(@ end of gameFArf@ 6.=:,AB:,&-B:,<A%A:7<,,@ p A}p A@z 2$1 6-& Aq0 Aq$(''1 Aq$'X #Ba$6-F:A,&@66}-+%,$AVBAYNAX+@'O-@2"!67,.>:,% ;6-?:C:,<<BsD,OAV'AV}$'5 B`"5-%$@%$@%@.'"   B L'AYAT$V'aa104,104,133,}215,104,133,214,104,133,213,104,133,212,162,4,160,0,177,212,145,214,200,208,249['$$230,213,230,215,202,208,240,96`'__29,1}70,85,170,85,170,85,170,85,2,24,126,90,66,66,90,126,24,15,0,126,126,126,126,126,126,0j'YY10,8,20,24,56,56,112,96,152,5,0,12}6,70,94,94,126,126,0,6,0,126,98,122,122,126,126,0t'YY7,0,126,126,122,122,98,126,0,8,0,126,126,94,94,70,126,0,12,8,20,24,58,}62,112,96,152~'UU13,160,0,12,68,190,127,0,0,11,16,40,24,28,28,14,6,25,63,16,40,24,92,124,14,6,25'^^27,146,84,0,198,0,84,}146,0,26,254,254,170,138,170,254,254,0,40,124,68,108,56,16,24,16,24'WW61,0,0,48,94,116,106,62,0,30,0,12,56,80,96,74,62,0,3}2,24,60,60,126,126,126,126,60'!!3,0,255,126,126,126,255,0,0'[[1,124,246,250,254,254,124,56,16,9,16,16,16,16,16,16,16,16 },31,104,88,104,92,116,56,0,0'TT60,0,195,36,24,24,36,0,0,4,0,0,0,126,153,36,0,0,42,24,60,36,36,126,126,126,126'^^43,16,5!}6,124,124,124,124,254,8,49,112,64,110,72,126,2,14,0,54,60,126,90,126,126,126,84,0'62,12,12,24,24,48,48,0,48 D:QT"}AG,126,84,0'62,12,12,24,24,48,48,0,48AE,126,126,126,84,0'62,12,12,24,24,48,48,0,48 D:QT@:%%LCHATPLTXPLTYSXOFLPREVXPREVYTTOFLNGWORDSARWBLBTTIMDSCOREROUNFIRSTAOFWIWIN$}NEDUSSTTADNONRANDOFIREFIRGOAE``@@@ @@A @ %}@A  @ @@ AA @AA@ @0&},@@AB6A !@A"#A$@%@P&'(A)@'}*@+,-@./B7pA012@3@P SCRAMBLEBY F. NEIL SIMMS(}ANTIC MAGAZINE. AP A.** init and begin **&** time delay loop **( F:A@,@@2$)}5** INPUT: string TP$ **6**** OUTPUT: LN (nonblank LEN(TP$)) **7?-@@$7<,4 26-&@5'*}? @e< 6-@A$** move cursor **m 6-8,6-8,1)&@2GB7`%$@@%@@+}[B7a%Ahm@w 8,68,- ,I#"@)"@)"@16-&@,}= @I6-@I#"@ )"@)"@16-%@=!@I6-@C!@* @-}'6-&@5 @%C6-@%C!@* @'6-%@5!@%C6-@%/ 1%.}@2,&68,-/68,-$##** mark square or end word **68,-@: 6-8,6-8,6-8,&1/}:!A"AB"AB** always mark square if first letter **11O:8,&,!@)O:8,&,!@0}AY!B7`%$@`%@`5B7a%AhA%A(G,P68,-Y68,-:67%<%,.>:&@1}2,) @ :68,-%@ A==** square was already marked - process word if valid **H!@2}+2AU@@5 AH** array full **o!B7`%$@`%@`5B7a%AhL8, @3}Ao** word is too short to count **T6-$A%$@C67%@<%@,.7<%@ ,T68,-%@4}67<%@ ,.p(-@@46-+&@,$@@-@b(@7%@<%@,f 5}p A@i-@@/6-+&@,$@C-@@&e(@7%@<%@,i Q68,6}-$@@@-@%@$@Q(@8,& 1%@2,X$** main play 7}loop **B7a%$@0T:,*8,068,-0T:@,*8@,068@8},- F:AB,ArAB@6-(*6-@ $@6-@$%@I6-8,R6-8,`9}6-$@r@@, 6-R:,@" A, A0! 6-T:,(*(8,! A** update TI:}ME **6-F:A@,AP 6-&@XA@@`'@@9-@ @K(@;} X(A& A&** end of main loop **** end of round **V A'*-@6?0<B<}2yHA@R @@V T@@'-@@(@ duplicates:T-@=}"8,!@6-" A0 338, @)8@, @A@B A(-@8(>}@ matches: B A3> A(-@@ >(@accept < > rejectV-@.(@?} B-@H6-R A5V -)-@ 9(@= O-@@}@n(@A@A @@Q'8, *8@, AQ** skip followingA} if not end of game **18,!8@,'6-1 A##8,"8@,A 6-@HB}-@@>(@player #%@ wins!H A.-@@.(@ it's a tie!-@PC}AP@1A@; @@W2@@{2@A&@@  A'D} A A@ A ! A%/6-%@A@@g-@&@$+!@ ,@u(@E} A&<& A&** start next round **? A& AP! A?** end of game - restart **** diF}splay letter grid **T@@+(@>:A%,=-@T(@cRbLO-@@%G};6-P:F:,$@'AV,%@K67<,.7<,O -@@/6-+&@,$@;-@](@H}7%@<%@,q-@@&(@7%@<%@, ** border **m-@@I}@3-@@9-H(@V-%@ e(@i m m-@@@3-@J}@9-H(@V-%@ e(@i m  9-@6-+6-@ $5 A9K} 4$ ** build scoring window ** Q@@1-@@=-@Q(@ L}-%@@)(@0 5-@I(@]-%@@(@8&@$+"@,,M}  K%2A @@7A@@A @@K A' s-@@'(@9-@ N}@J(@200\-@@s(@round:  $& ** "go on" prompt **( t@@'-O}@ H(@press to go on]F:B2y,"@`'j APt A2 IT:,*T:@,--@P}@ ?(@FIREI A&< %%(T:,)(T:@,A& F H-@$(@6-Q}@ E(@H$ ** turn off sound ** *B7a'B7c*$ ** 4 clicks ** L-@R}@)A@@;B2yE @@I L$ ** find and delete dups ** q@-@%A$8,S}$@&@%A$@S6.7<%@ ,_6-qB2y 4A0` 88-%@8,$@T}&@%A$@ 07<%@ ,A0U ##F:A@,*(A05 %%(T:,)(T:@,U}A07 b67<%@ ,.(7-%@$@D(@VA@A b6-@     KV}A@A  @@;-%@$@H(@K$ &&** find matches and eliminate ** e2-@W}8,$@&@ @E6.7<%@ ,WB2ye4A3 ::-A8@,$@&@ X}%A@ 07<%@ ,A3u / @@/(T:,)(T:@,A3@ g67<%@ ,.)67<%Y}@ ,.;-@@H(@ZA@A]'g A3/  4  > / @@-@@,(@Z}/$ $$** let players review words ** m6-@L-@%A$8,$@&@ %A$@_6.[}7<%@ ,m4A6 -%@$@,(@@-@@^-@%@$&@v(\}@7@<,z 6- 36-R:,!6-R:@,3A@@  !!@*@A5` ]}-@@ )(@K2A@@U @@g-@@ {(@reject A5^} !!@*@A5@ -@@ )(@K2A@@U @U6_}-@$+ @,%+&@,$+@, b68,-8,%#@@?-@%@$@P(@8,`}b@@ 3 @@-@@ 3(@accept%%(T:,)(T:@,A5 A' @@a} U#-@%@$@9(@no wordsKA@AU @@/-%@$@b},(@/$** initialize var's **t 6. 67A ,.)67@,./6.C-@R68,-c}a68,-p68,-@t c68,-@-68@,-@B68,-@W68@,-@c6d}-A$** initialize **m +@/6-F:A`,%AV$F:Aa,;6-@PG6-B7pa0@@e}@m6-@P)-@@%%@) E%@@e.%@ F:A`,E%@!F:Af}a,;A ,;@ ,9@,9@,9@,9@,9@,9@,;@%,;@,;@g},;@,9@,9@,9@,jj6.`AAAAAAAABBBCCCDDDDEEEEEEEEEEFFGGGHHHIIIIIIIJKKLLLLLMMMNNNNNOq}?B%DOS SYSB*)DUP SYSB@SDISKIO BASBINFOBITSASMBKOALA BASBPEEKER BASBaQT BASBL#SCRAMBLEBASBxSEARCH LSTBTECHTIPSLSTBWIDETEXTASMBWIDETEXTBASOOOOOPPPQRRRRSSSSSTTTTTUUUUVVWWXYYYZ= A@6.(68,-=68@,- A  A%#6-r}@5@@G-@@U(@g-@@y(@0 -@@'(@s}0 '@@IA@@'-@@ I(@ select GOAL:   B-@8(@t}press to beginB @@&6-F:B2y,&"@AQpY"@6-%@P)!A56-@u}PG-@@ Y(@ (t-@@ )(@;-@@N(@start`Av}@@j @@t AQ 2K-@$(@6-@ E(@K6-P$D:SCw}RAMBLE.BASj @@t AQ 2K-@$(@6-@ E(@K6-P$D:SC 31900 REM SEARCH UTILITY31901 REM BY SCOTT SHECK31902 REM ANTIC MAGAZINE31903 GOSUB 31907:POKE 4,1:POKE 2,PEEK(136):POKE 3!y},PEEK(137)31904 ZZ=USR(1536):IF PEEK(4)=0 THEN 3192531905 A=PEEK(0)+PEEK(1)*256:IF X=10 THEN LIST "P",A:GOTO 3190431906 LI!z}ST A:GOTO 3190431907 RESTORE 31908:GRAPHICS 0:IF PEEK(1537)<>216 THEN FOR X=1536 TO 1638:READ A:POKE X,A:NEXT X31908 DATA 1!{}04,216,160,0,177,2,133,0,200,177,2,133,1,201,124,208,11,165,0,201,156,208,5,160,031909 DATA 132,4,96,200,177,2,133,204,200,2!|}00,177,2,197,203,208,4,32,91,6,96,201,0,240,35,201,131910 DATA 240,31,201,14,208,4,169,7,208,7,201,15,208,11,200,177,2,132,2!}}06,24,101,206,168,177,2,201,2031911 DATA 240,209,201,22,208,206,32,91,6,76,2,6,031912 DATA 165,2,24,101,204,133,2,144,2,230!~},3,9631913 ? :? ,"SEARCH UTILITY":POKE 82,0:COUNT=128:ZZ=PEEK(130)+PEEK(131)*256:? :? COUNT;" ";31914 A=PEEK(ZZ):? CHR$(A-1!}28*(A>=128));:IF A<128 THEN 3191931915 COUNT=COUNT+1:IF PEEK(ZZ+1)=90 AND PEEK(ZZ+2)=218 THEN 3192031916 IF COUNT=148 THEN !}POKE 82,14:POSITION 14,231917 IF COUNT=168 THEN POKE 82,28:POSITION 28,231918 ? :? COUNT;" ";31919 ZZ=ZZ+1:GOTO 319143192!}0 POKE 82,2:POSITION 2,23:? :? "NUMBER";:INPUT A:POKE 203,A:? "CREEN OR RINTER";31921 X=PEEK(764):IF X<>10 AND X<>62 THEN !}3192131922 ? "}":RETURN 31923 ? "}":? :FOR ZZ=31900 TO 31914:? ZZ:NEXT ZZ:? "CLR:POKE842,12:CONT";:POSITION 2,0:POKE 842,13!}:STOP 31924 ? "}":? :FOR ZZ=31915 TO 31928:? ZZ:NEXT ZZ:? "CLR:POKE842,12:?CHR$(125)";:POSITION 2,0:POKE 842,13:END 31925 ?!} :? "END OF SEARCH":? :? " AGAIN (Y/N) ?";:POKE 764,25531926 IF PEEK(764)=43 THEN POKE 764,255:GOTO 3190031927 IF PEEK(764)!}=35 THEN POKE 764,255:GOTO 3192331928 GOTO 319264,25531926 IF PEEK(764)=43 THEN POKE 764,255:GOTO 3190031927 IF PEEK(764) 210 REM TECH TIPS20 REM ANTIC MAGAZINE22 REM DO NOT RUN THIS PROGRAM! EXTRACT AND USE THESE TECH TIPS AS YOU NEED THEM24 S%}TOP 30 ZER=ADR("hhhԩ`")40 REM X=USR(ZER,ADDRESS) Zeroes-out 256 bytes of RAM.50 DBPK=ADR("hhh̠̅ȱ̅`"%})60 REM X=USR(DBPK,ADDRESS). Does a double PEEK at address and address+1.70 SHIFT=ADR("hhhhhhh%}`")80 REM X=USR(SHIFT,FROM,TOO,NUM) Moves NUM bytes from memory location FROM90 REM to location TOO.100 JIFF=AD%}R("hhh̩`")110 REM X=USR(JIFF,JIFFIES) Waits JIFFIES120 DIM N$(100)130 N$(1)=" ":N$(100)=N$:N$(2)=N$%}140 REM Quickly fills a string with blanks.R(JIFF,JIFFIES) Waits JIFFIES120 DIM N$(100)130 N$(1)=" ":N$(100)=N$:N$(2)=N$$,0100 ; wi de l etters0110 ; BY BILL MORRIS0120 ;0130 ONECHAR =$6FE ; TEMPORARY0140 HALFCHAR =$6FF ; HOLD)}ERS0150 CHBAS =$2F4 ; CHAR SET POINTER0160 NUMBERS =$45 ; BORROWED FROM DUP0170 CAPS =$CC ; SAFE FROM BASIC0180 CONTRO)}L =$CE0190 LOWER =$47 ;ALSO BELONGS TO DUP0200 *=$06000210 PLA ; SETUP RETURN TO BASIC0220 ; LO BYTE OF PAGE # VARIA)}BLES =00230 LDA #00240 STA $45 ; LO BYTE NUMBERS ADR0250 STA $CC ; LO BYTE CAPS ADR0260 STA $CE ; LO BYTE CONTROL CHA)}RS0270 STA $47 ; LO BYTE LOWER CASE0280 SEC0290 LDA $59 ; PAGE # SCREEN MEMORY0300 SBC #10310 STA $48 ; PAGE # LOWE)}R CASE0320 SBC #10330 STA $CF ; PAGE # CONTROL CHARS0340 SBC #10350 STA $CD ; PAGE # CAPS0360 SBC #10370 STA $46 )}; PAGE # NUMBERS0380 LDY #0 ; SET COUNTER0390 ; BEGIN SPREADING LETTERS,0400 ;ONE BYTE AT A TIME0410 START LDA $E000,Y)} ; COPY NUMBERS0420 STA (NUMBERS),Y ; STORE THEM0430 LDA $E100,Y ; COPY CAPS0440 STA (CAPS),Y ; STORE UNCHANGED0450 )}STA ONECHAR ; MAKE EXTRA COPY0460 LSR A ; SHIFT LEFT0470 LSR A ; NYBBLE INTO0480 LSR A ; RIGHT NYBBLE,LEAVING)}0490 LSR A ; LEFT NYBBLE EMPTY0500 STA HALFCHAR ; FILE IT AWAY0510 LDA ONECHAR ; THAT EXTRA COPY0520 AND #$0F ; )}KILL LEFT NYBBLE0530 JSR BIT3 ; SPREAD RIGHT NYBBLE0540 STA (CONTROL),Y ; STORE RIGHT0550 ; HALF OF NEW LETTER0560 L)}DA HALFCHAR ; GET OTHER HALF0570 JSR BIT3 ; SPREAD IT0580 STA (LOWER),Y ; STORE LEFT HALF0590 INY ;COUNTER = COUNTER +1)}0600 CPY #26*8 ; 8 BYTES TO A LETTER0610 ; 26 LETTERS TO AN ALPHABET0620 BNE START ; NEXT Y0630 FINISH LDA $E000,)}Y ;STORE0640 STA (NUMBERS),Y ;MISC.0650 LDA $E100,Y ;CHARACTERS0660 STA (CAPS),Y ;UNCHANGED0670 LDA $E20)}0,Y0680 STA (CONTROL),Y0690 LDA $E300,Y0700 STA (LOWER),Y0710 INY0720 CPY #$FF ; DONE0730 BNE FINISH0740 )}LDA $46 ; FIRST PAGE # NEW SET0750 STA CHBAS ; POKED INTO POINTER0760 RTS ; RETURN TO BASIC, BYE BYE0770 ;0780 ; SUB)}ROUTINE TO SPREAD HALF0790 ; A BITE INTO THE FULL BYTE0800 ;0810 BIT3 TAX ; SAVE A COPY0820 AND #8 ; SEE IF BIT 3 IS O)}N0830 CMP #8 ; 000010000840 BNE BIT2; IF NOT GOTO BIT20850 TXA ; GET THE COPY0860 CLC ;0870 ADC #$B8; BI)}T 3 OFF, 6 & 7 ON0880 ; 110000000890 JMP CLR2 ; BYPASS NEXT LINE0900 BIT2 TXA ; GET UNALTERED COPY0910 CLR2 T)}AX ; STASH LATEST VERSION0920 AND #4 ; SEE IF BIT 2 IS ON0930 CMP #4 ; 000001000940 BNE BIT1; IF NOT, THEN BIT1095)}0 TXA0960 CLC0970 ADC #$2C IF SO, DO THIS0980 JMP CLR1; 001100000990 BIT1 TXA1000 CLR1 TAX1010 AND #2 ; BIT )}1?1020 CMP #2 ; 000000101030 BNE BIT01040 TXA1050 CLC1060 ADC #$0A ; BECOMES1070 JMP CLR0 ; 000011001080 BI)}T0 TXA1090 CLR0 TAX1100 AND #1 ; 000000011110 CMP #11120 BNE BIT861130 TXA1140 CLC1150 ADC #$02 ; 000000111)}160 JMP CLR861170 BIT86 TXA1180 CLR86 RTS ; RETURNMP #11120 BNE BIT861130 TXA1140 CLC1150 ADC #$02 ; 000000111(7]< R AWID((@@AUA@ WIDETEXT.BASBY BILL MOR-}RISANTIC MAGAZINE( BAAD2;@@,< (} ((F/)(! graphi cs 1 & GRAPHI-}CS 0,(/(P( BY(Z'('( bi l l m orri sd6-?:A6,n AsxA-},(,(! WIDETEXT IS A BASIC PROGRAM THAT))(!USES A LITTLE MACHINE LANGUAGE TO((( CREATE A GR.1 CHARACTER SET-} THAT&&(USES A DIFFERENT SET OF RULES:/(/($1.THEY CAN GO ANYWHERE ON THE SCREEN**("2.THE COLOR MATCHES THE GR.-}0 TEXT.&&(3.THE BACKGROUND STAYS INTACT.(4.INVERSE VIDEO WORKS.,,($5.EACH WIDE LETTER IS PRINTED WITH 2,,(-}$ KEYSTROKES: LOWER CASE A + CONTROL( A GIVE US A WIDE A. As**(" TO GET USER INPUT, OF COURSE, WE-}++(#CAN'T EXPECT A USER OF OUR PROGRAMS--(%TO INPUT ANYTHING REQUIRING 2 STROKES**("PER LETTER. HERE IS A ROUTINE TH-}AT"**("GETS A$ IN THE PROGRAM'S CHOICE OF,!!(WIDE OR NORMAL CHARACTORS6 As@'A`A`'AdAf-}J AsT A` ^p!!wi de INPUT,NORMAL INPUTz;@@,##@@K:-}(YOUR FAVORITE COMPUTER?6- Ad##@@K:(YOUR FAVORITE MAGAZINE?267-}@,. #67@@,.267@,.6-@ Ad$*** INPUT ROUTINE*** 6-@)@-}"AUAe("Ad2!"@2( ! Ad<6-%@2(>:,F#6-&@d-}(>:,# AdP (>:,Z67<,.>:,d6-%@ Ad n( (@$x$-@@"-},,($ PRESS 兠 TO CONT.##@@K:)@@ (}$-} N(-A6A"!% ($*N104,169,0,133,69,1334N204,133,206,133,71,56>N165,89,233,1,133,72HN23-}3,1,133,207,233,1RN133,205,233,1,133,70\N160,0,185,0,224,145fN69,185,0,225,145,204pN141,254,6,74,74,74zN7-}4,141,255,6,173,254N6,41,15,32,106,6N145,206,173,255,6,32N106,6,145,71,200,192N208,208,213,185,0,224N-}145,69,185,0,225,145N204,185,0,226,145,206N185,0,227,145,71,200N192,255,208,231,165,70N141,244,2,96,170,-}41N8,201,8,208,7,138N24,105,184,76,121,6N138,170,41,4,201,4N208,7,138,24,105,44O76,136,6,138,170,41-}O2,201,2,208,7,138O24,105,10,76,151,6$O138,170,41,1,201,1.O208,7,138,24,105,28O76,166,6,138,96,0-}D:WIDETEXT.BASN 105,10,76,151,6$O138,170,41,1,201,1.O208,7,138,24,105,28O76,166,6,138,96,0,