Z 2140:"(C) 1991 VISION SOFTWARE CO. RELEASED: 04/14/91 RUN: L!X$X@  1 0 !Ѝ ЅƩ @ } ~L~0}  % L  vISION sELF dISSOLVING fILES V2.0  WRITTEN BY: kERRY mESSANA  (C) 1991 vISION sOFTWARE cO.  vISION hq bbs 315-342-3209  hOME OF vISION cOLOR bbs  pRESS f1 TO abort!  pRESS f7 TO view fILES IN vsd.  pRESS f8 TO create A vsd FILE.  pRESS any other KEY TO DISSOLVE. eNTER fILENAME + ,FILETYPE eXAMPLES: GAME,P OR FILE,S  fILENAME >  fILE tOO lONG! fILE nOT fOUND  sTORING fILES cREATED. Ɇ $L Ɋ 2L ɇ @L ɋ NL Ʌ`Ɉ  \ $LɌL o @  opL k l g΅gȌg gge  Y oopГ  $ƭo `  `l k8``ej S  : j ` } -/b.0cp7 >_` C >u x  L} ) LM  LM L eL  LM p͐L -/b.0c+H,H_+`,+ȥ+h,h+LM eƩ΅ f Le ' ɀ۰۬exӭfȌe L ef eL ̩ f e`8` -/b.0cp (  $ `iHHhhi`iHHihhi` -b.cLM   8`   8` dd Hdh  `  hhL :Νe,W莆`:Νe,R莆` QL ~b   ` 8` ~ ` ` `_`` ea a ` ؝ٝڝ` 09  Ll `xyzvw (X`vvlyvww)w  w) lyxyzX` CREATE MODE sAVE aS > sAVING...ED!  x  Lϩ:Ϣe.VSD,P,Weυ e ~b   L( }}  .-   }`v`w`HHHe ,V *8hhh` SYNTAX ERROR USE ,P/,S/,U IN FILENAME. ERROR IN FILE TYPE. ePSU 8``1ϩh{ %09h hhL 0` { {{h 8`xyzLwvi|X`vvlyvwi)w|i)|w٭|(lyxHyzٝ(hX` F3/F4 - DEVICE: F5/F6 - DRIVE: (~ 8 L 0 0 `~~ `~ ~ `9 `1 `p`+,+, @+ȱ+ȭg  g+ L+, 0p+, `  `U.DOODLE LOC.B,PH$H53281,1:100: U.DOODLE LOC-BYH:Z$(.):YT$(130):F$(20):T$(20):S$(20):C1H" #8";D$:LD(D$):LD.2H 1,LD,15:1,"I":1H "  ":2,LD,2,"$0":X1254:#2,A$:IP18:#2,TY$,T$,S$:TY$YT$J1611:30:24:I#2,A$,B$:A$B$"DD"J1411:30:24PIT$(C)T$:S$(C)S$IF$A$B$:X114:#2,A$:A$(96)A$(160)F$F$A$I:F$(C)F$:F$"":X(.):CC1:J11:30:F$(C1)IST2:40IP8#2,A$,A$IP:14JX1J:#2,A$::*J("":X1C2:F$(X);20)F$(X1):TJ)" "C1"OODLE (DD) FILES FOUND:"J*C1M$" ":M$" ":198,.:198,1:J+:X1C2:F$(X);20)F$(X1):J- PRINTF$(X),ASC(T$(X)+Z$);ASC(S$(X)+Z$):NEXT:STOP3K.M$" RESS TO BEGIN":M$" NY OTHER KEY TO CANCEL"VK0198,.:198,1:A$:A$(13)vK2CC1:15,LD,15:5,LD,5,"#"K4P1C:"WRITING "F$(P):T(T$(P)Z$):S(S$(P)Z$)K615,"B-R:"5;0;T;S:15,"B-P:"5;2K85,(.)(92);:15,"U2:"5;0;T;S L:15,E,E$:E;E$:PL<5:15:SLdM$"":" SAVES OODLE SCREENS WITH A LOAD"Lf"ADDRESS OF 8192 WHICH IS OK WITH OODLE"Lh"BUT IS NOT ACCEPTABLE TO SOME OTHER":"PROGRAMS THAT USE OODLE FILES."Lj"HIS UTILITY WILL SEARCH THE DISK IN"(Ml"THE SELECTED DRIVE FOR OODLE FILES"VMn"AND CHANGE THEIR LOAD ADDRESS TO 23552"Mp"WHICH IS THE PROPER LOAD ADDRESS."Mq" * NOT WORK RIGHT WITH THE 1581 *"MrM$"1 OAD DIRECTORY OF OODLE FILES"MtM$"2 O TO ''" NvA$:(A$)6,126 NwA$""28568:)Nx118kN~" RESS FOR ''":" "N198,.:198,1:A$:A$(13)N"L"(34)"C*"(34)","(856):18335:b#U.FGM TO GLM.B,PH#H53281,1:58: U.FGM TO GLM-AXH:Z$(.):YT$(130):F$(20):T$(20):S$(20):C1H" #8";D$:LD(D$):LD.2H1,LD,15:1,"I":1H"  ":2,LD,2,"$0":X1254:#2,A$:I P18:#2,TY$,T$,S$:TY$YT$J1611:30:249I #2,A$,B$:A$B$"S."J1411:30:24OIT$(C)T$:S$(C)S$IF$A$B$:X114:#2,A$:A$(96)A$(160)F$F$A$I:F$(C)F$:F$"":X(.)IJ10:30:#2,B$:(A$Z$)256(B$Z$)0924ICC1:F$(C1)IST2:32JP8#2,A$,A$JP:10/JX1J:#2,A$::VJ "":X1C2:F$(X);20)F$(X1):J"" "C1" CONVERTABLE FILES FOUND:"J$C1M$" ":M$" ":198,.:198,1:J&:X1C2:F$(X);20)F$(X1):$K( PRINTF$(X),ASC(T$(X)+Z$);ASC(S$(X)+Z$):NEXT:STOPcK*M$" RESS TO BEGIN":M$" NY OTHER KEY TO CANCEL"K,198,.:198,1:A$:A$(13)K.CC1:15,LD,15:5,LD,5,"#"K0P1C:"WRITING "F$(P):T(T$(P)Z$):S(S$(P)Z$)L215,"B-R:"5;0;T;S:15,"B-P:"5;2&L35,(.)(96);:15,"U2:"5;0;T;S"AFTER HAVING THEIR LOAD ADDRESSES"M@"CHANGED BY THIS UTILITY. HE 'MODIFIED'"MB"SCREEN FILES WILL STILL BE COMPATIBLE"MD"WITH THE UN RAPHICS ACHINE." NF"HIS UTILITY WILL SEARCH THE DISK IN"8NH"THE SELECTED DRIVE FOR COMPATIBLE"fNJ"FILES AND CHANGE THEIR LOAD ADDRESS TO"NL"24576, THE PROPER LOAD ADDRESS FOR ."NN"HE FILES THIS UTILITY LOOKS FOR ARE"NP"9 BLOCKS IN SIZE, BEGIN WITH "Q$"S."Q$" AND"&OQ"WILL BE RENAMED TO BEGIN WITH "Q$"L."Q$"."UOR" * NOT WORK RIGHT WITH THE 1581 *"OTM$"1 EARCH DIRECTORY":(44)72M$"2 O TO ''"OXA$:(A$)4,92OYA$""100OZ88O\(44)7288P^" RESS FOR ''":" "7P`198,.:198,1:A$:A$(13)fPb"L"(34)"C*"(34)","(856):18335:uPd(44)8Pf28568:8$U.PRINT 2 DISK.I,PH"H40544: LOAD ACTIVE PRINTER;H "P.Z.*","DP*"UHA.LD(186):M$,F$kHA.A1:M$,LD,1H"L"(34)F$(34)","LDH 18429,1:18335:A-FGM Z.PRINT.E,PO"FGM Z.PRINT80/120.E (C)1991 ON ACKLEY OX 1191, OSEBURG 97470q"":683,27:684,51:4042" SE THIS UTILITY TO PRINT HI-RES"" Z. FILES WHICH HAVE BEEN "" BY THE V6."' " !"U " HIS PROGRAM MAY BE COPIED AND GIVEN" " TO OTHERS SO THEY CAN PRINT THE ":" FILES CREATED WITH ." " :":" 1. ":" 2. 10" 47:TY(A$):TY.TY2' "";:X1TY:::">":X13TY::h " Z. ";F$} F$""F$"Z." 685,328TY:14:22 "";:1,8,15:2,8,2,F$:1,E,E$:2:1:E2017 C:"":"FILES PRINTED:"C: F$;E;E$:B E;E$:CC1:" #"C;F$:3,8,0,F$:157,0:185,0 780,0:781,0:782,32:65493:3:X((174)256(175))8192 253,X255:254,(X256):4138 N1(681):N2(682):(2)346  PD(695):SA(N1256N2)320 " "SA" "9 " ";8040PD" DPI"W X1::" :" TY1PD.SA2" 1. 80 DPI":XX1 " 2. 120 DPI" XX1:" 3. 240 DPI 2";:PD."3"; :47:DE(A$):DE4XDE3 Y0X:"";::Y3XDE::' " >":Y0XDE::C W1:DE3W2:PD.W3v !" Y/N ";:47:A$"N"35 "A$"Y":LF1 #""A$" ": $" Y/N ";:47:A$"Y"P1:38 %A$"N"&""A$" ":2,DE128(TY1):4054''" #"C;F$:DE141P(X(N1256N2)W:N1X255:N2(X256))4320,LF10:4110,25(3W):679,N1:680,N2:04204:A$(F$,3,1)*A$((A$)1):F$(F$,2)A$(F$,(F$)3):P.45+" - :"F$:" TO "$,47:A$(13)150-14:39P." ":h/198,.:198,1:A$:0 DON'T DISTURB BASIC : ML ABOVE*****************************************) ``)*LZ$z``L 8εζ`RCH '`  *  `           $0ʊ  $0L `9SCREEN FINDER-H,PE"":808,237:53281,7:198,.:(832)169" ":62} " IES CREEN INDER-H (C)1991 ON . ACKLEY55,254:56,31::X1:Y1"  - "P2X1:P1:44* " 1 OR TO SCREENS":" 3 TO SCREEN"w " 5 TO ADDRESS OR SCREEN":" 7 TO A SCREEN" " '' TO ":" (SOME FILES - MAYBE)" " '' FOR " "RESSING 1 OR WILL LET YOU VIEW THE"% "SCREENS IN MEMORY. HEN YOU SEE THE"t "SCREEN YOU WANT, PRESS 5 OR .":"OU WILL THEN BE PROMPTED FOR A" "FILENAME TO SAVE THE FILE UNDER." " -RESS -1 TO BEGIN VIEWING SCREENS-" A$:A$""A$(13)92 A$""A$"X""":44% A$""A$"R"866: REV SCN5 "A$""106F $A$"S"934k &(53265)27A$"Q"A$""28 (55,0:56,160:A$"":808,237: ):"L"(34)"FGM BOOT*"(34)","(186)""; *631,13:632,82:633,213:634,13:198,4:- ,X153265,59:53272,24:251,0:252,4:916: CLR COLOR: .X8X2W 0X5251,0:252,160:56p 2841,32:X6841,16 4X7251,0:252,224:56 6251,0:252,(X8192)256:253,0:254,32:832:XX1:28 856334,(56334)254: INTERRUPTS OFF :900: XFR RAM UNDER ROM TO 81926 <56334,(56334)1:XX1:28f >LO,HI: ILOHI:X:I,X:RRX::R25942 @"ERROR IN DATA STATEMENTS": B 832,1018 D 169, 0, 133, 253, 169, 32, 133, 254, 162, 32, 160, 0, 24, 177"F 251, 145, 253, 200, 208, 249, 24, 202, 208, 1, 96, 230, 252, 230eH 254, 24, 144, 234, 0, 0, 169, 0, 133, 253, 169, 32, 133, 254J 162, 32, 160, 0, 24, 177, 253, 73, 255, 145, 253, 200, 208, 247L 24, 202, 208, 1, 96, 230, 254, 24, 144, 234, 0, 0N165,1,41,253,133,1,32,64,3,165,1,9,2,133,1,96ZP162,4,160,0,169,1,145,251,200,208,251,230,252,202,208,242,96,0R 169,0,133,251,169,32,133,252,170,160,0,177,251,133,253,72,41T 192,201,192,240,6,169,63,37,253,133,253,104,72,41,48,201,48,240'V 6,169,207,37,253,133,253,104,72,41,12,201,12,240,6,169,243,37lX 253,133,253,104,72,41,3,201,3,240,6,169,252,37,253,133,253,104Z 165,253,145,251,200,208,189,230,252,202,208,182,96,234\53265,27:53272,23:"SCREEN IS LOCATED AT:";(X1)8192&^" - ":" Ց"D`X631633:X,29::198,3bF$"":" (SAVE)S.";F$:F$""F$"S."4d57812F$,8:193,0:194,32:174,64:175,63:62954:120f" 8192":" - -"h198,.:198,1:4Ij53265,27:53272,23:" - "rl" ̑"nF$"":" (LOAD)";F$:F$""4p53265,59:53272,24:251,0:252,4:916: CLR COLOR rSL.:SH32:(F$,1,2)"DD"SL.:SH28: 7192GtP2:3,8,0,F$:157,.:185,.:780,.:781,SL:782,SH:65493Vv3:120:4xx15,8,15:15,E,E$:15:E20z53265,27:53272,23:" :"E;E$:"RUN":!;FGM BOOT.6.K,P=FL0: 0=FL PROMPT:1=FL W/O PROMPT: 2=NO FL OR PROMPTDF000: DEFAULT SELECTION: 0,40,80,120,160: CHANGE ABOVE AND RE-SAVE BOOTDV(186):3775,DF198,0:631,13:53265,27:"";:2920:3738 TY(2):8191,TY:TY16016 FL.2900:198,1:A$:A$"Y"F1B X8:C.:20:250,.:250,F:4380: "NEW":"L"(34)"SCREEN FIN*"(34)","DV:"R" X631638:X,13::198,8: 1,X,15:1:ST.853C,X:CC1 XX1:X13C320 695,C:186,DV:3800: DPROGRAM CHKR.K,P "FGM.6.KM55,0:56,30:51,0:52,30::LD(186):53280,14:53281,7" V6.5 ":31" OES CHECKSUM OF ALL VITAL":" PROGRAM FILES ON THE DISK." " UT PROGRAM DISK IN DRIVE":" AND PRESS .":198,.:198,1H "Œ Œ Ғ ͒"t L01613:F$,C1,C2:SL.:SH32:F$"*"; 49240:3,LD,0,F$"*":157,0:185,0:780,0 781,SL:782,SH:65493:3 EL(174):EH(175):EDEL256EH:253,EL:254,EH 1,LD,15:1,E,B$,C,D:E191,"I"A 1:E19""E;B$"":UFUF1:27e 11);ED8192;:49152:D1(820) D2((821)256(822))(65536(823))983040(824) 18);:C1D1""; D1"";:23);:C2D2""; D2""; C1D1C2D2" ":27 34)"Ґ":ERER1, 27: PRNTRE 4,4,7:4,F$;(820);} 4,((821)256(822))(65536(823))983040(824) 4 L "  Ӓ:"UF:" Ӓ:"ER ER." LL VITAL FILES FOUND ARE :)."* :," ":," !!":= X49152:FF255X Y:X,Y:XX1:YFF32^ ! "160,5,169,0,153,51,3,136,208,250,234,234,234,234,234,234,234,234 #234,234,234,234,234,32,124,192,234,234,133,251,169,32,133,252,160, $0,177,251,240,30,72,77,52,3,141,52,3,104,24,109,53,3,141,53p %3,144,13,238,54,3,208,8,238,55,3,208,3,238,56,3,140,32,208,200 & 208,216,230,252,165,252,197,254,144,208,240,206,96,234,169,0 '133,251,169,32,133,252,162,68,160,0,169,0,145,251,200,208,2515(230,252,202,208,242,96,0,162,5,157,62,32,202,208,250,96,0x) 166,253,164,254,224,97,240,5,224,63,240,8,96,192,34,208,3,76* 114,192,192,42,208,244,162,5,157,222,36,202,208,250,96,255+"FGM BOOT",246,256476,".COLOR",130,55290-".",219,392823".".",053,1506133:/".",182,86384S0".0",246,539536l1".",242,5797662"C",144,7531083"D",231,7345054"U.CLIPART",180,2863145"CA",136,6567446"AP",129,7812137"BP",215,762141"8"CP",039,773005<9"DP",180,745592X:"FGM I.COM",176,131692s;"FGM I.PR",125,134851<"FGM Z.PR",124,215252="SCREEN FIND",086,225182>"U.SEL.PRN",195,731413?"U.READER",009,6233256/NS.UPDATER-6.5,P  0@B ""QQq~AAA>BBB@@@@@@qQQQQQQ? QQQ@@@PPP@@_QQQDDG@@@PPPDDDD? /(((  #&./" H0dn~<@`pX""C""! QQQA!BBBBBBBB@ QQQQQQQQ ?Q@ PPQQQQQQQ@ PPPPHDDDDDDEDDC@@@/ '$$$$""""  PPP d??0{?>" ?!QBBBB<DQQ"@@@@q$' ?" HGP#<<<Ĉ ??/g||||">"""! # @DDD@8xHpHD""""< |@ .""<""">"" """"<! 8 >p #p>@?|8@?8(<"> "$"@<"> <"1PAAA@!xD8@@#""""b!""x""""#" >>"""""""<8 >"<""<"> > "2ppȨ 8px @| G @GO?0x fg"""< 8 >6*""""" < @?3"<""8 >?8 >1*&"">xpxD|DDDxDDxHHHGxx0xxƆaffgfƇaaa``a3073300<00?333333333 00<00?115?;133><63xp~xx00000xxx000000!XU.RENAMER.A,P U.RENAME.G,53280,6:53281,7:72_"  G. "" (EXISTING G. FILES WILL BE IGNORED)":56" F THE GRAPHICS FILENAMES ALREADY":" BEGIN WITH A PREFIX (IE: PS.) THEN"3 " YOU CAN HAVE THE EXISTING PREFIX":" WITH THE G. PREFIX INSTEAD"_ " OF HAVING THE G. TO IT. NTER" " THE PREFIX (IF ANY) THAT YOU WISH THE" " G. PREFIX REPLACED WITH." LDA:"  G.: PS." "":S28:62:P$(A$,3):PL(P$)G "  Ԓ Y/N?":198,.:198,1:A$:A$(13)A$"Y"26M  64:" /ǒ":2,LD,2,"$0":X1254:#2,A$: P18:#2,TY$,A$,A$:TY$YT$J1611:66:50 O$"":X116:#2,A$:A$NU$O$O$A$ 0 "J10:66:#2,B$:A(A$Z$)256(B$Z$):(A2)(A3)50C $(O$,2)G$50y &PLA$(O$,PL):P$A$R$"G."(O$,(O$)PL):44 (O(O$):O14O14 *R$"G."(O$,O) ," >R:"R$" = "O$;:1,"R:"R$"="O$:1,E,E$:" "E;E$ .E20CC1 052 2IST:I68 4P8#2,A$,A$$ 6P:28O 8"  # ";(186):S9:62:A7U :u <X04:631X,29::198,5: >""S);:A$:A(A$): @Z$(.):YT$(130):NU$(160):G$"G.":1,LD,15:1,"I": BX1J:#2,A$:: D2:1,A,A$:1:"  Ē:"C< F" ":198,.:198,1:r H"":" HIS UTILITY CAN BE USED TO RENAME" J" 2-3 BLOCK GRAPHICS FILES TO BEGIN WITH" L" A G. PREFIX, AND/OR RENAME A SET OF" N" LINKED SCREENS."#P" 1 ":" 2 "FR(44)72" 3 "lT198,.:198,1:A$:A(A$):A4,90VA3(44)72120X84Z"":," Ӑ"\" HIS WILL RENAME SETS OF LINKED "!^" SCREENS (THE FILENAME AFTER THE S.XX":" PREFIX).":56:LDAf`60:" :S.A1";SF$:SF$""SF$"S.1A"b" : ";SF$:S15:60:62::NF$A$:(A$)4d1,LD,15,"I":2,LD,2,SF$:1,E,E$:2:1fE19" "E$" "SF$:70hS$SF$:N$NF$:X13:118:E19108Fj" >R:"N$" = "S$:1,LD,15:1,"R:"N$"="S$:1ylA((S$,4,1)):S$(S$,3)(A1)(S$,(S$)4)nA((N$,4,1)):N$(N$,3)(A1)(N$,(N$)4):pA((SF$,3,1)):SF$(SF$,2)(A1)(SF$,(SF$)3)rA((NF$,3,1)):NF$(NF$,2)(A1)(NF$,(NF$)3)'t100Ov1,LD,15:2,LD,2,S$:1,E,E$:2:1:x" RESS FOR ":" "z198,.:198,1:A$:A$(13)|"L"(34)"C*"(34)","(856):18335:"