' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( .< Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`F d    z# u`@ (@@q?P*U*U*U*U*U@pqT*ժժժժՊ U ժժժ@*U*U*U*U*Uyp|`y@p@q?*U*U*U*U*U*p`ժժժժժp`@|pqժժժժժ|?xp`a@CppqPYRIGHT (C) 1982 ===================!tX$;>!~LX(X$):VP(37)1:HP4,VP8(HPLX)42,VP8:F!:b!216,0::34,0:C$;::!I1J:VP:I:X$(I):(X$)1X$"0"X$!(X$,1);:VP1:I:(X$,1);:I:#"'================== FLEX TEXT (DEMO) BY MARK SIMONSEN CO24:C$"PRESS ANY KEY TO CONTINUE (OR Q TO QUIT).";:X$:X$"Q"ġ:1170L =h B1:I124:I:E$;:I: L1:I2411:I:E$;:I: V1:I112:I:E$;:25I:E$;:I: `I1K:I);:J031:(JI32)" ";:J::I: jHP(36):(41)7HPHP40 CAN DO WITH FLEX TEXT ! "HI120:20:43:TGGLETGGLE::(TGGLE)Ğh" FLEX TEXT ! ":J1100:|I10I20ĺN$;:$1:I1324:I:E$;:25I:E$;:I:.I1(X$):VP:HP:(X$,I);::" ";::I:VP:HP:X$;" ":F 816368,0:15:AND";:"EXECUTES COMMANDS LIKE HOME, INVERSE, NORMAL, TEXT, HGR, HTAB, ETC.":::" CHARACTER SETS ":::"FLEX TEXT ALLOWS YOU TO DEFINE YOUR OWN CHARACTER SETS OR CHOOSE FROM":"SEVERAL ALREADY DEFINED SETS."20:"THERE IS NO LIMIT TO WHAT YOUNCES, EDITING FUNCTIONS (ARROW":"KEYS), AND ZERO PAGE WINDOW POKES. ";"IT IS COMPLETELY COMPATIBLE WITH":"P.L.E. AND G.P.L.E. ALSO.":::" PROGRAM CONTROL ":::"FLEX TEXT SUPPORTS ALL APPLESOFT COMMANDS AND ";:L"CORRECTLY INTERPRETS OURSELF":"TO THE STANDARD FOUR LINES OF TEXT AT THE BOTTOM OF THE SCREEN""WITHOUT AFFECTING THE REST OF THE PICTURE OR CAUSING IT TO SCROLL."1080:34,0:1160H1:1::" EDITING AND CURSOR CONTROL ":::"FLEX TEXT SUPPORTS ALL ESCAPE SEQUE235,112,232,116,226,118,219,1199\I125:XX7:X,Y:IfI18:X,Y:X,Y:I: 37,118,30,116,27,109,27,102,26,103,25,104,28,103,29,104p11:7:" HERE.":1080:1:E$;:34,20Jz23:1:"IF HAVING SO MUCH FREEDOM BOTHERS YOU, YOU CAN ALWAYS LIMIT Y:D$"BLOAD DEMO.PIC,A$4000":21:1o>"YOU CAN WRITE DOWN HERE, WHERE YOU WOULD NORMALLY EXPECT TO SEE TEXT."H1:1:"OR YOU CAN WRITE UP HERE, WHERE YOU DON'T EXPECT TO SEE IT.":14:33:"AND YOU CAN EVEN PUT TEXT"RI15:X,Y:X,Y:I: 235,108,IXED GRAPHICS AND TEXT ":::"YOU ARE ABOUT TO SEE AN EXAMPLE OF FLEX TEXT'S ABILITY TO COMBINE" "GRAPHICS AND TEXT ON THE SAME SCREEN."*:"AS YOU WILL SEE, BESIDES COMBINING TEXT AND PICTURES YOU CAN ALSO":"PLOT ANYWHERE YOU LIKE.""41080:E IN APPLESOFT, YOU CAN PRINT":"THREE OTHERS, ";xL$"@";C$;(91);"', ";L$;"@";C$;(92);"', AND "L$"@";C$;(95);"'.":"WITH FLEX TEXT, YOU CAN TYPE ALL TEN OF THESE SPECIAL CHARACTERS FROM":"THE KEYBOARD!"; 1080:1060a:3:1:23::" MRACE":,45:L$;Z$;"N - ";C$;"TILDE":O45:L$;Z$;"O - ";C$;"RUB":"NORMALLY YOU HAVE ACCESS TO TWO OF THESE SPECIAL CHARACTERS FROM THE":"KEYBOARD, ";L$"@";C$;"]' AND "L$"@";C$;"^'."1:"AND BY USING THE CHR$ FUNCTION AVAILABLR REMOVE FLEX TEXT/::(4)"NOMONICO"C(978)189160g(43075,133:43076,111:43077,96}<40193,156:42964F1005,234P1010,191:1011,157:1012,56Z1013,76:1014,88:1015,255d1016,76:1017,101:1018,255n973,0 x3  ժժժժժ|xppapC~pq@*U*U*U*U*Uxyp|apC?pq(U* A*U*@@q?T*U*U*U*U*|p`@pqU*ԪժժժՂ(UՂՊ@*U*U*U*U*U*p`y@|@q? ժժժժժp`ժժժժժ|xpxaC?|pqժժժժժ|xpxa`Cpq U* *U*@@q?T*U*U*U*U*pp`@|pqU*ԪժժժՂ Uժժ@*U*U*U*U*U*pyp|`y@@q?(U*U*U*U*U*p`ժժժժժxpaA~pqժժժժժ|xppa@C|?pqT*((U@@q?P*U*U*U*U*U@pqT*ժժժժՂ Uժժ@*U*U*U*U*U |yp|`y@`@q?(U*U*U*U*U*p`ժժժժժp`A~pqժժժժժ|?xp`a@Cxpq"*" Z : moves the cursor DOWN"S" <- : moves the cursor LEFT"}" -> : moves the cursor RIGHT" " H : HELP (display instructions)" "Edit Mode-"*" : RETURN to Select Mode"4" : (Z$,1)"Y"1950:#:60A::(1);::(2);:2390{**************************************************** HELP DISPLAY(1);:15:"Instructions":40,12279,12"Both Modes-"" A : moves the cursor UP0(Z$,1)"Y"Z$SET$:1870N::"ENTER NEW NAME (RETURN FOR NONE):":"";Z$^DZ$""1890jNSET$Z$X(4)"BSAVE "SET$",A"ADDR",L$300"b:"LOAD A NEW CHARACTER SET (Y/N)? ";Z$l(Z$,1)"Y"1940v:"DO YOU WANT TO QUIT (Y/N)? ";Z$PTEMP(2I)MA(I,GY)I:ADDR(LTTR32)8GY,TEMPD1190Q2CX,CYW**************************************************** SAVE/LOAD A CHARACTER SET2240SET$""1850&:"SAVE AS "SET$" (Y/N) ? ";:"";Z$CX,CY6CXXDISP1GXSIZE3@CYYDISP1GYSIZE@J2CX,CYFT^****************************************************h SPACE BARrMA(GX,GY)MA(GX,GY)|2CX,CYMA(GX,GY)Ē01CX,CY3TEMP0I0PIXELSTEMTEMP128TG$">":TEMPTEMP128:1450@TG$" ":TEMPTEMP128dADDR(LTTR32)8GY,TEMP:1190{MA(7,GY)(TG$">")GY25:23:TG$GY26:23:TG$****************************************************" A, Z, <-, ->,2XDISPWIDTHSIZE/2JYDISPYDISPHEIGHTSIZE8<I,JAFJ,IKP2460sZ23:1:(6)12)"Press H for help."d1980:n****************************************************x TOGGLE BITSPIXELS7ıTEMP(ADDR(LTTR32)8GY)&HTSIZE821:10::"Apple Character Editor":L3:0,YDISP140,YDISPq0,YDISPSIZE8140,YDISPSIZE8XDISP2,YDISP2XDISPWIDTH2,YDISP2 XDISPWIDTH2,YDISPHEIGHT2XDISP2,YDISPHEIGHT2XDISP2,YDISP2(IXDISP103, 29, 104!711:7:" HERE."b<22:S$"AS YOU MAY HAVE NOTICED, YOU CAN ALSO HPLOT."C$:255L FIVE ARE ACCESSED IN UPPER CASE MODE AND THE OTHER FIVE":"ARE AVAILABLE IN LOWER CASE."C$ ,190 90 768:792( 1005,234I 1010,174:1011,190:1012,27Q 9065:375 1002 (4)"FP"& @ I768806:V:I,V:I 44,131,192,44,131,192,162,2,189,21,3,157,67,232,202,16,247,44,130,192,96,133,111,96,44,131,192,44,131,192,169,190,141,90,247,44,130,192,96 (978)191210 768:49150,175:49151,32,160,0,177,150,145,148,200,208,249,230,151,230,149,202,208,242,96 Z:"]10 GOSUB 1000 : REM SET UP ONCE ONLY"\ d"]100 POKE 781,32 : REM MOVE TO PAGE 1" n"]110 POKE 773,64 : REM FROM PAGE 2" x"]120 CALL 768 I768802:X:I,X::D 169,0,133,150,169,96,133,151,169,0,133,148,169,64,133,149,162A 'GOSUB 1000', ALL":"YOU NEED TO DO IS 'POKE 773' WITH THE":"NUMBER OF THE 'FROM' HI-RES PAGE TIMES":"32, THEN 'POKE 781' WITH THE NUMBER OF":"THE 'TO' HI-RES PAGE TIMES 32,"; F" AND":"LASTLY 'CALL 768' TO EXECUTE." P:"HERE IS AN EXAMPLE:".E UTILITY 5:=14::":HI-RES MOVER:":34,2:(:"LINES 1000-1010 OF THIS PROGRAM ARE":"INTENDED TO BE USED AS A SUBROUTINE IN":"YOUR OWN PROGRAMS."2:"IN ESSENCE IT IS A VERY FAST HI-RES":"PAGE MOVER." <:"AFTER PERFORMING    - ;? - ;? - ;?-------;??????7-------;? - ;? - ;? - ---;??7---;??7---;??7---;??7 - ;? - ;? - ;?-------;??????7-------;? **************************1# EDIT/SELECT MODEQ# I1(X$):6:1:(X$,I):n# I112:6:I:" "X$::I):#  )-- ???? ----- ??????)------;??????7-------;??????7-------;??????7)------?????? ----- ???? )-- HP73,(VP2)83&"< HP73,VP84F"F 20:"(C) 1982 BEAGLE BROS"L"P "Z ****************************************************"d UPDATE KEY AND ASCII"n 11:16:(LTTR)"x 16:15:1(((LTTR))3))LTTR" # **************************! ::(20)1 ! 9:15:"KEY"/! HP14:VP9T! HP73,VP84(HP2)73,VP84! (HP2)73,(VP2)83:HP73,(VP2)83! HP73,VP84! 14:14:"ASCII"! HP13:VP14!( HP73,VP84(HP4)73,VP84"2 (HP4)73,(VP2)83:3 t A8,TYPE:5 ~ :"UNABLE TO LOAD FLEX TEXT":o **************************************************** PRINT SQUARE OF LETTERS 4:1:20);:1:(SET$,20) K33:(20)2 I09:J09 K1272520 I8:J2:(K) KK1ESS ANY KEY TO CONTINUE ";:Z$)328831800Y :"UNABLE TO LOAD CHARACTER SET"c "OR"~ "ERROR DURING INPUT."$ . "PRESS ANY KEY TO CONTINUE ";:Z$8 3288B 800L 3288:V TYPE1` PIXELS5TYPE2 j PIXELS4TYPE0,172279,172G16368,0:24:8:"Press any key to continue.";:1:1Q(2)W**************************************************** ONERR HANDLERS:"UNABLE TO SAVE CHARACTER SET""OR""ERROR DURING INPUT.""PRPLOT/UNPLOT pixel at cursor"f>" R : SHIFT RIGHT pixels in row":13)"(40 column fonts only)lHR"Select Mode-"\" : EDIT character under cursor"f" S : SAVE/LOAD a character set"p" CTRL-C : QUIT"z NX$""X$CS$4X:"SAVING THE CHARACTER SET."Sb(4)"BSAVE"X$",A"A",L"768l:"WOULD YOU LIKE TO SHRINK ANOTHER ":"CHARACTER SET (Y/N)? ";:X$vX$"Y"120:: J501 BYTEP1520. BYTEBYTEP1; J2520H J4520X TEMPTEMPKm J2J4KK2y P1P12  &I,TEMP 02:(IA)1; : D::"ENTER THE NEW NAME FOR SAVING THE":"CHARACTER SET. (RETURN FOR SAME NAME)":"";X$TEMPK JJ2KK2" TP1P12( ^4 hI,TEMPE r2:(IA)1;P |:580d :"SHRINKING." :"[ ] <-- THIS WILL BE 768 WHEN DONE."; IAA767 BYTE(I) TEMP0:K8:P132 BYTE128BYTEBYTE128 BYTE64BYTEBYTE64 8:1:170 :"SHRINKING."N :"[ ] <-- THIS WILL BE 768 WHEN DONE.";] IAA767k BYTE(I) TEMP0:K16:P132 BYTE128BYTEBYTE128 BYTE64BYTEBYTE64 J501 "BYTEP1330 ,BYTEBYTEP1 6J2330 @TEMPACTER SET YOU":"WOULD LIKE TO SHRINK:":"";CS$D A((176)1)256J "LOADING THE CHARACTER SET.":(4)"BLOAD"CS$",A"A :"SHRINK IT TO 56 COLUMN SIZE OR TO":"70 COLUMN SIZE (5=56/7=70)? ";:X$ X$"5"ĺX$:210 X$"7"ĺX$:390 56 OR 70 COLUMN FONT." d:"(NOTE: BECAUSE THE CONVERSION ALGORITHM":"IS GENERAL, IT IS ALMOST CERTAIN THAT":"10% - 20% OF THE CHARACTERS WILL NEED":"TO BE TOUCHED UP.)" n:"PRESS ANY KEY TO CONTINUE.";:X$ x/ "ENTER THE NAME OF THE CHAR UTILITY 4%((176)4)256-:N(16::":CONVERTER:":34,2:T2<"DO YOU NEED A DESCRIPTION (Y/N)? ";:X$FX$"Y"120P: Z"THIS PROGRAM WILL SHRINK ALL OF THE":"CHARACTERS OF A 40 COLUMN TEXT FONT TO":"THE SIZE OF A      - ;? - ;? - ---;??7---;??7---;??7---;??78H::"WOULD YOU LIKE TO TURN ANOTHER ":"CHARACTER SET (Y/N)? ";:X$XDX$"Y"120bN:: P2P22 :P1P12:4 J07:IJ,TEMP(J):J 2:((IA)8)1;P  ::"ENTER THE NEW NAME FOR SAVING THE":"CHARACTER SET. (RETURN FOR SAME NAME)":"";X$ X$""X$CS$ &:"SAVING THE CHARACTER SET."0(4)"BSAVE"X$",A"A",L"761; h:530 r:"TURNING."N |:"[ ] <-- THIS WILL BE 96 WHEN DONE.";_ IAA7678v J07:TEMP(J)0: P164 J06 BYTE(IJ) P264 BYTE128BYTEBYTE128 K601 BYTEP2BYTEBYTEP2:TEMP(K)TEMP(K)P1 E."; IAA7678, J07:TEMP(J)0:5 P11@ J06P BYTE(IJ)Z P264w "BYTE128BYTEBYTE128 ,K601 6BYTEP2BYTEBYTEP2:TEMP(K)TEMP(K)P1 @P2P22 J:P1P12: TJ07:I(7J),TEMP(J): ^2:((IA)8) = "LOADING THE CHARACTER SET.":(4)"BLOAD"CS$",A"A :"TURN IT COUNTER CLOCKWISE OR CLOCKWISE":"( <- OR -> )? ";:X$ X$(8)ĺ"<-":210 X$(21)ĺ"->":370 8:1:170 :"TURNING." :"[ ] <-- THIS WILL BE 96 WHEN DONTER CLOCKWISE (90 DEG)."n d"(NOTE: THIS IS ONLY RECOMMENDED FOR THE":"STANDARD 40 COLUMN CHARACTER SETS.)" n:"PRESS ANY KEY TO CONTINUE.";:X$ x "ENTER THE NAME OF THE CHARACTER SET YOU":"WOULD LIKE TO TURN:":"";CS$ A((176)1)256c UTILITY 3%((176)4)256-:M(16::":SIDEWAYS:":34,2:S2<"DO YOU NEED A DESCRIPTION (Y/N)? ";:X$FX$"Y"120P: Z"THIS PROGRAM WILL TURN ALL OF THE":"CHARACTERS OF THE SPECIFIED TEXT FONT":"CLOCKWISE OR COUN     RACTER SET (Y/N)? ";:X$( X$"Y"1102 :: r:I,TEMP |2:(IA)1;:} ::"ENTER THE NEW NAME FOR SAVING THE":"CHARACTER SET. (RETURN FOR SAME NAME)":"";X$ X$""X$CS$ :"SAVING THE CHARACTER SET." (4)"BSAVE"X$",A"A",L"768 :"WOULD YOU LIKE TO TURN ANOTHER ":"CHA:2:((IA)8)1;::390, :"TURNING."\ ":"[ ] <-- THIS WILL BE 768 WHEN DONE.";k ,IAA767 6BYTE(I):TEMP0 @P164:P21 JBYTE128BYTEBYTE128:TEMP128 TJ601 ^BYTEP1BYTEBYTEP1:TEMPTEMPP2 hP1P12:P2P22RN IT UPSIDE DOWN OR BACKWARDS (U/B)? ";:X$A X$"U"ĺX$:200V X$"B"ĺX$:280e 8:1:160w :"TURNING." :"[ ] <-- THIS WILL BE 96 WHEN DONE."; IAA7678 J03 TEMP(IJ) (IJ),(I(7J)) (I(7J)),TEMP PSIDE DOWN OR BACKWARDS (MIRROR IMAGE)."O d"PRESS ANY KEY TO CONTINUE.";:X$U n x"ENTER THE NAME OF THE CHARACTER SET YOU":"WOULD LIKE TO TURN:":"";CS$ A((176)1)256 "LOADING THE CHARACTER SET.":(4)"BLOAD"CS$",A"A, :"TU3 UTILITY 2%((176)4)256-:](7::":UPSIDE DOWN AND BACKWARDS:":34,2:c2<"DO YOU NEED A DESCRIPTION (Y/N)? ";:X$FX$"Y"110P:( Z"THIS PROGRAM WILL TURN ALL OF THE":"CHARACTERS OF THE SPECIFIED TEXT FONT":"U     TER SET (Y/N)? ";:X$% X$"Y"130/ ::;J,0 ^2:((IA)8)1;:y h::"ENTER THE NEW NAME FOR SAVING THE":"CHARACTER SET. (RETURN FOR SAME NAME)":"";X$ rX$""X$CS$ |:"SAVING THE CHARACTER SET." (4)"BSAVE"X$",A"A",L"768 :"WOULD YOU LIKE TO SHIFT ANOTHER ":"CHARAC- :"[ ] <-- THIS WILL BE 96 WHEN DONE.";> IAA7678I J06[ IJ,(IJ1)h :IJ,0 2:((IA)8)1;::360 ":"SHIFTING." ,:"[ ] <-- THIS WILL BE 96 WHEN DONE."; 6IAA7678 @J711 JIJ,(IJ1) T:I THE CHARACTER SET YOU":"WOULD LIKE TO SHIFT:":"";CS$L A((176)1)256R "LOADING THE CHARACTER SET.":(4)"BLOAD"CS$",A"A :"SHIFT IT UP OR DOWN (U/D)? ";:X$ X$"U"ĺX$:220 X$"D"ĺX$:290 8:1:180 :"SHIFTING."P OR ONE PIXEL DOWN." d n"(";::"WARNING:";::" YOU MAY LOSE PART":"OF EACH CHARACTER DEPENDING ON ":"WHETHER OR NOT IT IS ON THE VERY EDGE":"OF THE END BEING SHIFTED TO.)" x:"PRESS ANY KEY TO CONTINUE.";:X$ 7 "ENTER THE NAME OF0 UTILITY 1%((176)4)256-:R(13::":UP/DOWN SHIFT:":34,2:X2<"DO YOU NEED A DESCRIPTION (Y/N)? ";:X$FX$"Y"130P: Z"THIS PROGRAM WILL SHIFT ALL OF THE":"CHARACTERS OF THE SPECIFIED TEXT FONT":"ONE PIXEL U  E TO SHIFT ANOTHER ":"CHARACTER SET (Y/N)? ";:X$BX$"Y"130L::: P1P12:P2P22" :I,TEMP3 2:(IA)1;9  ::"ENTER THE NEW NAME FOR SAVING THE":"CHARACTER SET. (RETURN FOR SAME NAME)":"";X$ X$""X$CS$ :"SAVING THE CHARACTER SET." (4)"BSAVE"X$",A"A",L"7682:"WOULD YOU LIKIA)1; J:470% T:"SHIFTING."U ^:"[ ] <-- THIS WILL BE 768 WHEN DONE.";d hIAA767y rBYTE(I):TEMP0 |BYTE128BYTEBYTE128:TEMP128 BYTE64BYTEBYTE64 P132:P264 J501 BYTEP1BYTEBYTEP1:TEMPTEMPP20 :"SHIFTING."D :"[ ] <-- THIS WILL BE 768 WHEN DONE.";S IAA767h BYTE(I):TEMP0 BYTE128BYTEBYTE128:TEMP128 P164:P232 J611 "BYTEP1BYTEBYTEP1:TEMPTEMPP2 ,P1P12:P2P22 6:I,TEMP @2:("ENTER THE NAME OF THE CHARACTER SET YOU":"WOULD LIKE TO SHIFT:":"";CS$^ A((176)1)256d "LOADING THE CHARACTER SET.":(4)"BLOAD"CS$",A"A :"SHIFT IT LEFT OR RIGHT (L/R)? ";:X$ X$"L"ĺX$:220 X$"R"ĺX$:340 8:1:18HE LEFT OR ONE PIXEL TO":"THE RIGHT.", d n"(";::"WARNING:";::" YOU MAY LOSE PART":"OF EACH CHARACTER DEPENDING ON ":"WHETHER OR NOT IT IS ON THE VERY EDGE":"OF THE SIDE BEING SHIFTED TO.)" x:"PRESS ANY KEY TO CONTINUE.";:X$ I M UTILITY 0%((176)4)256-:O(15::":SIDE SHIFT:":34,2:U2<"DO YOU NEED A DESCRIPTION (Y/N)? ";:X$FX$"Y"130P:& Z"THIS PROGRAM WILL SHIFT ALL OF THE":"CHARACTERS OF THE SPECIFIED TEXT FONT":"ONE PIXEL TO T  E3ADDR10X,TYPE=(4)"BLOAD"CS$",A"ADDR768(X1)d(20)X:I32127:(I)" ";:I::"SUCCESSFULLY LOADED.":"SUCCESSFULLY LOADED.",F# PADDR(974)(975)25628166 ZNCS(ADDR10)f d"THERE ARE "NCS" CHARACTER SET(S) LOADED." n"TYPE NUMBER TO BE REPLACED (1-"NCS"). ";:X$ xX(X$)48:XNCSX170 TYPE1 (CS$,3)".56"TYPE2(CS$,3)".70"TYP8 THIS PROGRAM WILL LOAD AN ALTERNATE CHARACTER SET@ :n "CHARACTER SET YOU WOULD LIKE TO LOAD ?" ("(PRESSING WILL CAUSE THE DISK":"TO CATALOG.)" 2"";CS$ <CS$""ĺ(4)"CATALOG"::"PRESS ANY KEY TO CONTINUE ";:CS$:20  >>> <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>0,>>>"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>"X>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> " C                                                                       )Ğ)11:24:" PRESS ANY KEY TO END "4:C$;:"D,23:TFLEX TEXT FLEX TEXT FLEX TEXT "7A2$A1$@C$;G1T1:A1$;b23:A2$;A1$(A1$,(A1$)2)(A1$,2)A2$(A2$,2)(A2$,(A2$)2)240(16384)127Ĺ16368,0:300170TGGLETGGLE:L$;(TGGLE(2):T$(20) 2:% <T$1S$;:9t F6:"THIS PROGRAM DEMONSTRATES "C$"FLEX TEXT'"L$"S FLASHING CAPABILITIES."z P Z3:1:I170:" ";: dI321:I:1:" ";:70:" ";:I n21:1:I170:" ";: x+A1$"FLEX TEXT FLEX TEXT E1 THIS PROGRAM DEMONSTRATES FLASH SIMULATION ADDR(974)(975)256:ADDRADDR2816:(ADDR9)3ė:"THIS PROGRAM EXPECTS A 70 COLUMN":"CHARACTER SET TO BE LOADED IN":"POSITION 1.": (104)64Ĥ24576 (C$(3):L$(12):S$(19):A$(1):B$   C yg> >go_?sqC? >@?> >o{v?? ~o'3;#5f|?> ~oWj]N6U:|? ~oWj]>57U:> ~wW=O;o:z|? ~{> ?|>?~?~? ~@g0@  `?IA1 ~?0 @?@`q~?>?|> ? ~@> ~?wfc? >go_?__www> >wn_;_;s{w? ~w_?_?w=o> ~s`]?__w}o? ~so8_?w~y?s{_~w?p`@|~q#o{_x`?@(p~@/p@?|?`@<~ x~o|? ~y~ ~}||?<x?~|@Ow?xhw~ p{xX8?`O|0 ~@_p] |??q4`_~gsp}`? `;~?~b/r~?@?u?~x{?@?~@~zc_?@@~! s`~?@)@0~gx^sy0!<?ynk@o>4~yqz_o76?p{@o~_q{{_w[?{w@{~ QD 2  Q N  OiOD D `D J) @OE jN`PPPP~?~?f?|9-~`|c?H@~?w?x?8$x     (@@q?@*U*U*U*U*@pqP*ժժժժՊp` U ժժժ@*U*U*U*U*UByp|`y?@x@q?*U*U*U*U*U*p`ժժժժժp?`@xpqժժժժժ|?xp`a@C`pq(@@q?@*U*U*U*U*@pqP*ժժժժժp` U ժժժ@*U*U*U*U*U`yp|?`y@|@q?*U*U*U*U*U*p`ժժժժժp`?@ppqժժժժժ|?xp`a@C@pq(U@@q?*U*UT*U*@pq@ ժժժժժp`U*ЪժժժՀ@*U*U*U*U*Upyp|`yA~@q?*U*U*U*U*U*p`ժժժժժp`@`pqժժժժժ|?xp`a`Cpq(U*U*U P*U*@@q?@ ժժժժժp`U*ЪժժժՀ@ @*U*U*U*U*Uxyp|`yA~@q?*U*U*U*U*U*p`          z #?????Һ îŮ Ȉ!ҠӺɮ ɮ ɮ ĠӠĠԠ ǠȠӠǠĠǠƈ ӺŠӠLj ɭӠҠŠؠԠ ňŠӺŠԠӠҠĠҠŠ̠Ӡ Ӻ Ҡ ŠԠ ЯΠԠŠίӠӠҠ È!Ӻ"ؠԠϠϮà"Ϯà"Ҡ Ĉ ˆӺŠȠŮȠŮàȠ Ů͠Ƞ ůŠŠϠ͠ӺĠ Ġ ؠԠ Ҡ   4 ALTERNATING CHARACTER SETS DEMO PROGRAMG SET UP CTRL TT T$(20)t ADDR(974)(975)2562816 NCS(ADDR10): #I1NCS (T$I; -J32127 2(J); 7J <: AI FT$"1"; CONTROL-S."n7:C$"AND TO CHANGE THE DEFAULT BACK TO ";:X$"CAPS ON":1000:" PRINT (OR TYPE) A CONTROL-C."t<I1(X$):(X$,I,1);O$;::I1(X$):(X$,I,1);C$;O$;L$;::XT." # (L$"HOWEVER, TO CHANGE THE DEFAULT TO ";:X$"CAPS OFF":1010:" ALL YOU NEED TO DO IS PRINT";:"(OR TYPE) A CONTROL-L." -"WASN'T THAT EASY!": 2S$"OH YES. "S$"YOU CAN CAPITALIZE THE FIRST LETTER OF ANY LINE BY PRECEDING":"IT WITH A  @ UPPER AND LOWER CASE DEMO PROGRAM (WITH OVERSTRIKE)` SET UP CTRL C, L, S, T & O C$(3):L$(12):S$(19):T$(20):O$(8)(15)"_" T$"1"::5 C$"BY NOW YOU'VE NOTICED THAT ";:X$"CAPS ON":1000:" IS THE DEFAULT FOR FLEX TE PATCH"HPTCH2Ģ24:"LOADING PLE PATCH!";:1::(4)"RUN PLE PATCH"PTCH4(1005)3Ģ24:"LOADING GPLE.DM PATCH!";:1::(4)"RUN GPLE.DM PATCH"(1005)2Ģ24:"LOADING GPLE.LC PATCH!";:1::(4)"RUN GPLE.LC PATCH"23:. SIMONSEN"T70$;::22W11:" FOR A DEMONSTRATION, TYPE: RUN FLEX TEXT DEMO "v104,21815741,2181*****************************************************:T70$;PTCH1Ģ24:"LOADING GPLE.48 PATCH!";:1::(4)"RUN GPLE.48IDE$;:2:6:"FLEX TEXT"6bWIDE$;:15:"FLEX TEXT"SlT56$;:23:"FLEX TEXT"ovT70$;:30:"FLEX TEXT"8192:17:12"70 COLUMN HIGH RESOLUTION CHARACTER GENERATOR"29:"VERSION 1.2"25:"(C) COPYRIGHT 1982" 24:"BY MARK S43075,76:43076,99:43077,F(B:c*****************************************************}(4)"BLOAD LOGO.PIC"T70$(20)"1"&T56$(20)"2"0T40$(20)"3":WIDE$(23)D3:0,0279,0:279,182N0,182:0,0XT40$;W0,208,12,173,207,3,141,255,191,169,0,141,254,191,96,201,243,240,6,169,1,141,0,3,96,44,131,192,44,131,192,173,207,3,141,90,247,169,0,141,87,247,44,130,192,96 44,131,192,44,131,192,169,76,141,67,232,169,99,141,68,232,173,207,3,141,69,232,44,130,192,96):F(975):GF256 G102,E> G129,E:G132,E:G135,EO PTCH4500 G117,234:I768844:V:I,V::769:(768)ĺ"THIS VERSION OF DOS NOT RECOGNIZED!":"PLEASE RE-BOOT.": 819:112,F:116,F:111,0:115,0:510 0,173,255,191,201,19B2816 ^I1NCS. h10)"CHARACTER SET "IW r(4)"BLOAD "CS$(I)",A"A((I1)768)b |TYPE1 (CS$(I),3)".70"TYPE3 (CS$(I),3)".56"TYPE2 (A10)I,TYPE I A10,NCS 973,76:974,D:975,C 1014,D:1015,C E(1048)189B189:PTCH4:(BLNGTH)256:3006 B(40193)R B140(1005)1PTCH1d B150PTCH2~ "40193,BLNGTH:42964 ,B(BLNGTH1)256 610)"FLEX TEXT" @(4)"BLOAD FLEX TEXT,A"B EC(B256):DB(C256):965,D:966,C J768 TA(4)"NOMONICO"o " FLEX TEXT V1.2 70 COLUMN HI-RES TEXT UTILITY BY MARK S. SIMONSEN (C) 1982 BEAGLE BROS " (104)12(3072)0Ĺ104,12:3072,0:(4)"RUN FLEXLOAD" "LOADING: RELOCATOR" (4)"BLOAD RELOCATOR" LNGTH113NCS' (97 =2THIS PROGRAM WILL LOAD FLEX TEXT BETWEEN DOS & BUFFERSSdCS$(1)"ASCII.70"inCS$(2)"ASCII.56"xCS$(3)"ASCII.40"CS$(4)""CS$(5)""CS$(6)""CS$(7)""CS$(8)""CS$(9)""I19:(CS$(I))NCSNCS1: ::      AL$:IyFS$"NOTICE THAT FIVE ARE ACCESSED IN UPPER CASE MODE AND THE OTHER FIVE":"ARE AVAILABLE IN LOWER CASE."C$1RD -- "S$"] (SHIFT M) AND "S$"^ (SHIFT N).": #C$"FLEX TEXT "L$"PUTS ALL TEN AT YOUR FINGERTIPS AND MAKES THEM AVAILABLE":"FROM THE KEYBOARD THROUGH THE USE OF CONTROL Z.": (C$; -I12 2J7579 725:"CTRL-Z "(J)" = "Z$(J) <Jz + SPECIAL CHARACTER DEMO PROGRAMK SET UP CTRL C, L, S, T & Z{ C$(3):L$(12):S$(19):T$(20):Z$(26) T$"1"::3- S$"OF THE TEN SPECIAL CHARACTERS IN THE "S$"ASCII CHARACTER SET ONLY TWO ARE NORMALLY AVAILABLE FROM THE KEYBOAH4(1005)3Ģ24:"LOADING GPLE.DM PATCH!";:1::(4)"RUN GPLE.DM PATCH"(1005)2Ģ24:"LOADING GPLE.LC PATCH!";:1::(4)"RUN GPLE.LC PATCH"23:DEMO "%104,21815741,2181`*****************************************************m:T70$;PTCH1Ģ24:"LOADING GPLE.48 PATCH!";:1::(4)"RUN GPLE.48 PATCH"PTCH2Ģ24:"LOADING PLE PATCH!";:1::(4)"RUN PLE PATCH"JPTCT"vT70$;:30:"FLEX TEXT"08192:17:12e"70 COLUMN HIGH RESOLUTION CHARACTER GENERATOR"|29:"VERSION 1.2"25:"(C) COPYRIGHT 1982"24:"BY MARK S. SIMONSEN"T70$;::2211:" FOR A DEMONSTRATION, TYPE: RUN FLEX TEXT ******************, (4)"BLOAD LOGO.PIC"? T70$(20)"1"R &T56$(20)"2"e 0T40$(20)"3"u :WIDE$(23) D3:0,0279,0:279,182 N0,182:0,0 XT40$;WIDE$;:2:6:"FLEX TEXT" bWIDE$;:15:"FLEX TEXT"lT56$;:23:"FLEX TEXG135,E PTCH4500= G117,234:I768793:V:I,V:K 768:510 44,131,192,44,131,192,169,76,141,67,232,169,99,141,68,232,173,207,3,141,69,232,44,130,192,96 43075,76:43076,99:43077,F B: ***********************************4)"BLOAD "CS$(I)",A"A((I1)768), |TYPE1J (CS$(I),3)".70"TYPE3h (CS$(I),3)".56"TYPE2{ (A10)I,TYPE I A10,NCS 973,76:974,D:975,C 1014,D:1015,C E(104):F(975):GF256 G102,E G129,E:G132,E:(978)189PTCH4:300% B(40193)A B140(1005)1PTCH1S B150PTCH2^ ,B3072s 610)"FLEX TEXT" @(4)"BLOAD FLEX TEXT,A"B EC(B256):DB(C256):965,D:966,C J768 TAB2816 ^I1NCS h10)"CHARACTER SET "I! r((4)"NOMONICO"o " FLEX TEXT V1.2 70 COLUMN HI-RES TEXT UTILITY BY MARK S. SIMONSEN (C) 1982 BEAGLE BROS " (104)96(24576)0Ĺ104,96:24576,0:(4)"RUN FLEXLOAD 2" "LOADING: RELOCATOR" (4)"BLOAD RELOCATOR" LNGTH113NCS =2THIS PROGRAM WILL LOAD FLEX TEXT BETWEEN DOS & BUFFERSSdCS$(1)"ASCII.70"inCS$(2)"ASCII.56"xCS$(3)"ASCII.40"CS$(4)""CS$(5)""CS$(6)""CS$(7)""CS$(8)""CS$(9)""I19:(CS$(I))NCSNCS1: ::     #1:S$"OR YOU CAN PUT IT UP HERE.":14:41:S$"YOU CAN EVEN WRITE " (I15:X,Y:X,Y:I: 235, 108, 235, 112, 232, 116, 226, 118, 219, 119 -I125:XX7:X,Y:I 2I18:X,Y:X,Y:I: 37, 118, 30, 116, 27, 109, 27, 102, 26, 103, 25, 104, 28, c 1 MIXED GRAPHICS AND TEXT DEMO PROGRAMT SET UP CTRL B, C, D, P, S & T B$(2):C$(3):D$(4):P$(16):S$(19):T$(20) T$1B$P$::3:D$"BLOAD DEMO.PIC,A$4000":100 21:S$"WITH "S$"FLEX "S$"TEXT YOU CAN PUT TEXT DOWN HERE."E v@@PPPPÿ??,  , hhPQPQI X ȱȱQP2 $ ) \$$ ڢ Jȱȱб \L8Єτ ,0 \ ,0 \ \۩ Л ,T,RL \  g b j 8 F f 2 , ) +j$0pe e *`"H B(*)+hi# H B(*0 U% m()) )`$(̆`"%$$%H B Uhi# % LLޅHHL ʊ H hL̈́$ L@$@ L"` hi#:H $0 !p (*$000+i+i̥#$ $02F ~`L~"%$$%H ~$0@hi#`$%H$,  2 eB*,IL-B*+i+Ȅh $0 p! ,0*I*$0!(0 +i+$0pF!`%JJHh&&FJ LDs &J*, MDMDL`-B DE**, MEMEL-C EE*b +i+L $$!P$ $8$0 Fש$%%#% $L p$ L"$L@L$$P @$`"H *+)iL$0@ W$$P `$0 LX``" cN`@`,P@`8 & & &m)m $$20$0%DEBCp )! 2 FBI-DTCI-E$(b$0IPU$%%# B%b$ Lh$E$$0#F $ "$0!$$"%!%L" $$"%% "L@`,,(( !ׅ& e) ((8!@$8 - )*e)@ -  $$Fש($0pJ!$m$L@L"$  ^R @0%%#% $0 $P Lp$0 p LL L `@,T@,U` z$LS $ @ UL"H _h$ $0 jLB$0! $b$0F $ "$P @$ %#%L HLG Hm$ 8i(m Hih$pi}&4eh` ` !` !`)  LM  HH`1E em K@*cd 2 HFIcTId*HMc**HMd*8++NO,+i+h*h*h,H,0ɛɍ h$`ɐ$   $==$   $ L  L hHЧ3П!$&$ Å89t6 7 ,R,W @׍ <i18 ,P~L`o hjln~T R   ` L,T 󦴊HH 6789 hhhhL($ ) @($8 *)  +$0#Hp *e       NOTICED, YOU CAN ALSO HPLOT."C$:2550 AL$:I FS$"NOTICE THAT FIVE ARE ACCESSED IN UPPER CASE MODE AND THE OTHER FIVE":"ARE AVAILABLE IN LOWER CASE."C$ISTED ON PAGE 1."4 #A$::S$"THIS IS PAGE 1."C$:~ (5:B$S$"TYPE ANY KEY WHEN YOU ARE READY TO SEE THE OTHER PAGE.";:X$ -:A$P$B$::11:S$"HERE IS PAGE 2 AGAIN!" 223:A$S$"PRESS ANY KEY TO GO BACK TO PAGE 2.";:X$ 7:22:B$P$C$, HAVE $ TWO SCREEN DEMO PROGRAMG SET UP CTRL A, B, C, P, S & T~ A$(1):B$(2):C$(3):P$(16):S$(19):T$(20) T$1B$P$;::11:20:S$"THIS IS PAGE 2, THE DEFAULT PAGE.": 1:S$"WHILE YOU ARE READING THIS PAGE, A PROGRAM IS BEING L   @A8m @0 /@ q@8@8e@@AiAPʘ8e@@AiA@ q@8@֠Ș8e@@AiA@ q@8@`   Wq@8@` 0:N$C$"THAT WAS CTRL N.":.I11500:I:,PER CASE MODE AND THE OTHER FIVE":"ARE AVAILABLE IN LOWER CASE."C$ I13000:I:CONTROL N - TOGGLE SCREEN (INVERSE/NORMAL)":z221:S$"PRESS ANY KEY WHEN YOU ARE READY TO SEE SOME EXAMPLES.";:X$:721:E$:S$"THAT WAS AN EXAMPLE OF CTRL "S$"E.":1000<6:F$:S$"THAT WAS AN EXAMPLE OF CTRL "S$"F.":1000A7:F$N$;:100 S$"AS WILL BE APPARENT, ALL THREE OF THESE COMMANDS ARE SIMILAR TO OTHER":C$"BASIC "L$"COMMANDS OR ESCAPE SEQUENCES.":: #C$"CONTROL E - SAME AS ESC E (CLEAR TO END OF LINE)": ("CONTROL F - SAME AS ESC F (CLEAR TO END OF PAGE)":/-"/ ' MISCELLANEOUS DEMO PROGRAMM SET UP CTRL C, E, F, L, N, S & T C$(3):E$(5):F$(6):L$(12):N$(14):S$(19):T$(20) T$1::S$"THIS PROGRAM ILLUSTRATES THE REST OF THE CONTROL CHARACTERS THAT":S$"FLEX "S$"TEXT RECOGNIZES.":    877238718,248:38749,248/:24:(5);923:Ah38790,106:38791,30r38702,115:38703,3H|39816,123:39817,3^1014,129:1015,3IADDR2411BASEADDR2416BASEI,234IADDR2423BASE,234:ADDR2424BASE,234I15:WHERE:WHERE,247:I38714,38722,38733,38745,38847,2709850,4160+878,24259886,4600P"796,4745,821,4745p,799,4743,818,4743,875,47436802,4744,815,4744@39715,76:39716,8:39717,3J39144,76:39145,57:39146,3T39136,65:39137,3^39147,76:39148,84:39149,339257,234:39258,234:39259,234F x39650,234:39651,234:39652,234V 39206,3097f 39255,2243v 39462,3731 39515,2676 39518,2676 39657,2243 39726,3097 39830,2676 39825,3731 773,4160 807,3405841,269:) MAKE PLE COMPATIBLE WITH FLEX TEXTM (4)"BLOAD GPLE/PLE INTERFACE"h ADDR(974)(975)256v (BASE2048 2I123 <WHERE,NUM FNUMNUMADDRBASE PWHERE1,(NUM256) ZWHERE,((NUM256(NUM256))256.05)(NUM256) dI! n    1::(A$,N);::(A$,(A$)N);:958:S(BZ)::n'VV1:V:I0N1(N69):H:I;:J12:S(16336)::: MAIL GREAT MAIL! ":49384,0:I2039:24:I:(A$,I,1);:40I:(A$,40I,1);:J15::n NB123:160:23: TX49237:K1NB:TX,0::J11::S(16336)::22:16368,0: TX49237:K1NB:TX,0:::22:16368,0:1160:VV2:I23V1:I:E MECHANIC":N11:999r ZA$" UTILITY CITY .................... 29.50 USEFUL UTILITIES ON ONE DISK":N14:999 dN12:V9:H3:9999:N70:V13:H3:9999:N4:V19:H33:9999:N26:V21:H3:9999:N21:V23:H3:9999X n49385,0:A$" GET ON OUR LIST. WE:999` FA$" PRONTO-DOS ...................... 29.50 TRIPLE-SPEED LOADING & SAVING":N12:999 PA$" TIP DISK #1 ..................... 20.00 100 PROGRAMS FROM TIP BOOKS 1-":N13:999 UA$" TYPEFACES ....................... 20.00 FONTS FOR APPLBOSS ........................ 24.00 DISK COMMAND EDITOR":N10:999 2A$" FLEX TEXT ....................... 29.50 -COLUMN TEXT UTILITY":N11:999 <A$" FRAME-UP ........................ 29.50 HI-RES "(34)"SLIDE PROJECTOR"(34)" UTILITY":N10.............$39.50 HI-RES GRAPHICS/TEXT UTILITY":N12:999:160 A$" APPLE MECHANIC .................. 29.50 SHAPE TABLE/BYTE ZAP UTILITY":N16:999 #A$" BEAGLE BAG ...................... 29.50 -GAMES-PLUS ON ONE DISK":N12:999C (A$" DOS o;  BUY DOS BOSS & PREVENT LISTING! FPt:V1:NB51:BZ16336:160:NB1:I124:160:::::" BEAGLE BROS DISKLIST ";::" (DECEMBER 1982)----------------------":I151:170::NB19:160:NB9A A$" ALPHA PLOT .........901,16:902,142 &864,166* 0866,2327 :870,162M D1014,129:1015,3r NIADDR2411BASEADDR2416BASE} XI,234 bI lADDR2423BASE,234:ADDR2424BASE,234 v:24:(5); 23:1 868,247:869,143+ 881,106:882,149@ 889,16:890,149I 540a 38389,115:38390,3y 38361,106:38362,3 36852,76:36853,84:36854,3 38568,76:38569,8:38570,3 868,247:869,143 881,108:882,149 889,17:890,149 71,3% J36849,76:36850,84:36851,3E T38549,76:38550,8:38551,3[ ^868,244:869,143p h881,96:882,149 r889,22:890,149 |540 38387,115:38388,3 38359,106:38360,3 36852,76:36853,84:36854,3 38566,76:38567,8:38568,3 38746,2243 773,4160+ 807,34059 841,2698G 847,2709U 850,4160c 878,2425q 886,4600 796,4745,821,4745 799,4743,818,4743,875,4743 "802,4744,815,4744 ,V0,310,390,470 638373,115:38374,3 @38370,106:383PADDR(974)(975)256& ZBASE20482 dI116A nWHERE,NUMc x(I1I2)V2WHEREWHERE31 (I1I2)V4WHEREWHERE2 NUMNUMADDRBASE WHERE1,(NUM256) WHERE,((NUM256(NUM256))256.05)(NUM256) I 38689,2676/ MAKE GPLE.48 COMPATIBLE WITH FLEX TEXT `(1005)1ĺ"GLOBAL PLE.48 IS NOT LOADED":v(38716)253V2((38747)253V32(38749)253V4<V0ĺ"NOT COMPATIBLE WITH THIS VERSION OF GPLE":F(4)"BLOAD GPLE/PLE INTERFACE"      ,3 926,44:927,130:928,192, 929,96H*809,32:810,162:811,3f4930,44:931,139:932,192>933,44:934,139:935,192H936,173:937,136:938,3R939,96\941,BAH(A256):ALA(AH256)943,AL:944,AH93408,(874):909,(875):910,(876)I911,(877):912,(878):913,(879)g914,44:915,139:916,192917,44:918,139:919,192920,(880):921,(881):922,(882)874,76:875,137:876,3778,32:779,155:780,3 923,141:924,136:9256901,181:902,182$&864,16610866,232>:870,162TD1014,129:1015,3yNIADDR2411BASEADDR2416BASEXI,234bIlADDR2423BASE,234:ADDR2424BASE,234q700v:24:(5);23:905,44:906,130:907,192!940*A55580:B115:1000:AA1:B3:1000RA55552:B106:1000:AA1:B3:1000A54043:B76:1000:AA1:B84:1000:AA1:B3:1000A55759:B76:1000:AA1:B8:1000:AA1:B3:1000868,30:869,211881,147:882,216889,56:890,2155578:B115:1000:AA1:B3:1000J A55550:B106:1000:AA1:B3:1000 A54043:B76:1000:AA1:B84:1000:AA1:B3:1000 A55757:B76:1000:AA1:B8:1000:AA1:B3:1000 868,30:869,211 881,145:882,216 889,55:890,2165WHERE,((NUM256(NUM256))256.05)(NUM256)7 IE 773,4160S 807,3405a 841,2698o 847,2709} 850,4160 878,2425 886,4600 796,4745,821,4745 799,4743,818,4743,875,4743 "802,4744,815,4744 ,V0,0,390,470" A6 (769:V(768)J 2V0ĺ"NOT COMPATIBLE WITH THIS VERSION OF GPLE":d <801:(768)V0:50 F(4)"BLOAD GPLE/PLE INTERFACE" PADDR(974)(975)256 ZBASE2048 dI114 nWHERE,NUM NUMNUMADDRBASE WHERE1,(NUM256)0 ,141,133,218,169,3,141,136,218 %169,199,141,150,218,44,130,192,96,201,72,240,9,169,0,141,0,3,44,130,192,96,169,202,141,75,218,169,196,141,135,218,169,3,141,138,218,169,199,141,152,218,44,130,192,96,44,139,192,44,139,192,169,255,141,255,255,44,130,192,99,3,141,202,3,173,206,3,133,78,173,207,3,133,79,160,1,177,78,141,197 #3,160,5,177,78,141,198,3,160,9,177,78,141,203,3,160,13,177,78,141,204,3,169,117,141,200,3,169,253,141,201,3,44,139,192,44,139,192,173,73,218,201,240,208,24,169,202,141,73,218,169,196 . MAKE GPLE.LC COMPATIBLE WITH FLEX TEXT_(1005)2ĺ"GLOBAL PLE.LC IS NOT LOADED":xI768948:V:I,V:D !0,44,139,192,173,1,209,201,137,208,9,169,3,141,0,3,44,130,192,96,201,139,208,8,169,4,141,0,3,44,130,192,96,169,76,141,196,3,141,19     926,44:927,130:928,192* 929,96F*809,32:810,162:811,3d4930,44:931,139:932,192>933,44:934,139:935,192H936,173:937,136:938,3R939,96\941,BAH(A256):ALA(AH256)943,AL:944,AH934,(874):909,(875):910,(876)G911,(877):912,(878):913,(879)e914,44:915,139:916,192917,44:918,139:919,192920,(880):921,(881):922,(882)874,76:875,137:876,3778,32:779,155:780,3 923,141:924,136:925,36901,2:902,191"&864,166/0866,232<:870,162RD1014,129:1015,3wNIADDR2411BASEADDR2416BASEXI,234bIlADDR2423BASE,234:ADDR2424BASE,234q700v:24:(5);23:905,44:906,130:907,19290840*A55591:B115:1000:AA1:B3:1000RA55563:B106:1000:AA1:B3:1000A54054:B76:1000:AA1:B84:1000:AA1:B3:1000A55770:B76:1000:AA1:B8:1000:AA1:B3:1000868,41:869,211881,158:882,216889,67:890,2155589:B115:1000:AA1:B3:1000J A55561:B106:1000:AA1:B3:1000 A54054:B76:1000:AA1:B84:1000:AA1:B3:1000 A55768:B76:1000:AA1:B8:1000:AA1:B3:1000 868,41:869,211 881,156:882,216 889,66:890,2165WHERE,((NUM256(NUM256))256.05)(NUM256)7 IE 773,4160S 807,3405a 841,2698o 847,2709} 850,4160 878,2425 886,4600 796,4745,821,4745 799,4743,818,4743,875,4743 "802,4744,815,4744 ,V0,0,390,470" A6 (769:V(768)J 2V0ĺ"NOT COMPATIBLE WITH THIS VERSION OF GPLE":d <801:(768)V0:50 F(4)"BLOAD GPLE/PLE INTERFACE" PADDR(974)(975)256 ZBASE2048 dI114 nWHERE,NUM NUMNUMADDRBASE WHERE1,(NUM256)0 ,141,144,218,169,3,141,147,218 %169,199,141,161,218,44,130,192,96,201,72,240,9,169,0,141,0,3,44,130,192,96,169,202,141,86,218,169,196,141,146,218,169,3,141,149,218,169,199,141,163,218,44,130,192,96,44,139,192,44,139,192,169,255,141,255,255,44,130,192,99,3,141,202,3,173,206,3,133,78,173,207,3,133,79,160,1,177,78,141,197 #3,160,5,177,78,141,198,3,160,9,177,78,141,203,3,160,13,177,78,141,204,3,169,117,141,200,3,169,253,141,201,3,44,139,192,44,139,192,173,84,218,201,240,208,24,169,202,141,84,218,169,196 . MAKE GPLE.DM COMPATIBLE WITH FLEX TEXT_(1005)3ĺ"GLOBAL PLE.DM IS NOT LOADED":xI768948:V:I,V:D !0,44,139,192,173,1,209,201,148,208,9,169,3,141,0,3,44,130,192,96,201,150,208,8,169,4,141,0,3,44,130,192,96,169,76,141,196,3,141,19     ******************************************A PRINT NEW LETTERnROW8:COL2:(20)"2"(LTTR)(20)"1":***************************************************** SET UP SCREEN:2SIZE16:XDISP164:YDISP32 WIDTHSIZEPIXELS:HEIG44,131,192,169,76,141,67,232,169,99,141,68,232,173,207,3,141,69,232,44,130,192,96tq43075,76:43076,99:43077,F:t*****************************************************~ INITIALIZE MATRIXI0PIXELS:J07:MA(I,J)0:J,I:************1014,D:1015,C:965,D:966,C&.76838AB2816MB"BLOAD ASCII.40,A"AmLA10,2:A101,1:A102,1vVB:jE(104):F(975):GF256:G102,E:G129,E:G132,E:G135,Em(978)189ĹG117,234:I768793:V:I,V::768:Qo44,131,192,:F(1005)234ė:"REMOVE G.P.L.E. BEFORE RUNNING A.C.E.":Q2430(104)96(96256)0Ĺ104,96:96256,0:(4)"RUN A.C.E.""BLOAD RELOCATOR"B3072$"BLOAD FLEX TEXT,A"B)C(B256):DBC256:973,76:974,D:975,C:SET$Z$:860H*****************************************************[ POKE CURSORSPE(175)(176)256304:233,(PE256):232,PE((PE256)256)1:0***************************************************** LOAD FLEX TEXTER SET TO EDIT (RETURN FOR NONE):";Z$5*Z$""890A4SET$""N>PIXELS7jH:"INITIALIZING DATA."RIA768A1535:I,0:\216,0fp:z(4)"BLOAD "Z$",A"A768:PIXELS7(Z$,3)".70"PIXELS4(Z$,3)".56"PIXELS5 1(GX0):1580!CHAR32İ16509CHAR13ĕ2CX,CY:LCHAR82İ1410CHAR72ĺ(1)(16);:24:34:Z$:1:1:(2)(16);640***************************************************** GET CHARACTER SET 2310% :"CHARACT,I)1:620 b0:1X,Y:37 lXXSIZE:J:YYSIZE:IK vGX0:GY0:1590b CHAR(16384)128r CHAR0640 16368,0 CHAR65GYGY1(GY0):1580 CHAR90GYGY1(GY7):1580 CHAR21GXGX1(GXPIXELS1):1580CHAR8GXGX " PIXELS7540/ TEMP64TEMPTEMP64J TEMP32TEMPTEMP32\ PIXELS5540w TEMP16TEMPTEMP16 I25:23:TG$ &I26:23:TG$ 0MA(7,I)(TG$">") :JPIXELS101 DJ22J N1X,Y XTEMPJ2TEMPTEMPJ2:MA(JAR LETTER hLTTRROW10COL330 rLTTR127ı: |1190D 1160[ X$" EDIT: ":2720i YYDISP1 XTXDISP1SIZE(PIXELS1) I07 XXT TEMP(ADDR(LTTR32)8I) TG$" " TEMP127TEMPTEMP128:TG$">" PIXELS7TG$":COLLOCROW104 CHAR13İ360:X$"SELECT:":2720N "CHAR83İ1800:2380 ,CHAR72ĺ(1)(16);:24:34:Z$:1:1:(2)(16); 6LTTRROW10COL33 @LTTR128İ2670 J180 T***************************************************** ^ REGUL0 310" 3COL77,ROW8569 CHAR(16384)128I CHAR0190W 16368,0w CHAR65LOCLOC10(LOC9) CHAR90LOCLOC10(LOC85) CHAR8LOCLOC1(LOC0) CHAR21LOCLOC1(LOC94) 3COL77,ROW856 ROW(LOC10) APPLE CHARACTER EDITOR (100019507(@<780KF2380VPLTTR0iZA8,1:(20)1xdADDRA768n1160x122016368,0***************************************************** SCAN FOR INPUT X$"SELECT:":272    $ @`2$2?2hH)? @ M 2h`B׍`0 L" L@$$P$$L y LLޚ L L $"L - BACK SLASH":810:Z$;"M - RIGHT BRACKET":b10:Z$;"N - UP ARROW (OR CARET)":10:Z$;"O - UNDERSCORE":5:45:L$;Z$;"K - ";C$;"LEFT BRACE":45:L$;Z$;"L - ";C$;"VERTICAL BAR":45:L$;Z$;"M - ";C$;"RIGHT B SET?":C$:K2:1120:::S$;"OR THE ENTIRE SET?":C$:K3:1120OX1080:1110Yb34,0l1:26::C$;" SPECIAL CHARACTERS ":::"IN THE STANDARD ASCII CHARACTER SET THERE ARE 10 SPECIAL CHARACTERS."v5:10:Z$;"K - LEFT BRACKET":10:Z$;30::"LOWER CASE MODES!"e0:S$;"WATCH THIS.":VP13:HP1:X$"]CATALOG":1070:34,14:D$;"CATALOG":1080:13:1:F$;C$;:VP13:HP1:X$"]CATALOG":1070:D$;"CATALOG":1080?N11:1:F$:S$;"AFTER ALL, WOULD YOU RATHER HAVE TWO-THIRDS OF A CHARACTEROWER CASE LETTERS ARE RIGHT AT YOUR FINGERTIPS.":S$;"NOW WITH ";S$;"FLEX ";S$;"TEXT, YOU NO LONGER NEED TO BUY A ";C$;"LOWER CASE ADAPTER.":C$;"BASIC ";L$;"AND ";C$;"DOS ";L$;"COMMANDS ARE RECOGNIZED AND EXECUTED IN BOTH UPPER ";:X$"AND":1170:T70$;:VP12:1180:J56:T56$;:VP15:1180_J40:T40$;:VP18:1180:J20:W$;:VP21:1180m1:T70$;}1080:10901:25::" UPPER AND LOWER CASE ":0:S$;"WHETHER YOU ARE TYPING IN YOUR NEWEST PROGRAM OR RUNNING AN OLD":"FAVORITE, L...":15);"- WORD PROCESSORS"::20);"- DATA BASE MANAGEMENT SYSTEMS"::25);"- UTILITIES"::30);"- GAMES AND"::35);"- EDUCATIONAL PROGRAMS"I49:34,I:24::I10:"THINK ABOUT IT. YOU GET TO CHOOSE ANY OF THESE WIDTHS..."-J, JUST ONE MORE.":7VP5:HP1:X$"]LIST":1070:990^VP11:T56$;:X$"]LIST":1070:990VP17:T40$;:X$"]LIST":1070:990T70$;:1080:3:"THE ABILITY TO DISPLAY DIFFERENT CHARACTER WIDTHS MAKES FLEX TEXT THE":"PERFECT COMPANION FORHARACTER SET."=,:W$"-THIS IS A 20 COLUMN CHARACTER SET."6:T70$"GET THE IDEA? ";:1080:24:1:E$;:34,2:I119:24::I@5:1:"HERE'S ANOTHER SAMPLE."TI14:T$I^I4ĺW$;hJ32127:(J);:J::I:T70$;r1080:|"O.K.HARACTER SETS CAN BE ANY SIZE. YOU CAN USE 20, 40, 56, AND 70 COLUMN CHARACTER SETS AT THE SAME TIME.":"FOR EXAMPLE...":"-THIS IS A 70 COLUMN CHARACTER SET.":T56$"-THIS IS A 56 COLUMN CHARACTER SET."":T40$"-THIS IS A 40 COLUMN C" ALTERNATE CHARACTER SETS ":g :"FLEX TEXT ALLOWS YOU TO STRETCH OR SHRINK YOUR APPLE'S SCREEN." :"YOU CAN SELECT FROM UP TO 9 DIFFERENT MEMORY-RESIDENT CHARACTER SETS":"AT ANY TIME. (YOU CAN REDEFINE THE CHARACTERS TOO!)"g:"AND, THE CND":22:"- MIXED GRAPHICS AND TEXT"o 19:"...WHATEVER YOUR DESIRES AND PROGRAMMING REQUIREMENTS MIGHT BE." :"THE FOLLOWING DEMONSTRATION WILL ILLUSTRATE JUST A ";:X$"FEW":1130:" OF FLEX TEXT'S":"CAPABILITIES."; 1080 1100 22:::26:X$"BY MARK SIMONSEN":1130 :10:"FLEX TEXT GIVES YOU CONTROL OVER APPLE'S INPUT AND OUTPUT FEATURES,":"ALLOWING YOU ACCESS TO: "$ 13:22:"- ALTERNATE CHARACTER SETS":22:"- UPPER AND LOWER CASE":22:"- ALL SPECIAL CHARACTERS":22:" A$(1):B$(2):D$(4):E$(5):F$(6):N$(14):T$(20):W$(23):Z$(26)r ZT70$T$"1":T56$T$"2":T40$T$"3" dT70$;: n28::":";11);":" x28:" FLEX TEXT " 28:":";11);":": 5:17:"HIGH RESOLUTION CHARACTER GENERATOR"! O BE LOADED IN":"POSITION 1, A 56 COLUMN CHARACTER SET":"IN POSITION 2, AND A 40 COLUMN":"CHARACTER SET IN POSITION 3.": (1:(2)(16)(3):1170 2(973)76ė:"FLEX TEXT MUST BE LOADED.": <(104)64Ĥ24576J PC$(3):L$(12):S$(19):A$l================== FLEX TEXT (DEMO) BY MARK SIMONSEN COPYRIGHT (C) 1982 ================== :ADDR(974)(975)256:ADDRADDR2816(ADDR9)3(ADDR8)2(ADDR7)140| :"THIS PROGRAM EXPECTS A 70 COLUMN":"CHARACTER SET T"" " " " " """""""""