LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)SOS KRNLb.D1/SOS.INTERPŠ̠Š.D1/SOS.DRIVERР頞 0 ) (lH'&3&'&#e'#%e'%'&"$"$#%'#%h`$eREAD.MANUALIDE =J9 ,RENUMBER.INV42+%SEG.T >jŸ/ *SOS.INTERP D4ke1 ! *SOS.KERNEL ,V,!a*SOS.DRIVER B 22/GTO.RUNTIME.123 //-GTO.SOURCE4S* GTO.TEMP.1 42+%HELLO { 8'*HELLO.TEXTxP*MENU.MAKER 4 }>III.DAD.081951Au' ,BASICGTO.INV 42*DISKNAME.DATg11FLASHNAME.DATfGJ J %GTO.1 $/. / %GTO.2 /. /, +GTO.RUNTIME >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@L%e,ȥ,*,- y,,,-,,,ȱ,,- yL+,ȑ,` 2"p-,-L(Ġ %>,i-i8, ȱ,%,W,pp ڠ %p`l  " ) i   !"#$%&'()*+,-./0120 `8`HiHiH ihhȱh`86)IH)heuQɸ` ` W` ] %饚0` W` ߰4`)|E8LLLRLLLLL*LLLLLhh`LLL`SOS 1.3 01-NOV-82(C) 1980, 1982 BY APPLE COMPUTER INC. ) `G`î** }*`o^`on 8 JJAj@` *?($`ΠņɠŠ堠РѠ͠஠әƆH v?c,,,,h߈ߢ~))`3PLLP*%(i&`Ѕ񩏍E H pph`XǠĠӠ!((ͽϠРРSOS NTRPSOS DRVR(.D1(YYYYMMDDWHHMMSSMMM̱忠ΠͽŠ堠Р͠Ю̠Ɔx߭J ʈc(()o/ e/''ʈ((''()(1i / e/''ʈ((''((''((''' ('`ŠDAY, DD-MON-YY HH:MMSUNMONTUEWEDTHUFRISATJANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECԠŠР@L&I/O ERRORINTERPRETER FILE NOT FOUNDINVALID INTERPRETER FILEINCOMPATIBLE INTERPRETERDRIVER FILE NOT FOUNDINVALID DRIVER FILEDRIVER FILE TOO LARGEROM ERROR: PLEASE NOTIFY YOUR DEALERTOO MANY DEVICESTOO MANY BLOCK DEVICESEMPTY DRIVER FILE '(i%%%h}%%`8 ȥ!8 !)"qȥ#q#e$ȱe%L)%`@(((( % %`((((࠰$(ɠH(@(h((((@(`%z %% %~(A{(L%`.8(.Je.&ʈ.s(1 6$P8"ȥ#L1$8"ȥ#(ϸ`"##L]$"qȥ#q0,$p)@"q"ȩq"8`*$% $% 8% $L$* $8%8 $`8 &'$% 8&$'% 8$%%`H   q ȥ q Hi hi 1  % H H ȱ h h % $$ 0 e e H i hi âz %` 1 8`    # &ȱ ' # i" i# # #`8 ȥ H h `8 6$P`8"#%#%"$w"$#%"`荚ٍ荺 荚`荺``` D ( )  * ) 4* * h* ))` L% q ȥ q Hi hi  i" i# #% $ȱ %ȱ &ȱ '`<!((g %(r(z(q( %y(i(0z %"#$ %&' $"#$%&'   `%$%ɠ%* " ~#C #p $ %*0"#)#)i $"% * %*  L! {" j% %ƌ(X#"$% "$ #%%& '   ` {" & ɠ% %)  !( (" %(r(z(q( %y(a(0: %   "$%&e$'e% R % <`` LLɠ8`ΛLL渠`ǽi `< Ȱ+<#5 ې'` ɐ /ݐE`W8`R` 5&i ` Ȱ 0i `<8> ȐT eİF cȰB)Hh5 ˭)*ȑƑȥǑ'(ȑ`L)ɭ)Ѷ*e`M) `ۅH)Ѱ%}ʈh Qܐ'``hi ` p6۽ʹZ5 HȐ/i i `гW8`0( ɐ Ȱ ʮ6E`5 խ ɐ ޢ ȰLȍ۱Ǎ X̰% & !J8` *LĢ `8 iۥƍۥǍ`ۅ %  6 )Ѱ Ѱ` 𝭧e ǐ bǰL*ۈ5ȱ۠ƍȱǍ X̐ H h1  /ݐE`ۈۅ ۅ 8ƭ X̐`LLŠǠ  ݭv̅w̅ ðzv̍ŭw̍ŭƭ ­ōō T̰]ŅƮņ X̠8iȱiiȱi ṰŅǭŅ XLōۭ۩ۅ ȱ8D`F`8eYƍťǍŠ)͠ Wٍۭۅ5ۅƭۅ X̰ ìۈۑ T̰ۅƭۅ X̰ۙ%ۍ" T`K8`)` İ ۱ۈ` ưW/ۈęۈЍ۩@` 8 MƐ  5 Q8`LŅ ۅ ۩ۍۅ Lɰ ʰۅۄÍÍۙ'Ù ۍ*ۨ  Ѝ۹ۙ8v- ðJ ¥ ð, ðLO ʰƥLT`'  mې浰``8 8 nʰ0 ̰+泱Ƴ m° x̰ ̐8` m° x̰8 ۢ8 ˰y ` ¥ nʰ泱Ƴ T̰#泪 Ѳ *Ƴ ` L:Ϡ`泑Ƴ` LaĥH8`JȘ I8`  S`ۈۥۥ۩Íۭۍۭۍ հL¢H8`Jj Ȅ ۍۆeۅiۅ Lɰ ʰWۅۄ ¦J> ɩE` eĐL Ȑ 15WL QL5WW{5 ې'`,55 ې'` ݠ B1 ȩȑ Lɦ8`5  @ R㥶i ` İG8`F`X8``éۅĩ >` T֩xxMH]@ Kۅ5H ɐE$ eİ Ȱ h`h`8`W h8`hR`hLҿ i x +ۅ5ۅ6 ǰ `E8<W`­ `0XLۅ5` ռ``ߤeI`IiţO`Ȯʆ/ )󘑡`()0zq 滅ѺY Ueۅ5Ѻ Ѻ  Qܐ'`i ҩ *C8/y.i/ ȑ  © $ E7<3W`ȽLֽȄ @8`R ) [)_[AͰ")[)_[A:0/.ЩȑΘ8e * ȩ`Loü 7)?۽۩ W٠Յ<ōōř ռV7 uM78 V榠=ü#)@5 ɐ /ݐE ) .) @L `lqhٯ޿=ϓTXIֲ̛̐~ؠIJK,-NOPQ0vt Ѷ"` ɰ Ȑ`E`Ɔ X̐8`>>5Ѷ Qܩ<`>`\ʊJJJJ ۍ۩  ˰Fȱ X̰6 0 Lɠ 0ۑۑ8ȱ`H8` ɹ $  8JJJJ8 ` ۪` H hQ)fʅ F jF jF jF &!  eװ*  ̰F湥 ƹ`Z8`@  ʰ泭ۑƳ ʐ` ʐ` ˰ ƹ Wː`ۘ . . .۪8*Jۦȱ ˦,+* ʈJj =ؠ yiȩ`y4泱ƳHhz ʠiȱizLA`L;ؠ"  `1` Đ7@8V۩ Lɠ۪8ۊ۠X)JJJƄ X Ġȱ۠ ȍ۱۠ ۭ) ۍ ð*)#  O̰``)(`N8` ) xհۈ ̰آ*գ  Ͱ ݢգ LvL{ؠ;i ڥ(8` ְ( ȱ5 HȦ)`Lxץ: ש ְ⥺i ꥻ(8`Lx Lxש u )۠0)p խ.8`)@ ϰ) ϰۈۅƭۅǭۅ5 X̰ *ƭ۬͵̶L  ΐ` Wհ> H۪ȱHۑhƳh sϰq ` ʰiȱi `)5©éՅĩ5 }JJ+`.`8`ɂ )`@ ש ְO ֤FHۑۑh8`P) հ Wհҥ,J+j泭۪ƳۑȊ ) ~ fPL ͊.>.ʱ+,EP!.E.Lw+,,ӄ*- P*e (` հB հ5 Wհ0,J۪泭ۑƳ sϰ(` L Ͱ2 ~ P kҐ#L8 T 2ΠHHȑhhȑ`Ld )N8` xհ*eȱ+eȱ,i۠Ѻ۹ۑ񥤅- ť.Lcԥ.La Ͱ$)rJ Lɰ )# Ԑ) ͰU..++,,IJ/ ӥ-.?Цե,J+jѲ4Ƴǥ4聠 H hH kh8`8-ȥ.L 8*Ʊ )8 0*-`.G.ʱ*+,EP'.E.LұE0+,,ӄ*p-e  )LBѠٳ )8`i (` )N8`*eȱ+eȱ,i۠Ѻ*ȱ+L - ť.Lkҥ. ՅL ͐Ld ~ pа.J/)@߅4N8`) ))УJ8` ۑȭۑǠۑۑȭۑ($S8`O8` "` / 򑺠+* ͐H h8` ΰi `()  *ǵ յý5Ņ4gȩυɩč5 iψ }.8` iϙLIѠ ˢ L΢ ΰ LϠ ˢ ΰ1` Đ@ АP8`B8`ۑJJJJ -ѥ +jѲ84ƳJJ 2ΐ3泑ƳLTΩ潑ƽ`ƱƳ ΰ( {Π۵*+)e`8`)` J J + ΰ" 0 ΰ 🱼ѼL8`ǩ Ϡ` ϰ ƑȥǑ` Ѻе*`)ȥ+8ۍې  ,ѺLTΠ"LΠ5 խ ɐ /ݐE`C8`)@ ϰa)ۥ,8ېu+J,\ ȱLJΠ) ϰ'#,J(] { ΰ ƑȥǑ.8` { ΰ,JѲ ƳL΅ƱƳ ΰҥ,J0`#$"0#`!qȱi 5H5Ƶ ǽ jh5`L2̩ƍv̥Ǎw̩ÎL%ϠƄǥLj̩۬L~̠HHh` ̐`*ѺG0?M`)J"u-- M8`۬` # ː`  = O̰)= I`JJJJѶQi Lˢ  0 ̐ `"L˦ `H8`8$$"$= O̰=`$0`#$"0`$Jۑĥ` İo!)N8`WپX0 ĥLä X0 ĥLà !"#$ Đ2@H AڰCŰrP` 3ڰ(` AڰѶ? İG8`Fە1 ռ İ ЩP߭)@N8`1@8` Aڰ񈱴ۈ)ۅƭۅ X̰ 3ڰLÍLT̥L㼠  ʰ` İK ХP8` LɐH80)N  հ)@LO ˰)0 ̐` M ­۠泭ۑƳѲƱƳ X̰ Rڰä,] Xx,f (I0јIFjFjFji```x@gŽPy+wLwԠ͠ŠԹ.D1 .D2 .D3 .D`HJJJJh)y` (2ϩ 1ޠ== f ɰ`ޭ`5=(5= i Х(`=H hDC5 L3ܵ ɐ /ݐ 8`5 ˥JJJJ8 H h ` ܠ825H h5 ɐ /ݐ 8`Hh ܥ5 `ɥܥܥܥܥ5`܅܅܅܅܅5`( ݰ)Ѻ ݰL ݰ泱Ƴ ʰȭۮ ʰͩΪΩۦ eװqȭqLJ  ˰Aۅƭۅ X̰2%&N  ʰƭ X̐`Ӏ堁ӠҠՈ՘̠ƠŠӠ̠ɤӮȪŅ͠Ϊ ܆5 HȰ4 )ߍ) hjjjjۥ0CF = -$(L !LLL&L L-LJ٥eƦ ,L  # ` (L.L…ҥÅӭƅХDžѥL1LUȑ  i ߩLL )  札)  ҩLL` **éL0;` H ) abRcdTefVghXijSdfhj RR`^0U ` 0 ʠ0 8 `ůàՠԠàࠝӢӠ ȠDž̖͌͊頀ϐωŠŠӠҠȠγ`%!^0 ^)@`a R =` *^)ـooL]^)?i |TU QTU]qUoqTITsUsprRprqs]ToUXa` RL=Xa` R` *R`X`U T  *\AX[ @F\B9ɏ5\o*Ɂo)[[ @^`U V  *C?^0: ݳ ٢ ^)?i` *)@o `p^ XiH 1h `)X0 8~X 1`C X`)X0`C РǠ𠠐ŠŠӠҠȠƠŮƠҢâӠUAQY @?ZY 9ZYY^TU QZoȥɭ }`` ? }``  }`X0i 8~XX0H }h襯` ©Wéĭ }0W`F X0A */5BL. zF`LLz Lz`Y `Ơ堧 B k L( LO  %   }` ` ?!©UéĩU󥣍V }`` ?)) $p10LYeieLVȱ d0L`Hȱ hh` WɸSI I.ȩ8A 8ɸ4ɠ(H)h h8   `    i Ȣ d` $,)?P^ GL㢮 5L}P.)(Ơ L`ޠ LR  稱 I)0JJJJѤ  БĈ` H`)à`֩ нѽ>`]PU]]UPPX0 0 PPXPP  į󠠩ҙ̙ɠΠɊՐӠӢ̢ՠҠŠԠҚРĠ鱃ԠȠࠠLQ  * WHHH>%H H @`)h8`  HШБˆeЅА SYSTEM FAILURE = $hh8`hhhxآY_Z@tPRVT,p S JJJJ ) ʍL@ i0i6`îӉ͠堧ǥӥ``HhHy)(h`H` 0L?i `h` `` `x)( 8 `jjJJԥ)եӬɂ )Ӆ҅`  `H0Xh`Π'à̠ȈL` 8`څ  Lk%  Lk8Lu텚8嚅 L L Ld V ``  h` ک V `ۅץ  VLFx) ( :` H ) L  .P'pб0 &L:L5'8+8`0Fܢ` ř,Ř 0 8f)J DžŠƠŚ̮ÎȠ Ӡ̠Ӡ` LL#L/LL'Lgab `abBcd cdBrcadbho:ab.cݰdDcݰd8abҊ v+abcde0f`   cCȱcD C Ea  UV 1 ELUFVG FUUCVDեYCWZDXWXCUDV[ v`b0WXYZiUcȥVcWX eeYZ ggE` @SATR1600 =Q:WW=0A=:A=21A=9&oldprefix$=40A=31410: Control C "aborts" program to Basic(:A=13770: Return Selects a file *DA=27:50: Escape to change disks/FA=324000: back out one directory level 3GA=(80+UCA)A=(80+L"BASIC 0":150A$="TEXT 0":150A$="CAT 0":150A$="FONT 0":150A$="FOTO 0":150A$(L),"BLOCKS")510*=27:=19:"FREE MEMORY AVAILABLE: ";=7:=20:"80C";A$(L);$:=5:THPOS=4:I=1:IBOTM=J-1:620Q=:=26:=21:sic; +Q Quits."r12);::"80C";a$;:+w#9,"DISKNAME.DAT":#9;DISKNAME$:#9|d$=DISKNAME$$=23:=0::"80C";d$;::12)201M=3:=14:"This /// SIG Disk is \^ 19";Р,2)", Washington Apple `, Ltd."=4:B$(1)="":B$(2)=""A$=16,B) THEN 240 #1, d$="":=10:"80C";d$ ž#1300I=0"I=I+1:#1;A$(I):290,#1 6L=I-1@j=1:same=0 J:SEG=0 Tœ2030^CT<1CT=1cCT>13000Zha$="{,|,~,}; selects; to new disk; J/2)=4:=+1:ۙ=44B$(J);:J=J+1I:1,180,22:2,280,21:2,2380,23:8A$(1000),B$(1000),C%(511),C$(20),name$(20):=10:=0UCA=128:LCA=UCA+32CT=15 IF PREFIX$= PREFIX$+MID$(B$(I),356789:;<VOLUME NAME (/DISKNAME) OR DEVICE NAME (.Dx)"P12);::"80C";a$;:Zb$="CHANGING DISKS"$d=23:=0::"80C";b$;::12).n=12:=20:"MAKE A NEW MENU FOR DISK: ";N$xN$)<2110=N$ :210 I=1L(A$(I),A$))200B$0 WAP /// SIG MENU.MAKER PROGRAM (v. 6.2) =".D1"210: Coldstart (320: Warmstart &*X=11000: TEXT SLOW-DOWN LOOP ,X.1 CHANGE DISK SUBROUTINE23œ202:2200<RFa$=" YOU MAY SELECT YOUR DISK BY  )* i LiHh`PQPQ>P Q,PQ"PɀQ@PAQ`8`nɀ<)nopoLpp` 0h8蘠fȊf` ab 1abo)abaݰb L9c`` a N0Ioa0H ha`pLopna n`  3ɠ/8 L %iLɠ8逨J Hh $`b >_-%^%p_^^_ab"08^c_L8^c_L8^c_L8^c_ȑcc\] ab^_ ``aV R0M bba dda `Q8STRQ ST`c\ȱc]a  b 5DU e\^e]_ ^_ ^_LH8\^]_?Je\^e]_,78\^]_ ^ݰ_ ^_LH^_ $bL@A^_aoQ*@A RQL@A `T8`RLSJTKQHIQiHiIKNJ)M8逅OPOPHMIN'a MHNILHOIPaOHPI8JHFKIGFGaHMINNMʆSTL8HSITQQSTCA)"PRINT.ALL": OA+P 3HA=(81+UCA)A=(81+LCA):::: OA+Q Quits 3IA=(83+LCA)A=(83+UCA)"PRINT.SHOW": OA+S 2JA=(68+LCA)A=(68+UCA)/Screen.Savers/HELLON=THPOS:B$(I);XA<8A>11540bA-7640,660,690,720l:=THPOS:B$(I);v:520: 500THPOS=4:I/2=I/2)I=I-1I=IBOTM THPOS=44:I/2<>I/2)I=I+1I2=-1:I=I-2:IBOTM<30THPOS=44I=IBOTM/2)*2:=+IBOTM/2)-1:30C$="N"C$="n"1160;:=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING": $1020.202 8::Z=1B::=23:=0::"79C";"WOULD YOU LIKE A PRINTED COPY?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"1170*C$="N"C$="n"=?@79C";"PRESS ANY KEY TO HALT LISTING"::202 1020#2,B$(I),16,B)ž#242:::1160Z=1#2;A$:"78A";A$Z=Z+1:Z>1842:::Z=1980*:=23:=0::"79C";"CONTINUE...?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"10 MENU.MAKER TEXT MODULESEG=0"MENU.MAKER"890&*X=11000: TEXT SLOW-DOWN LOOP ,X.1,180,22:2,280,21:2,2380,23:z:A$="LISTING "+B$(I),16,B)$=01:=0::"80C";A$;::12)>=23:=0::"a$,1)="/"5060:s=s-1 5030=a$240 MENU.MAKER 6.2 * Thanks to C.M.Davidson for his help!el; G$:::320H: Error Routine 202:U=11:"79C";"BAD PATH ERROR (NO DISK IN DISK DRIVE OR DESIRED FILE NOT FOUND.)"X=11000:X:::210Z a$="{,|,~,}; selects; back 1 lev 1600 &:WW=1:0 :SEG=1;".D1/S EG.F" SEG=1".D1/SEG.G"diskname$=3802  CATCH PASCAL TEXT FILES 202 :F*=08:"78C";"SORRY BUT MENU.MAKER CAN'T READ PASCAL TEXT FILES."04=10:"M$="NOVEMBER":1750M$="DECEMBER":1750826);"-";M$;" ";Ѡ,2));", ";"19";Р,2);" ";/П,2))=>13П,2))-12;џ,6);:1780$П,2))=0"12";џ,6);:ٟ;$П,2))=>12" PM-":" AM-" 1830WW=1530 =26:=211660,1670,1680,1690,1700,1710,1720,1730,1740^M$="JANUARY":1750hM$="FEBRUARY":1750rM$="MARCH":1750|M$="APRIL":1750M$="MAY":1750M$="JUNE":1750M$="JULY":1750M$="AUGUST":1750M$="SEPTEMBER":1750M$="OCTOBER":1750T 0")2070H540R\A$="RUNNING "+B$(I),16,B)f"79C";A$;:=0pB$(I),16,B) z::SEG=1".D1/SEG.T"t=+B$(I),16,B) yCT=CT+1~240:=24:=0:"@ ..... "DATE.TIME.LINE" ....JM=Ҡ,4,2))BTM1630,1640,1650,0=+IBOTM/2-.5):I=IBOTM:I/2=I/2)I=I-1 œ2120B=B$(I),16)," ")-1 B$(I),"BASIC 0")850B$(I),"TEXT 0")890 B$(I),"CAT 0")1140*B$(I),"FONT 0")18504B$(I),"FOTO 0")1930>B$(I),"PASTX".D1/MENU.MAKER",220 d$="" A$="PRINTING "+B$(I),16,B)=01:=0::"80C";A$;:#3,B$(I),16,B)Z=1#3;b$:"78A";b$Z=Z+1:Z=18:1290 1260 #4,B$(I),16,B)#5,".PRINTER"+ž#4#5;12):::".D1/MENU.MAKER",220(204::"79A";""; 2D=1:F=1 <#4;a$ FD=D+1 P#5;a$ZD=60#5;12)dD=60D=1nF=F+1::d$;::Y=1100:Y x13402  CATCH PASCAL TEXT FILES 202 :F*=08:"78C";"SORRY BUT MENU.MAKER CAN'T RCONV&CONV$CONV%LEFT$RIGHT$MID$INSTR>=<^/*-+NEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPRANGINVOKSTACK OVERFLOREDIM'D ARRADIVISION BY ZERILLEGAL DIRECTYPE MISMATNDEELSCONLISCLEAGENETABTSPCUSINTHEAMOSTEANOEXTENSIODIAFNOAAAAAAAAAAAAAASGNINTABSATYPRECAAAAAAAAAAPDLBUTTONSQRRNDLOGEXPCOSSINTANATNAAAAAAAAAAAASTR$HEX$CHR$LENVALASCTENAACONVOERRLIERKBEOTIMEDATEPREFIXEXFNEXFN%OUTREINDENAAAAAAAPOHOMA SUB$OFTRACNOTRACNORMAINVERSSCALERESUMALEGOTIRESTORSWAGOSURETURRESTOOALOASAVDELETRURENAMLOCUNLOCCREATEXECHAIAAACATALOAADATIMAGCADEAPRIssssssssss\3!z~IssssssssssssIG%ӓ,ssևwn7}|tttUUZ{fzxxˆU膅[L<^ENFONEXINPUOUTPUDIREAWRITOPECLOSATEXABYAAAAAWINDOINVOKPERFORAAFRHPOVP̠Ώ h:gpOn[n٧s]ds3issssssss0b>&dsjs|T}|s[CEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdehijklmnopqrstuŭ᭭򭭪𭭠򠭠頭퀠Šӳ頠𠠀𠠠堠젭ӠΠSOS NTRPRHeLZĠР쁭堠堠ՠP򠭠έ魭Az}~ GA7  3  5  >>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< SOS DRVR"CUSTOM.3 )((8*,;((*,((+)((9/(p((>3  =9 :9 .(~|L|LNqooGoDDDcc0ccpc]]c"QM"|@@pAATT**|EAD PASCAL TEXT FILES."04=10:"78C";"ANY KEY RETURNS TO THE MENU."!>G$:::".D1/MENU.MAKER",320CSTRING TOO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIOVARIABLSOS CALFILES BUSNOT SOI/FILE TOO LARGWRITE PROTECDISK SWITCHEBAD PATFILE NOT FOUNPATH NOT FOUNVOLUME NOT FOUNDUPLICATE FILDISK FULFILE LOCKEFILE NOT OPEDEVICE DISCONNECTERESOURCE UNAVAILABLDIRECTORY FULDUPLICATE VOLUM ERROR Please Press SPACE BAR IN PROGRAM INTERRUPTED%&'(%+.@C$DE FG!H"I'MN#PQRTW(X潭`: 808`:dd@՚H Z#IJJ iLOPP$pX0S&ȱhȱKȱLe潥ɂ逅$L# $mKL x~ m khLgLsLc h5逢)&a TH THLgL6k8:9: STT`)ɀLK$Lb8gLOPPKLMNhhm Vf0 mLf) mWA 0 -a mL8fW;8<< 悕` 6kLU*i kXX 4XLy \\'_ch_chbi^g \ihh ] Qp aj ih `p b iq bqn %jjg56Ly { b bq | XHWHHHֺh$PLh wlȱȱ%$LWH mh x~  m#W", mȱ28eLeji`Lwl mȱ"Ɂɂ ȱ :, iTjj ȱiVjj8逪XW0 Vf0WHW$ 0X: h ,@dd )e dʙdH &eh(dL ddک,ddLd:e``eLeHELLO ue 5eLse6e:7ee8ee:e`EAd j @a(% -, bLs j {ghhL<^gHhHhH , - b j$% @ag5h6h6hhhhh8g5h6h 悅`6 "]La ud `L  d.CONSOLE[[ TdSdddddd0 ddddd`dd A 6 s e 9c()' 9cKHLI jLdj89弅:彬: 悅`H hɝɞɜ)`dd  6芅 e ()'` e'()HKIL 9cL>hL<^) i!Ls j @aLK$L% :: 悅 lc!)` +b` +b` sL :b#`L,H s h ऊL(,L8f` A KL jLdjOPPKLL h AKL` Ѽ   (`H shLs Aji!S)Lt`SSS`L` z :0.`9::hhgg.%g& $gegަhH逪hhʰ` ҥ [ aLT ҥIJJABB=>>;<<?@@T ě hhhHH  `89$ 0~!L`!sm?iٰcL`S )!a{)Qi ڐ߽S) -ai) -aɢ ɣɍж$HS -ahʥ0SSȩ5%"/װ&hԐɈf0ɔĐ 8,f 8f L_ʅSS=ȄL`ȱi8eiidHddhd) _ ƢLh _L>h jhP _S @a-Qggeg5hih 6i6 "]S" ]$%SSSg a aL^ S S`La8 SiUjjS):,$f 0$ p fHhH_HcH uhch_hhhfhi0hhhB B A` ֥'( )&񦕤LNKM$Lb ě $m wl "m6X6+5 56ɀ56H $mhɀ(Z)& mL k~ wlL ͝dL Nsd# wl^_ ꂅ__hg^`8 悕`gHhHhH5?6@6@*5g5666gҦhhhhhhhhg:e:;e; ;m;`@c@c?be^@e@ _m__^ \Lx] i6g55``BY BSAMHH H] LPL(\)&P ěj9ȑ9ȑ99i=:i: >i>`Ɂ7XWWXjnXWi` ]?@@bgchch )^ ]b ]b^b^L\b8g+H__^8_ABB 9::)ѭ [ I[ aυ婶ZeLLL^$%Lae LGidFddddddd.ddddddddd ɕdˏd`Ls  Apple Business BASIC v1.23 - Copyright Apple Computer, 1980-83 d wlOZL^L^-L(dPL<^OPMNKLhhLg` Ls ҥ?ieCiLa,  aFL s a iLg ]hhh5h689H: H:HLHKHH6H5HHH` ui` pi` Qp j pi `p i` j jK$L%8eȢ 9:: Ga.ghh 悅` A` \\ɾ,L<^hhZkKhLhhhe9e:: mLg jei `Ls j:,"hhhhLgɜEɝDɞLb Hɾɺдmhɾ Qp aj pi `p j` jLi j,656 wh H5Gh`lmm566 Lx5Hȱ5ȱ5 F665 w56h(` x("LH)&h`( '&'`lmm566LxĠLx znInEz{iLx y? zL||uu`8i$iznIii0ĨV y${Wiuu8Iem_B_B`)&N> ȱI8gJJ hhge ghh f feLH>H= x\L|F )XHABB8 __^hHI8e^ @1 @+?%GHHHIJJih BABGHh`$  ě u Дs IJJ^__Lveȱeȱe `LćHƽ Ƽh`$ lȱlLL{ɝɍLɎСL s HI s shmHmHlHHɦ# shmHmHlHH , hHLt  ,, shTTLui ui,L3$0 |Lu xijk6kxyy xxy6i L[ s r$PLsi,L3-hLs L*tɘcɭ_ TTLdd`jk8L|L3L3TL3,L3i LL r$PLLBLsș Ȅ ( qƚƚ` s s),;,=,#,(,,ѼLL<^L<^ llmm$P$?TUJ)TU  ' Lsi imLqLsh E0`H ty ))ELyq  8 $0!PizEn{dUeUi hLqLs `wLr !L2 {}$ 0`QɀX zLs.+"2mXm tL qXXW zzEn{i x }H$ ]kh8 )KLe9e:: }Lgi , p s$8$0p`PL<^Յ H s r ɀ ȱX Hih0 & ?<I?iE W Lq s )L<^ȱQȱȅR dj sLHoUVV$ LhU Lp$ LL<^opL^```?EXTRA IGNORED?REENTER $0pL,`LgXW ׫ k*iXX 4X \\L<^Xii7 { n k$ |WlXVVE$ P% eT{||Hd ̐h p IkLo00$0 L>o "m nV dj$D$ P 膼Lo$0",i [ kLoHSHhp< {}$ p0H 07h ]k ,LmUVV `p F sLn 2 ukLoF вLm jȪЖ LL<^~p l nhhLgOPP` Add# 6d s S SS@Ln A " r ,; s lLn#f  ;П ⭩,SLn "mʆ,S _S% nLh "mL_T ST#L(, U VV ׫$ 0  QpU= d hkddhe##5ddˏdd?Ll ,?#$04dHHd = d hkddˡddhhd`LsL#&F  ; s b 0` L+l$ Nsd#Lzm566ȱ5Ll H# wl m#͉LchL$m QRKLLsh$0LU$^`=8WW>X> 悅XXXL:^ g`L<^ l Jj bx bp,_;Ll  ~q$0P oՅ5R66R l ~ L%l $m0 =k $m#`$L#i)8#Ll  s s( L7bʊ# L-l m hxd5d$0H h`L^bLb$%/%5$ &5 &5e$$5e%%$&%$e$% Lk ׫ sHH ~qLPkHHh$0'ph | ZlWȥmW`L$|hXWXL-hm lmmLkl VYZZ{|| w ᐥlmmYZZ LxWXX ox ExYW# kXX 4=^W^0A,lkj |yjJkjlkmlmi in`emeymlexlkewkjevjLkyi&m&l&k&j8iIiii9fjfkflfmf`nIngjIjgIm lkj`L<^}i0vvvvvj`Ly^Vy dv88; 54541r |LiHi z xz U{y xy рz xh '~z zLz z~ zm zl zk zj zL{LyJ eyexew~ev~f~ffffJ`5665y5x5w5zEn{z t $mlmkljkij8ihn`L,$0DpA q enHi80 @Lyu \ % @u ćh `&m&l&k&j`2L0 և yxLT}$0pLI oբRLi `u LLi u Lui0 ܆ چ,,% п 擩lm0u 1eL5665`iɀ*iH i  @8 ei $ tutt tj ȡhn` t` 0RN0R 0R$n-RRR`i` p`5665i`$0BP?iH i hLbe55f5f6e}Lme6u5u }`6ʈ`v`jip` ? #  ue }~ %u $ چ 0 u}` L uu  ) }Li <i@L{i$i0 p $ 1`ui` LL Lbb `}i~ei^~0] e e^`}`566i5`_cf_cfi^eub` ?^qbep`L<^ ?8b^e` rp`I` ? ㄩp^|be #^b ebbu|beiee^^iL56^f" ऩ थ (! ( ऩ थ (" ( द!LGb8Lऩ@iu +-ELj) e | ^ .' "5 1 p) iIii i)Lm` ?i $0 ׄ $0 $0 ^`Hhth`^Qb ^^ 8` `H Jh(L悈`H逨h` Hh8 Hɀjhji` HihJi(`  ~q$L ɺ b$P i pi$ȱLdjɻƟ dj 柰ީ Lihh sLg  s ! b   s "!!!+|] {n LU{HLʁIڢIڢ-(h#5ᆥ](IڢʥnH BiHɁy U{y рhɁ xhLB` vy{| g|S}dpL}Qz}c0~~D:~L̑56gh6hegehh `iɇoȘ戅 aziȅ xdo`Abi$nFn) i  j g g ^ ܇.Laz͠Lć ^ ׄ& ć ׄ ć ͠L- x |z K{ | T}{ x xnH yxn0 I B xh B Lр |  ZuL.y +|z% T}uH }h{ ~|H !z az ~hJ inIn`L~8;)q4X>Vt~w/z*|cYX ~uƀ1rP aziP | |iɈ { T}i8Huiiu x BU 瀩{h z` |] az 뀩]Laz | i8fe.șR0șRmymlylkykjyj00ڊIi i/ȄȪ)Re.șRI)ЪR0.ȩ+f.8f-RER/8 i:RRRRRR`y`'d |Ģ { &{f o0`LB ` H$ge &{h 80 '~L}H |h |zEn{iLxf d$h0Ly ef q80fL}COt#t$JZ mLKjk8 | ~Lm ^|-$nșRnȩ0iL f~ azea~ } \~ } &{e B{e yx %}ei0nihoi8傐IL|`7 z!L|iD8$n yiLyn)FjjjLyiɠ %}nnI*imLyjklm` s e-o+ smo..IE)2s S -+fh r$h8fL}fg s$gPf8ef B{f65m5l5k5n j5i`d,]WXX566 |m5 ^|l5k5n %j5i5` |m l)m |m`znth` |ht`i  y my`i n*` |jkjI*mlinLyFn`nEz0ʢiH xv5ui`uei0,iiL0y{n`nI0hhL,yLy |i{ xi` |={{ {LZ{ zL{ |8ii zivjwk xlym* 蕁24(y&x&w&v0⨥ymyxlxwkwvjvL{@jjj)(L{L<^~jklmL y56}5}} ,kk} , kklm Lٓ[ 80@ 6 2`  dkH) ojhJJJJ ojL 0:i`L<^ jHHHHHH s jhLyqhhh6h6h555_ȱ5VHHHH %L/5H6H6HH ?5^6_6_hhXhXhWLk ? % ?Џ`5566` xe5566ɂ66` s p `  zLseff z.!'$ iߪ$ 0 H8eAi\h$ P8 (Lt$ 0BASIC GTO BY DARYL ANDERSON THANKS TO DARYL ANDERSON FOR DONATING HIS FINE PROGRAMS INTO THE PD! ! ?e8V je?e>e8U>e5V?e665e=e@eee8 hx57 xLCx8I77JJ8 88` H dhjL YYHH dYZZ oxhhe5566ɂ逅66 wZZY L YIL=m ) s  ʊHYImm shhhhYhZhZHHE` 3YZZ xLCxl5Ym6Z78ߠȘH yxy hL3 j kqHHHH s H , ,H s s ~qhh 1 lhhXhXhWWȱW7ȱW8 eLNLXZWX ` GGH HlHmHmH khmhmhlh hk8j7k8Lޒ e7788IjJkJk )lmm'&`UR{R||L̐: / cRRȹRRȥ Rл s `Lsh sh5lh6mh6mhxhyhy x x Qȱx7ȱx88 Ƃ 7e7888ł75 楽HHȱȱ6H6H5H s =к bqhhh Lshhhh` ~R/mZlmYZ PujHkki^^`H"h{||kjkȱ{ "ie{||  V{|56|6 w&5L<^i8e` ě u8A?pB@B@ )onL܇jkL| Nsdȩ8 NsdL2Lа,L<^ A s ׫ g iq s= sXHXHWHHHH ajL? b rLiq HHH s iqhhh5ȱ6ȱLI65 g5H6 2|Hgȑgʆ5a g5ȑgȥg <^^^__ɂ逅____<;إy6 hlhm^Ȋ^LL:^ȥ5^H^h ͎el5emȆ6п  ͎e^e__ iLZe *& eegggegȱgehh Ľ ,L<^  8` ^LQ ŠhhL6 $P 訽5 ͎56ۥ 8ee L:^?be^@ce@c __^_ \__^;<<6  $Phihi^Ȋ^6h656H |mHlHkHjHiHl5 8eeghh^__` HHH H bqh hhhn0iɐ1 }L yxL%}\i FHHHHH 6hhhHHlm ,҄ shh)>=>hgh<<;[a{p ;<<ccb? @c@ube.a{bb,\(eb cc`ebcA[8饰 a{8`8\e@@He? ]@@?hbbb0 ea ȑbc8L@ @@h5UVUO / +'L U)łiV VL LI 8U 7ȱ7 UU ЯUVULU7V8 p L LZ U qUU qUH85h688V77U U 5qUWȥ6qUX7qWWȥ8qWW ٥IiV) V LVU+G0)GGwL m00`R 0r)`rqqL $uyG-++ $n-G` kiekiiIif`ri8r` m0#R 0Ri)R`R` दA dʪd\# dd\ʐ द wlL ऩ ऩ ddˡd(d`GG(sȢ8傅䂐$u 0 %GL $uAG)EGȩ+$i-Gȥf8 i y LeH 0Gh 0GG5H6H6yLle  TGȥ %GƁ8 TLii0$iti8ti a8偅w恤wvwuJ-$n0RթR`yiɀjjn*8miɝ d L .q$uL$)JJ8偅8傪 u Tf$i0Ł!y0GLqL~䁰< 0$H ,GhGթ $u$n 0GЫ-Gv)' $G uJ-$n0+G $G0)`u vphh` Ljk ,hh`Sj9-k L9j ekekk|z)ekk |j[ ٢  L`j 9kkj"j"kеAX"+-&$.ECR/#Z*! DBA0 k$JJJJ) vvyLj L ʟ,-uukv kv@vvyL5Lj ʟA80멀uukeqqtt$uA)*t L; $uЫkЦuuj ysLq,kl$uhuuj XkkNuuj k 4%v. #  1$u tAvʘtDթ q(~th`pvquts~y fp$pp8j/;XAx=|8ez{{ ghh "o `L x  wwghhoؠKkqvj L`$uZuukvN kGv@  pJ LUL-LG -$p0`pog $mkڥrok8o,koLdjAaCcoJ mko 5 $mkk mLw L L HG56H6LExh  (`|||}z,A[ :808Ш`,ޞ@`y Gy`LHq,;' L Pu  pLLwl`|H}HzH{HHH ɶ# xhH s  ~q s,; Ls  ~q$ hxrL iLpnH ~hɀ8(*iR.-:/ RRhhh{hzh}h| Pu p 0|8cJcm J_mm嚍J_AgBhBh \^A_B_B` ^"( zM jF566 x}z{6{LҜ #z{{"} GLsL<^ jHHH i dj ٥z{{ j}hhh ;в| |膆  RRRRH uhA?B@7B@87F8f7877878L:^7 8*JA5gB6B68 悅h圍h?H@H@HI?J@J@ "]h@h@h?gAhBhBJJ8 悅J圍J7ߚ8BܚLs`䚌B L:^`Ib^J sL͙ɚʚ `pAƚЙϚŚњ˚ ̚8 悅DDF͚ Κ8 DiFEC CD)ӚDmӚDԚCBКLěŚAݚ⚠IȌ 8 ꂍ  8 ꂅJJ` !7Ri88 pi UŦLUUU HHHHL 2hh LW iL 2hlhkhn jhimhHɗ8 Ls`LIŚ1CUDVDVU Lŧ 0 7U L`L:^֩ ŚEĚ L| Qp QeeRee8 1 V` 痠U` hh R LsL  z (L[ Rީ  @Y%(&:$LU s և ^|iHn %jHkHlHK s n ZlHmH5 s iH jHH楩e ) ,LsLR eՅ7V8U #   785U6VLΔU7e778ҥU^V_bcF_hcCgDhebbc \^__`U8傅UV` |UȱU` L<^ |UUƜ0ƛ ӗWqeWȱWqei W` |8UUWȥVUX`UeUddʪdd ;eH 1hLLs` <^8fl)I)I a ɩ`op 7L: zvL3 <l)v rHqhLCLsk;e je;e Pe Eqr` 6 륢 Ls` H = h8Lƥ  kLv;e je vk;ek Lje s ʊ0  ek;e`L HIJh*;e) H jehehi?e ueL5e qrL,op ɩ`et?ek;e`hZ L<^hZL<^L=ee>e ?e`opqrst !e5ehe?eLje LjeR=89R>:>:iR:RiRRiRL`8(RR(`EeFe  s bq Vml0L dMeL` bՍe :RRRiRȐȰRe9Re: J 2IHJh*=>> 95:6:6R L1 1Lԫ`L:^  aFL^R, ue 5eLڭR7>e?e5e?eJeKeLje֩ u>e?eՍ "] a a$% iLg֢   sLj$%`8f  a e ; ` s ɩ` YLILcopL7 z0xH ׫$0_ ;h8fH`aai shH2 h zJJJJf Ik ɩ` ̬ t os YLA ևLLק jWXX` ׫$`pd8isŠt`dyoopd8ip`J uv`&&&8孪孪宐橈`! @ uA?B@B 悅@=g>h>h ]=i>j>k a=g8i>hj>h 悅ki=5j>6k6k;el)@7Me0u(> ƬƫHH ,hohp` ɩCe0R`ȹR`ee?e@e ue 5e T L=e;e`Lso`n}pm aa`dyo ɃɄ b`" lJJJJYe s ˰L8Ls LԫN l@u=ekPe tMe )llNesOet NeOetMeCOeNeȌ=e>e;e88  >!SHOLES 1!1!2@23#3#4$4$5%5%6^67&7&8*8*9(9(0)0)-_-=+=+\|QWERTYUI OP[{]}`~`~ASDFGHJ K L ;:;:'"'"ZXCVBNM ,<,<.>.>/?/?d0hp00000>0# #0~$ <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>>>> ""*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>xre two contains a user manual which can be printed using MENU.MAKER or by loading into Apple Writer or other word processor. The WAP /// SIG thanks Daryl for placing his tremendous series of programs into the public domain for all to enjoy! contain the programs of Daryl Anderson, of D.A. Datasystems. The programs on this disk provide a partial compiler and program accelerator for Apple ///'s Business Basic. On side one you will find the updated BASIC GTO program and files. SidDriver -- Copyright (C) 1983 by Apple Computer Inc..CONSOLE aO  OO&+- ((((PPPPBTVSPLH   5"ʘ HH` (# (=  0`)aI6410275:G:0:@'BFM%=BCJ%BHP$="(":GS:Z:10275:BIC%=1:BIE$=BIH$:G:0:#'BFM%=255GS::GS::G:0('BFM%=34BHP$=34):GS:Z:G:y'BHF%=0BEH%-BED% z'buff%(BHF%)=buff%(BED%+BHF%){'|'BFE%=BEH%-BHF%+1 }'BFG%=BHF% ~'GS: :'BED%=0:BEF%=0''''.'GS::BHHS=BFM%:GS::BHHS=BHHS+256*BFM%5'=20:=02:"Scanning program line number : ";BHHS 'BHLS=0'Gi'BGD%=BFM%:BGF$=BGI$: j'BED%=BED%+1:BFM%=buff%(BED%)k'BGI$=BFM%):!l'BEF%=BEF%+1:obuff%(BEF%)=BFM%m'n' o'BGLS=0p' q'GS:r'BFM%=0BGLS=1:G:}3 s'BGP%=BFM%t'BGP%+BED%+1>BEH%GS:u'BHBS=1BHBS=0 v'GS:: w'G:~6x'en Error ";BFC%)::G: 8 ]'BEJ%=1^'BFE%=512:BFG%=0 _'GS: :0`'GS::BFIS=BFM%:GS::BFIS=BFIS+256*BFM%: a'BED%=1:b'openfi(@BFO$,@BGB%,@BFC%)6c'BFC%<>0"OutFile Open Error ";BFC%)::G: 8 d'BEL%=1e'BFE%=2:GS:_ f'g'h'ze%(BDLS),new.val.first$(BDLS):R' 4,S,2,%,3,$,8,&S'T'U'BDP%=0:BEB%=0V'BED%=-1:BEF%=-1:BEH%=511W'BEJ%=0:BEL%=0!X'"renumber.inv","gto.runtime" Y'GS:)!Z'"basicgto.inv","gto.runtime"['openfi(@BEN$,@BFA%,@BFC%)5\'BFC%<>0"InFile Op/NEW/NOT/OFF/POP/REM/RUN/VPOS/HPOS"G'BCO$="0123456789": H'BDB%=0:I'BDD%=1000: J'BDF%=6000K'BDH%=-1:BDJ%=45*26:L'&M'var.table$(BDJ%),map.table$(BDJ%)N'buff%(1024),obuff%(1024)#O'vAR.SIZE%(3),nEW.VAL.FIRST$(3)P'6Q'BDLS=03:var.si<'BBJ%=1BBJ%=0:G:5=':"GTO.1 COMPLETE">'#?'"gto.runtime":fini: ** 2.01@'A'B'BBL%=16+2560C'BBN%=192:BBP%=149:BCB%=129:BCD%=130:BCF%=212 D'BCH%=213E'BCJ%=215:hF'BCL$="AND/CAT/DEF/DEL/DIM/DIV/END/EOF/ERR/FOR/FRE/GET/KBD/LET/MOD#'$'%'&'''(')'*'+','-'.'/'0'/1' ----------- version 2.01 ---------------- 2'GS:\: 3'GS:9: 4'BBG$= 5'GS:o: 6'GS: :7'8'"Compile started : ";BBG$9'"Compile finished: ";:' ;'GS:: !*'gto.tables%(255):"gto.runtime":init'@' BASIC GTO program is GTO.1 (C) 1984 D A DataSystems'?' patch up lines 0001,0980,1540,1560,61010 after compiles' 'œ10345''''''''' '!'"' b) )ab)a a,h0& &+%a0 +hcefd(c,@cfabdf`cnx  (,4h`dd,9P"<:J H) +̰ H) +ʭcP h̰4)=BBN%:BIMS=541:obuff%(BIMS)=" ** GTO.1 ERROR-LINE TOO LONG HERE **",BIMS-4,1))::oBUFF%(BIMS)=0:oBUFF%(0)=43:BFE%=43:G: 8:'BFE%=obuff%(0)*'BEF%+1<>BFE%"SYNC ERROR...":G: 8 'GS:_ 'BEF%=-1''','Readnxt(%BFA%,@buff%(BFG%),@BFE%,@BFC%),'BFC%<>0"Read error ";BFC%):G: 8'EXPBL(@bUFF%(BFG%))'''''CMPBL(@oBUFF%(0))+'Writenxt(%BGB%,@obuff%(0),@BFE%,@BFC%),'BFC%<>0"Write error ";BFC%):G: 8 'BEF%=-1'''+'obuff%(0)=0M%):( ('!((BFM%>40)(BFM%<91)BFM%=BFM%+32"(#($(GS::BMD%=1:(%(BGI$="E"BCO$,BGF$)GS::: &(BMF%=BFM%'(BIH$=BGI$:BMH%=BFM%-64(( )(GS::*(BIC%BIH$=BIE$BMJ%=1:+(BMJ%=1G: ,(GS:: -(GS: :.((#2;BLL%,BLN$,BMA$/(var.table$(BLL%)=BLN$:map.table$(BLL%)=BMA$ (G:5(#2(( (BIK%=0 (GS:(BIK%=BIK%+1(BFM%=0G: (BHP$,BGI$)GS::G:7 (G:i2(((7((BFM%>96)(BFM%<123)BFM%=BFM%-32:BGI$=BFl path name of CHAIN DATA FILE to be read ":" - Type QUIT to skip ---> ";BLI$("quitQUIT",BLI$)G: (œ10249(#2,BLI$:G:22 (:"**** CHAIN DATA FILE : ";BLI$;" NOT FOUND" (œ10345 (G:5 (œ10345 (ž#210258(#2;BBL%:"Error opening : ";BLC$;" ...retry":G:.2 'œ10345'BLF$="GTO.TEMP.1"2'RESEQNCE(@BLF$,@BFO$,%BKH%,%BKJ%,%BKL%,%BKN%)'(>(:"Do you wish to read IN a CHAIN DATA FILE (y/n) ";BJE$("YESyesYes",BJE$)G:((a(:"Enter ful=".GT1":BFO$=BKA$+BJN$"'BKH%=1:BKJ%=1000:BKL%=1:BKN%=13':"INPUT File : ";BEN$:"OUTPUT File : ";BFO$%':"OK to continue (y/n) ";BKP$!'"YESyesYes",BKP$)=0G:. 'œ10233!'BLC$=BEN$:#1,BLC$:#1:G:4'=16G:* 'œ103451':ng of gto.tables%(";2+BBL%/2);")":'' '28)4'"Enter full path name of INPUT program : ";BEN$'BJN$=BEN$:BKA$=""M'BKDS=BJN$,"/"):BKDSBKA$=BKA$+BJN$,BKDS):BJN$=BJN$,BKDS+1):G:5G'BJN$)<12BFO$=BKA$+BJN$+".GT1":۰BJN$,12))'#2;var.table$(BHF%),map.table$(BHF%) 'BHF%'#2'"VARIABLE MAP written": '::7':"Remember to add the LINK line to the program":O'"1 DIM gto.tables%(...):INVOKE ";34);"GTO.RUNTIME";34);":PERFORM INIT"?':"OPTIMAL dimensionie VARIABLE MAP to ":" - type QUIT to skip ---> ";BJK$'"quitQUIT",BJK$)G:V 'œ10206'#2,BJK$:G:98':"**** Error opening VARIABLE MAP destination : " 'œ10345 'G:2 'œ10345'BHF%=0BDJ%:'var.table$(BHF%)=""G:)le$(BHF%),map.table$(BHF%) 'BHF%'#25'"CHAIN DATA FILE ";BJH$;" created and written":G':"Do you wish to print the VARIABLE MAP for this run (y/n) ";BJE$!'"YESyesYes",BJE$)=0G:Vq':"Enter the Device Name or file pathname to send th> ";BJH$'"quitQUIT",BJH$)G:^ 'œ10188'#2,BJH$:G:15':"**** Error creating CHAIN DATA FILE : ";BJH$ 'œ10345 'G:4 'œ10345'ž#210198'#2;BBL%:'BHF%=0BDJ%:'var.table$(BHF%)=""G:.'#2;BHF%,var.tabYESyesYes",BJE$)=0BBJ%=0:G:/2 'BBJ%=1'R':"Do you wish to save this variable data as a CHAIN DATA FILE (y/n) ? ";BJE$!'"YESyesYes",BJE$)=0G:^g':"Enter the full path name of CHAIN DATA FILE to be written":" - type QUIT to skip ---=BJAS/256):$'obuff%(0)=BJAS-(256*obuff%(1)):'BFE%=2:GS:_ 'BEL%closfi(%BGB%,@BFC%):'BFC%<>0"OutFile Re-Close Error ";BFC%):BEL%=0''R':"Do you wish to continue COMPILATION of a CHAINED-TO module (y/n) ? ";BJE$)'"'BFC%<>0"OutFile Re-Open Error ";BFC%):BEL%=1'BJAS=BFIS+BEB%:'BJAS<65536G:F'::"*** WARNING program expanded beyond 64K limit by GTO.1...":L'" >64K program will only load under Basic version 1.23":::::'obuff%(1):obuff%(1)=0:BFE%=2:GS:_ :'GS:1 :GS: ''BEJ%closfi(%BFA%,@BFC%)5'BFC%<>0"InFile Close Error ";BFC%):BEJ%=0'BEL%closfi(%BGB%,@BFC%)6'BFC%<>0"OutFile Close Error ";BFC%):BEL%=0''openfi(@BFO$,@BGB%,@BFC%)9BML%=0:BMJ%=0/(0(1(GS::GS::BGI$=BFM%)2(BFM%<48BFM%<>46G:3(":;<=>?@",BGI$)G:4(BFM%>090G:5(BIH$=BIH$+BGI$:BMD%=BMD%+1 6(G:9 7(BMN%=0=8(BFM%=41bUFF%(BED%-1)>47G:8:BGI$=bUFF%(BED%-1))F9(BMN%="%$&",BGI$):BMN%BIH$=BIH$+BGI$:BMD%=BMD%+1:GS::GS:7:((BMN%)BMP$=BIH$,BIH$)-1,1):BMP$=BIH$,1):;(BNC%=BMP$)-46<(BFM%=40BMJ%=1:G:1=(>( ?(BDB%@(BNE%=44*(BMH%-1)+BNC%/A((BNE%<0)(BNE%>BDJ%)BNE%=1)*1000):B(essing Line : "; V'BDOS=0W'openfi(@BDE$,@BEE%,@BEG%)2X'BEG%<>0"OPEN error for OBJECT pgm ":G:1.Y'GS::BFKS=BEI%:GS::BFKS=BFKS+256*BEI%Z'GS::BFOS=BEI%['BGC%=01"\'BEI%=0BGC%=1:G:51:BGC%=0 ]'GS:n:^'=20:=40:BEOS;_'ow 10000 : ";BEKS;" in source program line : ";BEOS:G:s4N'tbl.b.lineref%(BDC%)=BEKSO'tbl.b.hittype%(BDC%)=BFC%P'Q'R'0S'"FIRST PASS... building Line Numbers Table"4T'" ... scanning for GOTO/GOSUB targets")U'=20:"Currently procD'E' F'GS:)G'BFC%>2(BEI%<48)(BEI%>57)G:sH'BFE%G:s:I'BDC%=BDC%+1J'tbl.b.hitloc(BDC%)=BBMS-1K'BFGS=0:BEKS=0KL'(BEI%>47)(BEI%<58)BEKS=BEKS*10+(BEI%-48):GS::BFGS=BFGS+1:G:0cM'BFGS<4:"Error... line number beluff%(0))6'7'8'9'BBK%=BBI%GS:o:BBK%=-15:'BDOS=0BBK%=BBK%+1:BBMS=BBMS+1:BEI%=buff%(BBK%);'<'='BDA%=BDA%+1>'tbl.a.offset(BDA%)=BBMS ?'GS: @'BEKS=BEI% A'GS:B'BEOS=256*BEI%+BEKS+C'BEOS-10000<>BDA%"Line SYNC ERROR":*'BDA%=-1:BDC%=-1!+'"renumber.inv","gto.runtime" ,'GS:!-'"basicgto.inv","gto.runtime" .'BDE$=BDH$/'0'1'BDKSBDOS=1:G: 9 2'BEC%=512)3'READNXT(%BEE%,@buff%(0),@BEC%,@BEG%)14'BEG%<>0"READ error for OBJECT pgm":G:15'expbl(@b 'BBI%=511!'buff%(1024)"'tbl.a.offset(BBAS)T#'tbl.b.hitloc(BBES),tbl.b.lineref%(BBES),tbl.b.hitoff(BBES),tbl.b.hittype%(BBES) $'G:3%'&' ''BBK%=BBI% ('BBMS=-3K)'BCA%=186:BCC%=149:BCE%=255:BCG%=132:BCI%=222:BCK%=190:BCM%=194:BCO%=187)'gto.table%(225):"gto.runtime":init';' BASIC GTO program GTO.2 (C) 1984 D A DataSystems'@' patch up lines 0001,1300,1510,11998,61295 after compiles 'œ10198'''''''''BBAS=2000:'BBES=1000:.01n(ff%(BEF%)=BMF%Z(BDP%=4-BMD%:BEB%=BEB%+BDP%[(obuff%(0)=obuff%(0)+BDP%\(](^(BNN$=new.val.first$(BMN%)$_(BOA%=BBL%/256):BOC$=BOA%+65)`(BOF%=BBL%-256*BOA%#a(BOH%=BOF%/16):BOJ$=BOH%+65)%b(BOM%=BOF%-16*BOH%:BOO$=BOM%+65)c(BNG$=BOC$+BOJ$+BOO$+BNN$d(BBL%=BBL%+var.size%(BMN%)e(BBL%>BDF%BDB%=1(f(BPB$=BNG$:BNN$<>"S"BPB$,4,1)="/"g(BCL$,BPB$)G:xh(i(j(=255G: 1k(:"Unexpected Error ";;" in Line ";:: l(GS:1 #m("gto.runtime":fini: ** 2BEF%+4:obuff%(BEF%)=BMF%Z(BDP%=4-BMD%:BEB%=BEB%+BDP%[(obuff%(0)=obuff%(0)+BDP%\(](^(BNN$=new.val.first$(BMN%)$_(BOA%=BBL%/256):BOC$=BOA%+65)`(BOF%=BBL%-256*BOA%#a(BOH%=BOF%/16):BOJ$=BOH%+65)%b(BOM%=BOF%-16*BOH%:BOO$=BOM%+65)c(BL(M(N( O(BMF%=BFM%P(BDB%G:=Q(BMJ%=0G:=R(BNJ%=BEF%-BMD%:BFM%=obuff%(BNJ%):GS: :obuff%(BNJ%)=BFM%S(BMJ%=0:BFM%=BMF%:G:Q2T(U(BEF%=BEF%-BMD%V(BHF%=14:BNL%=BHF%-1'W(obuff%(BEF%+BNL%)=BNG$,BHF%,1)) X(BHF%!Y(BEF%=8C(var.table$(BNE%)=BIH$BNG$=map.table$(BNE%):G:6D(var.table$(BNE%)=""G:%E(BNE%=BNE%+17:BNE%>BDJ%BNE%=1: F(G:6G(H(var.table$(BNE%)=BIH$8I(BDH%=BDH%+1:BDH%=BDD%"Variable MAP FULL ":BDB%=1 J(GS:VK(map.table$(BNE%)=BNG$BGE%=01 `'GS:"a'BEI%=0BGE%=1:G:"9:BGE%=0b'BEI%=BCO%BFE%=1:G:8:c'BEI%=BCM%GS::G:1$d'BEI%=BCA%BFC%=1:GS::G:1$e'BEI%=BCK%BFC%=2:GS::G:1$f'BEI%=BCI%BFC%=3:GS::G:1@g'BEI%=BCE%GS::BEI%=BCG%BFE%=0:BFC%=4:GS::G:1:h' i'BGE% j'GS: k'BGC%l'closfi(%BEE%,@BEG%)2m'BEG%<>0"CLOSE error for OBJECT pgm":G:1n'o'p'q'r'BGGS=0BDC%#s'BGKS=tbl.b.lineref%(BGGS)-10000St'(BGKS>BDA%)(BGKS<0000)"Undefined line hBBI%=511nbuff%(1024)tbl.a.offset(BBAS)Ttbl.b.hitloc(BBES),tbl.b.lineref%(BBES),tbl.b.hitoff(BBES),tbl.b.hittype%(BBES) 11000 BBK%=BBI% BBMS=-3KBCA%=186:BCC%=149:BCE%=255:BCG%=132:BCI%=222:BCK%=190:BCM%=194:BCO%=187)gto.table%(225):"gto.runtime":init; BASIC GTO program GTO.2 (C) 1984 D A DataSystems@ patch up lines 0001,1300,1510,11998,61295 after compiles œ60000 12dBBAS=2000:fBBES=1000:' 'GS:'BEI%=0G:A'BEI%=":")G:A 'G:2''''>'"Unexpected Error number : ";;" in pgm line number : ";' 'œ10204'BKN%=1:closfi(%BKN%,@BEG%) 'œ10206'BKN%=2:closfi(%BKN%,@BEG%)''"gto.re : ";BDH$-':"OK to continue (y/n) ?";:BKK$:BKK$&'"YESyesYes",BKK$)G:\:10175R':"Renumbering file : ";BJF$;" from 10000 step 1":"...creating file : ";BDH$2'RESEQNCE(@BJF$,@BDH$,%BKC%,%BKE%,%BKG%,%BKI%)':"Renumber complete"'F$:BJL$=""M'BJOS=BJI$,"/"):BJOSBJL$=BJL$+BJI$,BJOS):BJI$=BJI$,BJOS+1):G: 8G'BJI$)<12BDH$=BJL$+BJI$+".GT2":۰BJI$,12)=".GT2":BDH$=BJL$+BJI$ 'BKC%=1'BKE%=64000)))'BKG%=10000 'BKI%=13':"SOURCE File : ";BJF$:"OBJECT FilECT pgm":G:1'' 'GS:: 'BJC$= 'GS:}: 'GS:: 'GS: : ':"Compile started : ";BJC$'"Compile finished: ";''"gto.runtime":fini:'' '28)4'"Enter full path name of INPUT program : ";BJF$'BJI$=BJ:BJA%=BJA%+12'BFC%=2buff%(BIK%+2+BJA%)="S"):BJA%=BJA%+1)'buff%(BIK%+2+BJA%)=":"):BJA%=BJA%+1''buff%(BIK%+2+BJA%)=BIO%:BJA%=BJA%+1'buff%(BIK%+2+BJA%)=BIM%''BHAS=BHKS:GS: 'closfi(%BEE%,@BEG%)5'BEG%<>0"RE-CLOSE error for OBJS-512*BIGS<'BIGS<>BHKSBHAS=BHKS:GS: :BHAS=BIGS:GS:a :BHKS=BIGS''BIM%=BICS/256):BIO%=BICS-256*BIM%4'(BIM%=0)(BIM%=58)(BIO%=0)(BIO%=58)G:'BFC%=4BJA%=1:BJA%=0''buff%(BIK%+2+BJA%)=BCC%:BJA%=BJA%+1)'buff%(BIK%+2+BJA%)="G")DE$,@BEE%,@BEG%)4'BEG%<>0"RE-OPEN error for OBJECT pgm":G:1 'BDOS=0 'BHKS=0'BHAS=0:GS:a 'BGGS=0BDC%'=20:=40:BDC%-BGGS;M'BHOS=tbl.b.hitloc(BGGS):BICS=tbl.b.hitoff(BGGS):BFC%=tbl.b.hittype%(BGGS)'BIGS=BHOS/512)'BIK%=BHOpgm":G:1''''::'"SECOND PASS... translating xfer targets to absolute"C'" ... translating xfer commands to PERFORM commands"'BDKS=0:BHES=0:BDOS=0':::::-'=20:"Processing xfer target number : ";'openfi(@B'CMPBL(@bUFF%(0))'CMPBL(@bUFF%(512))/'Writany(%BEE%,@buff%(0),@BEC%,%BGO%,@BEG%)2'BEG%<>0"WRITE error for OBJECT pgm":G:1'BHESG: ='BHI%=BGO%+1:Writany(%BEE%,@buff%(512),@BEC%,%BHI%,@BEG%)2'BEG%<>0"WRITE error for OBJECT =76BDKS=1:BHES=1:G: 4:10201='BHI%=BGO%+1:Readany(%BEE%,@buff%(512),@BEC%,%BHI%,@BEG%)9'BEG%=0G: :ۻBEG%=76BDKS=1:BHES=0:G: 4:10201'EXPBL(@bUFF%(0))'BHESG: 'EXPBL(@bUFF%(512))''''BGO%=BHAS+1) 'BEC%=512 ref...";tbl.b.lineref%(BGGS):G:S 20u'tbl.b.hitoff(BGGS)=tbl.a.offset(BGKS):G:S 2 v'BGGSw'x'y'BGO%=BHAS+1)z' {'BEC%=512|'BDKSBDOS=1:G: 8/}'Readany(%BEE%,@buff%(0),@BEC%,%BGO%,@BEG%)~'BEC%<512BEG%=769'BEG%=0G: :ۻBEG%BDA%=-1:BDC%=-1!"renumber.inv","gto.runtime" 20000!"basicgto.inv","gto.runtime" BDE$=BDH$4BDKSBDOS=1:2995 HBEC%=512)READNXT(%BEE%,@buff%(0),@BEC%,@BEG%)1BEG%<>0"READ error for OBJECT pgm":61000expbl(@bu)i ꊈ눌 حHH`{rpnlIFEB?32-*&$hOhPhhhRhSRUTQ舘PHOH` ȑPHOH`VTPNMLJF;9%# vFhhhihhhhhhhjhkL!jȱ ȭꈘȑiHhH`수iHhH`ljb`_VUPLJEA75*(L hhhhhhhhhhh5h665556666 5̛ ȏ 수쭘HH`ꈘȑ쭘HH`GA3/1.0N7:6R OPENFI :7400/4tbl.b.hitoff(BGGS)=tbl.a.offset(BGKS):7400 BGGS;@BBGO%=BHAS+1)J TBEC%=512BDKSBDOS=1:8995/ Readany(%BEE%,@buff%(0),@BEC%,%BGO%,@BEG%) BEC%<512BEG%=767 BEG%=08210:ۻBEG%=76BDKS=1:BHES=1:8220:61000=:" 'BGE% ,3000 BGC%closfi(%BEE%,@BEG%)2BEG%<>0"CLOSE error for OBJECT pgm":61000SXbdBGGS=0BDC%# BGKS=tbl.b.lineref%(BGGS)-10000R*(BGKS>BDA%)(BGKS<0000)"Undefined line ref...";tbl.b.lineref%(BGGS)3000!BEI%=0BGE%=1:6695:BGE%=0BEI%=BCO%BFE%=1:6690:BEI%=BCM%30000:6610"BEI%=BCA%BFC%=1:5000:6610"BEI%=BCK%BFC%=2:5000:6610"BEI%=BCI%BFC%=3:5000:6610=BEI%=BCE%3000:BEI%=BCG%BFE%=0:BFC%=4:5000:6610e : "; zBDOS=0openfi(@BDE$,@BEE%,@BEG%)2BEG%<>0"OPEN error for OBJECT pgm ":61000,83000:BFKS=BEI%:3000:BFKS=BFKS+256*BEI%3000:BFOS=BEI%dBGC%=01!nBEI%=0BGC%=1:6900:BGC%=0 x4000:=20:=40:BEOS;BGE%=01 : ";BEKS;" in source program line : ";BEOS:5990tbl.b.lineref%(BDC%)=BEKS|tbl.b.hittype%(BDC%)=BFC%fkp0u"FIRST PASS... building Line Numbers Table"4w" ... scanning for GOTO/GOSUB targets")y=20:"Currently processing Lin 3000(BFC%>2(BEI%<48)(BEI%>57)5990BFE%5990:BDC%=BDC%+1tbl.b.hitloc(BDC%)=BBMS-1BFGS=0:BEKS=0IP(BEI%>47)(BEI%<58)BEKS=BEKS*10+(BEI%-48):3000:BFGS=BFGS+1:5200bBFGS<4:"Error... line number below 10000 ff%(0))    BBK%=BBI%2000:BBK%=-15 BDOS=0BBK%=BBK%+1:BBMS=BBMS+1:BEI%=buff%(BBK%)BDA%=BDA%+1tbl.a.offset(BDA%)=BBMS 3000 BEKS=BEI% "3000,BEOS=256*BEI%+BEKS+hBEOS-10000<>BDA%"Line SYNC ERROR":hQhRhhhUhVhhhhhShTLf****** return,refnum,block(w),smparms,readparms SXUʊ [W6S_cȱb^eȭdꈘȑRHQH`수RHQH`mlkfda`[WUPLB@53L hhhh) JJJ ܊HH`zxvtVSQPMED?<'%h!h"hhh%h&hhhhh#h$L4#(%ʊ +'*#/2 ,5 ȱ5` `L GA3/1.0V APPEND  OPENFI OPENFI READNXT READNXT EXPBL EXPBL CLOSFI CLOSFI READANY READANY CMPBL CMPBL WRITANY WRITANY WRITENXT WRITENXT3ȱ2.ȑ"H!H`수"H!H`~xvua`_ZXUTOKI><1/h\h]hhhhhhhZh[LZȱȑ]H\H`수]H\H`^\TRQJID@>31&$Hthhhh) JJJ ܊HH`zxvtVSQPMED?<'%h!h"hhh%h&hhhhh#h$L4#(%ʊ +'*#/3ȱ2.ȑ"H!H`수"H!H`~xvua`_ZXUTOKI><1/h\h]hhhhhhhZh[LZȱȑ]H\H`수]H\H`^\TRQJID@>31&$Ht5m56666 65 ` 5 66`+ ,5ȱ5 ( ,+L h +`h,&L`5b6c6c5 5^6_6_ ,5ȱ5 5g6h6h 5 LK/L4H568hH wh R173K91yy`5ȱ5ȱ5L/eIfd`H z h Γ`bccbHɂ逕h 1܌1`򩀍%1LFILNUM2 0RELTAB z GOMESH  APPEND APPEND MERGEOK &START XREFER HIGHRNGE#LOWRNGE !FINDTAB  CLSALL  OPENLEV  OPENTO  RENUMER  SETBUF 7653210.+'&%$#"   <LhhhhhhhhhhhhhhHH LQKIGECA?=41.-,+*)(|hhhhhhHH  L1$ JLL,|wvtmifcba`_\ZVUTSOKJI)&%# zvutrrhh_PMLK:7653210.+'&%$#"   <LhhhhhhhhhhhhhhHH LQKIGECA?=41.-,+*)(|hhhhhhHH  }{xunmlZWVUSPNKIHGED51.&%$ wvtmifcba`_\ZVUTSOKJI)&%# zvutrrhh_PMLK:pmlkjfdaXWRQNED?<;:7210/-,$" }zut^]\[ZUTSRKJA@?>=8721 %1/05665/ w123L7\ \ [ V P L C - ( # !         ~}SRQPMKBA840,* u /ć X . Lh-)͎ L / w-/%`/- ե9::,,`!L 2u 2 2 ,&hhhhhhhhHH /0   L ` `*,. L _ ` A\ _ 8_ ` L Lh a *b 8 f c d 8 f `!iɂ8`*e E LhL ,,-566 2LJ 53r *F-) y TLh L ,  z  5 66 = , ;h ^3$4% c$ c% cg^_  1e__gL Ȅh _1  L3 LC^^g2 c_h`5H6H6H$% 5$ȱ5%h6h6h5`L   0:,)$&%$%H$&%$&%e$%m$he%%ɩ`ȩ(L 5 `5%5$8` e  1` c., Lc`` u ,5ȥ5ȭ5 b3!4"!#$m m 5Ȋ5ȭ35ȭ45  g3$4%  , p 1 &ʭ1 L л5$ȱ5%5  p 1'â V L , = -? c1  p 1' V = LV 2`ɺ1-)%ɾ!-,,(0cȹ2ɄɁɃSȹ20L:Hh%$(203͉4(L h#1 ULh21 e ǩ421 L@ p L L p LHM(& ))L`h(`8' , u 4g354ȑ5g g$5ȥ%5Ș5 L L 5 66 1 V h`Lm 1b$&%mmmؘHJJJJ ]h) ]`b 00b1`1 !u1 1i1`` 0Ls` /Ls() F OPENBI  BUMP OPENBO  CLSOUT RESEQNCE RESEQNCERENUMEN CNUMEN RELTAB LTAB MERGEOK WRGEOK START kgT HIGHRNGEsoRNGERENUM RENUM LOWRNGE {wNGE FINDTAB NDTAB CLSALL SALL OPENLEV ENLEV RENUMER NUMER SETBUF TBUF OPENBI ENBI C$= +6000: $,7000: ,10000: ,:"Compile started : ";BJC$,"Compile finished: ";,."gto.runtime":fini:. N %N28)4*N"Enter full path name of INPUT program : ";BJF$/NBJI$=BJF$:BJL$=""M4NBJOS=BJI$,"/"):BJOSBJL$=BJ%)="S"):BJA%=BJA%+1)M(buff%(BIK%+2+BJA%)=":"):BJA%=BJA%+1'P(buff%(BIK%+2+BJA%)=BIO%:BJA%=BJA%+1U(buff%(BIK%+2+BJA%)=BIM%()BHAS=BHKS:9000h)closfi(%BEE%,@BEG%)5m)BEG%<>0"RE-CLOSE error for OBJECT pgm":61000** \+1000: f+BJ000:BHAS=BIGS:8000:BHKS=BIGS' (BIM%=BICS/256):BIO%=BICS-256*BIM%4 ((BIM%=0)(BIM%=58)(BIO%=0)(BIO%=58)10400((BFC%=4BJA%=1:BJA%=0'<(buff%(BIK%+2+BJA%)=BCC%:BJA%=BJA%+1)F(buff%(BIK%+2+BJA%)="G"):BJA%=BJA%+12K(BFC%=2buff%(BIK%+2+BJAN error for OBJECT pgm":61000 ~'BDOS=0 'BHKS=0'BHAS=0:8000'BGGS=0BDC%'=20:=40:BDC%-BGGS;M'BHOS=tbl.b.hitloc(BGGS):BICS=tbl.b.hitoff(BGGS):BFC%=tbl.b.hittype%(BGGS)'BIGS=BHOS/512)'BIK%=BHOS-512*BIGS:(BIGS<>BHKSBHAS=BHKS:9"SECOND PASS... translating xfer targets to absolute"C'" ... translating xfer commands to PERFORM commands" 'BDKS=0:BHES=0:BDOS=0$':::::-)'=20:"Processing xfer target number : ";t'openfi(@BDE$,@BEE%,@BEG%)4y'BEG%<>0"RE-OPE(512))/#Writany(%BEE%,@buff%(0),@BEC%,%BGO%,@BEG%)2#BEG%<>0"WRITE error for OBJECT pgm":61000#BHES9990=#BHI%=BGO%+1:Writany(%BEE%,@buff%(512),@BEC%,%BHI%,@BEG%)2#BEG%<>0"WRITE error for OBJECT pgm":61000' '''::' BHI%=BGO%+1:Readany(%BEE%,@buff%(512),@BEC%,%BHI%,@BEG%)7 BEG%=08220:ۻBEG%=76BDKS=1:BHES=0:8220:61000 EXPBL(@bUFF%(0))! BHES8990& EXPBL(@bUFF%(512))###(#*#BGO%=BHAS+1) <#BEC%=512#CMPBL(@bUFF%(0))#CMPBL(@bUFF%/ / GTO.SOURCEv4'  ')GTO.2.GT1 / /' )GTO.2.SRC / / )GTO.1.GT1  / / )GTO.1.SRC 0/ /1 GTO.2.GT1  / / GTO.2.GT1.GT2 gto.1XREF XREF GOMESH 7MESH MERGE MERGE  FINDTAB NDTAB CLSALL SALL XLISTER OPENLEV ENLEV OPENTO ENTO RENUMER SETBUF TBUF OPENBI ENBI XLISTER %ISTER BUMP c_ OPENBO ENBO CLSOUT SOUT RENUMEN FILNUM2 RELTAB LTAB MERGEOK RGEOK XREFER EFER XLIST XLIST L$+BJI$,BJOS):BJI$=BJI$,BJOS+1):20020G9NBJI$)<12BDH$=BJL$+BJI$+".GT2":۰BJI$,12)=".GT2":BDH$=BJL$+BJI$ >NBKC%=1CNBKE%=64000)))HNBKG%=10000 MNBKI%=13RN:"SOURCE File : ";BJF$:"OBJECT File : ";BDH$-WN:"OK to continue (y/n) ?";:BKK$:BKK$&\N"YESyesYes",BKK$)20065:20005RaN:"Renumbering file : ";BJF$;" from 10000 step 1":"...creating file : ";BDH$2fNRESEQNCE(@BJF$,@BDH$,%BKC%,%BKE%,%BKG%,%BKI%)kN:"Renumber complete"N0u :u3000DuBEI%=030090NuBEI%="RELOCST VAR VAR JMPADDR .RELOCST ]XCST JMPADDR DDR MOVE254 INIT INIT FINI FINI JMPADDR MOVE254 VE254 ZXWVUTS#"!  xtdȩ ȩtHsH`*** G ***qoShBhC 5 5 CHBH`Hʊe6he7 Hm:hJ`潠`*** GS ***NLKIHGEdhh 86H7iɂ8H:HLHMHH HH`9=i>i> ȥii8 LȩȩY98  HH``n#" B?L*** fini ***hsht9=i>i> ȱii8 L*** var *** ` a ɅL8A 8A 8Ae ) J Ɇ>e=e>ɂ`L*** init ***hhȱiȱiGA3/1.0@22, VAR .01n(ff%(BEF%)=BMF%Z(BDP%=4-BMD%:BEB%=BEB%+BDP%[(obuff%(0)=obuff%(0)+BDP%\(](^(BNN$=new.val.first$(BMN%)$_(BOA%=BBL%/256):BOC$=BOA%+65)`(BOF%=BBL%-256*BOA%#a(BOH%=BOF%/16):BOJ$=BOH%+65)%b(BOM%=BOF%-16*BOH%:BOO$=BOM%+65)c(BNG$=BOC$+BOJ$+BOO$+BNN$d(BBL%=BBL%+var.size%(BMN%)e(BBL%>BDF%BDB%=1(f(BPB$=BNG$:BNN$<>"S"BPB$,4,1)="/"g(BCL$,BPB$)10335h(i(j(=255103481k(:"Unexpected Error ";;" in Line ";:: l(10160#m("gto.runtime":fini: ** 2' '10040'BEI%=010196'BEI%=":")10196 '10192''''>'"Unexpected Error number : ";;" in pgm line number : ";' 'œ10204'BKN%=1:closfi(%BKN%,@BEG%) 'œ10206'BKN%=2:closfi(%BKN%,@BEG%)''"gto.runtime":fini:'o continue (y/n) ?";:BKK$:BKK$&'"YESyesYes",BKK$)10187:10175R':"Renumbering file : ";BJF$;" from 10000 step 1":"...creating file : ";BDH$2'RESEQNCE(@BJF$,@BDH$,%BKC%,%BKE%,%BKG%,%BKI%)':"Renumber complete"':")30090 Xu30010uu`j걜>t"Unexpected Error number : ";;" in pgm line number : ";H œ61190BKN%=1:closfi(%BKN%,@BEG%) œ61290BKN%=2:closfi(%BKN%,@BEG%)jo"gto.runtime":fini:/=GETCH 5RETURN BG G DOJMP TEMP1 @TEMP2 AGETCH  RETURN GS GS DOJMP JMP TEMP1 1 TEMP2 2  %=0;ch%=if.ch%if.flag%=1:6690: ** 1.99ch%=ON.ch%30000:6610)ch%=goto.ch%hittype%=1:5000:6610*ch%=gosub.ch%hittype%=2:5000:6610)ch%=else.ch%hittype%=3:5000:6610{ch%=then.ch.1%3000:ch%=then.ch.20"OPEN error for OBJECT pgm ":61000383000:pgm.len=ch%:3000:pgm.len=pgm.len+256*ch%3000:line.len=ch%ddum%=01 nch%=0dum%=1:6900:dum%=0x4000: load tbl_a=20:=40:line.num;dmm%=01 3000 ch%=0dmm%=1:6695:dmm=hittype%fkp -------------- scan_input0u"FIRST PASS... building Line Numbers Table"4w" ... scanning for GOTO/GOSUB targets")y=20:"Currently processing Line : ";zend.file=0&openfi(@inname$,@infile%,@ECODE%)4ecode%<>.idx%)=pgm.offset-1 k=0:ln1=0>P(ch%>47)(ch%<58)ln1=ln1*10+(ch%-48):3000:k=k+1:5200bk<4:"Error... line number below 10000 : ";LN1;" in source program line : ";line.num:5990"tbl.b.lineref%(tbl.b.idx%)=ln1'|tbl.b.hittype%(tbl.b.idx%)5hline.num-10000<>tbl.a.idx%"Line SYNC ERROR": -------------- load_tbl_b 3000*hittype%>2(ch%<48)(ch%>57)5990Cif.flag%5990: ** 1.99tbl.b.idx%=tbl.b.idx%+1)tbl.b.hitloc(tbl.b2000:buff.ptr%=-1S end.file=0buff.ptr%=buff.ptr%+1:pgm.offset=pgm.offset+1:ch%=buff%(buff.ptr%) -------------- load_tbl_atbl.a.idx%=tbl.a.idx%+1'tbl.a.offset(tbl.a.idx%)=pgm.offset 3000 ln1=ch% "3000,line.num=256*ch%+ln1 --------------- nxt_blk!4eof.infileend.file=1:2995 Hcnt%=512.READNXT(%infile%,@buff%(0),@cnt%,@ECODE%)3ecode%<>0"READ error for OBJECT pgm":61000expbl(@buff%(0))   -------------- get_ch, buff.ptr%=buff.max%- initbuff.ptr%=buff.max%pgm.offset=-3ogoto.ch%=186:perform.ch%=149:then.ch.1%=255:then.ch.2%=132:else.ch%=222:gosub.ch%=190:ON.ch%=194:if.ch%=187tbl.a.idx%=-1:tbl.b.idx%=-1"renumber.inv" 20000"basicgto.inv"inname$=out$%=511nbuff%(1024)tbl.a.offset(tbl.a.max)htbl.b.hitloc(tbl.b.max),tbl.b.lineref%(tbl.b.max),tbl.b.hitoff(tbl.b.max),tbl.b.hittype%(tbl.b.max) 11000I ------------------------------------------------------------------- --------------IF x GOTO nnnn " construct $ see lines 5007, 6612, 6635  ** 2.01 fixes> add perform fini at end and error exit in 11998,6129512-dtbl.a.max=2000: max lines in source code,ftbl.b.max=1000: max xfer refs in sourcehbuff.max; dim gto.table%(...):invoke "gto.runtime":perform init B BASIC GTO - program GTO.2 - (c) 1984 D A DataSystems @ patch up lines 0001,1300,1510,11998,61295 after compiles œ60000 ** 2.00 fixes- manage "%if.flag%=0:hittype%=4:5000:6610: ** 1.99" 'dmm% ,3000 dum%closfi(%infile%,@ecode%)4ecode%<>0"CLOSE error for OBJECT pgm":61000S!X -------------- match_tablesDb for each hitoff/lineref pair in tbl.b, scan through tbl.a for ?d linenum = lineref and load tbl.a offset into tbl.b hitoffi=0tbl.b.idx% j=tbl.b.lineref%(i)-10000O*(j>tbl.a.idx%)(J<0000)"Undefined line ref...";tbl.b.lineref%(i):7400)4tbl.b.hitoff(i)= *gto.tables%(255):"gto.runtime":init@ BASIC GTO program is GTO.1 (C) 1984 D A DataSystems? patch up lines 0001,0980,1540,1560,61010 after compiles œ60000 !clfile%,@ecode%) œ61290'clfile%=2:closfi(%clfile%,@ecode%)j 4o INVOKE"gto.runtime":PERFORM fini:REM ** 2.01/I%)kN:"Renumber complete"N)0u SCAN THRU TIL END LINE OR STATEMENT :u3000Duch%=030090Nuch%=":")30090 Xu30010uu`j걜>t"Unexpected Error number : ";;" in pgm line number : ";H œ61190'clfile%=1:closfi(%:"SOURCE File : ";in$:"OBJECT File : ";out$+WN:"OK to continue (y/n) ?";:ok$:ok$%\N"YESyesYes",ok$)20065:20005QaN:"Renumbering file : ";in$;" from 10000 step 1":"...creating file : ";out$5fNRESEQNCE(@IN$,@OUT$,%OLDS%,%OLDE%,%NEWS%,%NEW)3*N"Enter full path name of INPUT program : ";in$/Nq$=in$:PFX$=""94Nq=q$,"/"):qpfx$=pfx$+q$,q):q$=q$,q+1):20020?9Nq$)<12OUT$=pfx$+q$+".GT2":۰q$,12)=".GT2":out$=pfx$+q$ >NOLDS%=1CNOLDE%=64000)))HNNEWS%=10000 MNNEWI%=12RNINITf+savetime$=+6000: scan_input$,7000: match_tables,10000: update_output%,:"Compile started : ";savetime$,"Compile finished: ";,4. INVOKE"gto.runtime":PERFORM fini:REM ** 2.01. N --------------- renumber %N28+2+ptr%)=":"):ptr%=ptr%+1,P(buff%(xtra%+2+ptr%)=offs.lo%:PTR%=PTR%+1 U(buff%(xtra%+2+ptr%)=offs.hi%()b=thisblock:9000h)closfi(%infile%,@ecode%)7m)ecode%<>0"RE-CLOSE error for OBJECT pgm":61000** --------------- main\+1000: ((OFFS.HI%=0)(OFFS.HI%=58)(OFFS.LO%=0)(OFFS.LO%=58)10400((hittype%=4ptr%=1:ptr%=0/<(buff%(xtra%+2+ptr%)=perform.ch%:ptr%=ptr%+1*F(buff%(xtra%+2+ptr%)="G"):ptr%=ptr%+17K(hittype%=2buff%(xtra%+2+ptr%)="S"):ptr%=ptr%+1*M(buff%(xtra%%-i;L'hitloc=tbl.b.hitloc(i):hitoff=tbl.b.hitoff(i):hittype%=tbl.b.hittype%(i)'block=hitloc/512)'xtra%=hitloc-512*blockF(block<>thisblockb=thisblock:9000:b=block:8000:thisblock=block7 (offs.hi%=hitoff/256):offs.lo%=hitoff-256*offs.hi%D:end1=0:end.file=0$':::::-)'=20:"Processing xfer target number : ";&t'openfi(@inname$,@infile%,@ecode%)6y'ecode%<>0"RE-OPEN error for OBJECT pgm":61000~'end.file=0'thisblock=0 'b=0:8000'i=0tbl.b.idx%'=20:=40:tbl.b.idx%bb%,@ECODE%)4#ecode%<>0"WRITE error for OBJECT pgm":61000' '!' ------------- update_output'::'"SECOND PASS... translating xfer targets to absolute"C'" ... translating xfer commands to PERFORM commands"" 'eof.infile=0--------- write_block *#B%=B+1) <#cnt%=512#CMPBL(@BUFF%(0))#CMPBL(@BUFF%(512))2#Writany(%infile%,@buff%(0),@cnt%,%b%,@ECODE%)4#ecode%<>0"WRITE error for OBJECT pgm":61000#end19990>#bb%=b%+1:Writany(%infile%,@buff%(512),@cnt%,10:ۻecode%=76eof.infile=1:end1=1:8220:61000> bb%=b%+1:Readany(%infile%,@buff%(512),@cnt%,%bb%,@ECODE%)A ecode%=08220:ۻecode%=76eof.infile=1:end1=0:8220:61000 EXPBL(@BUFF%(0))! end18990& EXPBL(@BUFF%(512))###!(# ------tbl.a.offset(j):7400i; @ --------------- read_block BB%=B+1)+J read specified 512 byte block of file Tcnt%=512!eof.infileend.file=1:89952 Readany(%infile%,@buff%(0),@cnt%,%b%,@ECODE%) cnt%<512ecode%=76A ecode%=082"#$%&'()*+,-12/d ----------- version 2.01 ---------------- 1000: &1500: 0BBG$= X6000: 10000:"Compile started : ";BBG$"Compile finished: "; 11000: ";BFC%):BEL%=1'BJAS=BFIS+BEB%:'BJAS<6553610300F'::"*** WARNING program expanded beyond 64K limit by GTO.1...":L'" >64K program will only load under Basic version 1.23":::::<(obuff%(1)=BJAS/256):$F(obuff%(0)=BJAS-(256*:10200L't'BEJ%closfi(%BFA%,@BFC%)5v'BFC%<>0"InFile Close Error ";BFC%):BEJ%=0~'BEL%closfi(%BGB%,@BFC%)6'BFC%<>0"OutFile Close Error ";BFC%):BEL%=0''openfi(@BFO$,@BGB%,@BFC%)9'BFC%<>0"OutFile Re-Open Error d error ";BFC%):61000 EXPBL(@bUFF%(BFG%))###(#2##CMPBL(@oBUFF%(0))+#Writenxt(%BGB%,@obuff%(0),@BFE%,@BFC%),#BFC%<>0"Write error ";BFC%):61000 #BEF%=-1' ''*$'obuff%(0)=0:obuff%(1)=0:BFE%=2:9000:B'10100" ** GTO.1 ERROR-LINE TOO LONG HERE **",BIMS-4,1))::oBUFF%(BIMS)=0:oBUFF%(0)=43:BFE%=43:7340:BFE%=obuff%(0)*BEF%+1<>BFE%"SYNC ERROR...":61000 9000 BEF%=-16;@, Readnxt(%BFA%,@buff%(BFG%),@BFE%,@BFC%), BFC%<>0"ReaBGP%+BEB%<=2557320:::"LINE TOO LONG - Line Number is : ";BHHS;" ... FATAL ERROR":"... will continue processing to check for others":"... output file is NOT runnable."::::::obuff%(3)=32:obuff%(4)=BBN%:BIMS=541:obuff%(BIMS)=":30000:7140p/BFM%=BBN%BHP$="":30000:BEF%=BEF%-BIK%+1:obuff%(0)=obuff%(0)-BIK%+1:obuff%(BEF%)=0:BEB%=BEB%-BIK%+1:7140F4BFM%=BCF%BEF%<6BHP$="":30000:7140:BHP$=":":30000:7140:&9BFM%=BCH%BHP$="":30000:7140: p3000 z7140BFM%=0BHLS=1:7300#"[\]^_",BGI$)3000:7140:'BFM%<123BFM%>6440000:7140:?BFM%=BCJ%BHP$="(":30000:40000:BIC%=1:BIE$=BIH$:7140: BFM%=2553000:3000:7140'%BFM%=34BHP$=34):30000:7140:&*BFM%=BBP%BHP$=":(EH%-BED% buff%(BHF%)=buff%(BED%+BHF%)BFE%=BEH%-BHF%+1 BFG%=BHF% (8000:<BED%=0:BEF%=0dSX,3000:BHHS=BFM%:3000:BHHS=BHHS+256*BFM%5=20:=02:"Scanning program line number : ";BHHS BHLS=03000:BGI$=BFM%)FM%:BGF$=BGI$: BED%=BED%+1:BFM%=buff%(BED%) BGI$=BFM%):! BEF%=BEF%+1:obuff%(BEF%)=BFM%p zBGLS=0 3000BFM%=0BGLS=1:6900 BGP%=BFM%BGP%+BED%+1>BEH%6300BHBS=1BHBS=0 87000: L6100BHF%=0Bror ";BFC%)::61000 EBEJ%=1JBFE%=512:BFG%=0 T8000:.r3000:BFIS=BFM%:3000:BFIS=BFIS+256*BFM%: |BED%=1:openfi(@BFO$,@BGB%,@BFC%)6BFC%<>0"OutFile Open Error ";BFC%)::61000 BEL%=1BFE%=2:9000l  BGD%=BDLS),new.val.first$(BDLS): 4,S,2,%,3,$,8,&BDP%=0:BEB%=0BED%=-1:BEF%=-1:BEH%=511BEJ%=0:BEL%=0!"renumber.inv","gto.runtime" 20000!"basicgto.inv","gto.runtime"@openfi(@BEN$,@BFA%,@BFC%)5BBFC%<>0"InFile Open ErNOT/OFF/POP/REM/RUN/VPOS/HPOS"BCO$="0123456789": BDB%=0:BDD%=1000: BDF%=6000 BDH%=-1:BDJ%=45*26:&var.table$(BDJ%),map.table$(BDJ%)buff%(1024),obuff%(1024)#vAR.SIZE%(3),nEW.VAL.FIRST$(3) 6xBDLS=03:var.size%(BBBJ%=1BBJ%=0:550:"GTO.1 COMPLETE"#"gto.runtime":fini: ** 2.01BBL%=16+2560BBN%=192:BBP%=149:BCB%=129:BCD%=130:BCF%=212 BCH%=213BCJ%=215:hBCL$="AND/CAT/DEF/DEL/DIM/DIV/END/EOF/ERR/FOR/FRE/GET/KBD/LET/MOD/NEW/obuff%(1)):(BFE%=2:9000(BEL%closfi(%BGB%,@BFC%):(BFC%<>0"OutFile Re-Close Error ";BFC%):BEL%=0**R\+:"Do you wish to continue COMPILATION of a CHAINED-TO module (y/n) ? ";BJE$)f+"YESyesYes",BJE$)=0BBJ%=0:11200 p+BBJ%=1+R+:"Do you wish to save this variable data as a CHAIN DATA FILE (y/n) ? ";BJE$!+"YESyesYes",BJE$)=011300g+:"Enter the full path name of CHAIN DATA FILE to be written":" - type QUIT to skip ---> ";BJH$+"quitQUIT",BJH$)1130ڝBMJ%=040450=BNJ%=BEF%-BMD%:BFM%=obuff%(BNJ%):31200:obuff%(BNJ%)=BFM%BMJ%=0:BFM%=BMF%:40490 BEF%=BEF%-BMD%BHF%=14:BNL%=BHF%-1'obuff%(BEF%+BNL%)=BNG$,BHF%,1)) BHF%!BEF%=BEF%+4:obuff%(BEF%)=BMF% BDP%=4-BMD%:BEB%(BNE%):40390var.table$(BNE%)=""40350%BNE%=BNE%+17:BNE%>BDJ%BNE%=1: 40315var.table$(BNE%)=BIH$8BDH%=BDH%+1:BDH%=BDD%"Variable MAP FULL ":BDB%=1 40500map.table$(BNE%)=BNG$Ɲ˝Н ՝BMF%=BFM%םBDB%40420:3000:311007P(BMN%)BMP$=BIH$,BIH$)-1,1):BMP$=BIH$,1):RBNC%=BMP$)-46XBFM%=40BMJ%=1:40290bl qBDB%vBNE%=44*(BMH%-1)+BNC%/x(BNE%<0)(BNE%>BDJ%)BNE%=1)*1000):{8var.table$(BNE%)=BIH$BNG$=map.table$I$=BFM%)BFM%<48BFM%<>4640260!":;<=>?@",BGI$)40260&BFM%>090402600BIH$=BIH$+BGI$:BMD%=BMD%+1 :40210 DBMN%=0=FBFM%=41bUFF%(BED%-1)>4740272:BGI$=bUFF%(BED%-1))EIBMN%="%$&",BGI$):BMN%BIH$=BIH$+BGI$:BMD%=BMD%+1BFM%=BFM%+32:z@B31100:BMD%=1:'CBGI$="E"BCO$,BGF$)3000:: EBMF%=BFM%JBIH$=BGI$:BMH%=BFM%-64 40200:BIC%BIH$=BIE$BMJ%=1:BMJ%=140120 40300: 40400:BML%=0:BMJ%=03000:31100:BGL%)=BLN$:map.table$(BLL%)=BMA$ 4O20272BO#2GO0u 2uBIK%=0 :u3000?uBIK%=BIK%+1DuBFM%=030090NuBHP$,BGI$)3000:30090 Xu30010uu|y7y(BFM%>96)(BFM%<123)BFM%=BFM%-32:BGI$=BFM%):yy'y(BFM%>40)(BFM%<91)ad ":" - Type QUIT to skip ---> ";BLI$N"quitQUIT",BLI$)20130 Oœ20250O#2,BLI$:202602O:"**** CHAIN DATA FILE : ";BLI$;" NOT FOUND" Oœ60000 O20210 $Oœ60000.Ož#220290/O#2;BBL%:0O#2;BLL%,BLN$,BMA$/2Ovar.table$(BL0005 pNœ60000zNBLF$="GTO.TEMP.1"2|NRESEQNCE(@BLF$,@BFO$,%BKH%,%BKJ%,%BKL%,%BKN%)NN>N:"Do you wish to read IN a CHAIN DATA FILE (y/n) ";BJE$N"YESyesYes",BJE$)20200NNaN:"Enter full path name of CHAIN DATA FILE to be re000:BKL%=1:BKN%=13RN:"INPUT File : ";BEN$:"OUTPUT File : ";BFO$%WN:"OK to continue (y/n) ";BKP$!\N"YESyesYes",BKP$)=020005 aNœ20069!cNBLC$=BEN$:#1,BLC$:#1:20071eN=1620080 gNœ600001iN:"Error opening : ";BLC$;" ...retry":2, N %N28)4*N"Enter full path name of INPUT program : ";BEN$/NBJN$=BEN$:BKA$=""M4NBKDS=BJN$,"/"):BKDSBKA$=BKA$+BJN$,BKDS):BJN$=BJN$,BKDS+1):20020G9NBJN$)<12BFO$=BKA$+BJN$+".GT1":۰BJN$,12)=".GT1":BFO$=BKA$+BJN$">NBKH%=1:BKJ%=1F%) z,BHF%~,#2,"VARIABLE MAP written": ,::7,:"Remember to add the LINK line to the program":O,"1 DIM gto.tables%(...):INVOKE ";34);"GTO.RUNTIME";34);":PERFORM INIT"?,:"OPTIMAL dimensioning of gto.tables%(";2+BBL%/2);")":kip ---> ";BJK$=,"quitQUIT",BJK$)11400 B,œ11350L,#2,BJK$:113608V,:"**** Error opening VARIABLE MAP destination : " X,œ60000 Z,11320 `,œ60000t,BHF%=0BDJ%:v,var.table$(BHF%)=""11386)x,#2;var.table$(BHF%),map.table$(BH#25,"CHAIN DATA FILE ";BJH$;" created and written":G$,:"Do you wish to print the VARIABLE MAP for this run (y/n) ";BJE$!.,"YESyesYes",BJE$)=011400q8,:"Enter the Device Name or file pathname to send the VARIABLE MAP to ":" - type QUIT to s0 +œ11250+#2,BJH$:112605+:"**** Error creating CHAIN DATA FILE : ";BJH$ +œ60000 +11220 +œ60000,ž#211290,#2;BBL%:,BHF%=0BDJ%:,var.table$(BHF%)=""11286.,#2;BHF%,var.table$(BHF%),map.table$(BHF%) ,BHF%,=BEB%+BDP%"obuff%(0)=obuff%(0)+BDP%*4>BNN$=new.val.first$(BMN%)$HBOA%=BBL%/256):BOC$=BOA%+65)RBOF%=BBL%-256*BOA%#\BOH%=BOF%/16):BOJ$=BOH%+65)%fBOM%=BOF%-16*BOH%:BOO$=BOM%+65)pBNG$=BOC$+BOJ$+BOO$+BNN$zBBL%=BBL%+var.size%(BMN%)BBL%>BDF%BDB%=1(BPB$=BNG$:BNN$<>"S"BPB$,4,1)="/"BCL$,BPB$)40520`e껜=255610001j:"Unexpected Error ";;" in Line ";:: H10100#R"gto.runtime":fini: ** 2.01\9two.open%=0"renumber.inv" 20000"basicgto.inv""@openfi(@in$,@infile%,@ECODE%)9Becode%<>0"InFile Open Error ";ecode%)::61000Eone.open%=1Jcnt%=512:read.ptr%=0T8000: read first@r3000:pgm.len=ch%:3000:pgm.len=pgm.len+2T$(3))  ---------------------------------- -xi=03:var.size%(i),new.val.first$(i): 4,S,2,%,3,$,8,&3 ----------- repeated inits for each iterationthis.bump%=0:net.bump%=0,buff.ptr%=-1:obuff.ptr%=-1:buff.max%=511one.open%=0:ull#hashmax%=1000: room for extras gto.table.max%=60002 vtc%=-1:vtc.max%=45*26: 1170 for (A-Z)*(.0-Z)( ----------------------------------.var.table$(vtc.max%),map.table$(vtc.max%)buff%(1024),obuff%(1024)#VAR.SIZE%(3),NEW.VAL.FIRS%=215: ** 1.97mres.word$="AND/CAT/DEF/DEL/DIM/DIV/END/EOF/ERR/FOR/FRE/GET/KBD/LET/MOD/NEW/NOT/OFF/POP/REM/RUN/VPOS/HPOS"?nums$="0123456789": ** 2.01 #vmf.flag%=0: variable map fnators again%=1again%=0:550:"GTO.1 COMPLETE"' invoke "gto.runtime":perform fini --------------- initgto.table.offset%=16+256Erem.ch%=192:perform.ch%=149:for.ch%=129:next.ch%=130:data.ch%=212IMAGE.CH%=213>def.chror in 980,61010120d ----------- version 2.01 ---------------- 1000: init &1500: repeat inits0savetime$=X6000: main10000: fini#"Compile started : ";savetime$"Compile finished: ";11000: termis in 40272,40312,' optimize collision recovery in 40334#( *** 2.00 changes are in GTO.2) *** 2.01 changes5* handle "E" format numbers via 1022,3010,400034+ handle pgm too long msg in 10222,10224,102262, perform fini at end and erh$ creates in 30010,40002" *** 1.99 changesA# added 7310,7312,7314 to handle line too long situation /$ handle ":" in image via changes in 72253% handle "create,nnn,DATA" via change in 7220>& handle buggy hashval for z&.. variable7 change second ref to obuff(0) to (1) in...10310# add bypass on ^ etc...7145 6 add handlers for deffn...1014,7160,40090,40102 *** 1.98 changes, change read#1 bug in 20271 to read#2G! add 3050 addl fix for "^" and remove c table.offset% to/from the chn files...11271,20271I alter chn file write loop max from hashmax% to vtc.max%...11280 & same for the map file...11380  *** 1.97 changesJ change pgm.len% and new.pgm.len% to reals...1650,10220,10300,103100; dim gto.table%(...):invoke "gto.runtime":perform initB BASIC GTO - program GTO.1 - (c) 1984 D A DataSystems? patch up lines 0001,0980,1540,1560,61010 after compiles œ60000 *** 1.96 changes B pass gto.56*ch%: *** 1.97 |buff.ptr%=1: will be inc'd $openfi(@out$,@outfile%,@ECODE%):ecode%<>0"OutFile Open Error ";ecode%)::61000two.open%=1cnt%=2:9000l -------------- get_ch; prev.ch%=ch%:prev.ch$=ch$: ** 2.01. buff.ptr%=buff.ptr%+1:ch%=buff%(buff.ptr%)8 ch$=ch%): ** 1.982 obuff.ptr%=obuff.ptr%+1:obuff%(obuff.ptr%)=ch%p -------------- scan_input zeoff=0 3000ch%=0EOFF=1:6900ʩd8,h)ec efeede`,5 H  h 4  `5!    4(P 4 4  `,g0L,10kH0 ԥ f0)ĭ9)9҅xh(ĥŐL i,1HȊ©L,52,9-P" a{)1 TEMP2 2  GETCH 5RETURN BG G DOJMP TEMP1 @TEMP2 AGETCH  RETURN GS GS DOJMP JMP TEMP1 RELOCST VAR VAR JMPADDR .RELOCST ]XCST JMPADDR DDR MOVE254 INIT INIT FINI FINI JMPADDR MOVE254 VE254 ZXWVUTS#"!  xtȩ ȩtHsH`*** G ***qoShBhC 5 5 CHBH`Hʊe9he: Hm:hJ`潠`*** GS ***NLKIHGEdhh 89H:iɂ8H:HLHMHH HH`9=i>i> ȥii8 LȩȩY98  HH``n#" B?L*** fini ***hsht9=i>i> ȱii8 L*** var *** ` a ɅL8A 8A 8Ae ) J Ɇ>e=e>ɂ`L*** init ***hhȱiȱiGA3/1.06REMO, VAR line.len%=ch%+line.len%+buff.ptr%+1>buff.max%6300deffn.flag=1deffn.flag=087000: process lines L6100 ------ move then read newi%=0buff.max%-buff.ptr%!buff%(i%)=buff%(buff.ptr%+i%)cnt%=buff.max%-i%+1read.ptr%9 Ln90$0%,7 ҥ L$0T,8OK50P;ҥ,8 L%\   8҅¥Ӆé҅L,5,6  & @jIH,5 p  He҅Ґhe…å逅h,23Lh=i%(8000: read to fill block<buff.ptr%=0:obuff.ptr%=0dSX ---------- process lines63000:LINE.NUM=CH%:3000:LINE.NUM=LINE.NUM+256*CH%9=20:=02:"Scanning program line number : ";LINE.NUM eol=03000:CH$=CH%)ch%=0p.table$(i%),i%,#27,"CHAIN DATA FILE ";chout$;" created and written":F$,:"Do you wish to print the VARIABLE MAP for this run (y/n) ";yn$ .,"YESyesYes",yn$)=011400t8,:"Enter the Device Name or file pathname to send the VARIABLE MAP t2607+:"**** Error creating CHAIN DATA FILE : ";chout$ +œ60000 +11220 +œ60000,ž#211290/,#2;gto.table.offset%: *** 1.96.,i%=0vtc.max%: *** 1.96,var.table$(i%)=""11286(,#2;i%,var.table$(i%),maave this variable data as a CHAIN DATA FILE (y/n) ? ";yn$ +"YESyesYes",yn$)=011300i+:"Enter the full path name of CHAIN DATA FILE to be written":" - type QUIT to skip ---> ";chout$ +"quitQUIT",chout$)11300 +œ11250+#2,chout$:11(ecode%<>0"OutFile Re-Close Error ";ecode%):two.open%=0** ------terminatorsQ\+:"Do you wish to continue COMPILATION of a CHAINED-TO module (y/n) ? ";yn$*f+"YESyesYes",yn$)=0again%=0:11200 p+again%=1+Q+:"Do you wish to sll only load under Basic version 1.23"::::: *** 2.015<(obuff%(1)=new.pgm.len/256): *** 1.977F(obuff%(0)=new.pgm.len-(256*obuff%(1)): *** 1.97(cnt%=2:9000*(two.open%closfi(%outfile%,@ecode%)Cecode%):two.open%=17'new.pgm.len=pgm.len+net.bump%: *** 1.97'new.pgm.len<6553610300{'::"*** WARNING program expanded beyond 64K limit by GTO.1...": *** 2.01s'" >64K program wie%)>v'ecode%<>0"InFile Close Error ";ecode%):one.open%=0*~'two.open%closfi(%outfile%,@ecode%)?'ecode%<>0"OutFile Close Error ";ecode%):two.open%=0'$'openfi(@out$,@outfile%,@ECODE%)B'ecode%<>0"OutFile Re-Open Error ";MPBL(@oBUFF%(0))1#Writenxt(%outfile%,@obuff%(0),@cnt%,@ECODE%)0#ecode%<>0"Write error ";ecode%):61000#obuff.ptr%=-1' ' ' fini.$'obuff%(0)=0:obuff%(1)=0:cnt%=2:9000: eofB'10100:10200L')t'one.open%closfi(%infile%,@ecod000 9000obuff.ptr%=-16; @ --------------- read_block6 Readnxt(%infile%,@buff%(read.ptr%),@cnt%,@ECODE%)0 ecode%<>0"Read error ";ecode%):61000 EXPBL(@BUFF%(read.ptr%))###!(# --------------- write_block2##C%(4)=rem.ch%:i1=541:obuff%(i1)=" ** GTO.1 ERROR-LINE TOO LONG HERE **",I1-4,1))::OBUFF%(I1)=0:OBUFF%(0)=43:CNT%=43:7340: ** 1.99cnt%=obuff%(0)0obuff.ptr%+1<>cnt%"SYNC ERROR...":61p%<=2557320: ** 1.99::"LINE TOO LONG - Line Number is : ";line.num;" ... FATAL ERROR":"... will continue processing to check for others":"... output file is NOT runnable.":::::: ** 1.99גobuff%(3)=32:obuff-skip.len%+1:7140r4ch%=data.ch%obuff.ptr%<6stop.char$="":30000:7140:stop.char$=":":30000:7140: ** 1.9999CH%=IMAGE.CH%STOP.CHAR$="":30000:7140: ** 1.99 p3000 z7140 ------ write line out?line.len%+net.bum40;%ch%=34STOP.CHAR$=34):30000:7140: QUOTED literal2*ch%=perform.ch%stop.char$=":(":30000:7140/ch%=rem.ch%stop.char$="":30000:obuff.ptr%=obuff.ptr%-skip.len%+1:obuff%(0)=obuff%(0)-skip.len%+1:obuff%(obuff.ptr%)=0:net.bump%=net.bump%eol=1:73001"[\]^_",ch$)3000:7140: *** 1.976ch%<123ch%>6440000:7140: variable handleroch%=def.ch%stop.char$="(":30000:40000:deffn.flag%=1:deffn.var$=this.var$:7140: *** 1.97  ch%=2553000:3000:71o ":" - type QUIT to skip ---> ";mapout$!=,"quitQUIT",mapout$)11400 B,œ11350L,#2,mapout$:113608V,:"**** Error opening VARIABLE MAP destination : " X,œ60000 Z,11320 `,œ60000.t,i%=0vtc.max%: *** 1.96v,var.table$(i%)=""11386%x,#2;var.table$(i%),map.table$(i%)z,i%~,#2,"VARIABLE MAP written": ,::7,:"Remember to add the LINK line to the program":O,"1 DIM gto.tables%(...):INVOKE ";34);"GTO.RUNTIME";34);":PERFORM INIT"L,:"OPTIMAde with new.val$ ՝cc%=ch%םvmf.flag%40420ڝarray.flag%=040450?x%=obuff.ptr%-var.len%:ch%=obuff%(x%):31200:obuff%(x%)=ch% array.flag%=0:ch%=cc%:40490" obuff.ptr%=obuff.ptr%-var.len%i%=14:J%=I%-1-obuff%(obuff.ptr%+J%)=hval%+17:hashval%>VTC.MAX%hashval%=1: ** 1.99 40315"var.table$(hashval%)=this.var$Avtc%=vtc%+1:vtc%=hashmax%"Variable MAP FULL ":vmf.flag%=1 40500!map.table$(hashval%)=new.val$Ɲ˝7Н ---------------- update source co0)(hashval%>vtc.max%)hashval%=1)*1000): ** 1.99{Ivar.table$(hashval%)=this.var$new.val$=map.table$(hashval%):40390#var.table$(hashval%)=""40350Bhashval%=hasthis.var$)-1,1):hash2$=this.var$,1): ** 1.99Rhash2%=hash2$)-46!Xch%=40array.flag%=1:40290b4l ----------------- hash to table & update tableqvmf.flag%!vhashval%=44*(hash1%-1)+hash2%x(hashval%4740272:CH$=BUFF%(BUFF.PTR%-1))_IVAR.TYPE%="%$&",ch$):VAR.TYPE%THIS.VAR$=THIS.VAR$+CH$:VAR.LEN%=var.len%+1:3000:31100sP(VAR.TYPE%)hash2$=this.var$,0300: hash to table & update table40400: update sourcevar.flag%=0:array.flag%=0* ---------------- collect rest of var3000:31100:ch$=ch%)ch%<48ch%<>4640260!":;<=>?@",ch$)40260&ch%>09040260/0this.var$=thi ** 2.01 Ecc%=ch%Jthis.var$=ch$:hash1%=ch%-64 removed for 1.97 40200: collect rest of var\deffn.flag%this.var$=deffn.var$array.flag%=1: *** 1.97array.flag%=140120)4late CH into lower case value#y(ch%>40)(ch%<91)ch%=ch%+32:z:@ ---------------PROCESS VARIABLE HIT & load var table6B31100:var.len%=1: altered for ** 1.98 pCch$="E"nums$,prev.ch$)3000:: OR STOP.CHAR HIT2uskip.len%=0 :u3000?uskip.len%=skip.len%+1Duch%=030090$Nustop.char$,ch$)3000:30090 Xu30010uu)|y ---- xlate CH into upper case value96)(ch%<123)ch%=ch%-32:CH$=CH%): ** 1.98y)y ---- xDATA FILE : ";chin$;" NOT FOUND" Oœ60000 O20210 $Oœ60000.Ož#2202905/O#2;gto.table.offset%: *** 1.96,1.980O#2;hash%,var$,map$12Ovar.table$(hash%)=var$:map.table$(hash%)=map$ 4O20272BO#2GO-0u SCAN THRU TIL END LINE sYes",yn$)20200N3N -------- get chain data file name and read itbN:"Enter full path name of CHAIN DATA FILE to be read ":" - Type QUIT to skip ---> ";chin$N"quitQUIT",chin$)20130 Oœ20250O#2,chin$:202603O:"**** CHAIN œ60000/iN:"Error opening : ";f$;" ...retry":20005 pNœ60000zNqq$="GTO.TEMP.1"5|NRESEQNCE(@qq$,@OUT$,%OLDS%,%OLDE%,%NEWS%,%NEWI%)N%N ------- accept chain data input=N:"Do you wish to read IN a CHAIN DATA FILE (y/n) ";yn$N"YESye$+q$+".GT1":۰q$,12)=".GT1":out$=pfx$+q$&>NOLDS%=1:olde%=1000:news%=1:newi%=12RN:"INPUT File : ";in$:"OUTPUT File : ";out$$WN:"OK to continue (y/n) ";ok$ \N"YESyesYes",ok$)=020005 aNœ20069cNf$=in$:#1,f$:#1:20071eN=1620080 gNL dimensioning of gto.tables%(";2+gto.table.offset%/2);")":, N --------------- renumber %N28)3*N"Enter full path name of INPUT program : ";in$/Nq$=in$:pfx$=""94Nq=q$,"/"):qpfx$=pfx$+q$,q):q$=q$,q+1):20020?9Nq$)<12OUT$=pfxnew.val$,i%,1))i%2obuff.ptr%=obuff.ptr%+4:obuff%(obuff.ptr%)=cc%8 this.bump%=4-var.len%:net.bump%=net.bump%+this.bump%""obuff%(0)=obuff%(0)+this.bump%*!4 get new.val$ for type 2 & 3$>char4$=new.val.first$(var.type%)7Hhibyt%=gto.table.offset%/256):char1$=hibyt%+65)'Rlobyt%=gto.table.offset%-256*hibyt%+\hinib%=lobyt%/16):char2$=hinib%+65)/flonib%=lobyt%-16*hinib%:char3$=lonib%+65)(pnew.val$=char1$+char2$+char3$+char4$>8?>p<<AAA@@8A@q==C)CB)B C}0 x) `(`hh% ( ΍ ύ逅Ñ}`` " ( ĩ~Íĩϭ & &υΠÑΈ~ F ~ҰةeÅÐн},,P,`,g$ ( efh) `xÙ+(`xÙ&(`)4`)5`)6`)7`)8`)9`,i0!M:0p ȱq L `" (~)y ~JJ* I `x|x|,,}P-X~ F }~L } `,,i0L È`,g HH`LL! l      5  Hdcefh&+si  M0   h) `(" (  (È& 8  `)2ȱÍ3`)1`Ɂ" (cefd`Hc <Le Le ,g0L HH`! ( 9EKQWbmz`(" ((è%È`2ȭ3`1`d`c`+È`&È` & IMk`4`5`6`7`8`9`<ȭ=` & @jI`:ȭpȭqéL ==L: ,lCL <=L: <,n)LL8 L8 u:L8 ;)ߍ;j`; ;j`uBL8 uCL8 u)u;) u;L8    x) `(,  LuL-upp<`uqq=L: vuL L L #1:CY` 9C<m><=m@=>@?AL8 >m<>@m=@<=L8 <m>?=m@AL8 C9L8 ; ;k`;);k`,@`<,m p<L<`<p<`,ms<L=q=L: ,lXґȥӑ,10 h0  `,g0L  ҅ӥĥŰ+,0p 4 Ls  Ls i )"|tȌs|st HH` MjH,: <J h̰ <rh,oL`%CYguperform fini\ar.type%)2gto.table.offset%>gto.table.max%vmf.flag%=14TSTVAL$=NEW.VAL$:CHAR4$<>"S"TSTVAL$,4,1)="/" RES.WORD$,TSTVAL$)40520`e껜=255610001j:"Unexpected Error ";;" in Line ";:: H10100'R invoke "gto.runtime":1000dXn".D1/MENU.MAKER"x: "RUN.OTHER.SIDE" RJJJJL㳭RⴰܴRiRpRoRn oRRRR  ~ȹRRRʈ00R%R$R RR. 'R&R( RR7 `st?99Rst5 !wx! !s8wtx !uuL-TYP= PRO= UNKNWNBAD eٍeڍ808٥8٥ 8مڅ H , V Εm٭mڭ))njnjnjfjfjfj+mӥmԐ8L( Ӣ й` m j`Hآ Hӭԭ h h`8٭028ٍڍ0Z$eٍeڍm٥m8٥08ٍڍ`8٥058ٍڍ0ԭ V 8fxL@ ] I)!) g 80 J8}L y L 0yʽz0 y L7  Lh `*f*&*)`  (+@EIR[ty} NQ     ! ( 0 7 I N S _  . G R Y f {    ! $ 4 9 F I P S V \ a h m p s x |     ' + < ? D G N U f k p x ?BEJMRUX]`h  2;AGMS[fot|              . 3 6 9 < ? B E H N S V \ _ b w  KORY\aelpu !$(+.147<?BFILORUX]`finsw| !%*/369<+;CNU\eh "*-036<BLORX_fj &+38;?DGLTot <?BGLQgjox',/25:BG̑ʈ0 Ցʭr̈A萠L: ֦ڱΑ0Б֤ h L  p,:0 JfiΥiώJe΅Хiю@ B $p̑бʑΈ0 Б̱ΑʈeمΐeمАA萿 :  `ʝ"`t  !#%')L: 8p,:Jf׮@$PA B $P@/A'ʤ˅΄ϥ̤ͅЄ B $̑бʑΈ0Ƞ h L: $)טɀIim>ٮ@8pذ `$0"8,:Jک@ׅפ؈۩MjL,:08*Ȅ B ,:J}΅н(I I $0;P̑бʑΈ,:JՐrx 0, )ߍ:) J)*PR,T,V( : `,k<,: JI`I`<,:J̰`=m@>,:J}ʅ̽(I I `<Mj,:0pJՐ̑ʈ`pJհ0`ՑʭrpȐ`=m@< B h Ah`L)i   HH `TH..TH..TH..THATS ALL, FOLKS!R`RT RT`#RT RRRRR`0R`RR 㵩:RRL㵆  ~ RR`BLOCKS FREE: BLOCKS USED: TOTAL BLOCKS: sj]"]\AjiGa@aI[5x<^sě xCxEx5eҥV{}g}gkj̐kIk~^hT}27uejewsHH st\hh H PASCODPASTXTTEXT PASDTABINARYFONT FOTO BASIC DATA WPTEXTSYSTEMRESERVRESERVCAT RPSDATRPSIDXAFDISCASMOD AFRPT SCNLIBk;eo $'>ed?e