SYSDIR SYS 1VG806 ABS#VT806 ABSVG100 BAC VT100 BAC`VT100FIXBAC`DPUG BAS VT100 DAT<VG100 DOC HAJEN2 BAS TEMP ][\ @"LOADER BAC `START BAC TERMINALBAC `WINDOW BAC [ADV800 HEXADV800 BAS#FIGITER BAS ADV800 INF`/JANE NUD,ADV800 ABS@WLINDAPICBAS!NUDE PIC $MADDATA BAS@ MADMAIN 800-LIX BAS LIX INF MADMAIN 806JSIMULHR BAS@fSIMUL BAS!MSIMULHR BAC$ZSIMUL BAC&TXTTOPICBAC'TXTPIC BAC'@REMO7 BAC(SETCAL2 BAS(L BAC)SLOWTERMBAC*@HDREAD BAC*`BGM BAC bc , D1| !x͵/x͵$T] N < /This is function key pf5. DataIndustrier T{by 1985-04-09 16.15.21>!#ACUo010011001010NNKIII001!1!͵ 1!͞JnͰ~ͧ귦 oU 8!W Fn~ İ6|n#8*x>8|9>8}9> 8>9> 8>)9HGd!X"!"!62ͅ*|>8>P9 ~ݶ Fv~ݶ FH(G d'B!562zWąz̧*|+"|!"d*|C nH+"|>89!ڑͼu 0 (W!ͼ666'õ!ͼ͍u 7Yg͍u:7|3h;Z7ɇ_^#V7>6õ!ͼ6ɷ'>p[^ƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑ m;đƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑJ m`ƑƑƑƑ mlDmzƑƑƑƑƑƑƑ͹WXmqȑƑƑƑƑƑƑƑ?ƑƑƑƑƑƑ|ƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑbƑƑƑ/ƑƑ ol甑ƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑE lxƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑ`6leƑBbƑƑƑƑ @ƑƑƑƑƑƑƑƑƑƑƑƑƑƑl%ƑƑƑƑƑƑƑ l ƑƑƑƑƑƑkƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑu -kƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑ k_JƑƑkAV k#ƑƑƑlk (ƑƑj͑**YK*HK*[RB0 BR> 0@bR2*ѷR:ݶR0MD<20: jeR0 (Rw o( G{ _0#:W(~! !0zw y *"*"͑*>ݖ&w&*YK*H*[̓n*[̓BK~#ݦ"ݦ%ݦ$<ז{(Qxy 8HE(y88E { rT] x(O ir(._zw# x zwE{ _0# x  x *"*"f&V#^"~%$%8|j0zwE{ _0# x |g xז*"*"~'W(&(=(=(z/W{/_z/WV#^"G|jr#sf h"DMR͑*Y*|7} (6=(1=(Y=(+K*:ҷ( =(=(7~wazwZ{/wTK*> ?8|&o>;͋f>p͋K*> ?>;͋!F .f>p͋͑K*HC">͋>:͋`if>;͋f>;͋&of|! gs9'ͫͫdͫ ͫͫ9~ #~#0͋ɯ2͋>2ͬ>2͋:G(2͈m:O( 2 f^ͼm*| [ԋn8 *R0BKq"C{2BK'! [B0W!xq#p#s#r#[s#r#:w#:W `iKB8*R0w#[s#r#[s#r#xR"* R"xN#F#CN#F#CN#F#^#~#2N#F#~#fo"D eQy{E _}+7x{E _}#7}րogx?U*|j"~&8'V `iG|jDM}ƀogx?U*}">ݖ&E 'V(:W~7U :w:(A ~'( =(=(A(:/U 8x{E _0}#~ dDa:W~ A':w'Tn0TU 8y{E _0}+:W~ Aq:wqnT0n͑!2KBx![R![RA@!::!2R{("C@BK"f#n"t!u ~'>w#w"w%w c7$w!w !͑*|7}==({=(9=(2=7!w:҇G>6 >67xw#x ͽ>[!R(>!R( !R7+"Cwͽ!"":G:O)!:_:wG'3( ͨ`͵bLͱ8 b" N3R۰ HH F x :Ũw:Ũw>w:~ 0( :0(:0(:61(6:61(666666ww ww w wwwwwwwwwww !"!" a!0"!"!"6!"!"!"""!26>G^k}͙;R!P"!!!# !! !!ʟA!؟C!ҟA!!ޟ`!ߟa!ߟb!c: `: a: b4 `A!_#_> k(<79!<8< >k˫ Pe  ) xwPbIG4yy)>6!ww6!ͽPPorPPPP^aDSPPP<0DLh0DukWN;'GGNG4G'GGI `G G GH* DMyc.<8F(8 VF(_O{_*ѷB*R}F(owow~F(A !w ~(s#r#7> F()! !T]w#  ,_!~Ow#!~#y`(#>y^@>yx(yOxGx4Wz/yxG BKx7>7?j=jB0 |zRɯog͑**Y*[R"*[ҷR"!@ F ! "` ^&S["!"["!"* ͑##͑"!"ͷ*)*)*ͫ*ͫѧR!VO ~^*+)0ͷ!kO ͫBTÛTТB ТÛͫ *[K *[K " "*#"*+ ]3"*[KR *[KRR "B"*+"*+"*[K *[K " "*#"*+"*[KR *[KRR "B"*+"*+">KB)0 =)KB>7?j=jB0 |bRK[' \@* MD*H"C~! !zw}<(=!W~#͋}(/=>͋>[͋fn> >( }?>;͋|?>R͋!^  0G0yċx͋[?1;2c!ؾ#7! ~#3v Éabcdnix]abc806\uN~(/Y< h[M(#=(%=(&===()=(*==(*=(=8; 8?qy OyGyGy8OGyO8GNZyǰO!x[FOxP(:6~ݦ5~w~(Q0G#8 0?pS^^(>ݖw~ݾ0 5> ݮw*PRDM*x!*xT]O>5> ݮw}<(=(=(=(8[FK=5}<( =(=(=(0ODM[0K 0!ODM`iR8DM>5!x(T]> ݮ< Yow> ݮw!ݨ{͛ƦL۰`~Ʈw!{H_̀{0!ͼG!'-{> ! !ԫ ! ! !4 !T{>ZZ!e~!!!¬ X|!!4{!B{T2͍!a{T(0g8|͍:N!0!_.!4+{T×͵{ 8 0̀>̀+ (̀ͅİ8 80`? +08:0ͅİ8~# ͕ ~#[ ͕ ~#@8 Wv̀ x ͕J 80̀g>_̀|@̀_!{{;̀0?ʨxE O@I7 DataIndustrier DIAB AB, emulator of vt100. Written 1985GV-04-09 . Version gx Revision 08. Va Hit shift-control-pf5 to get menu. 0: Quit.1: Interface.2: Modes, parameters.3: Define key-sequences.4: Initiate key-sequences. I choose Baud rate:A. 50 baud UT I. 1200 baudB. 75 baud J. 1800 baudC. 110 baud K. 2400 baudD. 134.5 baud L. 3600 baudE. 150 baud M. 4800 baudF. 200 baud N. 9375 baudG. 300 baud TG O. 10417 baudH. 600 baud P. 19200 baudParity:E. Even O. Odd I. IgnoreBaud rate receive : Baud rate transmit : Baud rate auxiliary : Parity receive : [22;2 !S:3HParity transmit : Modes:Key-board click (0/1) : Auto wrap mode (0/1) : New line mode (0/1) : Character set (0/1) : Visual attribue (0/1) : Define key-sequ Rence:[5;20 "R%HKey to program is : New sequence is :To quit, hit setup-key at first question.To terminate sequence, hit setup-key.Setup-key is shift+control+PF5.Example: contro #Ql+X represented as '_X'.Sequence is to long. (Hit any key)End of sequence memory. (Hit any key) function key !x5w#ꨮ!*"!!x~#5Ӯ!*"g_|W|0:^ $P 0:?#7&.Y<(=(gY<(=o|?}7?tuNđ6t0""&~o&"O"[·R#"幯ɯww ~w~w ^8{<=?((+^8{<(=(=(=(=(=(=(=(=(=(=͑^V %P8{<( =(?((+^8{<(=(=(=(=(0=(=(=(=(=(=͉???;(0( ?_?;0 ?O{_?;7u8!xx6" w M"M~ F 7İ8> N(_ &)O!# +| " x :}<N( =(===(:ˆ!(Pˆ# x !(~_+!0 >!>(!wwwɷ}MV}0>-!>!>!>!   M >0!M4(&nw4 'N#u5u7^7 ~8w&n~4˱!pGHOx˱0 H(O+| 7'7 V 8ʁUʅʣ͊0~#3 x V( 3> 3 !F97~#3 "&*,.02468:=@C (M0 12345678OPOQOROSOpOqOrOsOtOuOvOwOxOyOmOlOnOMͨ !W0͞ <zͭ͞Ngx|!_!6 )L=C!Ȼw~<8>!Dz N#^#V#= "»CĻ* !͞ R7͊ * R"ƻ͊ Kƻ|*͞B+[ĻKƻ͆͊*»KĻ|*͞BKĻ "ͭKĻqgx|gx|}<( =( (.=(/7mͧ!xP~# *eKJ> > mmmu( 0ɯwww>u[ u0(4 uiUJ 0#(>"  ~G~x6=w*+"*~_R"6:[~P#/0AMlMVlS0 >(A> -HyA>A͖@(?(A4(&n w4 ~05d0(d~8w&n ~4 ^~@d~7&n ~4(&nw4d5d7>F (>N ^7 ~8 .Gyw&n~4Oy38yf n ~v>ɧɧv~f n >ɷ>AA_~AN݆oNgN(|Q}tu"JFCx[~[[w*B"×Cx ~V0fo~CJ /Fdx y݆Q8>Pgn~ݾ ڥCx ~ݾݖ8 ݆ofn[͐*"!F(*"!&>݆otu"|Q?}ݾ~|O}ogG& T]))))))&~o&:ɻ<2ɻM:ɻ!ɻ~v( 0zEW1_͡{1ط(=?!_^͡{u!̺!~# CLEARD00Q1| !x͕/x͕$T] N < /This is function key pf5. DataIndustrier T{by 1985-04-09 16.14.34>!#AC Uo010011001010NNKIII001!Ӟ1!͕͹ 1!͹=ͼJnͰ~ͧʪe0oU 8?W Fn~ ͤ|ʪn8*x>8|9>8}9> 8>9> 8>)9(Gd!X"!"!62ͅ*|>8>P9 ~ݶ Fv~ݶ F((G d'B!562zWąz̧*|+"|!"D*|Ȕ0nH+"|>89!ȑͼu 0 (W!ͼ666ͣ!ͼmu 79gmu:7|3H;:7ɇ_^#V7ɗPppp;^ƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƲ0m;đƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑ;mN{ƑƑƑƑmhƑƑƑƑ\0 mpƑƑƑXm|ƑƑƑƑƑƑƑƑƑƑƑƑƑƑ\Ƒ_ƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑ/ƑƑJlƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑT0lxƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑƑQ6lwƑj"BƑƑƑϫƑ+^ƑƑƑƑƑƑƑƑƑƑƑƑƑƑA,l7ƑƑƑƑƑϫpƑƑܢ”ƑƑƑƑƑ90l Ƒk]<(=!u~#k](/=>k>[kfn> >( }]>;k|]>Rk!|  0G0ykxk[?1;2cШ!ؾ#7! ~#vë =Éabcdnix]abc806\uN~(/9<(#=(%=(&===()=(*==(*=(=8;0k 8?qy OyGyGy8OGyO8GyǰO!x[FOxP(:6~ݦ5~w~(Q0G#ʪ8 0?pS^ĝ^(>ݖwĝ~ݾ0 5> ݮw*PRDM*x!*xT]O>5> ݮw]<(=(=(=(VŬ[FK=5]<( =(=(=(ODM[K !ODM`iR8DM>5!x(T]> ݮw> ݮw!͙{̓ͷ0 i,`~ͦw!͙f_͞{0!ͼe!E-͙>((!қ !! !! !!2 !!R !!r͙>xx!~!!!!!!!!!!4͙!=B͙0 Bh9r2ͫܩ!͙r(0g8|ͫ:N!0!}g.!R+͙rõ͕͙ 8 0͞>͞I (ͤ͞ͅ8 80`? I08:0ͤͅ8~# u ~#[ u ~#@8͞ x uJ 80 gN0͞g>_͞|@͞_!͙{͠ɩܘ͞0?xE O@I7 DataIndustrier DIAB AB, emulator of vt100. Written 1985-04-09 . Version xx Revision 08. Hit shift-control-pf5 to get mL0 f[enu. 0: Quit.1: Interface.2: Modes, parameters.3: Define key-sequences.4: Initiate key-sequences. I choose Baud rate:A. 50 baud I. 1200 baudB. 75 baud 0eh J. 1800 baudC. 110 baud K. 2400 baudD. 134.5 baud L. 3600 baudE. 150 baud M. 4800 baudF. 200 baud N. 9375 baudG. 300 baud O. 10417 baudH. 600 baud 0~du P. 19200 baudParity:E. Even O. Odd I. IgnoreBaud rate receive : Baud rate tranmcsmit : Baud rate auxiliary : Parity receive : Parity transmit : [20cuJModes:Key-board click (0/1) : Auto wrap mode (0/1) : New line mode (0/1) : Character set (0/1) : Visual attribue (0/1) : Define key-sequence:Key to program is : 0bh New sequence is :To quit, hit setup-key at first question.To terminate sequence, hit setup-key.Setup-key is shift+control+PF5.Example: control+X represented as '_X'.S0a[equence is to long. (Hit any key)End of sequence memory. (Hit any key) function key ޞ'( Ɩ`ޞ̓Ns= Nͻ (( F x :w:w>w:~ 0( :0(:0M0`N(:61(6:61(666666ww ww w wwwwwwwwwww !"!"!0"!"!">G^ͯ2W!0"1_!!!7# !+! !0_9!CA!QC!KA!#!W`!Xa!Xb!Yc:͢`:͢a:͢bA![_#_> k(<79!ՠ8< >k˫ Pe  ) xwPbIG4yyy`(00OR0000>A$30000^,0DLh0DukWN;'GGNG4G'GGG G G!x5w#ꈡ!*"!!x~#5곡!*"g_|W|0:0:?#7&.9<(=(g9<(=o|?}0]7?tuNq6t""&~o"O"[R#"Ŭɯww ~w~w >8{<=?((+>8{<(=(=(=(=(=(=(=(=(=(=qŬ>8{<( =(?((+>8{<(=(=(=(=(0=(=(=(0\=(=(=iŬ=???;(0( ?_?;0 ?O{_?;7u8!xx6" w M"M~ F 7ͤ8> N(ϣ!# +| " x ]<( =(===(~0[[ˆ!(Pˆ# x !(~_ !0 >!>(!wwwɷ]MV]ˤ0>-!>!>!>!   M >0!M4(&nw4U5U7^7 ~8w&n~4ͫh0[!pG(Oxͫ0 ((O+| 77 V 8a5eʃj0~# x V( >  !&97~#ߥ  #0Z 12345678OPOQOROSOpOqOrOsOtOuOvOwOxOyOmOlOnOMƖ !W0~ <z~͍Ngx|!_!6C!w~<8>åo! N#^#V#0Y)= "C* !~ R7j * R"j K\*~B+[Kfj*K\*~BK "͍Kqgx|gx|]<( =( (.=(/7Mͧ!xP~#> > MMMu(0ɯww0?X6w>u[ u0(4 ui0W#(>"  ~G~x6=w*+"*~_R"6[~P#/0AMLMVL30 >(A>A>Av@(?(A4(&n w4 ~00Ue5D0(D~8w&n ~4 ^~@D~7&n ~4(&nw4D5D7>F (>N ^7 ~8w&n~4Oy8yf n ~v>r0 {Trɧɧv~f n >ɷ>AA_~A.݆o.gN(Ь|Q}tu"#x;~FpS;;w*B"w#x ~V0foЬ~#x y݆Q8>PgnЬ~ݾ #x ~ݾk0!Sxݖ8 ݆ofЬn;p*"!F(*"!&>݆oܫtu"|Q?}ݾ~|O}ogG T]))))))&~o:<2M:!~v(_́{ط(=?!_^́{ܩ-0"FRku!!~# CLEARQ@@'.n` (", 246 vt100.dat<IFD* This program selects correct VG 100 emulator. (VT100 and graphic)=P8* The emulator selected is written for an abc computer.Z?@d:* Version one: Written in November of 1983 by Malinowsky.(n#* Version two: Use parameter file.x"VG80 ABS""VG800M ABS""VG800C ABS""VG802 ABS""VG806 ABS""VGSBC ABS""VGF83@ ABS""VGHD83 ABS"" "" ""VG800M ABS"* The code starts here.-' * Specific value."ݵ ,6@3J+* If the file@ does not exist. T޸^h #޸"r |"+,~ Loader* Error routine.D?* If the file does not exist, do not use the parameter string. %3% ݵ,h* Do not use any file @data.FileAskRunTryWishedTypeCapitalAddressStartNullIpointerLkistListnamesInputProgramLkstListanswersAnswerMachineCorrespondingListmachinesLoadL|istLisatIdentityComputerLikstParameterDeregisterParamaterPara@meterfile ""&,i&'Y%%%yWishedTypeCapitalAddressStartNullIpointerLkistListnamesInputProgramLkstListanswersAnswerMachineCorrespondingListmachinesLoadL|istLisatIdentityComputerLikstParameterDeregisterParamaterParaP!P>'.nV (", 246 vt100.dat<>F9* This program selects correct VT 100 terminal emulator.=P8* The emulator selected is written for an abc computer.Z>d9* VersiPon one written in November of 1983 by Malinowsky.*n%* Version two: Use a parameter file.x"VT80 ABS""VT800M ABS""VT800C ABS""VT802 ABS""VT806 ABS""VTSBC ABS""VTF83 ABS"P"VTHD83 ABS"" "" ""VT800M ABS"* The code starts here.-' * Specific value."ݵ ,6@,J$* If there is no file.P T޸^h #޸"r |"+,~ Loader* Error routine.ID* If the error is because of there is no file, do not use the file. %3% ݵ,c* Do not use any file data.P=ProgramParameterDeregisterParameterfileIdentityComputer "B ,  Y!!%ytine.ID* If the error is because of there is no file, do not use the file. %3% ݵ,c* Do not use any file data.`g`a,E2-* Create a parameter file to vt100 emulator.* File looks like this:)$$* 256 bytes of diverse parameters.,.'* 256 bytes of size-of-key-sequences.883* 1024 bytes (maximum) bytes of key-seq`uence data.BL vt100.dat1V $ VT100 emulator. Set default values.:`/* Size of parameter file.9j.* Size of sequence table.2t$'* shift+control+PF5 ~`*;4+* Length of key-sequence.4D&* Key-sequence table. D * Main+fN N))0   `0: Save and quit. 1: Communication.( 2: Modes. 23: Key-sequences.*<8: Load old parameter file.%F9: List key-sequences.P I choose ;Z d n x`1 N2 N3 N8 N9 1Nr6@N [  A* ' Baud rate6. A 50 baud ` I 1200 baud6. B 75 baud J 1800 baud6". C 110 baud K 2400 baud6,. D 134.5 baud L 3600 baud66. E 150 baud M 4800 baud6@. ` F 200 baud N 9375 baud6J. G 300 baud O 10417 baud6T. H 600 baud P 19200 baud^$h Parity6r. E even parity O odd parity#| ` I ignore parity' Baud rate receive : a' transmit : k' auxiliary : u' Parity receive : ' transmit : ‰;a` ;k;u;_;G [/&** Store parameters into parameter string.0 :)$!D** Parameter string.N*(=“X*(=` b*(=§l*(=±v*(=a*(=k*(=u*(=*(=‰*(=» [+&* Return a valid baud rate parameter. _z  "` -ABCDEFGHIJKLMNOP݊    *4>* Return a "0" or a '1'.HRj"Qz \ f01݊ pz  FA* Return next character from keyboar` d. Letters will be capitals.~#Kz  a~ A a * Return a valid parity.  y!Rz   $ EOI݊ . S8 B  L V ` ` j * Set modes.t  ~ $  Modes:1 Keyboard click (0/1) : “1 Auto wrap mode (0/1) : 1 NewLine mode (0/1) : §1 Character set ` (0/1) : ±1 Visual attribute (0/1) : »  2;. 2; 2; 2; 2; [   ( * Input sequences of keys.2 < q%}`%& F |P Q$ Z +d N* New sequence. n *x [   %zy  N# Key to program is :; ;   ` (Key-board code)    *'z'&  New sequence is :  " , W$6 ǀ @ ǀ@N J T ^ h r |  f'W`& ޵ 5  6N ޜ [   W9+H' _@   [   T'E'(& ݵ'0 ݵޟ4 : `D N X Y''&q((((b ޵l v ݐݵ ޜdޜ  ޜL" DD D 4 4 [  ( T&'Dޜ`4 ! * Initiating key-sequences.  I)w'& ݵC 4޲* Length.! Dޜ(= * Data.  * ǀ 4 [> H R \ * Save in file.f  p *r z  ) !` Creating a VT100 parameter file. 1 # Device to store parameter file is  ޸ #޸,݂( #޸,** Put parameters. #޸, ݵ:4 #޸4 * Length of each key-sequence.  `#޸, #޸D2 & VT100 emulator. Parameters are saved. [$. 8V*8B)To quit, hit setup-key at first question..LTo end sequence, hit setup-key..VSetup-key is shift+contro`l+PF5.4`%Controls are represented as, example:!j control+X as '_X'!t control+W as '_W' ~[!* List sequences on screen.>Y+'z ! Start with key` :; "Step by pushing space-bar.   w  Key-code ;###; (:;2awN< Fޜ P Z d[nx$* Initiate default parameters.` +t 0 1 0 0 Na Nk Ku I I 0 ["1,Lz&y ,6'@ Load old VT100 parameter file.J9T+ Device to load old parameter` file from is ^h Loading.r޸ |#޸,݂ #޸*#޸,ݵݵ<  #޸  4/#޸,ݵA #޸`4$Dޜ4(=:&޸0:*D*N*X*b*al*kv*u*** [DeviceParameterfil`eRbaudBaudTbaudAbaudRparityParityTparityLisClickGet01AwmLnmCsetGetList330ParametersNullLsitIstAsxedHeadModesStoreVatPsizeKynKyaSequencesCodeGetcodeSetupkeyGetsequenceSqKyasizeGetsqPutkyaKeyEchoKpointSumIkpointLe`n1Pos1Len2Pos2KyamaxSqinitInitiateMainMenuSaveCommunicationSqhelptextSqoldEchSqlistParinitBsNlmLiarLoadp: Z$%)$)&*z45%DR%Ny[#a k!u2!b!!:""""$y 1(& aKeyEchoKpointSumIkpointLepo`p1 REM Ins{nd av Gunnar Larsson <4876>  1987-02-15 18.09.02 (SEND) 100 ! Program Utvidgad BASIC 101 ! (c) P U G programutveckling 102 ! Gunnar Larsson 103 ! Hagebygatan 163 104 ! 603 62 Norrk|ping 105 ! Tele 011- 14 29 65 106 ! Ver 2.07 107 ! 1987-02p-15 108 ! 109 ! H|r g{rna av er med kommentarer BUGGAR osv 110 ! 111 ! Provat p} ABC800/M, ABC802 112 ! F}r kopieras fritt f|r ICKE-komersiell anv{ndning 113 ! 114 INTEGER 115 EXTEND 116 Fil$='KEY.BAC' 117 Slask=FNPoke 118 Slask=CALL(32835) 119 ;p CHR$(12) 120 ; 'Skriv help s} f}r du KORTFATTADE instruktiner' 121 ; 'f|r mer omfattande information L[S filen PUG800.INF' 122 ; 123 ; 'EDITOR {ndrad : Krockar EJ med ABC-editor. VISA {r {ndrad' 124 ; 125 ; 'N}gra funktioner {r h{mtade fr}n PUL800 'p 126 ; ' ( RAD FIND INFO VISA )' 127 ; 128 INPUT 'Tryck p} RETN 'Svar$ 129 ON ERROR GOTO 131 130 CHAIN Fil$ 131 CHAIN 'NUL:' 132 END 133 DEF FNPoke 134 POKE 32835,195,11,142,195,0,0,195,0,0,195,0,0,195,0,0,195 135 POKE 32851,0,0,195,0,0,195,0,0,195p,0,0,195,0,0,243,245 136 POKE 32867,197,213,229,58,212,131,254,0,40,26,58,245,255,254,0,32 137 POKE 32883,34,17,242,255,33,200,127,205,162,128,54,46,205,161,128,54 138 POKE 32899,46,205,161,128,58,35,255,203,87,40,8,58,236,128,254,0 139 POKE 32915p,196,237,128,225,209,193,241,205,27,138,251,195,0,0,35,26 140 POKE 32931,19,14,255,12,214,10,48,251,71,121,198,48,119,35,120,198 141 POKE 32947,58,119,35,201,73,110,116,101,103,101,114,70,108,111,97,116 142  POKE 32963,32,32,78,111,32,101,120,116,1p01,110,100,83,105,110,103,108 143 POKE 32979,101,68,111,117,98,108,101,79,112,116,105,111,110,32,98,97 144 POKE 32995,115,101,32,68,105,103,105,116,115,0,17,128,127,253,203,29 145 POKE 33011,70,1,7,0,33,183,128,204,204,129,205,129,129,253,203,29 146p POKE 33027,78,1,9,0,33,208,129,204,217,129,205,129,129,253,203,30 147  POKE 33043,86,1,6,0,33,206,128,204,221,129,205,129,129,1,12,0 148 POKE 33059,33,218,128,237,176,253,126,34,254,2,212,241,129,48,4,246 149  POKE 33075,48,18,19,205,131,129,1,7,0p ,33,230,128,237,176,253,126 150 POKE 33091,31,254,100,212,240,129,48,10,111,38,0,62,255,8,175,205 151 POKE 33107,159,129,205,131,129,1,5,0,33,225,129,237,176,42,6,255 152 POKE 33123,237,75,10,255,167,237,66,242,115,129,42,14,255,167,237,66 153 POKp E 33139,167,1,32,0,237,66,8,205,140,129,205,131,129,201,237,176 154 POKE 33155,1,3,0,33,230,129,237,176,201,175,1,240,216,205,168,129 155 POKE 33171,1,24,252,205,168,129,1,156,255,205,168,129,1,246,255,205 156 POKE 33187,168,129,125,24,29,213,30,25p 5,28,167,237,74,56,250,237,66 157 POKE 33203,179,209,32,14,8,167,40,7,8,62,32,18,19,175,201,8 158 POKE 33219,175,201,246,48,18,19,62,48,201,33,190,128,201,32,69,120 159 POKE 33235,116,101,110,100,32,32,33,197,128,201,33,212,128,201,70,114 160 POKEp 33251,101,101,32,32,127,32,54,63,35,54,63,35,201,235,235,205 161 POKE 33267,236,129,235,201,0,0,208,21,13,130,55,130,143,130,0,0 162 POKE 33283,208,0,11,130,11,130,12,130,255,255,241,133,153,134,181,134 163 POKE 33299,243,134,67,135,129,135,191,135p ,253,135,243,133,43,134,69,134 164 POKE 33315,94,134,188,141,11,138,19,138,99,132,195,132,154,133,36,132 165 POKE 33331,213,131,185,131,128,80,82,79,67,129,87,65,73,84,130,77 166 POKE 33347,79,131,68,82,132,77,70,133,72,68,134,83,70,135,85,70 167 PpOKE 33363,68,136,76,91,83,137,67,76,83,138,67,76,82,139,68,69 168 POKE 33379,86,140,73,78,86,141,68,79,69,68,142,78,79,69,68,143 169  POKE 33395,82,65,68,144,70,73,78,68,145,86,73,83,65,146,73,78 170 POKE 33411,70,79,147,67,76,75,148,72,69,76,80,255p,185,130,185,130 171 POKE 33427,185,130,185,130,185,130,185,130,185,130,195,130,185,130,195,130 172 POKE 33443,195,130,195,130,195,130,195,130,195,130,195,130,190,130,185,130 173 POKE 33459,195,130,195,130,195,130,6,1,195,29,0,6,2,195,29,0 174  POKpE 33475,201,80,32,85,32,71,32,32,112,114,111,103,114,97,109,117 175  POKE 33491,116,118,101,99,107,108,105,110,103,46,13,10,13,10,78,121 176 POKE 33507,97,32,107,111,109,109,97,110,100,111,110,32,58,32,32,32 177 POKE 33523,32,32,32,80,82,79,67,44,87p,65,73,84,44,77,79,44 178 POKE 33539,68,82,44,77,70,44,72,68,44,13,10,32,32,32,32,32 179 POKE 33555,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32 180  POKE 33571,83,70,44,85,70,68,44,76,91,83,44,67,76,83,44,67 181 POKE 33587,76,82,44,68,69,86,44,p13,10,32,32,32,32,32,32,32 182 POKE 33603,32,32,32,32,32,32,32,32,32,32,32,32,32,32,73,78 183 POKE 33619,86,44,68,79,69,68,44,78,79,69,68,44,82,65,68,44 184  POKE 33635,70,73,78,68,44,13,10,32,32,32,32,32,32,32,32,32 185 POKE 33651,32,32,32,32,32,3p2,32,32,32,32,32,32,86,73,83,65 186 POKE 33667,44,73,78,70,79,44,67,76,75,44,72,69,76,80,13,10 187 POKE 33683,13,10,78,121,97,32,67,84,82,76,45,116,97,110,103,101 188 POKE 33699,110,116,101,114,32,58,32,81,44,65,44,90,44,87,44,83 189  POKE 33715,4p4,68,44,80,44,86,245,197,213,229,1,205,0,33,196,130 190 POKE 33731,205,11,0,1,40,0,33,145,131,205,11,0,225,209,193,241 191 POKE 33747,201,1,245,58,212,131,254,0,32,34,197,213,229,62,1,50 192 POKE 33763,212,131,33,128,127,17,129,127,1,80,0,54,32,237,p176,62 193 POKE 33779,6,211,56,62,25,211,57,225,209,193,241,201,175,50,212,131 194 POKE 33795,197,213,229,17,201,127,33,200,127,54,32,1,8,0,237,176 195 POKE 33811,58,236,128,254,1,40,224,62,6,211,56,62,24,211,57,24 196  POKE 33827,214,245,58,236,12p8,254,0,32,15,62,1,50,236,128,62,6 197 POKE 33843,211,56,62,25,211,57,241,201,197,213,229,62,0,50,236,128 198 POKE 33859,33,128,127,17,129,127,1,80,0,54,32,237,176,225,209,193 199 POKE 33875,241,201,65,110,116,97,108,32,114,97,100,101,114,32,61,32 2p00 POKE 33891,221,229,221,42,6,255,221,126,20,254,135,221,225,40,2,215 201 POKE 33907,202,229,197,213,245,33,85,132,1,14,0,205,70,128,213,205 202 POKE 33923,73,128,35,17,0,0,6,0,62,1,78,185,40,4,19,9 203  POKE 33939,24,248,225,235,175,8,205,140,1p29,205,164,132,241,209,193,225 204 POKE 33955,201,175,50,82,255,195,76,128,0,0,49,50,51,52,53,32 205 POKE 33971,32,32,0,0,225,209,193,241,215,209,225,209,193,241,215,221 206 POKE 33987,221,229,221,42,6,255,221,126,20,221,225,254,135,40,2,215 207 POpKE 34003,202,245,197,213,229,205,81,0,34,171,132,126,254,32,35,40 208 POKE 34019,250,35,35,35,35,126,254,32,35,40,250,43,126,254,39,40 209 POKE 34035,5,254,34,194,183,132,235,42,171,132,35,79,6,0,235,35 210 POKE 34051,126,254,13,40,20,185,40,5,4,18,p19,24,242,205,85,128 211 POKE 34067,126,185,40,244,254,13,194,189,132,197,205,164,132,205,73,128 212 POKE 34083,35,126,254,1,32,9,205,164,132,193,225,209,193,241,201,17 213 POKE 34099,188,140,35,34,152,133,43,50,150,133,205,79,128,33,188,140 214 POpKE 34115,14,255,62,32,237,177,205,82,128,229,42,171,132,35,235,225 215 POKE 34131,193,197,34,181,132,213,26,190,32,31,19,35,16,248,42,152 216 POKE 34147,133,126,35,102,111,17,173,132,62,255,8,205,140,129,1,8 217 POKE 34163,0,33,173,132,205,70,128,24p,12,42,181,132,35,126,254,13 218 POKE 34179,40,3,209,24,203,209,42,152,133,43,58,150,133,79,6,0 219 POKE 34195,9,24,142,0,0,0,0,231,245,197,213,229,205,164,132,229 220 POKE 34211,205,88,128,62,255,8,205,140,129,19,19,19,19,225,229,43 221 POKE 34227p,229,6,8,225,35,229,197,126,111,38,0,205,140,129,193,16 222 POKE 34243,242,225,225,19,19,19,62,62,18,19,6,8,126,230,127,254 223 POKE 34259,32,48,2,62,32,18,19,35,16,242,62,60,18,229,205,164 224  POKE 34275,132,205,91,128,225,254,32,40,182,225,209,19p3,241,201,231,201 225 POKE 34291,231,213,235,205,102,96,209,58,21,253,203,127,194,40,134,33 226 POKE 34307,0,245,1,0,0,126,254,32,242,17,134,62,32,119,230,127 227 POKE 34323,254,32,250,14,134,119,35,16,236,1,255,0,33,0,245,213 228 POKE 34339,205,11p,0,209,201,215,42,201,62,32,50,0,120,33,0,120 229 POKE 34355,213,17,1,120,1,255,7,237,176,209,175,50,82,255,50,83 230 POKE 34371,255,201,213,1,1,0,33,93,134,17,0,0,205,253,127,33 231 POKE 34387,0,0,1,0,128,205,253,127,209,201,0,213,229,197,42,123 2p 32 POKE 34403,255,34,130,134,35,35,126,254,32,202,129,134,250,129,134,1 233  POKE 34419,3,0,205,11,0,33,148,134,1,5,0,205,11,0,42,129 234  POKE 34435,134,125,254,0,194,100,134,124,254,0,194,100,134,193,225,209 235 POKE 34451,201,58,32,32,32,32,231,p!175,58,241,255,254,0,200,50,245 236 POKE 34467,255,58,244,255,79,124,181,200,58,244,255,185,40,247,79,43 237 POKE 34483,24,243,231,245,197,213,229,124,254,0,32,47,125,254,4,48 238 POKE 34499,42,62,6,50,115,136,1,15,0,237,67,200,136,62,1,50 239 POKEp" 34515,147,136,17,12,0,25,125,50,1,253,17,93,137,175,203,21 240 POKE 34531,25,94,35,86,235,1,6,0,205,82,136,225,209,193,241,201 241 POKE 34547,231,245,197,213,229,124,254,0,194,238,134,125,254,4,210,238 242 POKE 34563,134,1,15,0,237,67,200,136,125,p#50,1,253,237,75,107,96 243 POKE 34579,10,22,0,95,229,25,17,62,136,25,126,50,147,136,254,1 244 POKE 34595,40,4,62,14,24,2,62,6,50,115,136,225,17,93,137,175 245 POKE 34611,203,21,25,94,35,86,235,1,6,0,205,82,136,195,238,134 246 POKE 34627,231,245,197p$,213,229,124,254,0,194,238,134,125,254,4,210,238 247 POKE 34643,134,1,15,0,237,67,200,136,62,4,50,147,136,62,14,50 248 POKE 34659,115,136,17,8,0,25,125,50,1,253,17,93,137,175,203,21 249 POKE 34675,25,94,35,86,235,1,6,0,205,82,136,195,238,134,231,24p%5 250 POKE 34691,197,213,229,124,254,0,194,238,134,125,254,4,210,238,134,1 251 POKE 34707,15,0,237,67,200,136,62,32,50,147,136,62,14,50,115,136 252  POKE 34723,17,4,0,25,125,50,1,253,17,93,137,175,203,21,25,94 253 POKE 34739,35,86,235,1,6,0,205,82p&,136,195,238,134,231,245,197,213 254 POKE 34755,229,124,254,0,194,238,134,125,254,4,210,238,134,1,15,0 255 POKE 34771,237,67,200,136,62,4,50,147,136,62,14,50,115,136,17,16 256 POKE 34787,0,25,125,50,1,253,17,93,137,175,203,21,25,94,35,86 257 POKEp' 34803,235,1,6,0,205,82,136,195,238,134,245,197,213,229,58,249 258 POKE 34819,255,254,0,202,238,134,50,1,253,22,0,95,33,62,136,25 259 POKE 34835,126,50,147,136,254,1,40,4,62,14,24,2,62,6,50,115 260 POKE 34851,136,42,247,255,175,17,1,0,237,82,34,200,p(136,33,253,137 261 POKE 34867,1,6,0,205,82,136,195,238,134,13,10,1,1,1,1,32 262 POKE 34883,32,32,32,4,4,4,4,1,1,1,1,4,4,4,4,205 263 POKE 34899,11,0,58,84,255,254,40,194,105,136,62,39,50,12,137,60 264 POKE 34915,50,31,137,195,114,136,62,79,50,12,137p),61,50,31,137,17 265 POKE 34931,6,0,205,102,96,58,21,253,254,0,194,75,137,17,0,245 266 POKE 34947,33,0,0,26,254,255,40,15,6,8,203,39,56,6,197,1 267 POKE 34963,1,0,9,193,5,32,243,19,62,161,187,32,230,205,88,128 268  POKE 34979,205,140,129,62,13,50,p*82,255,33,182,136,1,17,0,205,11 269 POKE 34995,0,24,17,76,101,100,105,103,97,32,115,101,107,116,111,114 270 POKE 35011,101,114,13,10,33,15,0,6,8,197,35,229,235,205,102,96 271 POKE 35027,33,4,245,6,16,197,126,254,0,40,120,254,93,48,116,1 272 POKE 35p+043,8,0,205,11,0,229,33,3,138,1,1,0,205,11,0,1 273 POKE 35059,3,0,225,205,11,0,229,33,6,138,1,1,0,205,11,0 274 POKE 35075,225,17,5,0,25,58,82,255,254,39,194,27,137,229,33,6 275 POKE 35091,138,1,1,0,205,11,0,225,58,82,255,254,78,194,68,137 276 POKE p,35107,229,33,4,138,1,2,0,205,11,0,225,58,83,255,254,23 277 POKE 35123,194,27,137,205,2,0,254,32,202,27,137,193,225,193,195,75 278  POKE 35139,137,193,16,145,225,193,16,129,62,128,50,226,255,62,13,50 279 POKE 35155,227,255,201,17,16,0,25,195,27,137,1p-33,137,139,137,145,137 280 POKE 35171,151,137,157,137,163,137,169,137,175,137,205,137,211,137,217,137 281 POKE 35187,223,137,181,137,187,137,193,137,199,137,229,137,235,137,241,137 282 POKE 35203,247,137,68,114,48,58,32,32,68,114,49,58,32,32,68,114 p.283  POKE 35219,50,58,32,32,68,114,51,58,32,32,72,100,48,58,32,32 284 POKE 35235,72,100,49,58,32,32,72,100,50,58,32,32,72,100,51,58 285 POKE 35251,32,32,77,111,48,58,32,32,77,111,49,58,32,32,77,111 286 POKE 35267,50,58,32,32,77,111,51,58,32,32,77,p/102,48,58,32,32 287 POKE 35283,77,102,49,58,32,32,77,102,50,58,32,32,77,102,51,58 288  POKE 35299,32,32,83,102,48,58,32,32,83,102,49,58,32,32,83,102 289 POKE 35315,50,58,32,32,83,102,51,58,32,32,85,102,100,58,32,32 290 POKE 35331,46,13,10,32,48,48,p048,48,245,62,0,50,27,138,241,201 291 POKE 35347,245,62,201,50,27,138,241,201,0,245,197,213,229,33,227,255 292 POKE 35363,126,254,1,202,233,139,254,19,202,12,140,254,23,202,143,140 293 POKE 35379,254,26,202,164,140,254,17,202,217,139,254,22,202,113,1p139,254 294 POKE 35395,16,202,86,138,254,9,202,47,140,254,4,202,255,138,225,209 295  POKE 35411,193,241,201,54,0,43,54,128,58,82,255,254,0,202,194,138 296  POKE 35427,17,80,0,33,0,120,58,83,255,254,0,202,117,138,71,25 297 POKE 35443,16,253,58,82,255p2,254,0,202,129,138,71,35,16,253,35,205 298 POKE 35459,241,138,194,191,138,43,126,254,32,194,155,138,35,35,205,241 299  POKE 35475,138,194,191,138,43,195,137,138,87,54,32,35,126,95,35,205 300 POKE 35491,241,138,194,191,138,122,43,119,83,35,122,254,32p3,202,182,138 301 POKE 35507,195,159,138,126,254,32,202,191,138,195,160,138,195,81,138,58 302  POKE 35523,83,255,95,62,23,147,33,80,0,40,10,71,33,0,0,17 303 POKE 35539,80,0,25,16,253,229,193,33,47,127,17,127,127,237,184,205 304 POKE 35555,88,128,23p45,6,80,62,32,119,35,16,252,195,191,138,1,128 305 POKE 35571,128,175,229,9,125,225,208,254,0,200,60,201,54,0,43,54 306  POKE 35587,128,58,82,255,254,0,202,71,139,205,88,128,235,35,126,43 307 POKE 35603,119,254,32,194,35,139,35,205,241,138,194,68,139p5,195,16,139 308 POKE 35619,205,241,138,194,68,139,84,93,35,205,241,138,194,68,139,126 309 POKE 35635,18,254,32,202,60,139,195,35,139,35,126,254,32,43,194,35 310 POKE 35651,139,195,81,138,58,83,255,95,62,24,147,71,33,0,0,17 311 POKE 35667,80,0,25,16p6,253,229,205,88,128,33,80,0,25,193,237,176 312 POKE 35683,33,48,127,6,80,62,32,119,35,16,252,195,68,139,54,0 313 POKE 35699,43,54,128,33,0,120,213,17,80,0,197,58,83,255,254,0 314 POKE 35715,202,138,139,71,25,16,253,58,82,255,254,0,202,150,139,71 31p75 POKE 35731,35,16,253,34,215,139,193,209,42,145,255,34,213,139,33,176 316 POKE 35747,139,34,145,255,42,215,139,34,211,139,195,81,138,229,42,211 317 POKE 35763,139,126,35,34,211,139,225,254,32,192,229,42,211,139,126,254 318 POKE 35779,32,194,207,1p839,42,213,139,34,145,255,227,201,43,126,225,201 319 POKE 35795,0,0,0,0,0,0,54,0,43,54,128,33,82,255,54,0 320 POKE 35811,35,54,0,195,81,138,54,0,43,54,128,33,82,255,126,254 321 POKE 35827,0,202,252,139,61,119,195,81,138,35,126,254,0,202,81,138 322 Pp9OKE 35843,61,119,62,79,43,119,195,81,138,54,0,43,54,128,33,82 323 POKE 35859,255,126,254,79,202,31,140,60,119,195,81,138,35,126,254,23 324 POKE 35875,202,81,138,60,119,62,0,43,119,195,81,138,42,224,255,126 325 POKE 35891,254,13,194,81,138,33,227,25p:5,54,0,43,54,128,205,81,140 326 POKE 35907,254,0,194,81,138,33,82,255,126,60,119,195,81,138,33,0 327 POKE 35923,120,213,17,80,0,197,58,83,255,254,0,202,101,140,71,25 328 POKE 35939,16,253,58,82,255,254,0,202,113,140,71,35,16,253,126,254 329 POKE 35p;955,32,202,126,140,33,227,255,119,193,209,201,35,126,254,32,194 330 POKE 35971,138,140,62,0,195,119,140,43,126,195,119,140,54,0,43,54 331 POKE 35987,128,58,83,255,254,0,202,81,138,61,33,83,255,119,195,81 332 POKE 36003,138,54,0,43,54,128,33,83,255,1p<26,254,23,202,81,138,60 333 POKE 36019,119,195,81,138,0,0,0,0,0 334 POKE 36284,245,213,229,197,62,121,17,0,0,237,83,183,140,237,83,185 335 POKE 36300,140,50,187,140,1,255,0,17,188,140,42,183,140,205,253,127 336  POKE 36316,1,255,0,34,183,140,33,188p=,140,126,238,255,119,35,16,249 337  POKE 36332,1,255,0,237,91,185,140,33,188,140,205,253,127,237,83,185 338 POKE 36348,140,58,187,140,61,254,0,194,205,141,193,225,209,241,201,229 339 POKE 36364,33,11,142,34,12,255,34,48,255,42,125,255,34,247,129,33 p>340 POKE 36380,247,129,34,125,255,42,127,255,34,1,130,33,1,130,34,127 341 POKE 36396,255,42,214,255,34,159,128,33,97,128,34,214,255,205,43,134 342  POKE 36412,245,62,6,211,56,62,25,211,57,213,33,85,142,1,44,0 343 POKE 36428,17,138,127,237,176,209,2p?41,225,201,80,32,85,32,71,32,32 344 POKE 36444,112,114,111,103,114,97,109,117,116,118,101,99,107,108,105,110 345  POKE 36460,103,46,32,84,101,108,101,32,32,48,49,49,45,49,52,32 346 POKE 36476,50,57,32,54,53 347 A$='' 348 POKE VAROOT(A$),0,128,0,0,p@0,128 349 A=INSTR(1,A$,CHR$(221,229,221,33,76,255))-1 ! conwr 350  POKE 32839,A,SWAP%(A) 351 A=68 352 POKE 32842,A,SWAP%(A) 353 A=INSTR(1,A$,CHR$(58,83,255,60,254))-1 ! crlf2 354 POKE 32845,A,SWAP%(A) 355 A=INSTR(1,A$,CHR$(6,0,72,197,229))-1 ! pATillbaka 356 POKE 32848,A,SWAP%(A) 357 A=INSTR(1,A$,CHR$(43,35,126,254,32,40,250,167))-1 ! Skipspc 358 POKE 32851,A,SWAP%(A) 359 A=A+1 360 POKE 32854,A,SWAP%(A) 361 A=INSTR(1,A$,CHR$(58,82,255,221,190,8))-1 ! Curpos 362 POKE 32857,A,SWAP%(A) 36pB3 A=65424 ! Get tkn 364 POKE 32860,A,SWAP%(A) 365 A=INSTR(1,A$,CHR$(66,75,17,0,0,213))-4 ! S|krad 366 POKE 32863,A,SWAP%(A) 367 RETURN 0 368 FNEND >,SWAP%(A) 361 A=INSTR(1,A$,CHR$(58,82,255,221,190,8))-1 ! Curpos 362 POKE 32857,A,SWAP%(A) 36pC424 ! Get tkn 364 POKE 32860,A,SWAP%(A) 365 A=INSTR(1,A$,CHR$(66,75,17,0,0,213))-4 ! S|krad 366 POKE 32863,A,SWAP%(A) 367 RETURN 0 368 FNEND >,SWAP%(A) 361 A=INSTR(1,A$,CHR$(58,82,255,221,190,8))-1 ! Curpos 362 POKE 32857,A,SWAP%(A) 36  0 10 0NNKII 0    !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~xpush- time cc sc.c & a.out         !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~abcdefghss This is function keu PDF2. * * Document of abc806 emulating vt100 plus graphic. * * This is a short description of a vt100 emulator with * an extended command set. It has a number of graphic commands * added to its repertoairy, which makes it possible to draw * graphic as with an ordinary abc806. In some ways more. * The graphic commands follows the ANSI standard and are * a subset of the commands of the x35 terminal emulator. * * The coordinate system for these commands has its origo * at the lower left corner of screen. Screen width may * be 240, 256 or 512 pixels, depending on the number of * colours used at a time. Width 240 or 256 will give * sixteen colours and 512 four. The height always is 240 * lines. * * Graphic position may not be positioned outside screen. * * When drawing twice at the same coordinate, the last drawn * colour will overwrite previous colour. * * There is no connection between vt100 and graphic. They * are completely independent of each other. * *  Installation: * * CH.A: Connection to printer. * CH.B: Connection to host. * * Prom card 5122 or 5125: * * Card select of external prom card has to be two. * Setting any of the readable dips (card position 1B) 'ON' * will make the emulator read default parameters from * battery ram. * NOTE: The very first time, the contents of the battery * RAM will not be what it ought to be. To initiate, * hit function key which "resets to initial state", * wait for the signon and hit "menu"-key and answer * the questions. Once this is done, there is no need, * ever, to hit "menu" or "reset" key unless one wants * to change the answers. * * Soft-loaded: * * To start the emulator, type "run vg100" and hit return. * When the emulator starts it makes a little noice. If * a key is hit shortly after the noice, the menu will * appear. It will give a chance to specify things as * baud rate, parity,... * By using the program "run vt100fix", i t is possible to * set default values of the answers of the menu-questions. The * program stores the parameters in a file named "vt100.dat". * * Key-board: * * All key-boards known (abc55, abc77 and abc800) will do. * However, it is better to h ave a key-board with a key-pad. * * Function keys: * PF1 Arrow up. * PF2 - * PF3 Arrow left. * PF4 Arrow right. * PF5 Arrow down. * PF6 - * PF7 Escape key. * PF8 Activat e alternate key-pad. * Shift: * PF1 Vt100 f1. * PF2 Vt100 f2. * PF3 Vt100 f3. * PF4 Vt100 f4. * PF5 - * PF6 - * PF7 - * PF8 - * Control: * PF1 - * PF2 - * PF3 - * PF4 - * PF5 - * PF6 - * PF7 - * PF8 - * Shift and control: * PF1 Fetch menu (baud rate, parity,...). * PF2 Reset to initial state (default baud rate ,... * PF3 - * PF4 - * PF5 - * PF6 - * PF7 - * PF8 Hard copy. Time-out limit is sixty seconds. * * Pressing "alternate keypad"-key will cause next key hit * to be sent as if keypad application mode is set. * This is most useful when there is a keypad. To simulate * an alternate keypad key, do like this: * 1: Press PF8. * 2: Press key on keypad. * The emulator will transmit the second key hit as if it * was a keypad key. The code sent depends of the * POSITION of the key hit on keypad. Abc keypad "CE" * corresponds to vt100 keypad "-", abc keypad "-" to * vt100 keypad ",", "RETN" to "ENTER", "0" to "0", * "1" to "1",... * * Character set: * * There is room for two different character sets in any * of the abc computers. Usually there is only one. The * emulator accepts the ANSI shift-in and shift-out way to * select one of the character sets. The shift-in will choose * character set G0 and the shift-out character set G1. In * those cases when there is only one character set the * different abcs will not act the same way. Abc800 and * abc806 will display the same characters independent of * current character set. Abc802 will display the reversed * image of character set G0 when character set G1 is selected. * * * Emulation of vt100. * ========= == ===== * * * The emulator accepts and executes all sequences * mentioned in vt100 manual but those listed below. * * Sequences ignored: * * Modes: decanm ANSI/vt52 mode. (ANSI mode) * decarm Auto repeat mode. (Auto repeat) * decckm Cursor keys mode. (Transmit ANSI cursor) * deccolm Column mode. (Eighty characters width) * decinlm Interlaced mode. (As abc standard) * decsclm Scrolling mode. (Jump scroll) * decscnm Screen mode. (White text on dark back-ground) * * Attributes: * decdhl Double height line. * decdwl Double width line. * decswl Single width line (always this). * * Others: decid Identity terminal (Use ANSI Device Attributes). * decll Load leds. * decreptparm Report terminal parameters. * decreqtparm Request terminal parameters. * dectst Invoke self test. * * Extra ANSI escape sequences: * * mc Media copy. ESC[i * 0 Transfer screen contents. * 4 Turn off stream to auxiliary device. * 5 Turn on stream to auxiliary device. * * apc ESC_abcdnixESC\ This is a special sequence * which will stop the emulator and make it * jump to adress zero and start execute what * might be there, basic or, perhaps, a vt100 * emulator. Before doing this the emulator * will retransmit an OSC, operating system command. * * osc ESC]abc800mESC\ abc800monocrome * ESC]abc802ESC\ abc802 * ESC]abc806ESC\ abc806 * One of these sequences will be retransmit * when the emulator receives an APC with correct *  parameteter string. * * Extended parameter set of abc806: * * SGR (select graphic rendition) parameters. * * 0 Normal. (These are ANSI standard) * 1 Bold or increased intensity. * 4 Underline or underscore. * 5 Blinking. * 7 Reverse image. * * 8 Concealed. (Following are ISO 6429) * 30 Black display. * 31 Red display. * 32 Green display. * 33 Yellow display. * 34 Blue display. * 35 Magenta display. * 36 Cyan display. * 37 White display. * 38 (Reserved for future standardization.) * 39 (Reserved for future standardization.) * 40 Black background. * 41 Red background. * 42 Green background. * 43 Yellow background. * 44 Blue background. * 45 Magenta background. * 46 Cyan background. * 47 White background. * * * Graphic sequences: * ======= ========= * * * Draw line: ESC:;;;d * ---- ---- ------------------------------------- * * Draws a line from current graphic position to (x,y) with a * pattern determined by . If is * not specified, a contigous line is drawn. * * * Move graphic cursor: ESC:;m * ---- ------- ------ ------------ * * Positions graphic position at (x,y) * * * Draw point. ESC:;;;p * ---- ----- ----------------------------- * * Move graphic position to (x,y) and change pixel. * op equal to 0 or not spec ified will set the pixel. * op equal to 1 will clear the pixel. * op equal to 2 complements the pixel. * * op equal to 10 is a request to read colour of pixel. * at return: ESC:;;11;p Colour of pixel. * ESC:!;;11p Pixel outside screen. * op equal to 11 is reserved for the sequences above (op 10). * op equal to 12 is a request to read maximum X, Y and colour. * at return: ESC:;;13;p Maximum x,y and colour. * op equal" to 13 is reserceved for the sequence above (op 12). * * Requesting colour of pixel will not move active position. * * * Draw arc. ESC:;;;;a * ---- --- ---------------------------------------------- * * # Draws a circle arc with origo at (x,y) from current * graphic position counter-clockwise using the pattern * pattern-nr. If pattern-nr is omitted a contigous arc * will be drawn. * Length is meassured in vertical and horizontal pixel * step$s, ie a full circle is drawn when is equal * to eight times radius. * Arcs will be scaled, so that they will appear circular. * Widht 512 pixels: Delta Y will be multiplied by 5/8. * Width 240 or 256: Delta X will be multiplied by 4/5.% * * * Fill area. ESC:;;;f * ---- ---- -------------------------- * * Fill a rectangular area with one corner at current position * and the opposite corner at (x,y). Pattern and * colour . An omitted pattern& or a pattern equal * to zero, will fill the whole area. * * * Paint area. ESC:;;;F * ----- ---- -------------------------- * * Paint an area, starting at (x,y) in colour and * with pattern . * Pattern equal' to zero will paint the whole area, the * paint will "go around corners". * Pattern not equal to zero will paint the area using * the pattern. The paint will not "go around corners". * * * Define pattern. ESC:;;;;R (* ------ ------- ------------------------------------- * * Enters a description of a pattern into the pattern table. * defines a sixteen bit mask used repeatedly on a * scan line during fill or when drawing lines or arcs. * de)fines a sixteen bit vertical mask wherein each bit * determines operation on corresponding scan line. If a bit * is set, is used to fill the scan line, otherwise * is determines the operation. is used when * drawing lines, and is used when doing * filling or painting operations. * Pattern zero always is a pattern with only ones in * both and . * There is room for fifty independent patterns in the emulator. * It is not allowed to use und+efined pattern when drawing, painting,... * * op 0 Clear the line. Rotate bits. * 1 Set the line. Rotate bits. * 2 Use but complemented. Rotate... * 3 Leave line as it is. Rotate... * 4 ,Clear the line. Do not rotate. * 5 Set the line. Do not rotate. * 6 Use but complemented. Do not rotate. * 7 Leave the line as is. Do not rotate. * * can have values 0..15 * * Example: * Pattern 1: ESC:1;3855-;61680;0;2R is binary 0000111100001111 * is binary 1111000011110000 * is zero. * is two. * Pattern 2: ESC:2;255;65535.;1;0R is binary 0000000011111111 * is binary 1111111111111111 * is one. * is zero. * * A parameter value of zero may /be omitted. * * Drawing a line with pattern one might look as: * .... .... * .... * .... .... * .... * * Filling with pattern one might look as: * * 0 .... .... .... .... .. * .... .... .... .... .. * .... .... .... .... .. * .... .... .... .... .. * .... .... .... .... .... * .... .... .... .... .... * 1 .... .... .... .... .... * .... .... .... .... .... * .... .... .... .... .. * .... .... .... .... .. * .... .... .... .... .. * .... .... .... .... .. * 2* Filling with pattern two might look as: * ........ ........ ........ * ....... ........ ........ * ...... ........ ........ * ..... ........ ........ * .... ........ ...3..... * ... ........ ........ * .. ........ ........ * . ........ ........ * ........ ........ . * ........ ........ .. * * * * Extra. ESC:;;C * ----- ------------------- * * This is a multi-purpose command which sets things as * colour and width. The number of parameters may vary. * * op 1 Set colour. * ---- --- ------ * is index. * is colour of inde5x (or ). * * This command alters the contents of a table. The * colours, as they appear on the screen, will not change * until another command (see below), that will send the * contents of the table to har6dware, is sent. * Index ranges 0..3 when in 512 width mode, else 0..15 * Colour 0..7 will make text shown on graphic. * Colour 8..15 will make graphic shown on text. * * Example: FGCTL BLK+BLU+GRN+WHT * 7 BLK has index zero, BLU one,..,WHT three. * BLK is colour zero, BLU four, WHT seven. * * op 2 Specify active and shown picture. * ---- ------- ------ --- ----- ------- * is picture to draw in. * is pictur8e to display. * The number of pictures depends on the size of * the memory inside the abc806. It might be four * or sixteen pictures large. * * op 3 Set width of display. * ---- --- ----- -- ------- * is new 9width. 240,256 or 512. * Width 240 and 256 are equal, however width 240 * will add 8 to any x-coordinate. This is to be * abc800c compatible. * * op 4 Display colours of colour table. * ---- ------- ------- -- ------: ----- * * op 5 Set colour using "compatible mode". * ---- --- ------ ----- ---------- ---- * is "compatible colour value". See abc806 manual. * * This is it ! ..... ........ ........ * .... ........ ...; ----- * * op 5 Set colour using "compatible mode". * ---- --- ------ ----- ---------- ---- * is "compatible colour value". See abc806 manual. * * This is it ! ..... ........ ........ * .... ........ ... 1 REM Ins{nd av Daniel Deimert <5439> 1987-08-19 12.54.30 (KERMIT) 10 ! HAJEN2.BAS - f|r HELA ABC800-serien!!! 11 ! 12 ! ***************************************************************** 13 ! ** 14 ! ** Program: HAJEN2.BAC 15 ! ** Version: 1.0 16 ! ** Gjort av: Ok{nd. Programmet stod i en artikel i en 17 ! **  gammal tidning. N}got modifierat av mig. 18 ! ** 19 ! ** Inknappat & {ndrat av <5439> Daniel Deimert 20 ! ** 21 ! ** Inskickat av <5439> Daniel Deimert 22 ! ** 23 ! ****************************************************************** 24 ! ** 25 ! ** I sitt nuvarande skick {r programmet gjort f|r ABC806. 26 ! ** Det {r dock MYCKET l{tt att {ndra p}. Allt man beh|ver 27 ! ** g|ra {r att {ndra FGCTL-satsen p} rad 120 till ett tv}- 28 ! ** siffrigt tal (t.ex. FGCTL 3, se basicmanualen) ist{llet 29 ! ** f|r 806'ans f{rgkoder. Samt att {ndra konstanterna 30 ! ** Hd. och Vd. till |nskade v{rden. Hd.=Xmax, Vd.=Ymax. 31 ! ** S}lunda kan man {ven utan n}gra {ndringar konvertera 32 ! ** programmet till ABC802. Man f}r d} {ven {ndra FGPOINT 33 ! ** till SET DOT, samt konstanter, osv. 34 ! ** 35 ! ***************************************************************** 36 ! ** 37 ! ** Fr}gor och synpunkter p} och omkring programmet 38 ! ** l{mnas till: 39 ! ** 40 ! **  Daniel Deimert <5439> 41 ! ** Fridstav{gen 4 42 ! ** 715 00 Odensbacken 43 ! **  Telefon: 019/52031 44 ! ** 45 ! ****************************************************************** 46 ! ** 47 ! ** 100 SINGLE 110 EXTEND 120 FGCTL BLK+GRED+BLU+GGRN 130 FGPOINT 0,0,0 140 Hd=511 : Vd=239 150 FGFILL Hd,Vd 160 DIM D(Hd) 170 FOR A=0 TO Hd : D(A)=0 : NEXT A 180 C=1 190 K=Vd/2.3 200 ; CHR$(12); 210 ; DBLE "  HAJEN 2" ! min lillebror tyckte att figuren s}g ut som en haj, d{rav titeln. 220 ! --------------------------------------- Det egentliga programmet 230 Y=-15 240 FOR X=-10 TO 10 STEP 20/Hd 250 Z=SIN(X)*SIN(Y)/(X*Y) 260  Z=Z*K+C 270 IF Z-INT(Z)<.5 THEN 290 280 Z=Z+.5 290 IF Z<=D(Xp) THEN 320 300 D(Xp)=Z 310 FGPOINT Xp,Z,1 320 Xp=Xp+1 330 NEXT X 340 C=C+2 350 Y=Y+(10-Y)/10 360 IF Y>6.5 THEN 390 370 Xp=0 380 GOTO 240 390 GOTO 390 ! evighetsloop...tills man trycker CTRL-C >IF Z-INT(Z)<.5 THEN 290 280 Z=Z+.5 290 IF p) THEN 320 300 D(Xp)=Z 310 FGPOINT Xp,Z,1 320 Xp=Xp+1 330 NEXT X 340 C=C+2 350 Y=Y+(10-Y)/10 360 IF Y>6.5 THEN 390 370 Xp=0 380 GOTO 240 390 GOTO 390 ! evighetsloop...tills man trycker CTRL-C >IF Z-INT(Z)<.5 THEN 290 280 Z=Z+.5 290 IF 861@q ^ L  H a6 .n ", (23<.* Written in Novemeber of 1983 by Malinowsky.F)P$* Load and run an absolute program.Z_5,dYn Null:x0+* Function which loads and runs a program.!:!b! !!" "`!  +  +  ݍ ,$ That program did not exist. QProgramParameterDeregisterStartRunFileCodeCpointerFilenameFpointerNull "B ,  a"`!  +  +  ݍ ,$ That program did not exist. QProgramParameterDeregީ3ީ' ЁHITTADE EJ PROGRAMMET  ,  NUL:(2)<$********** FUNKTIONERNA ***********FPi  ) z yZ/d.݊ ABS.ޜn..ޟ%x *`!  +ީ!R!!!:ᖽީޟ  {- ENHETSROTEN+6-ݍߜ  -"-݊,6@J!zzPJ  "T޵^Zh.ra(= _ |ޜ ) 2) ** DESSA RADER F\RSVINNER D] **2) ** ASSEMBLER-PROGRAM LADDAS ! **2) 2) 2) 2) 2) 2) 2) 2) 2) 2)& 2)0 2): 2)D 2)N 2)X 2)b 2)l 2)v 2) 2) 2) 2) 2) 2) 2) 2) 2) 2) 2) 2) 2) 2) 2)  2) 2)  2)* 2)4 2)> 2)H 2)R 2)\ 2)f 2)p 2)z 2) 2) 2)  2) 2) 2) 2) 2) 2)  2) 2) 2) 2) 2) 2)  2) 2)$ 2). 2)8 2)B 2)L  2)V 2)` 2)j 2)t 2)~ 2)  2) 2) 2) 2) 2) 2) 2) ** ASSEMBLER-PROGRAM LADDAS ! **2) 2) 2) 2) 2) 2)  2) 2) 2)( 2)2 2)< 2)F  2)P 2)Z 2)d 2)n 2)x 2)  2) 2) 2) 2) 2) 2)  2) 2) 2) 2) 2) 2)  2) 2) 2) 2)" 2), 2)6 2)@ 2)J 2)T 2)^ 2)h 2)r 2)|  2) 2) 2) 2) 2) 2)  2) 2) 2) 2) 2) 2)  2) 2) 2) 2) 2)& 2)0  2): 2)D 2)N 2)X 2)b 2)l 2)v 2) 2) 2) 2) 2) 2) 2) 2) 2) 2fNamnDevSkrLaddakodExtTangtestDisknrDeviceDiskAdrVersalLoopReProgramParam!eterDeregisterJ"""," ) I J 2z 2) 2) 2fNamnDevSkrLaddakodExtTangtestDisknrDeviceDiskAdrVersalLoopReProgramParam `a6 WINDOW,;TERMINAL 1Ќ SCNET transfer protocol.( -Dž-2Dž,ݸ,ݸ<F P Z d ;2n*Terminalprogram skrivet av Bj|rn Linderson&xAnv{nder sig av Windows ABC800D<300/300 75/1200 1200/75 1200/2400/4800/9600 bps supportas$Logga fil / s{nda fil 1)SCOM Ver. 5.00 PF5 gives help page Ռ&$E$S$O޵4:V24:VEA50C99.22%:V24:VEA50C99.04JE%:V24:VEA50C99.40JA:V24:VEA50C99.44:V24:VEA50C99.55:V24:VEA50C99.66:V24:VEA50C99.77޵ZZ:޸޵`  ~",6@z _zJ޵f; ^#޸,fwފc=# hhrݸ| ) -} }ݖ #޸,}ݸ ;}݊5#,;$ #޸,ނ,#,; Rec chars :;;;޸ &!0 ƗN:— ǀ p)D#޸,—;ނN—; Xb !v#߸,;І;);Ё;;,#,; Send chars :;;;6ݸ }I$b CON:WND:01011378.OWND:16010736.O߸WND:16390740.Oงݸ  &!% *#߸,Ё; ;4#, ;+>#߸,Ѓ;System data information;Ё"H#, System control R#,"\ފ#߸, Local echo on#f݊#߸, Local echo off-pZފ"#߸, Current speed 300/300;-zZߊ"#߸, Current speed 75/1200;-Z"#߸, Current speed 1200/75;-Zኾ"#߸, Current speed 1200/1200;-Z⊾"#߸, Current speed 2400/2400;-Z㊾"#߸, Current speed 4800/4800;-Z䊾"#߸, Current speed 9600/9600;`ފ#߸, 8 ;`ߊ#߸,  7 ;#߸,4$#߸, Log file :;¯#߸, Xmit file :;¹0ފ#߸, Logg ON #߸, Logg OFF$.8BLV`jݸt~  $ — }} PF1} %PF4} JPF7} PF8} PF9} PF10} HPF11} :PF2} PF3 } ݂݂PF15} _PF14} PF5(}ǁ R STOP2} PF6<FPZd n$xݸ |q%a ZޜZ Z劾޵ZZ:(=4$Z:`J޸ݸ ?%$"ފݵ޵6ݸ@JT^ hj%O(r#,;#, Filnamn :;Ư|¯! !ݸ  ?'$ފݵ޵ݸ D&)&!ݵ 0DݸNXbl v1&w#޸,¹ x޵w#,, ߟ  ( ,#,; Send chars :;;; Z} , #޸,***MOXIE***KILL ݵw ݸ ta&YE. #,;#,Transfer file :;ƹ¹,*ݸ/4>HR \ZI'?f`ފߵ`޵`pZ:`J޸ݸq'' 8,縇9,( xSPR 8,븇9, 8,츇9, ݸ  $ .  8 |1(a B 4ޜ4L 4ኾ޵4V Z:(=4$` Z:`J޸t ݸ~     o))T* #,; Directory :;#, ߟ D ;DR0DR1DR2DR3HD0HD1HD2HD3MF0MF1MF2MF3MO0MO1MO2MO3SF0SF1SF2F3 o ࣵ}" }݊#,;;ݸ Drive :;;2  H Hard disk Floppy disk  ,} ݵ  f` ~  ( ޵鸼 # ./( @ `,,ޜ2 3 퐽 7 8  < F ,K #,;;Z d n x  *1 ;$Help page for SCOM Ver 5.00 terminal G ?PF1 Change baudrate PF2 Change bits/characterC ;PF3 Change parity PF4 Local echo on/off> 6PF5 Help page  PF6 Autocall TGC@ 8PF7 Open log file PF8 Close log file@ 8PF9 Transfer send file PF10 Name send fileD :;J #,#,T Yy^ #,;;h ݸi Dž,,j WND:r |    +# Cy ݸ    SmodReccharInsZkIkIstFindnetnodeInitcallTransferEndcallCloseupResetmodemRestartDelayOpenfXcBusyFailIcNocItAutiFileInitwindowInitwindExternInitscrnsSpeedLokal\ppnaSt{ngTransAngefLocalTsLoggLoggaDsBitsCursorMinneSl{cktParParitListHelpScharRcharAsDirectoryDirDrectoryCrFcursorLitLisLefQlHelppageStopexecCtrlcCurposAutocallPhoneTransfpA+ zy z$~4(:~J~Zq%`I'f w!,}y(&!$z(&&2'z)y*y yzy +rParitListHelpS c!  WND%CON%w ~= =(h=(s=(b/>47~ 2Y5~2Z:T2W~ 2T2[:2_~2!-:_2:W2T:Yw :Zw~݆_~݆WOSROSR~  (|=(G: (:57!R 0~ !w 4:w! :Tw>R !~7 *&B e*  B [*{B Q!@}(4^#VB ~#fo|###~#fo~#fo%B q#p*G"!" "0*"{>(7 N(x44x~#  (% (  (# (2X 964 5~=w 56 6+7#:R44x~# R(B! ^# V# S( =( ( 7Q={^wz^w 0{=)~ݾ64~=ݾw0SR V:Z_(2Z>2Y5SA}!>%:9(U (Q(< (8 (4( [ (S 80$w#!w>%} (>576 6 [x!>%+ 7>>w: O 8w+:Tw G08w݆0~݆06~N(O( M( )6:wGwwNV~#0WW~#0؂:Z2Z!= 2Z^nVRn ^Fzi0 ##{_VF{ݾ 0##z####zWxxxxxxxx FO!=!:' !+!+-+!+-hj*,lj.,) PzW,)BPGkb>56  ( 5#6  (G:Y5V^FN4&ȹ~ )0#!Zjb))))))x 8!8(-7B0%q#pAN#85yP (8A85w#P |N#F#^#V#z.)~ -8.Px0y0 (( 4!TY:':2[2|2 w8!a; !. #!< !  [ R!OE* R!pE!Op% #C*t " m"v"":'(!!l 3!3!3:2*P"*"G!& "*")#:Z< :T)> 82Z2`:O˿2O!L *@"!"@! "*{"!"{!  " "0%+ >Z6]T WINDOW finn s redan. bytes f|rbrukade. Det finns bytes kvar. WINDOW Ver 2.00 laddat. Av Kristoffer Eriksson, 1985 & 1988.WINDOW tar inga parametrar ut|ver CHAIN-kommando. Syntax: RUN WINDOW(,;CHAIN-fil 8(parametrar)) CON*{## #N#F~#fo7 ````%{ 8B{ 0w#>2K2Jw=+ ;7"H~ ( (,( #7 #~  7y2JɧQA~ 7,#7> # 7 &:K *H|( :J(8:h!i !9R>ONUL:PARM:Fil som chainas efter exekvering:PARM: 9,"QD###~ #^#V#K PY~#0 O( ~# 0^#V#0 0|eo}0| ^#V# 0 ^#V# 0 0 0 !! q#p##q#p"SCs* ù*[K{~#0 O( ~# 0^#V#0 0|eo}0| ^#V# 0 ^#V# 0 0 0 !!q#p##q#p"SCs*  ADV800.ABS 001000C73800FF2125C8CD30D2CD12CFCD17C8214AC7CD360010 00C73810EF30D2CD5100E5012300CD0500CD17C8E188001000C7 3820DF2BDFFE0D28E61151C7CD2300201401097A001000C73830 CFC7C511E7C7874F0600EB097E23666FEB7C001000C73840BFD5 C9219ED2CD30D218BF2020203E3E20D1001000C73850AF24854E 454487534C555487534C55884EA0001000C738609F415696534C 5B434B8B534C5B50508B53B8001000C738708F4C5B804E925354 41815390564953419016001000C738807F56495382568D5C5050 4E41445C528D5CBD001000C738906F5050445C52835C84555050 8654495454B5FF000101000000000000000000 001000C738A05F41865449548954418A494E568C58595AE40010 00C738B04F5A598E414E565B4E448E414E568F4B41A1001000C7 38C03F5354418F4B415391595A5A595893464CCA001000C738D0 2F594793464C5994524F95545B4E44955412001000C738E01F5B 4E974C5B53FF83CE92CE9BCEA3CEAB6F001000C738F00FCEB3CE 12CF29D2A9D1FBCFC2CE72D1D113001000C83700FFCDCEC977CC C1D01ECAE4CD04CCFACC0067001000C83710EFCD48CBA4CBB1C8 D5E52125C8010200CD60001000C83720DF0B00E1D1C90D0A0A0A 0A202020204164E0001000C83730CF76656E7475726520202020 202020202029FF000101000000000000000000 001000C83740BF20202038352D30382D30370D0A2020206D0010 00C83750AF202020206176205065746572205C686CC7001000C8 37609F606E20274D7220517765727479270D0ABE001000C83770 8F0A24AF01F0D8CD8EC80118FCCD8EC80102001000C837807F9C FFCD8EC801F6FFCD8EC87D180CD51E6B001000C837906FFF1C09 38FCED42B3D1C8F63012133E308C001000C837A05FC93AB4D226 006F444D2909290121DC0911001000C837B04FC9CDA8D079FE0F 200D78FEFFC2A3D1218D001000C837C03FE7C8CD30D2C921CBC8 18F70D0A44656E38001000C837D02F206B616E20647520696E74 65206C7B739DFF000101000000000000000000 001000C837E01F612E2E2E0D0A240D0A58595A207B7220750010 00C837F00F6D616769736B6120626F6B73747B766576001000C9 3600FF722E0D0A0A5069707069204C7D6E6773F4001000C93610 EF7472756D702D56617474656E66616C6C76001000C93620DF2E 0D0A0A547573656E206F636820656EAB001000C93630CF206E61 74742D4D617474612E0D0A0A56A0001000C93640BF7D6C6E6164 657220736B79722068656C35001000C93650AF6765646F6D6172 2E200D0A0A42657267CE001000C936609F767B67672D54727B64 6F7264204C61670A001000C936708F756 E2D4B6F727320466163 6B656C677DF9FF000101000000000000000000 001000C936807F6E672D447C736B616C6C652042656C7AEB0010 00C936906F656275622D4665746973636820417262C6001000C9 36A05F65747372756D2D4B72697374616C6C6B7E001000C936B0 4F756C656F7264200D0A0A0A2020202020 76001000C936C03F20 204D72205177657274790D0A243AB4D4001000C936D02FD2FE52 200F3A63E0FEFF200F3E54320ECC001000C936E01FDEC32BD021 F0C9CD30D2C92103CA18F70B001000C936F00F0D0A56696C6B65 6E20647C72723F3F3F21001000CA3500FF0D0A240D0A44752068 617220696E67652900100 0CA3510EF6E206E79636B656C2E2E2E 0D0A24CDA84EFF000101000000000000000000 001000CA3520DFD078FEFFC2A3D179FE07280BFE06281A720010 00CA3530CFFE082827C32BD03AB4D2FE3620F63E3792001000CA 3540BF3266DD2171CACD30D2C93AB4D2FE3F2086001000CA3550 AFE33E40329CDD21DECA18 EB3AB4D2FE40D6001000CA35609F20 D23E4132A2DD3E2432DBD82114CB1881001000CA35708FD50D0A 56656765746174696F6E656E20F5001000CA35807F7C70706172 20736967206F6368206475E5001000CA35906F2073657220696E 677D6E67656E207469EA001000CA35A05F6C6C20756E6465726A 6F7264697 36B202C001000CA35B04F666C6F64206E7B72206475 2076697361ECFF000101000000000000000000 001000CA35C03F7220646574206D616769736B61206772C50010 00CA35D02F61766B6F727365742E2E2E0D0A240D0A4B001000CA 35E01F456E20646F6C6420647C7272207C7070D6001000CA35F0 0F6E617220736967206E7B722064752076AE001000CB3400FF69 73617220647C736B616C6C656E2E2EF5001000CB3410EF2E0D0A 240D0A42656C7A6562756220622D001000CB3420DF656F726472 61722076616B7465726E616B001000CB3430CF2061747420666C 7974746120707D2073BD001000CB3440BF69672E2E2E0D0A24CD A8D079A7201A78AC001000CB3450AFFEFFC2A3D13ACACBA72007 3C32CACBC396FF000101000000000000000000 001000CB34609F2BD0216ECBCD30D2C92187CB18F70D0A860010 00CB34708F44656E207B7220726564616E20747B6ECB001000CB 34807F642E2E2E0D0A240D0A44656E206B616EB1001000CB3490 6F20647520696E746520747B6E64612E2E67001000CB34A05F2E 010A24CDA8D079A7201378FEFFC2A3CF001000CB34B04FD13ACA CBA7280EAF32CACBC32BD021CB9D001000CB34C03FCBCD30D2C9 21E9CB18F7000D0A44656E75001000CB34D02F206B616E206475 20696E746520736C7B9D001000CB34E01F636B612E2E2E0D0A24 0D0A44656E207BBD001000CB34F00F7220726564616E20736C7B 636B742E2EB4FF000101000000000000000000 001000CC3300FF2E0D0A242100001162E0017AE01AFEFE4E0010 00CC3310EF280FFE132007C50A06004F09C11303188B001000CC 3320DFECE5213ECCCD30D2E11192E0D5CD72C80B001000CC3330 CFEB3624E1CD30D22158CCCD30D2C90D0AE9001000CC3340BF0A 416E74616C207570706E7D64646120A3001000CC3350AF706F7B 6E673A20240D0A4D6178696D6121001000CC33609F6C7420616E 74616C20706F7B6E673A20B9001000CC33708F313331350D0A24 CDA8D078FEFFC2A3D1F5001000CC33807F79FE022818FE032835 FE05284BFE0928BC001000CC33906F5CA7CAF4CCFE01CACEC9C3 2BD03AB4D26BFF000101000000000000000000 001000CC33A05FFE51280BFE362803C3F5CD3E2318023E1F0010 00CC33B04F4F32B4D22106CDCD30D2CD12CFC93AB42F001000CC 33C03FD2FE2F200C3E3032B4D2CD2BD0CD12CFC7001000CC33D0 2FC92132CDCD30D2C93AB4D2FE2320F23EB2001000CC33E01F36 32B4D22153CDCD30D2C312CF2199CD29001000CC33F00FCD30D2 C9217EDFC348CB218BDFC377CC7D001000CD3200FF2191DFC377 CC0D0A5363687769736368EA001000CD3210EF2C206D61747461 6E20666C79676572209A001000CD3220DF69767B67206D656420 6469672E2E2E0D02001000CD3230CF0A240D0A44657420677D72 20696E7465A8FF000101000000000000000000 001000CD3240BF2061747420677C726120687B722E2E2E3E0010 00CD3250AF0D0A240D0A4E7B7220647520737B74747C001000CD 32609F65722064696720692074756E6E616E2088001000CD3270 8F627C726A61722064656E207D6B61206EDB001000CD32807F65 6420667C722076617474656E66616C22001000CD32906F6C6574 2E2E2E0D0A240D0A4E7B722064E0001000CD32A05F7520746974 7461722069206B7269737403001000CD32B04F616C6C6B756C61 6E2073657220647520D7001000CD32C03F657474206F72642C59 5A5A59582E0D0AE1001000CD32D02F243AB4D2FE33201D3E4232 54DD2114CE38FF000101000000000000000000 001000CD32E01FCD30D2C93AB4D2FE5B200A3E653245DED30010 00CD32F00F2152CE18EB21FCCDCD30D2C90D0A496E94001000CE 3100FF67656E74696E6720687B6E6465722E2EF4001000CE3110 EF2E0D0A240D0A42657267767B6767656E92001000CE3120DF20 7C70706E617220736967206E7B7220BB001000CE3130CF647520 757474616C617220646574206DE0001000CE3140BF616769736B 61206F726465742E2E2E0D45001000CE3150AF0A240D0A426F6B 68796C6C61207D6B65E8001000CE31609F72207D742073696461 6E206F6368206490001000CE31708F752073657220656E20647C 72722E2E2E40FF000101000000000000000000 001000CE31807F0D0A24CDA1C87EFEFFCABBCE32B4D2C3BA0010 00CE31906F12CFCDA1C80101000918EBCDA1C801025E001000CE 31A05F0018F5CDA1C801030018EDCDA1C8010487001000CE31B0 4F0018E5CDA1C801050018DD2179D2CD3097001000CE31C03FD2 C921DCCECD30D23AB4D2F53EFF32B40D001000CE31D02FD211F6 CECD5ACFF132B4D2C90D0A202066001000CE31E01F2044752062 7B7220707D20667C6C6A618E001000CE31F00F6E64653A0D240D 202020447520627B7237001000CF3000FF20696E746520707D20 6E7D676F742E0D6D001000CF3010EF0A243AB4D2FE134728163A CACBA7CACA8EFF000101000000000000000000 001000CF3020DFCF3A62E0FEFF2808473AB4D2B8C2CACF920010 00CF3030CF21B7D2010800CD0B003AB4D2874F060027001000CF 3040BF2155DB097E23666FCD30D2CD17C8CDA9C1001000CF3050 AFD12195CFCD30D211AFCF010000AFF5217A001000CF30609F62 E0097EFEFE28233AB4D2BE201AC5CD5A001000CF30708F17C8C1 C5CB212134E0097E23666FCDF3C5001000CF30807FCFCD30D2C1 F13CF50318D4F1A7EBCC30EF001000CF30906FD2CD17C8C90D0A 202020487B72206669E2001000CF30A05F6E6E7320667C6C6A61 6E64653A0D240D37001000CF30B04F202020487B722066696E6E 7320696E6731FF000101000000000000000000 001000CF30C03F656E74696E672E0D0A2421D2CFCD30D27F0010 00CF30D02F18BF0D0A4475206B616E20696E746520F1001000CF 30E01F73652069206D7C726B7265742E2E2E2440001000CF30F0 0F0D0A24F53E053252FFF1C9CDA8D078FE6B001000D02F00FFFF 283421B4D2BE20273A91E0FE09CA3CBF001000D02F10EFD03C32 91E0CBB979FE0920071143DBEDF6001000D02F20DF53D7DB0600 2162E00936FF216FD0180327001000D02F30CF2141D0CD30D2C9 2159D018F7218CD018B8001000D02F40BFF20D0A44656E206669 6E6E7320696E74C9001000D02F50AF6520687B722E0D0A240D0A 4475206861FCFF000101000000000000000000 001000D02F609F722064656E20726564616E2E0D0A240D690010 00D02F70 8F0A4F6B2E0D0A240D0A4475206861722078001000D0 2F807F64656E20696E74652E0D0A240D0A447540001000D02F90 6F206B616E20696E746520627B7261206D87001000D02FA05F65 722E2E2E0D0A241185DE2BDFCD23000A001000D02FB04F4F2179 E02009E67F4F06002162E009465E001000D02FC03FC9CDA8!D078 FEFFC2A3D179FE04281AFE74001000D02FD02F122803C375D13E FD3274E02134D1CD302A001000D02FE01FD23A91E03D3291E0C9 3EFD3266E03AB4C7001000D02FF00FD2FE31C22BD03E32324ADD 3E243227D719FF000101000000000000000000 001000D12E00FF2108D1CD30D218D90D0A567D6C6E6164430"010 00D12E10EF656E20666C797220756E64616E206465CF001000D1 2E20DF742068656C69676120766174746E657424001000D12E30 CF2E0D0A240D0A4B6C6972722C206465740D001000D12E40BF20 7B7220696E7465207661726A65206499001000D12E50AF616720 6D616E2068617220737C6E6465C5001000D1#2E609F7220656E20 6D696E677661732E2E2E0D11001000D12E708F0A24CDA8D078FE FF20293A91E03D3291DC001000D12E807FE00600CBB979FE0920 0E3AB4D2FE412037001000D12E906F07110CD9ED53D7DB2162E0 093AB4D27792FF000101000000000000000000 001000D12EA05FC32BD02177D0C333D02104D$2CD30D2CD7F0010 00D12EB04FF3CF11000001DED1C5CDA1C8C1197EFED4001000D1 2EC03FFF28056069CD30D20A03FE2420FA137B9B001000D12ED0 2FFE0620E42126D2CD30D2CD17C8C94E6F22001000D12EE01F72 722C24537C6465722C24567B737465AB001000D12EF00F722C24 5C737465722C245570702C24%4EFF001000D22D00FF65642C240D 0A2020204D7C6A6C69676160001000D22D10EF20727C72656C73 6572696B746E696E678F001000D22D20DF61723A0D0A24082024 CD04CCE1C303C199001000D22D30CFC5D5CD3FD27EFE24280218 F6D1C1C9E590FF000101000000000000000000 001000D22D40BF3A52FFF57EF&E24280923FE202804F13CEB0010 00D22D50AF18F1F14F3A54FF3DB9DC17C8E17EFE2408001000D2 2D609F281632B5D2E521B5D2010100CD0B00E13F001000D22D70 8F7E23FE20280218E5C90D0A4475206B616B001000D22D807F6E 20696E746520677D20692064656E2042001000D22D906F72696B 746E696E6765'6E2E0D0A240D0AB9001000D22DA05F4A61672066 7C7273747D7220696E74652C001000D22DB04F2E0D0A24130000 44752073747D722076C1001000D22DC03F696420656E206B7B6C 6C612E2052756E82001000D22DD02F746F6D6B72696E67206669 6E6E7320743DFF000101000000000000000000 001000D22DE01(F7B742076656765746174696F6E2E2469000010 00D22DF00F20656E206D79636B657420747B742076B9001000D3 2C00FF656765746174696F6E2E204C6A75736511001000D32C10 EF742074727B6E676572206B6E617070744F001000D32C20DF20 6967656E6F6D206C7C767665726B653A001000D32C30CF742E24 )707D20656E20737469672E20440F001000D32C40BF656E20666F 7274737B74746572206D6F57001000D32C50AF742053206F6368 205C2E24707D20656EEF001000D32C609F20737469672E204465 6E20666F7274738A001000D32C708F7B74746572206D6F74204E 206F63682092FF000101000000000000000000 0*01000D32C807F562E24707D20627C726A616E20617620550010 00D32C906F656E207374696720736F6D20666F7274F4001000D3 2CA05F737B74746572207C7374657275742E2442001000D32CB0 4F69206D7C726B6120736B6F67656E2E24A9001000D32CC03F69 206D7C726B6120736B6F67656E2E20A5001000D32+CD02F507D20 6574742074727B642073747D7215001000D32CE01F2064657420 58595A5A592E246920656EE9001000D32CF00F20676C7B6E7461 2E20536F6C656E206282001000D42B00FF727974657220696765 6E6F6D206C7C7653001000D42B10EF7665726B65742E24707D20 656E207C73D2FF00010100000000,0000000000 001000D42B20DF742D767B73746C696720737469672E24DE0010 00D42B30CF76696420736C7574657420617620656EEE001000D4 2B40BF20737469672E24707D20656E206B756C75001000D42B50 AF6C652E20487B722066696E6E7320656E85001000D42B609F20 67616D6D616C20667C7266616C6C6-507001000D42B708F6E2067 7261762E246920656E2064616C3D001000D42B807F2E24667261 6D667C7220647C7272656E03001000D42B906F2074696C6C2065 7474206C6974657420A4001000D42BA05F6875732E2469206861 6C6C656E2E204431001000D42BB04F65742066696E6E7320647C 7272617220EEFF00.0101000000000000000000 001000D42BC03F7D7420616C6C6120687D6C6C2E246920630010 00D42BD02F736F7672756D6D65742E2469206B7C6B1F001000D4 2BE01F65742E246920736B6166666572696574D8001000D42BF0 0F2E2476696420656E207472617070612E5E001000D52A00FF24 76696420656E20747/261707061207092001000D52A10EF7D2061 6E64726120767D6E696E67656E35001000D52A20DF2E24707D20 76696E64656E2E24707D2042001000D52A30CF656E20666C6F64 627B64642E20466C6FAC001000D52A40BF64656E20666C797465 72206C7D6E67733E001000D52A50AF616D7420667C7262692E24 707D020656EB3FF000101000000000000000000 001000D52A609F20666C6F64627B64642E20466C6F6465A20010 00D52A708F6E2072696E6E657220736E616262742EE4001000D5 2A807F2476696420737472616E64656E2E20467A001000D52A90 6F6C6F64656E2072696E6E657220616C6C19001000D52AA05F74 207361E6162626172652E247669642087001000D52AB04F737472 616E64656E2E20466C6F64656E05001000D52AC03F207C766572 677D722074696C6C20656E07001000D52AD02F20666F72732E24 6920656E206C7D6E6766001000D52AE01F73616D7420666C7974 616E646520666C1E001000D52AF00F6F642E2469206562E20736E 616262666C79FF000101000000000000000000 001000D62900FF7974616E646520666C6F642E246920658A0010 00D62910EF6E20666C6F642E2053747C6D6D656E2091001000D6 2920DF7B7220737461726B2E246920656E206666001000D62930 CF6F72732E20447520687C7220657474205E001000D629340BF73 7461726B7420627275732E24707D20D4001000D62950AF6B616E 74656E20707D20657474207661F2001000D629609F7474656E66 616C6C2E20447D6E657420D0001000D629708F7B72207C726F6E 6265647C76616E64658D001000D629807F2E24707D20656E207C 7070656E20706C7D001000D629906F61744732E24707D20656E20 6865642E241DFF000101000000000000000000 001000D629A05F6920656E207C6B656E2E247669642065500010 00D629B04F6E206272756E6E2E246920657474206B66001000D6 29C03F7B72722E24707D20656E20737472616ED9001000D629D0 2F642E240D4475207369747465722069205E0001000D629E01F65 6E20627D742E240D447520666C79743D001000D629F00F657220 6F6D6B72696E67206D69747420EC001000D72800FF7574652070 7D20656E20746A7B726E2ED5001000D72810EF24707D2064656E 207C73747261207374C5001000D72820DF72616E64656E2E2045 6E20767D6C6E61C70010060D72830CF6420626576616B61722069 6E677D6E6710FF000101000000000000000000 001000D72840BF656E2074696C6C20656E2067726F7474EB0010 00D72850AF612E246920656E2067726F7474612E200E001000D7 28609F487B722066696E6E7320656E20657669CA001000D72870 8F6720656C642E24766964720656E2062652B001000D728807F72 67767B67672E20456E20666C6F64207E001000D728906F72696E 6E6572206C7D6E6773616D742041001000D728A05F667C726269 2E24707D20656E20627261A6001000D728B04F6E7420736C7574 746E696E672E204E65EB001000D728C03F64616E667C72207269 6E6E6572280656E28001000D728D02F20666C6F6420736E616262 7420667C72D3FF000101000000000000000000 001000D728E01F62692E24707D20656E20666C6F64627B9F0010 00D728F00F64642E20466C6F64656E207374727C6DD0001000D8 2700FF6D617220736E6162627420667C72626919001000D82710 EF2E240D44975207B72206920656E206C618E001000D82720DF67 756E2E2056656765746174696F6E6513001000D82730CF6E207B 72206E7B726D6173742074726F20001000D82740BF7069736B2E 246920656E20756E646572A3001000D82750AF6A6F726469736B 20666C6F642E24692096001000D827609F656E20756E646572:6A 6F726469736B2027001000D827708F666C6F642E20507D20767B 6767656E2092FF000101000000000000000000 001000D827807F736974746572206661636B6C6F722E24EF0010 00D827906F6920656E2066756B74696720756E6465D2001000D8 27A05F726A6F726469736B20677D6E672E2050DF001000D827B;0 4F7D20767B6767656E20736974746572200A001000D827C03F66 61636B6C6F722E24692042656C7A65AF001000D827D02F627562 7320687D6C612E2056616B7465C7001000D827E01F722073707B 7272617220696E677D6E6757001000D827F00F656E2074696C20 656E2067726F747461E0001000D92600FF206C<7B6E6772652069 6E2E246920656E58001000D92610EF2067726F747461206D6564 2064756E6BD9FF000101000000000000000000 001000D92620DF656C74206C6A75732E204C6A75736574E80010 00D92630CF206B6F6D6D65722066727D6E20656E20A1001000D9 2640BF6B72697374616C6C6B756C61206920672=3001000D92650 AF726F7474616E73206D6974742E246920C4001000D926609F65 6E2067726F7474612E246920656E2052001000D926708F73746F 722067726F747473616C2E246913001000D926807F20656E206B 72617465722E204D616E2026001000D926906F6B616E20696E74 6520736520626F7474DB001000>D926A05F656E2E246920656E20 74756E6E656C2E65001000D926B04F2052756E746F6D2066696E 6E73206465CCFF000101000000000000000000 001000D926C03F7420626172612062657267767B6767610A0010 00D926D02F722E240D4475207472696C6C616465201B001000D9 26E01F6E6572206920656E20646?A75702062758B001000D926F0 0F6E6E2E2044657420677D7220696E74658D001000DA2500FF20 617474206B6C7B74747261207570700B001000DA2510EF2E2466 72616D667C7220706F7274656E04001000DA2520DF2074696C6C 206574742073746F727420BE001000DA2530CF736C6F74742E24 69206261647275@6D6DF9001000DA2540BF65742E24692068616C 6C656E2E20487B39001000DA2550AF722066696E6E7320656E20 7472617070EAFF000101000000000000000000 001000DA25609F612E24692073616C6F6E67656E2E24694E0010 00DA25708F206D617473616C656E2E2469206269627D001000DA 25807F6C6F74656AB65742E246C7B6E677374200D001000DA2590 6F6E657220692065747420746F726E2E2470001000DA25A05F6C 7B6E677374206E6572206920657474FE001000DA25B04F20746F 726E72756D2E24692061726265AC001000DA25C03F747372756D 6D65742E24692068616C6CFD001000DA25D02F656E20707D2061 6EB64726120767D6E69F0001000DA25E01F6E67656E2E24692065 747420736F7672BA001000DA25F00F756D2E246920667C72727D 6465742E248FFF000101000000000000000000 001000DB2400FF692065747420746F726E72756D2E246CCB0010 00DB2410EF7B6E6773742075707020692065747420C2001000DB 242C0DF746F726E2E2469206B7B6C6C6172656E02001000DB2430 CF2E246920657474206C6974657420727571001000DB2440BF6D 2E246920656E206D7C726B2067726F69001000DB2450AF747461 2E24BFD2EFD2EFD2EFD2EFD23363001000DB24609FD35BD383D3 B0D3B0D3B0D3C0D3B0D3B0A6001000DB24708FD3ECDD318D430D4 47D478D482D4A5D4CE86001000DB24807FD4DBD4E4D4F2D401D5 22D52DD55BD58181001000DB24906FD5ACD5D7D5F4D50DD62AD6 4DD682D695BEFF000101000000000000000000 001000DB24A05FD6A0D6A0D6A0D6A0D6A0D6A0D6ABD6B9D40010 00DB24B04FD6C5D6D3D6E8D611D753D777D7A7D7E49AE001000DB 24C03FD712D846D846D846D846D846D846D846BB001000DB24D0 2FD85ED890D8C9D80CD95ED95ED95ED95EFF001000DB24E01FD9 5ED96BD95ED95ED95ED97FD97FD97F28001000DB24F00FD9A4D9 A4D9A4D9D3D912DA37DA44DA637A001000DC2300FFDA6FDA7BDA DBD489DAA0DABADACADAE622001000DFC2310EFDAE6DAF4DA00DB 00DB0FDB0FDB26DB3225001000DC2320DFDBFFFFFF01FFFF02FF 05FFFFFF020100DD001000DC2330CFFFFFFF01050104FFFF03FF FF02FFFF030AFF000101000000000000000000 001000DC2340BF06FF0FFFFF05090711FFFFFF08FF06FF410010 00DC2350AFFF070AFF09FFFF060E0813GFFFFFFFF0B4C001000DC 23609F0CFFFF0DFFFFFFFFFFFF0BFFFFFFFF0B23001000DC2370 8F0EFF0CFFFF091B0D24FFFFFF110510FF8E001000DC23807FFF FFFF0FFFFFFF0FFF0612FFFFFFFF113C001000DC23906FFFFFFF FFFF0914FFFF15181316FFFFFF69001000DC23A05F14FFFFFFFF FF1714FFFFFF16FFFFFHFFF49001000DC23B04FFF14FFFFFF19FF FFFFFF1AFF18FFFF196D001000DC23C03FFFFFFF0E1FFF1CFFFF FF201B1DFFFFFF97001000DC23D02F211C1EFFFFFF221DFFFFFF 1B33FF20FF00FF000101000000000000000000 001000DC23E01FFF1C341F21FFFF1D352022FFFF1EFF215D0010 00DC23F00F23FFFFFFFFI22FFFFFFFFFF0E25FFFF2C99001000DD 2200FFFF2426FFFFFFFF2527FFFFFF2926FFFFDB001000DD2210 EFFFFF2AFFFFFFFF27FF28FFFFFFFFFF2B98001000DD2220DF2A FFFF27FF2928FFFF2E252DFFFFFFFF19001000DD2230CFFFFF2C FFFFFF2CFF2FFFFFFFFF2EFFFFA9001000DD2240BFFFFFFF2F31 FFFFFFFJF30FFFFFFFFFF31B5001000DD2250AFFFFFFF1FFFFF34 FFFF204B33FFFFFF2108001000DD22609F52FFFFFFFFFFFFFFFF FFFF3638FFFFFFB3001000DD22708FFF373AFF39FFFFFF3BFFFF FFFFFF3CFF16FF000101000000000000000000 001000DD22807F39FFFFFFFF3D38FFFFFFFF3AFFFFFF3E1B0010 00DD2290K6F3AFF3CFFFF3E3F3CFFFFFF3EFFFFFFFF63001000DD 22A05FFF3FFFFFFFFFFF40FFFFFFFFFFFF44FFB6001000DD22B0 4FFFFFFF45FF42FFFFFF434733FFFFFF427C001000DD22C03FFF FF49FFFF4444FFFFFFFFFFFF4546FF51001000DD22D02FFF4847 42FFFFFF47FF48FFFF4AFFFFFFA0001000DD22E01FFF49FFL34FF FFFFFF4C4BFFFFFF4C4D4EF2001000DD22F00FFFFFFF4C4CFFFF 4F504DFFFFFF51504D6A001000DE2100FFFFFFFFFFFF4E4FFFFF FFFFFFFF35FFFFC5001000DE2110EFFFFFFFFFFFFF54FFFF5256 53FF5C64FF05FF000101000000000000000000 001000DE2120DFFFFF56FFFF54585557FFFFFFFF56FFFFFA0M010 00DE2130CFFF56FFFF5AFFFFFFFFFFFF60FFFFFF585C001000DE 2140BFFF61FFFF5FFF5CFFFFFF5E5B5DFF54FF7D001000DE2150 AFFF5CFFFFFF5CFFFFFFFFFF5BFF60FFFF67001000DE21609FFF FFFFFF5F6259FFFFFFFF635AFFFFFFCC001000DE21708FFFFF60 FFFFFFFFFF61FFFFFFFF54FFFF08001000DEN21807FFFFF5BFFFF 804C414D5041804C414D811D001000DE21906F4E59434B454C81 4E5943824D415454412A001000DE21A05F824D4154835D524F52 835D524F844845C9001000DE21B04F4C49475456415454454E84 56415454450AFF000101000000000000000000 001000DE21C03F4E845641548554554E4E418O554554E86CA0010 00DE21D02F445C534B414C4C4586534B414C4C458624001000DE 21E01F534B4187475241564B4F5253874B4F5248001000DE21F0 0F53874B4F52884645544953434888464567001000DF2000FF54 894B52495354414C4C4B554C41894B44001000DF2010EF52498A 4B524F4E418A4B524F8B534BP5C9B001000DF2020DF4C448B534B 5C8C53565B52448C53565BCB001000DF2030CF8D444F4C4B8D44 4F4C8E4A5556454C457C001000DF2040BF528E4A55568F425245 568F4252459053DE001000DF2050AF504A55549053504A915B47 4792564153B6FF000101000000000000000000 001000DF20609F93464154945Q95841954252594E4A4195E40010 00DF20708F42525996414243383096414243FF4C61B9001000DF 20807F6D7061244E79636B656C244D61747461E3001000DF2090 6F245D726F722448656C69677420766174C0001000DF20A05F74 656E2454756E6E6124447C736B616C00001000DF20B04F6C6524 477261766B6FR72732446657469F0001000DF20C03F736368244B 72697374616C6C6B756C6155001000DF20D02F244B756E67616B 726F6E6124536B7C6CFF001000DF20E01F642453767B72642444 6F6C6B244A7576A9001000DF20F00F656C657224427265762453 706A757424B9FF000101000000000000000000 001000E01F00FSF47756C647B6767244B696E657369736B3A0010 00E01F10EF207661732453696C7665726661742459BB001000E0 1F20DF78612452696E676272796E6A61244142BA001000E01F30 CF433830247EDF84DF8BDF91DF96DFA4DF61001000E01F40BFAA DFB3DFBCDFC4DFD1DFDCDFE2DFE8DF4C001000E01F50AFEDDFF5 TDFFADF00E008E015E01FE023E038001000E01F609F2EE0134A64 2D002A5111324163311F1ECC001000E01F708F0C060325450E48 1265FE05030F0A040A79001000E01F807F0C0714C8AF0B0C09A5 080E968C460D10FE000200E01F906FFA00FA000000C73800FF00 FF00757424B9FF000101000000000000000000 0U31000E01F00FF47756C647B6767244B696E657369736B3A0010 00E01F10EF207661732453696C7665726661742459BB001000E0 1F20DF78612452696E676272796E6A61244142BA001000E01F30 CF433830247EDF84DF8BDF91DF96DFA4DF61001000E01F40BFAA DFB3DFBCDFC4DFD1DFDCDFE2DFE8DF4C001000E01VF50AFEDDFF5 DFFADF00E008E015E01FE023E038001000E01F609F2EE0134A64 2D002A5111324163311F1ECC001000E01F708F0C060325450E48 1265FE05030F0A040A79001000E01F807F0C0714C8AF0B0C09A5 080E968C460D10FE000200E01F906FFA00FA000000C73800FF00 FF00757424B9FF00010100000000W0000000000 000000000000FF47756C647B6767244B696E657369736B3A0010 00E01F10EF207661732453696C7665726661742459BB001000E0 1F20DF78612452696E676272796E6A61244142BA001000E01F30 CF433830247EDF84DF8BDF91DF96DFA4DF61001000E01F40BFAA DFB3DFBCDFC4DFD1DFDCDFE2DFE8DXF4C001000E01F50AFEDDFF5 DFFADF00E008E015E01FE023E038001000E01F609F2EE0134A64 2D002A5111324163311F1ECC001000E01F708F0C060325450E48 1265FE05030F0A040A79001000E01F807F0C0714C8AF0B0C09A5 080E968C460D10FE000200E01F906FFA00FA000000C73800FF00 FF00757424B9FF00Y0101000000000000000000 -15320 >08E015E01FE023E038001000E01F609F2EE0134A64 2D002A5111324163311F1ECC001000E01F708F0C060325450E48 1265FE05030F0A040A79001000E01F807F0C0714C8AF0B0C09A5 080E968C460D10FE000200E01F906FFA00FA000000C73800FF00 FF00757424B9FF00Z000000000000000 -15320 >08E015E01FE023E038001000E01F609F2EE0134A64 2D002A5111324163311F1ECC001000E01F708F0C060325450E48 1265FE05030F0A040A79001000E01F807F0C0714C8AF0B0C09A5 080E968C460D10FE000200E01F906FFA00FA000000C73800FF00 FF00757424B9FF001 ! Ins{nd av: Kristoffer Eriksson <5357> 1985-06-18 20.27.00 20 FLOAT : EXTEND 30 ! 40 ; '** ADVENTURE laddas! **' 50 ! CMDINT beh|vs n{r spelet avslutas: 60 Par$='CMDINT SYS'+CHR$(14%,255%,205%,27%,96%,208%,33%,0%,0%,201%) 70 Adr%=VARPTR(Par$) 80 Ec%=CALL(Adr%+11%,Adr%) 90 IF Ec%=0% THEN ; 'Fel vid laddning av CMDINT.SYS' : GOTO 160 100 ! 110 Par$='ADV800 ABS'+CHR$(14%,255%,205%,27%,96%,208%,33%,0%,0%,201%) 120 ! 255 {ndras till 29 om ABS-filen anropas fr}n RAM: 130 Ec%=CALL(Adr%+11%,Adr%) 140 IF Ec%=0% THEN ; 'Fel vid laddning av ADV800.ABS' : GOTO 160 150 Z%=CALL(Ec%) 160 END > 110 Par$='ADV800 ABS'+CHR$(14%,255%,205%,27%,96%,208%,33%,0%,0%,201%) 120 ! 255 {ndras till 29 om ABS-filen anropas fr}n RAM: 130 Ec%=CALL(Adr%+11%,Adr%) 1c%=0% THEN ; 'Fel vid laddning av ADV800.ABS' : GOTO 160 150 Z%=CALL(Ec%) 160 END > 110 Par$='ADV800 ABS'+CHR$(14%,255%,205%,27%,96%,208%,33%,0%,0%,201%) 120 ! 255 {ndras till 29 om ABS-filen anropas fr}n RAM: 130 Ec%=CALL(Adr%+11%,Adr%) 1!!1 REM Ins{nd av Kristoffer Eriksson <5357>  1986-05-01 00.35.34 20 ! ----------------------------------------------- 30 ! FIGITER Ver 1.00 - Figur-iteration (M|nster som upprepar sig sj{lva) 40 ! F|r ABC800, 806, 1600 med HR-grafik. 50 ! F}r kopie!ras fritt i icke-kommersiella syften. 60 !  70 ! Ver X.00 86-03-20 Av <5357> Kristoffer Eriksson. 80 ! Ver 1.00 86-04-30 Av <5357> Release. 90 ! ----------------------------------------------- 100 ! 110 ! Programmet ritar linjem|nster som i fler och! fler niv}er upprepar sig 120 ! i sig sj{lvt. Anta att du b|rjar med ett rakt streck. Dela strecket i 130 ! tre delar och byt ut den mittersta mot toppen av en triangel. Upprepa 140 ! nu detta f|rfarande med var och en av de fyra linjerna i d!en nya figuren. 150 ! Upprepa igen, osv. 160 !  170 ! Figurerna beh|ver inte n|dv{ndigtvis bygga p} trianglar, utan vilket 180 ! grundl{ggande m|nster som helst kan anv{ndas. Resultatet blir dock 190 ! b{st med m|nster vars sammanlagda vinklar !{r noll, men {ven andra 200 ! varianter kan ge intressanta resultat. 210 ! 220 ! Grundm|nstret beskrivs genom att dess vinklar anges. 230 ! 240 ! I levererat skick anv{nder programmet samma grundm|nster hela tiden, 250 ! men detta kan {ndras i va!riabeln M|nster$ i b|rjan av programmet. Om 260 ! man {ndrar till M|nster$="" kommer programmet att fr}ga om m|nstret. 270 !  280 ! Ska programmet k|ras p} ABC1600 m}ste n}gra {ndringar g|ras. Dessa finns 290 ! utm{rkta med kommentarer h{r i b|!rjan och i FNTagglinje och FNGcls. 300 ! 310 INTEGER : EXTEND 320 ! 330 ! ; CHR$(27)":1l"; : Abc=1600 ! S{tt portr{ttl{ge p} ABC1600 340 ! ; CHR$(27)":1h"; : ABC=1601 ! S{tt landskapsl{ge p} ABC1600 350 Cls$=CHR$(12) 360 ! Cls$=CLS ! F|r ABC16!00 370 IF Abc=0 THEN Abc=FNAbc 380 Z=FNInitgr 390 ! 400 ! ------- Genom att variera f|ljande variabler f}r man olika m|nster ------ 410 ! De flesta variabler kan st{llas till 9 f|r att ge fr}gor eller automatval. 420 ! Maxniv} = H|gsta antal m|nst! erniv}er. Beh|ver knappast |kas. 430 ! R{knemetod = 0 f|r snabb heltalsr{kning med m}nga avrundningsfel, 440 ! '       1 f|r flyttalsr{kning, 9 f|r automatval. 450 ! L{ngddelning = Minskning av linjernas l{ngd f|r varje ny bild. (9=auto) 460 ! ! L{ngd = Linjel{ngd (som potens av L{ngddelning f|r att bli j{mt delbar) 470 ! Vdelar = Enhet f|r vinklar i delar av en hel cirkel (360/Vdelar grader). 480 ! X0, Y0 = Startkoordinater. 490 ! M|nster$ = M|nsterbeskrivning. Varje siffra anger en vink! el. Siffran 5 500 ! '      motsvarar vinkeln 0, 6 ger +1 Vdelar, 4 ger -1 Vdelar osv. 510 ! '     Tom ger fr}ga. 520 ! 530 Maxniv}=20 540 R{knemetod=9 550 L{ngddelning=3 560 L{ngd=4 570 X0=0 580 Y0=1 590 Vdelar=6 ! 60 grader (2*PI/6 radian! er) 600 ! 610 M|nster$="636" : X0=0 : Y0=1 620 ! M|nster$="6446" 630 ! M|nster$="644466" : X0=0 : Y0=Ymax/5*4 640 ! M|nster$="6626" : X0=Xmax/3*2 : Y0=1 650 ! M|nster$="4844" : X0=0 : Y0=L{ngd*2 660 ! M|nster$="663366" : Vdelar=12 : X0=0 : Y0=1 ! 670 ! M|nster$="744447" : Vdelar=12 : X0=0 : Y0=1 680 ! M|nster$="84444448" : Vdelar=12 : X0=0 : Y0=1 690 ! M|nster$="8443448" : Vdelar=12 : X0=0 : Y0=1 700 Ettitaget=9 710 Paint=9 720 !  730 ! 740 ! --------------------- Fr}gor och automatval -----!------------------------ 750 WHILE Ettitaget=9 760  ; "Ska m|nstren skrivas ovanp} varandra (N/J) ? "; 770  Ettitaget=FNSvar("NJ")-2 780  IF Ettitaget=0 THEN Paint=0 790 WEND 800 ! 810 WHILE Paint=9 820  ; "Ska m|nstren fyllas med f{rg (N/J) ? "!; 830 Paint=1-FNSvar("NJ") 840 WEND 850 !  860 WHILE M|nster$="" 870 ON ERROR GOTO 870 : INPUT "M|nsterbeskrivning: "M|nster$ : ON ERROR GOTO 880 WEND 890 !  900 WHILE Vdelar<=0 910 ON ERROR GOTO 910 : INPUT "Grundvinkel (grader):"Vdelar 92!0 Vdelar=360/Vdelar : ON ERROR GOTO 930 WEND 940 !  950 WHILE L{ngd<=0 960  ON ERROR GOTO 960 : INPUT "Linjel{ngd:     "L{ngd : ON ERROR GOTO 970 WEND 980 ! 990 WHILE X0<0 OR Y0<0 1000  ON ERROR GOTO 1000 : INPUT "Startkoordinater (x,!y): "X0,Y0 1010 ON ERROR GOTO 1020 WEND 1030 ! 1040 IF R{knemetod=9 THEN R{knemetod=1-(Ettitaget=0) 1050 IF L{ngddelning=9 THEN L{ngddelning=LEN(M|nster$) 1060 ! 1070 ! --------- Utritning, med succesiv f|rminskning ------------------------- 1080! L{ngd=L{ngddelning^L{ngd 1090 F{rg=1 1100 WHILE L{ngd>0 1110 Z=FNSintab(Vdelar,L{ngd) 1120  IF R{knemetod AND 1 THEN Z=FNTagglinje(M|nster$,Vdelar,X0,Y0,L{ngd,F{rg) 1130 IF R{knemetod AND 2 THEN Z=FNTagglinje.(M|nster$,Vdelar,X0,Y0,L{ngd,F{rg) 114!0 WHILE Paint 1150   IF Z<0 THEN Z=0 ELSE IF Z>Ymax THEN Z=Ymax 1160   FGLINE Xmax,Z,F{rg 1170   FGPAINT Xmax/2,0,F{rg 1180  IF 0 WEND 1190 L{ngd=L{ngd/L{ngddelning 1200  F{rg=MOD(F{rg,Maxf{rg)+1 1210  ; Cls$; 1220 WHILE Ettitaget OR SYS!(5) ! SYS(5) kan ge problem p} {ldre BASIC-III 1230  ; "PF1 eller S=Avbryt, Annat=N{sta "; 1240   GET I$ 1250  IF INSTR(1,CHR$(192,27)+"Ss",I$) THEN 1290 1260  IF Ettitaget AND L{ngd>0 THEN Z=FNGcls 1270 IF 0 WEND 1280 WEND 1290 END 1300! ! 1310 ! ----------- Ritar det best{llda m|nstret. Snabb heltalsversion ---------- 1320 DEF FNTagglinje(M|nster$,Vdelar,X0,Y0,L{ngd,F) LOCAL X,Y,Niv},Gr{ns,Vrid,V 1330  Z=FNInittagglinje(Maxniv}) 1340  Niv}=1 1350 Gr{ns=LEN(M|nster$) 1360 X=X0! : Y=Y0 1370  FGPOINT X,Y,F 1380  WHILE 1 1390   X=X+Costab.(V) 1400  Y=Y+Sintab.(V) 1410   IF X>Xmax THEN RETURN Y 1420  IF Y>=0 AND Y<=Ymax THEN FGLINE X,Y,F 1430   ! 1440   Niv}=1 1450  WHILE R{knare(Niv})=Gr{ns 1460   R{knar!e(Niv})=0 1470    Niv}=Niv}+1 1480   WEND 1490   R{knare(Niv})=R{knare(Niv})+1 1500   Vrid=ASCII(MID$(M|nster$,R{knare(Niv}),1))-53 1510   V=MOD(V+Vrid,Vdelar) ! V+Vrid ska vara V+Vrid+Vdelar p} ABC1600 1520  WEND 1530 FNEND 1540 ! 1550! ! Flyttalsversion, l{mplig om f|rminskningar visas p} varandra 1560 DEF FNTagglinje.(M|nster$,Vdelar,X0,Y0,L{ngd,F) LOCAL X.,Y.,Niv},Gr{ns,Vrid,V 1570  Z=FNInittagglinje(Maxniv}) 1580  Niv}=1 1590 Gr{ns=LEN(M|nster$) 1600 X.=X0 : Y.=Y0 1610 FG!POINT X.,Y.,F 1620  WHILE 1 1630  X.=X.+Costab.(V) 1640  Y.=Y.+Sintab.(V) 1650   IF X.>Xmax THEN RETURN Y. 1660   IF Y.>=0. AND Y.<=Ymax THEN FGLINE X.,Y.,F 1670  !  1680  Niv}=1 1690   WHILE R{knare(Niv})=Gr{ns 1700   R{knare(Ni!v})=0 1710    Niv}=Niv}+1 1720   WEND  1730  R{knare(Niv})=R{knare(Niv})+1 1740   Vrid=ASCII(MID$(M|nster$,R{knare(Niv}),1))-53 1750  V=MOD(V+Vrid,Vdelar) ! V+Vrid ska vara V+Vrid+Vdelar p} ABC1600 1760  WEND 1770 FNEND 1780 ! 1790 DEF! FNInittagglinje(Max) LOCAL I 1800 DIM R{knare(1:Max) 1810  WHILE I="`" THEN RETURN CHR$(ASCII(S$)-32) ELSE RETURN S$ 2340 FNEND >; MID$(Alt$,P,1) : RETURN P ELSE 2280 2270  IF ERRCODE=53 THEN P=SYS(6) : !": GOTO 2250 2280  ; CHR$(7); 2290  WEND 2300 FNEND 2310 ! 2320 DEF FNCaps$(S$) 2330  IF S$>="`" THEN RETURN CHR$(ASCII(S$)-32) ELSE RETURN S$ 2340 FNEND >; MID$(Alt$,P,1) : RETURN P ELSE 2280 2270  IF ERRCODE=53 THEN P=SYS(6) : 1!1 Av: Peter \hl`n <4659> 1985-05-29 21.03.09 Beskrivning av spelet ADVENTUR. Spelet g}r ut p} att samla s} m}nga po{ng som m|jlig. (Orginellt va ?) Du f}r po{ng f|r alla saker som ligger utanf|r huset (d{r du b|rjar). Att h{mta saker {r dock inte s}1 l{tt. Dels finns det en massa klurigheter och dessutom {r inte alla f|rflyttningar logiska. Det {r allts} inte helt s{kert att du kommer tillbaka till samma plats om du g}r norrut och sedan s|derut. De kommandon som finns {r N,S,V,\,Upp, Ned,Inv,Nav,1Sta,Titta,Ta,Sl{pp,Anv{nd, Visa,Kasta,Slut N,S,V,\, F|rflyttningar Upp,Ned Inv Visar det du b{r. (Max.9 saker) Nav  M|jliga r|relseriktningar Sta  Antal po{ng Slut Visar po{ng och slutar Ut|ver detta finns ett antal kommandon som du f}r lista u1t sj{lv. F|r att k|ra spelet g|r du om filen adventur.hex till en .abs-fil med HEXTOFIL.BAS. Sedan skriver du BYE och starar spelet med ADVENTUR. * Adventure:t {r det f|r ABC80 i s{rklass st|rsta spelet i sitt slag:  102 st rum  23 saker 1 * STOR grotta, l{tt att g} vilse i. * En DJUP krater, svr} att ta sig up ur * Underjordiskt flodsystem, inte lika l{tt att g} vilse i. + mycket annat... Lycka till!!!  -Mr Qwerty- Ps. Skriv g{rna och ber{tta vad du tycker om spelet. Pps1. Om n}gon hittar n}n konstighet  -- skriv genast s} }tg{rdar jag det. >* Underjordiskt flodsystem, inte lika l{tt att g} vilse i. + mycket annat... Lycka till!!!  -Mr Qwerty- Ps. Skriv g{rna och ber{tta vad du tycker om spelet. Pps1gon hittar n}n konstighet  -- skriv genast s} }tg{rdar jag det. >* Underjordiskt flodsystem, inte lika l{tt att g} vilse i. + mycket annat... Lycka till!!!  -Mr Qwerty- Ps. Skriv g{rna och ber{tta vad du tycker om spelet. PpsAkA                                         ..   ...                                      AIMMYIAMMYYII..                                 A   AIHMMMHMIHMHYIIIIA                                   AIHPP/?/ /$$/PVYMJHIIA.                                 .AP//$ ? //$$/ ////VMMHIA.                  A              A///$/$??///$ //////?//VMHIA                               A///$/$/?//// / ////?///?/VHHA .                              A////$/$??/// ///////?//?//?VMMA .A                              ////$/$ ??/// //////?/////?//VMHIYM..                             A////$/AMMMMMMHHHA//?///?//?//.IYHMMMM.                           A .H////AMMMHHHMHMMMHHHA//?//?//?$VHHHYYI.                            AH//AMMHMHHMHMMMHHHHHHIY//?//?$//MHHHMHI.                             //AHMHMIIMHHIMMMHMYHMIIMI//?$///MMMHHIII      A                       /AHHIHMIHIHHHMMMMMHHHMHMMA/$///MMMMHMHII.                            .MMYYHIIHIIIIHMMMMMMMHHMMMMMM//HMMMHMHHII                       .AHHHHIMMMM:I::::IIMAMMMMYYMMMMMMMMHM/MMHHHMMH                       AIJMMH/I:MI""MM:..::;;AYMMMM:::MMMM/MMMYHIHHI..                     AMHIHIIMMHII I"MMM: .::I" MVA:::.MMMMMMYMMHIIIII/                   A  AIIHHHHMMMMMII "V.". ::;II;:::...MMMMMMMMMHHIIIII                     VIHHIHHMMMMMI' '..'  ::;;;::...:HMMMMMMMMMHHHIII.                        HHHHMMMMM'  ...   :::;;::::::VMMMMMHHMMHHIIIIIIIA                        HIHMMMMMMA   ..: ':::II::::::::MMMMMHHHHHIIHHHHH                        HHIHMMMMMM:  .::'":IYI:II::::::MMMMMMMHMMHHHHIII                        HHHA HHMMMMMA  :I.  .:::::JI::::IMIMHMMMHIHMMMIIII                         VHHIMMMMMMA ::YH""""'MP:::..:MMYMMMMMMHHMMHIIII                         HHHHIYMMMMMA ..VIPHHI".:::::AMMMMMMMMMHIMM:::..  A                   .:HMMMHYYHMMMVM$A.   "":::::::AMMMYYMMMMMMMMM::..:.                      HV AHMMHYMMA/VM/$:    ..::::IIMMMMMMMMMMMMVII:::.                      HHHHIHMMYYMM// A $$::..::::IIIIIIMMMMMMMMMMMIIII::::                          HHHM//HM$$ / M:::...::::IIIIYYYYYYHHIIIIII::::                       .:::YM//VSMX$$$ /II::...::::IIIII:.IIIII:::::::::         A           .:::.:::/Y/AX/////$MMIII:::IIIIIIIIII.I:::::::::::II                  .:...::::/VYX//////HH/HII:::.::::::::::..::::::::::III                 .....::::///////////II//IIIIII::.::::::::.::::::I:::AIII                .....:::I:///////////X///IIIIII:..::::::::..::::IH::::II                ..  ::::II//////////X////:::III:..::::::::..::::IM::::II                .. .:::IIIIII://////X////::::II:.::A:::::::..::::IM::::II                .. ...:::IIHIII:::"/////I::::::::::::::::::.::::IM:::::I                ....:::::IIIII::::..::://::::::::::::::::::..:::II::::::                .....::::IIII:::::.A.:::::::::..:::::.:::::::..::II::::::                ....::::IIIIM"::::..::::::::....:::....:::::..::II:..:::                :...:::::IIIM::::".:::::::::::........::::::..::HI:..:::                ::..A:::::::IM:::"..::::::::::::.......::::::. .:HMI:..::                ::.::::::::IMI::  ..:::::::::::::...:::::::.. ..VMI:..::                ::::::::::::II:    .:::::::::II::...::::::..  ...MI:..::      A          :::::::::::IH..    '::::::::IIII::...::::'   . ..MI:...:                :...::::::::M:'     '::::::IIIII::..:::::'  . . .VI::..:              .I...::::::::I:      . ::::IIIIIIIA:::::I:'.  . ..:V I:..::           .::::I..::::::::I:        .::IIIIHHHHHII:::    AMI .V  I:..::         .:::..:I:..:::::::II AI.   . .::IHHHI:II::'      "WV.V'  I:::::      .::.......I::::::A:::IHM.VMA...:AHIIHHHII::. ..  ..::..:V    ::::..     .:::........I::::::::IIIMMMMMMHHHHH....::III:::::::IIIIV     :::.::    .::::::::::..I:::::::::IIIMMMMMHHHHHHHHHIIIIHHHMMMHMMHHV      ::::.:   . :::::::::::::I::::::A:::IIAMMMMHHHHHHHHIIIIIIIHHHHHHHHV       ..:...  .: ...::::::::::I:::::::::II::VMMMMHHHHHHHIIIIIHHHHHHHHH"        ::...  ::. .::;;;;;::::I::.:::::III::IVMMMMMMMHHHHIIIIIIIHHHHV           ..:. .:::. ':::;;;::::I::..:A::::II:::::::VMMMMHHHHHHIIIHMMM"             .. :::::.    '::;;:::I...::::IIIIIIII::::VHMMMMHHHHIHMM"               '.. ::::::.     ':;;;::I:..::::IIIIM:::::::IIMMMMMMMMMM"                 .. A::::..:::.     ::::I. :::::III':::::IIHHMMMMMMMMM".                  ': :::...::::I::   "::I: .::::III.:::::IHHMMMMMMMMMV:.                   : :::....:::III:   ":I:. ::::III::::IIIHHHMMMMMMMV::: A                  : ::::...:::;IIIH    :I: ':::IIII:IIHHHMMMMMMHHHII:::                   ' ::::...::::;;IIM.:. I::..::::IIHHHHMMMMMMMHHHII:::: ::::...:::::;;IMMWHMI::..::::IIIHHHMMMMMHHHHII::::: :::::A...::::;IIHMMMMM::...::::IIHHHHHHHHHHHHII::::' :::::..;::::;;IIHMMMMM::...:::::YHHHHHMMMHHIII:::. :::::...::::;;IIHMMMMMI:...::::I :"""":::IIII:::: ::::::..::::;;;IIHMMMMM::..:::::I::::...   . .::' ':::::..::::;;;IIIHMMMVI:..:.:::I::::::;;A;;::::  '::::::::::;;;IIIIMMI::I::..::::I:::::::::::::   ::::::::::;;;;;IIMH;:::I::..:::I::::::::::::   ':::::::::;;;;;;IM;::::I:.:..::1I..::::::::'    :::::::::;;;;;;IM::::::I::...::I::::::::;'    ':::::::::;;;;IMI:::::::I.:..::.IA.:::::;;     ::::::::;;;;;IM;::.:::::II:.::..::::::;'     :::::::::;;;IIM::..:::::II:..::.I:::;;     ':::::::::;;IIM::...:::::II:..:.:;;;;'      :::::::::;;IH::...::::::III:..:.I;;V      '::::::::;;IH::...::::::;III.:::.AIV       :::::::::;IV::...::::::::III.:::I.       ':::::::;;H::...:::::::;;JI:..'::A        ;::::::;;I::....:::::::;;II...::.I        :::::::;H::....::::::::;;I:..:':::.         :::::;;I::...:::::::::;II:..':A:::I    .:::....                .         ::::::I::....:::::::::;I:....::I:I.:I:::I.::::::::::.  ..   .:I         ':::::I::..::::::::;;;I:'.::IIHI:I.:IIIIIIIIIIIIIII""/MMM-.:JIH         '::::I::...A:::::::::;;I":::IIVVI:I.HHI::::::II/MMMMMMMMMM..PPPP          ::::I::...::::::::;;;IY::IVMMA:::IH::IA:::AHHMMMVXXXXXVXXII:::          ::::I:'...:::::::::;;I::VMHHIII:"IH:?HHA:H//. XXXXXXX/"":I:::I          :::I::...:::A::::::;;".:/AI::HHHA.:H?HHHHH/$XX"$$XX.X//.AI:::::          :::I::...:::::::::;I:/AII:H"."."."?HHHHH/////$'////"///A::::::          .::I::..:::::::::;I./A":.:.".".".?HHHHHH//' " . :// //A"::::::          .::I::..:::A ::;;;;;./:::.".".".".??HHHH///'.. MI.//M/.AIIII::::          :::I::..:::::;;;;."::::."."."."?AHHHHH/////.  //AVHHII::::::::          :::II:.:::::;;;;;::-:"."."."./??HHHH/"'$/// '//MVH::::::::::::          ::::I:::::A!:;;III":::,:""-.///I?$ .  .$$M/////MM//I,:::::::::::          :;:;I,,,::;;IIII::::::::/.":::$$$$ $ $////AMM$/III.:::::::::::          :;;:;I:;IIIII:::::::/$::::$$/////$$XVMV"$$II..::::::::::::::::          :::;;;IIA"IIIIIIII,,,,,,/$.::://///AMM",,::$I:::::::::::::::::::          ':::;;I;;;IIIIII,,::,,/M,,::,:MMMMV,,,,,,:$$::::::::::::::::::           ::::;;I;;IIIIII,,,,,/$I,:,::::::,,,,,,,,/$:::::::::::::::::::           .:::;;;IA#I;;IIII:::II/II:::: ::::: ,,,,,,/$:::::::::::::::::::            :::::;;I:::II:.:::::I::IIII"II:"I,,,:,,/$:::::::::::::::::::            :::::;;II;;;;I..",,,M'":":$$$$$::YYII../$JJJ::::::::::::::::            ':A$:::;;II:::;I,,,,,IM,,,: $$$$$$I:::::::$::::YYHHHHHJJJ:::::             ::::;;III::;I:::::IM,,: $$$$$$/::::::::/:::::::::::::::YYMM             ':::;;IIII:I:::::MMMM://$ $$?$$$:::::::/:::::::::::::::::::         A%     ::;;;IIHH:I::::::XX"/////???$$$III::::/:::::::::::::::::::              :::;;;IHH:I::::::XX////$.....$$$IIII::/:::::::::::::::::::              ':::;;IHHHI::::::X////$$....XX$$IIIII/::::::;:;:;:::::::::     A&          ::;;;IHHHH::::::..///$$...XXXX$HIII:::;:;:;:;;:;:;:;:;:::               ':;;IIHHHI::::://   $$$..XX.XX$IIIXIII:;:;:;:;:;:;:;:;:;:                ::;;IHHHH:::://///$$$....XXXX$IIIII;:;:;:;:;:;:;:;:A';:;;:                ':;;IIHHH::://////$$$.......?$$HIIII;:;:;:;:;:;:;:;:;:;:                 ::;;IHHH::$/////$$$$........$$HIIII:;:;:;:;:;:;:;:;:;:;                 '::;IHHI:::////$$$$$......X.$$HIIA(I:;:;:;:;:;:;:;:;:;:;:                  ::;;IHH::::::/M$$$MMM...HHH$$HHI:;;;:;:;:;:;:;:;:;:;:;                  ':;;IHI::::;:;$$$$MM.X.XXXX$HHHHI:;:;:;:;:;:;:;:;:;:;:                   :::;HX:::A):I:I:::X.X....XXX$HHII:;:;:;:;:;:;:;:;:;:;:;                   ::::H:::::I:I::::::::;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:                   '::IH:::::I:I:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;            A*        ::.H::::I:I:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:                    :;IH::::II:I:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;                    ;;IH::::;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:A+;:                    I;IH:::::;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;                   .;:IH::::;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:                   ;::IH:::::;:;:;:;:;:;:;:;:A,;:;:;:;:;:;:;:;:;:;:;:;:;:;                 .;;::IH::::;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:                .;;::;IH:::::;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;              .:;;::;IIH::::;:;A-:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:            .;;;::::;IIH:::::;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;           .;;::;IH:::::;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;              .:;;::;IIH::::;:;A.;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:            .;;;::::;IIH:::::;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;           .;;::;IH:::::;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;:;              .:;;::;IIH::::;:;QQ8!%0!J680Q#8 + (Q#  z80LJO ~#fo|8@!0 >> 8P$NEDSLUTSLUN8`AVSL[CKSL[PPS8pL[NSTASVISA8VISV\PPNAD\R\8oPPD\R\UPPTITTQ8_ATITTAINVXYZ8OZYANV[NDANVKA8?STAKASYZZYXFL8/YGFLYROT[NDT8[NL[SΒΛΣΫo8γ)ҩr7wg7Hˤ˱!%`7 Ad70venture )Q7@ 85-08-07 m7P av Peter \hl7``n 'Mr Qwerty' 7p $͎͎7͎͎} k7o 8B0>07_:&oDM) )! 7Oͨy x£!7?0! Den87/ kan du inte l{sQ7a... $ XYZ {r u7magiska bokst{vev6r. Pippi L}ngs6trump-Vattenfallv6 . Tusen och en60 natt-Matta. V6@}lnader skyr hel56Pgedomar. Berg6`v{gg-Tr{dord Lag 6pun-Kors Fackelg}Q6ng-D|skalle Belz6oebub-Fetisch Arb6_etsrum-Kristallk~6Ouleord v6? Mr Qwerty $:6/R :c >T26+!0! 6 Vilken d|rr???!5 $ Du har inge)5n nyckel... $ͨNQ5 x£y( (r50('+:6 >75@2f!q0:? 5P>@2!:@5` >A2>$2!5p Vegetationen 5|ppar sig och du5o ser ing}ngen ti5_ll underjordisk ,5Oflod n{r du visaQ5?r det magiska gr5/avkorset... $ K5En dold d|rr |pp5nar sig n{r du v4isar d|skallen..4. $ Belzebub b-4 eordrar vakternak40 att flytta p} s4@ig... $ͨy x4P£:˧ <2ÖQ4`+!n0! 4pDen {r redan t{n4d... $ Den kan4o du inte t{nda..g4_. $ͨy x£4O:˧(2+!˝4?0! Denu4/ kan du inte sl{4cka... $ Den {4r redan sl{ckt..Q 3. $!bzN3(  O 3 !>0r 306$0!X0 3@ Antal uppn}dda 3Ppo{ng: $ Maxima!3`lt antal po{ng: 3p1315 $ͨx£3y((5(K (3o\+:kQ 3_Q( 6(>#>3OO2!0:/3?/ >02+3/!20:# >362!S0!)30!~H!w}2!w Schwisch2, mattan flyger 2 iv{g med dig... 20 $ Det g}r inteQ 2@ att g|ra h{r...>2P $ N{r du s{tt|2`er dig i tunnan 2pb|rjar den }ka n2ed f|r vattenfal"2olet... $ N{r d2_u tittar i krist2Oallkulan ser du 2?ett ord,YZZYX. 2/$:3 >B2T!8Q 20:[ >e2E2!R!0 In1genting h{nder..1. $ Bergv{ggen1 |ppnar sig n{r 10du uttalar det m1@agiska ordet... E1P $ Bokhylla }ke1`r }t sidan och d1pu ser en d|rr...@Q 1 $͡~ʻ2ú1o͡ ͡^1_͡͡1O͡!y01?!0:>2 1/Z2 f1 Du b{r p} f|lja1nde: $ Du b{r70 inte p} n}got. m0 $:G(:˧ʎQ0 :b(G:Ҹϒ00! :҇O'0@!U ~#fo0ͩ0P!0!z0`b ~(#:Ҿ Z0p!!4 ~#fo00<00o H{r fi0_nns f|ljande: $ 70O H{r finns ing1Q0?enting. $!00/ Du kan inte 0se i m|rkret...$@0 $>2Rͨxk/(4!Ҿ ': </<2˹y C/ S!b 6!o'/0!A0!Y!/@ Den finns int/Pe h{r. $ Du haQ/`r den redan. $ i/p Ok. $ Du har x/den inte. $ Du@/o kan inte b{ra m/_er... $+# /OO!y O!b F^/?ͨx£y(t//(u>2t!40*/:=2>2f:/1+>22J>$2'Q.!0 V}lnadC.en flyr undan de. t heliga vattnet$.0. $ Klirr, det .@ {r inte varje d.Pag man har s|nde.`r en mingvas... .p $ͨx ):=2.˹y :A 7.o S!b :wQ._+!w3!0.O͡~.?(`i0 $ {./ !&0No".rr,$S|der,$V{ste.r,$\ster,$Upp,$N-ed,$ M|jliga`- r|relseriktning- ar: $ $-0?~$(Q-@:R~$( # (<-PO:T=~$-`(2! ?-p~# ( Du kak-n inte g} i den B-oriktningen. $ -_Jag f|rst}r inte,-O. $Du st}r v-?id en k{lla. Run-/tomkring finns t=Q-{t vegetation.$i- en mycket t{t v,egetation. Ljuse,t tr{nger knapptO, igenom l|vverke:,0t.$p} en stig. D,@en forts{tter moW,Pt S och \.$p} en,` stig. Den forts,p{tter mot N och Q,V.$p} b|rjan av U,oen stig som fort,_s{tter |sterut.$B,Oi m|rka skogen.$,?i m|rka skogen. ,/P} ett tr{d st}r, det XYZZY.$i en, gl{nta. Solen b+ryter igenom l|vS+verket.$p} en |sQ+ t-v{stlig stig.$+0vid slutet av en+@ stig.$p} en kulu+Ple. H{r finns en+` gammal f|rfalle+pn grav.$i en dal=+.$framf|r d|rren+o till ett litet +_hus.$i hallen. D1+Oet finns d|rrar Q+?}t alla h}ll.$i c+/sovrummet.$i k|k+et.$i skafferiet+.$vid en trappa.^*$vid en trappa p*} andra v}ningen5* .$p} vinden.$p} B*0en flodb{dd. Flo*@den flyter l}ngs>*Pamt f|rbi.$p} enQ*` flodb{dd. Flode*pn rinner snabbt.*$vid stranden. Fz*oloden rinner all*_t snabbare.$vid *Ostranden. Floden*? |verg}r till en*/ fors.$i en l}ngf*samt flytande fl*od.$i en snabbflyQ)ytande flod.$i e)n flod. St|mmen ) {r stark.$i en ff)0ors. Du h|r ett ^)@starkt brus.$p} )Pkanten p} ett va)`ttenfall. D}net )p{r |ronbed|vande).$p} en |ppen pl})oats.$p} en hed.$Q)_i en |ken.$vid eP)On brunn.$i ett kf)?{rr.$p} en stran)/d.$ Du sitter i )en b}t.$ Du flyt=)er omkring mitt (ute p} en tj{rn.($p} den |stra st( randen. En v}lna(0d bevakar ing}ngQ(@en till en grott(Pa.$i en grotta. (`H{r finns en evi(pg eld.$vid en be+(rgv{gg. En flod ~(orinner l}ngsamt A(_f|rbi.$p} en bra(Ont sluttning. Ne(?danf|r rinner en((/ flod snabbt f|rQ(bi.$p} en flodb{(dd. Floden str|m'mar snabbt f|rbi'.$ Du {r i en la' gun. Vegetatione'0n {r n{rmast tro '@pisk.$i en under'Pjordisk flod.$i '`en underjordisk ''pflod. P} v{ggen Q'sitter facklor.$'oi en fuktig unde'_rjordisk g}ng. P'O} v{ggen sitter '?facklor.$i Belze'/bubs h}la. Vakte'r sp{rrar ing}ngW'en til en grotta& l{ngre in.$i enX& grotta med dunkQ& elt ljus. Ljuset&0 kommer fr}n en &@kristallkula i g#&Prottans mitt.$i &`en grotta.$i en R&pstor grottsal.$i& en krater. Man &&okan inte se bott&_en.$i en tunnel.e&O Runtom finns deQ&?t bara bergv{gga &/r.$ Du trillade &ner i en djup bu&nn. Det g}r inte% att kl{ttra upp %.$framf|r porten% till ett stort %0slott.$i badrumm%@et.$i hallen. H{9%Pr finns en trappQ %`a.$i salongen.$iN%p matsalen.$i bib}%loteket.$l{ngst %oner i ett torn.$p%_l{ngst ner i ett%O tornrum.$i arbe%?tsrummet.$i hall%/en p} andra v}ni%ngen.$i ett sovr%um.$i f|rr}det.$Q!$i ett tornrum.$l${ngst upp i ett $ torn.$i k{llaren$0.$i ett litet ruq$@m.$i en m|rk groi$Ptta.$3c$`[ӃӰӰӰӰӰ$p0GxԂԥΆ$"-[Ձ$oլ *Mւ֕Q"$_ֹ֠֠֠֠֠֠֫$OSwק$?FFFFFFF$/^ؐ ^^^^$^k^^^($٤٤٤7Dcz#o{ԉڠں"#&2%# #0 Q##@ A#P  L#` ##p  $#<#o i#_I#Om#? #/!"3 Q$#4!5 "!]##"%,"$&%')&"*'(+" *')(.%-"0,,/."@/101"P4 K3!"`R68"p7:9;<Q%"9=8:>"o:<>?<>c"_?@D"OEBCG3B|"?IDDEFQ"/HGBGHJ"I4LKLMN"LLOPMQPMj!NO5!TRVS\dQ&! VTXUWV!0VZ`X\!@a_\^[]T}!P\\[`g!`_bYcZ!p`aT![LAMPALAM!oNYCKELNYCMATTA*!_MAT]ROR]ROHE!OLIGTVATTENVATTE Q'!?NVATTUNNATUN!/D\SKALLESKALLE$!SKAGRAVKORSKORH!SKORFETISCHFEg TKRISTALLKULAKD RIKRONAKROSK\ LDSK\SV[RDSV[ 0ύDOLKDOLJUVELE| @RJUVBREVBRES PPJUTSPJ[GGVASQ( `FATYXABRYNJA pBRYABC80ABCLa mpa$Nyckel$Matta o$]ror$Heligt vat _ten$Tunna$D|skal Ole$Gravkors$Feti ?sch$KristallkulaU /$Kungakrona$Sk|l d$Sv{rd$Dolk$Juv eler$Brev$Spjut$Q)Guld{gg$Kinesisk: vas$Silverfat$Y xa$Ringbrynja$AB0C80$~߄ߋߑߖߤa@߳߼LP#8`.Jd-*Q2Ac1p %EHe  y ȯ F o8ut$Q*Guld{gg$Kinesisk: vas$Silverfat$Y xa$Ringbrynja$AB0C80$~߄ߋߑߖߤa@߳߼LP#8`.Jd-*Q2Ac1p %EHe  y ȯ F o8ut$Q+Guld{gg$Kinesisk: vas$Silverfat$Y xa$Ringbrynja$AB0C80$~߄ߋߑߖߤa@߳߼LP#8`.Jd-*Q2Ac1p %EHe  y ȯ F o8ut$aOEa100 REM Ins{nt av 4443 110 ! ++++++++++++++++++++++++++++++++++ 120 ! Program....  LINDAPIC.800 130 ! Datum......  83-12-02 140 ! Programmering. Jan Gustafsson 150 ! Medl......  4443 160 ! 170 ! Programmet avsett f|r ABC800C + HR 180 ! 190 ! aP} sk{rmen ritas en l{cker tjej med 200 ! namnet Linda. 210 ! Jag har ritat henne med hj{lp av 220 ! GRAFIK 800C och d{refter 230 ! kompilerat bilden till basic. 240 ! 250 ! L]T DITT \GA FR\JDAS 260 ! 270 ! Ins{nt av Jan Gustafsson, ]LAND 280 ! Medla. nr. 4443 290 ! +++++++++++++++++++++++++++++++++ 300 EXTEND 310 REM ****************************** 320 REM ****** F[RGK 330 REM 340 DEF FNF{rgk(Trx,Try,Scale,Rot) LOCAL Tm0,Tm1,Tm2,Tm3,Tm4,Tm5 350 Tm0=T0 : Tm1=T1 : Tm2=T2 : Tm3=T3 : Tm4=T4 : Tm5=Ta5 360 T2=Trx*T0+T2 370  T5=Try*T4+T5 380 T0=T0*Scale : T4=T4*Scale 390 REM -- 1 400 REM -- 4 410 FGCTL (9) 420 REM -- 6 430 T0=Tm0 : T1=Tm1 : T2=Tm2 : T3=Tm3 : T4=Tm4 : T5=Tm5 440 RETURN -1 450 aFNEND 460 REM ****************************** 470 REM ****** \DEL 480 REM 490 DEF FN\del(Trx,Try,Scale,Rot) LOCAL Tm0,Tm1,Tm2,Tm3,Tm4,Tm5 500 Tm0=T0 : Tm1=T1 : Tm2=T2 : Tm3=T3 : Tm4=T4 : Tm5=T5 510 T2=Trx*T0+T2 520 T5=Try*T4+T5 530 T0=T0*Scale : aT4=T4*Scale 540 REM -- 1 550 REM -- 4 560 RESTORE 570 : Z=FNShapeinter(3) 570  DATA 0,1001,-2,1,-2,32,-1,33,-1,36,0,37,0,39,1,40, 580 DATA 0,41,0,42,-2,44,-2,45,-3,46,-3,47,-4,48,-4,51, 590  DATA -5,52,a-5,55,-4,56,-4,58,-3,59,-3,60,-2,60,-2,61, 600 DATA -1,62,-1,63,1,65,1,66,2,66,2,67,11,76,0,1000 610  REM -- 50 620 RESTORE 630 : Z=FNShapeinter(2) 630 DATA 0,1001,11,76,11,77,10,77,10,79,9,79,9,82,8,83, 640 DATA 8,89,7a,90,7,92,6,93,6,94,5,95,5,96,6,97, 650 DATA 6,99,7,99,7,103,4,106,4,111,5,112,5,115,6,116, 660 DATA 6,119,7,120,7,121,8,122,8,124,7,125,7,127,8,128, 670 DATA 9,128,10,129,11,129,11,133,10,134,10,135,9,136,9,140, 680 DATA 10,141,10,143,11,144,11,145a ,16,150,16,153,17,154,17,155, 690 DATA 18,155,21,158,22,158,22,159,25,162,26,162,27,163,28,163, 700 DATA 29,164,31,164,32,165,33,165,34,166,37,166,38,167,40,167, 710 DATA 41,168,43,168,44,169,60,169,61,168,63,168,64,167,67,167, 720 DATA 68,166,70,a 166,71,165,72,165,73,164,74,164,75,163,76,163, 730 DATA 77,162,78,162,79,161,80,161,80,160,81,159,81,158,82,157, 740 DATA 82,156,81,155,81,154,80,153,79,153,79,152,78,151,78,144, 750 DATA 79,143,79,142,80,141,80,140,81,139,81,137,82,136,82,131, 760 a DATA 81,130,81,129,82,128,82,126,81,125,81,124,80,123,80,122, 770 DATA 79,121,79,117,78,116,78,115,77,115,77,114,74,111,0,1000 780  REM -- 157 790 RESTORE 800 : Z=FNShapeinter(3) 800 DATA 0,1001,74,111,74,110,75,109,7a 5,108,77,106,77,104,78,103, 810 DATA 78,102,79,101,79,100,80,99,80,91,81,90,81,83,80,82, 820 DATA 80,76,79,75,79,71,78,70,78,67,77,66,77,65,76,64, 830 DATA 76,62,75,61,75,51,74,50,74,46,73,46,73,43,72,42, 840  DATA 72,39,71,38,71,36,70,35,70,34,69,a 33,69,32,68,31, 850 DATA 68,30,67,29,67,28,66,27,66,24,65,24,65,4,66,4, 860 DATA 66,1,0,1000 870 REM -- 221 880 RESTORE 890 : Z=FNShapeinter(3) 890 DATA 0,1001,15,50,15,57,16,57,16,60,17,61,17,62,18,63, 900 DATA 18,a64,19,64,19,65,18,65,19,65,22,68,22,70,23,70, 910 DATA 23,71,24,71,24,72,34,82,0,1001,15,49,15,47,16,46, 920  DATA 16,44,17,43,17,42,19,40,19,39,21,37,21,36,22,36, 930 DATA 22,35,23,35,24,34,25,34,26,33,35,33,36,34,37,34, 940 DATA 38,35,0,1000 950a REM -- 289 960 RESTORE 970 : Z=FNShapeinter(3) 970 DATA 0,1001,47,36,45,34,45,33,44,33,44,32,40,28,40,27, 980 DATA 34,21,34,20,31,17,31,16,30,15,30,14,17,1,0,1001,47,44, 990 DATA 47,45,48,46,48,70,49,71,49,85,50,86,50,a103,51,104, 1000 DATA 51,105,0,1000 1010 REM -- 367 1020 FGPOINT -1*T0+0*T1+T2,-1*T3+0*T4+T5,2 1030 FGLINE 5*T0+0*T1+T2,5*T3+0*T4+T5,2 1040 REM -- 373 1050 FGPOINT 7*T0+0*T1+T2,7*T3+0*T4+T5a,2 1060 FGLINE 16*T0+0*T1+T2,16*T3+0*T4+T5,2 1070 REM -- 379 1080 FGPOINT 18*T0+0*T1+T2,18*T3+0*T4+T5,2 1090 FGLINE 40*T0+0*T1+T2,40*T3+0*T4+T5,2 1100 REM -- 385 1110 FGPOINT 42*T0+0*T1+T2a,42*T3+0*T4+T5,2 1120 FGLINE 42*T0+0*T1+T2,42*T3+0*T4+T5,2 1130 REM -- 391 1140 FGPOINT 42*T0+0*T1+T2,42*T3+0*T4+T5,2 1150 FGLINE 42*T0+0*T1+T2,42*T3+0*T4+T5,2 1160 REM -- 397 1170 FGPOINTa 42*T0+0*T1+T2,42*T3+0*T4+T5,2 1180 FGLINE 65*T0+0*T1+T2,65*T3+0*T4+T5,2 1190 REM -- 403 1200 RESTORE 1210 : Z=FNShapeinter(3) 1210 DATA 0,1001,77,105,77,106,75,108,75,110,74,110,74,111,72,113, 1220 DATA 71,113,70,11a4,69,114,69,115,67,115,66,116,63,116,62,115, 1230 DATA 60,115,58,113,57,113,57,112,56,112,54,110,54,109,51,106, 1240 DATA 51,105,51,106,46,106,40,112,40,114,39,114,39,113,38,113, 1250 DATA 38,118,36,120,42,126,42,127,43,128,43,136,47,140,47,141, 12a60 DATA 48,142,48,143,52,147,53,147,54,148,55,148,56,149,62,149, 1270 DATA 64,151,64,147,69,142,69,141,70,140,70,139,71,138,71,136, 1280  DATA 72,135,72,133,71,132,71,129,70,128,70,126,69,125,69,124, 1290 DATA 68,123,68,120,64,116,0,1001,38,114,38a,107,37,106,37,100, 1300 DATA 36,99,36,97,35,96,35,95,29,89,29,88,28,87,28,85, 1310 DATA 27,85,27,80,26,79,26,76,25,75,25,74,20,69,20,68, 1320 DATA 18,66,17,66,14,69,14,70,13,71,13,72,12,73,12,75, 1330  DATA 11,76,11,77,10,78,10,76,0,1001,-1,62,-1a,54,-2,53, 1340 DATA -2,52,-3,51,-4,51,0,1001,1,40,1,39,2,39,2,40, 1350 DATA 2,39,7,39,7,40,8,41,8,42,14,48,14,50,14,48, 1360 DATA 6,40,11,35,11,19,10,18,10,14,9,13,9,11,7,9, 1370 DATA 7,6,6,5,6,1,0,1001,41,1,42,1,57,16,58,16, 1380 DATA 61,19,61,2a0,64,23,64,24,0,1001,47,36,47,44,46,43, 1390 DATA 46,36,45,36,45,41,44,40,44,36,43,36,43,39,42,38, 1400 DATA 42,36,41,36,41,35,41,37,40,36,40,35,38,35,0,1001,22,58, 1410 DATA 24,58,27,55,27,53,26,52,26,51,25,50,25,49,23,47, 1420 DATA 21,47,18,50,18a,52,19,53,19,54,20,55,20,56,21,57, 1430 DATA 21,58,0,1000 1440  REM -- 679 1450 FGPAINT 59*T0+46*T1+T2,59*T3+46*T4+T5,2 1460 REM -- 683 1470  FGPAINT 59*T0+11*T1+T2,59*T3+11*T4+T5,2 1480 REM -- 687 1490 FGPAINT 3*T0+11*T1+T2,3*T3+11*T4+T5,2 1500 REM -- 691 1510 FGPAINT 14*T0+11*T1+T2,14*T3+11*T4+T5,2 1520  REM -- 695 1530 FGPAINT 14*T0+65*T1+T2,14*T3+65*T4+T5,2 1540 REM -- 699 1550 FGPAINT 27*T0+65*T1+T2,27*T3+65*T4+T5,2 1560  REM -- 703 1570 FGPAINT 27*T0+78*T1+T2,27*T3+78*T4+T5,2 1580 REM -- 707 1590  FGPAINT 42*T0+121*T1+T2,42*T3+121*T4+T5,2 1600 REM -- 711 1610 RESTORE 1620 : Z=FNShapeinter(1) 1620 DATA 0,1001,46,115,46,114,47,113,55,113,57,115,55,117,48,117, 1630 DATA 46,115,0,1000 1640 REM -- 730 1650 FGPAINT 50*T0+115*T1+T2,50*T3+115*T4+T5,1 1660 REM -- 734 <aLINJE  96 134 102 134 0> 1670 FGPOINT 48*T0+115*T1+T2,48*T3+115*T4+T5,0 1680 FGLINE 54*T0+115*T1+T2,54*T3+115*T4+T5,0 1690 REM -- 740 1700 RESTORE 1710 : Z=FNShapeinter(0) 1710 DATA 0,1001,57,132,63,138,67,138,70,13a5,0,1001,61,135,63,135, 1720 DATA 65,133,66,133,66,132,64,130,60,130,58,132,0,1001,51,135, 1730 DATA 48,138,46,138,0,1001,44,136,47,136,50,133,48,131,44,131, 1740 DATA 0,1001,44,135,44,134,45,133,46,133,47,134,46,135,45,135, 1750 DATA 45,134,46,13a4,47,135,0,1001,60,134,60,133,61,132,62,132, 1760 DATA 63,133,62,134,61,134,61,133,62,133,63,134,0,1000 1770 REM -- 801 1780 FGPAINT 63*T0+132*T1+T2,63*T3+132*T4+T5,3 1790 REM -- 805 1800 FGPAINT 59*T0+133*Ta 1+T2,59*T3+133*T4+T5,3 1810 REM -- 809 1820 FGPAINT 46*T0+132*T1+T2,46*T3+132*T4+T5,3 1830  REM -- 813 1840 RESTORE 1850 : Z=FNShapeinter(0) 1850  DATA 0,1001,52,135,48,139,47,139,48,140,53,135,0,100a!1,59,135, 1860 DATA 63,139,67,139,70,136,0,1000 1870 REM -- 834 1880 RESTORE 1890 : Z=FNShapeinter(1) 1890 DATA 0,1001,50,112,48,112,48,113,51,113,51,112,52,113,52,112, 1900 DATA 48,112,47,113,47,117,46,117,46,116,49,1a"16,49,118,47,118, 1910 DATA 47,117,45,117,45,116,50,116,50,118,54,118,0,1000 1920 REM -- 862 1930 RESTORE 1940 : Z=FNShapeinter(0) 1940 DATA 0,1001,49,116,51,116,48,116,48,115,49,115,49,114,50,114,0,1000 1950 REM -- 8a#74 1960 RESTORE 1970 : Z=FNShapeinter(0) 1970 DATA 0,1001,53,130,53,135,53,130,52,129,52,128,51,127,51,125, 1980 DATA 50,124,0,1001,57,131,57,128,58,127,58,125,59,124,58,123, 1990 DATA 57,123,56,122,52,122,50,124,0,1001a$,53,124,54,124,0,1001,56,124, 2000  DATA 57,124,0,1001,57,122,58,122,59,123,58,124,0,1000 2010 REM -- 923 2020 RESTORE 2030 : Z=FNShapeinter(2) 2030 DATA 0,1001,57,124,57,123,0,1000 2040 REM -- 931 2050 RESTORE 2060 : Z=FNShapeinter(2) 2060 DATA 0,1001,57,121,57,122,57,121,56,120,59,120,59,124,58,124, 2070 DATA 59,124,59,126,58,127,60,127,60,122,58,122,60,122,60,128, 2080 DATA 58,128,58,129,57,129,59,129,59,127,60,127,60,121,55,121,a& 2090 DATA 55,122,55,121,53,121,53,122,53,121,51,121,51,123,48,123, 2100 DATA 48,126,51,126,47,126,50,126,50,122,58,122,58,123,0,1000 2110 REM -- 984 2120 RESTORE 2130 : Z=FNShapeinter(0) 2130 DATA 0,1001,15,6,15,8,17,10a',17,9,15,7,16,8,16,7,0,1000 2140  REM -- 996 2150 FGPAINT 22*T0+53*T1+T2,22*T3+53*T4+T5,3 2160 REM -- 1000 2170 FGPAINT -3*T0+55*T1+T2,-3*T3+55*T4+T5,3 2180 REM -- 1004 2190 RESTa(ORE 2200 : Z=FNShapeinter(0) 2200 DATA 0,1000 2210 REM -- 1030 2220  RESTORE 2230 : Z=FNShapeinter(0) 2230 DATA 0,1001,22,53,22,52,23,53,23,52,0,1000 2240  REM -- 1039 2250 RESTORE 2260 : Z=Fa)NShapeinter(2) 2260 DATA 0,1001,23,152,24,151,27,151,28,150,29,150,31,152,32,152, 2270 DATA 33,153,34,153,36,151,37,151,38,152,39,152,40,151,41,152, 2280 DATA 42,152,44,150,45,150,47,152,49,152,50,153,51,152,0,1001,51,149, 2290 DATA 50,149,49,148,4a*7,148,45,146,44,146,43,147,42,146,41,147, 2300 DATA 39,145,37,145,35,147,34,147,33,146,32,146,31,145,30,145, 2310  DATA 29,146,28,146,26,144,25,144,24,145,23,144,22,145,21,145, 2320 DATA 20,146,19,146,18,145,17,146,0,1001,17,135,18,136,20,136, 2330 a+ DATA 22,138,25,138,27,140,29,140,30,141,31,141,34,144,36,142, 2340  DATA 39,142,41,144,42,144,0,1001,42,141,40,139,38,139,35,136, 2350 DATA 34,136,32,134,31,134,30,133,28,133,27,132,25,132,18,125, 2360 DATA 17,125,15,123,13,123,11,121,0,1001,11,10a,5,12,106,13,106, 2370  DATA 16,109,18,109,28,119,28,120,30,122,30,125,33,128,33,129, 2380 DATA 40,136,0,1001,40,131,34,125,34,121,31,118,31,115,29,113, 2390 DATA 29,110,28,109,28,106,23,101,23,99,19,95,19,94,12,87, 2400 DATA 0,1001,17,77,22,82,22,8a-4,24,86,24,89,26,91,26,94, 2410 DATA 28,96,28,98,31,101,31,104,33,106,33,109,35,111,35,120, 2420  DATA 0,1001,51,157,50,158,48,158,46,160,44,160,43,161,40,161, 2430 DATA 38,163,37,163,0,1001,54,153,56,153,57,154,59,154,60,155, 2440 DATA 62,155,63,1a.56,0,1001,56,156,53,156,0,1001,49,163,51,163, 2450 DATA 53,165,56,165,58,163,62,163,65,160,70,160,71,159,73,159, 2460 DATA 74,158,75,159,0,1001,75,155,74,155,73,154,70,154,69,153, 2470 DATA 66,153,0,1001,69,149,71,147,71,145,73,143,73,142,75,140, 24a/80  DATA 75,138,76,137,76,133,77,132,77,130,74,127,74,125,72,123, 2490 DATA 72,120,70,118,0,1001,75,118,76,119,76,121,78,123,78,126, 2500 DATA 79,127,0,1001,75,146,72,149,0,1000 2510 REM -- 1318 2520 RESTORE 2530 :a0 Z=FNShapeinter(0) 2530 DATA 0,1000 2540 REM -- 1326  2550  RESTORE 2560 : Z=FNShapeinter(3) 2560 DATA 0,1001,-3,56,-3,55,0,1000 2570 REM -- 1334 2580 RESTORE 2590 : Z=FNShapeinter(3) 2590 DAa1TA 0,1001,33,81,36,84,36,86,38,88,38,89,40,91,40,92, 2600 DATA 42,94,42,98,43,99,43,100,45,102,45,104,48,107,0,1000 2610 REM -- 1354 2620 FGPAINT 39*T0+98*T1+T2,39*T3+98*T4+T5,3 2630 REM -- 1358  2640a2  RESTORE 2650 : Z=FNShapeinter(3) 2650 DATA 0,1001,44,2,46,2,48,4,49,4,50,5,51,5,52,6, 2660 DATA 53,6,57,10,59,10,61,12,62,12,64,14,65,14,0,1000 2670 REM -- 1376 2680 FGPAINT 60*T0+14*T1+T2,60*T3+14*T4+T5,3 2690  REM -- 138a30 2700 RESTORE 2710 : Z=FNShapeinter(3) 2710 DATA 0,1001,8,41,8,38,12,42,12,43,14,45,14,47,0,1000 2720 REM -- 1393 2730 FGPAINT 11*T0+44*T1+T2,11*T3+44*T4+T5,3 2740 REM -- 1397 2750 RESTORE 2760 : Z=FNShapeinter(3) 2760 DATA 0,1001,-2,21,-1,20,-1,10,0,9,0,1,0,1000 2770 REM -- 1414 2780 RESTORE 2790 : Z=FNShapeinter(0) 2790 DATA 0,1001,-1,2,-1,9,-2,10,-2,2,-2,19,-3,20,0,1000 2800 REM -a5- 1438 2810 FGCTL (9) 2820 REM -- 1440 2830 RESTORE 2840 : Z=FNShapeinter(0) 2840 DATA 0,1001,-2,-1,-2,2,-1,2,-1,-1,0,1000 2850 REM -- 1451  2860 T0=Tm0 : T1=Tm1 : T2=Tm2 : T3=Tm3 : T4=Tm4 : a6T5=Tm5 2870  RETURN -1 2880 FNEND 2890 REM ****************************** 2900 REM ****** NDEL 2910 REM 2920 DEF FNNdel(Trx,Try,Scale,Rot) LOCAL Tm0,Tm1,Tm2,Tm3,Tm4,Tm5 2930 Tm0=T0 : Tm1=T1 : Tm2=T2 : Tm3=T3 : Tm4=T4 : Tm5=T5 2940 T2=Trx*T0+T2 29a750 T5=Try*T4+T5 2960 T0=T0*Scale : T4=T4*Scale 2970  REM -- 1 2980 REM -- 4 2990 RESTORE 3000 : Z=FNShapeinter(3) 3000 DATA 0,1001,0,0,0,-13,-1,-14,-1,-16,-2,-17,-2,-19,-3,-20, 3010 DATA -3,-21,-4,-a822,-4,-23,-5,-24,-5,-25,-6,-26,-6,-28,-7,-29, 3020 DATA -7,-33,-4,-36,-4,-37,-3,-37,-3,-38,-1,-40,1,-40,1,-39, 3030 DATA 2,-38,-1,-35,-1,-34,-2,-33,-2,-31,-1,-30,-1,-28,0,-27, 3040 DATA 0,-26,1,-27,1,-28,2,-28,2,-40,0,-42,0,-43,-1,-44, 3050 DATA -1a9,-45,-2,-46,-2,-47,-3,-48,-3,-49,-4,-50,-4,-51,-5,-52, 3060 DATA -5,-54,-6,-55,-6,-57,-7,-58,-7,-60,0,1001,2,-38,3,-39, 3070 DATA 3,-40,4,-39,6,-39,6,-22,7,-21,7,-20,8,-19,8,-18, 3080  DATA 9,-17,9,-12,8,-11,8,-9,7,-8,7,-4,6,-3,6,0, 3090 DATA 0,10a:01,18,0,15,-3,15,-4,13,-6,13,-7,11,-9,11,-11, 3100 DATA 9,-13,9,-14,8,-15,8,-18,6,-20,6,-21,0,1001,6,-40, 3110 DATA 6,-41,7,-42,8,-42,8,-43,9,-43,10,-44,13,-44,13,-41, 3120 DATA 9,-37,13,-41,11,-39,11,-41,11,-39,12,-40,14,-40,14,-41, 3130 DATA 16,-a;41,17,-40,17,-39,13,-35,17,-39,18,-39,20,-37,20,-36, 3140 DATA 18,-34,20,-36,23,-36,24,-35,24,-31,25,-30,25,-27,24,-27, 3150 DATA 24,-18,26,-16,26,-15,43,2,43,0,0,1001,67,0,67,-5, 3160 DATA 0,1001,75,-25,76,-26,76,-31,77,-32,77,-33,79,-35,79,-37, 31a<70 DATA 80,-38,80,-40,81,-41,81,-46,80,-47,80,-50,79,-51,79,-58, 3180 DATA 80,-59,80,-60,0,1001,35,-60,31,-56,30,-56,29,-55,29,-54,0,1000 3190  REM -- 240 3200 RESTORE 3210 : Z=FNShapeinter(3) 3210  DATA 0,1001,0,0,0,1,0a=,1001,6,0,6,1,0,1001,19,1, 3220 DATA 18,0,0,1001,41,0,42,1,0,1001,67,1,67,0,0,1000 3230 REM -- 284 3240 FGPOINT 66*T0+0*T1+T2,66*T3+0*T4+T5,2 3250 FGLINE 42*T0+0*T1+T2,42*T3+0*T4+T5,2 3260 REM -- 290 84 70 2> 3270 FGPOINT 40*T0+0*T1+T2,40*T3+0*T4+T5,2 3280 FGLINE 19*T0+0*T1+T2,19*T3+0*T4+T5,2 3290 REM -- 296 3300 FGPOINT 17*T0+0*T1+T2,17*T3+0*T4+T5,2 3310 FGLINE 7*T0+0*T1+T2,7*T3+0*T4+T5,2 3320 REM -- 302 3330  FGPOINT 5*T0+0*T1+T2,5*T3+0*T4+T5,2 3340 FGLINE 1*T0+0*T1+T2,1*T3+0*T4+T5,2 3350 REM -- 308 3360  RESTORE 3370 : Z=FNShapeinter(1) 3370 DATA 0,1001,13,-45,17,-49,18,-49,18,-45,17,-44,17,-41a@,0,1001,26,-27, 3380 DATA 27,-27,29,-25,29,-24,30,-24,30,-23,31,-23,31,-22,35,-18, 3390 DATA 36,-18,38,-16,39,-16,41,-14,42,-14,44,-12,46,-12,47,-11, 3400 DATA 49,-11,50,-10,55,-10,56,-11,58,-11,60,-13,61,-13,63,-15, 3410 DATA 64,-15,65,-16,66,-16aA,67,-17,68,-17,76,-25,76,-23,75,-22, 3420 DATA 75,-21,74,-20,74,-18,73,-17,73,-16,72,-15,72,-13,71,-12, 3430 DATA 71,-11,70,-10,70,-9,69,-8,69,-7,68,-6,68,-5,62,-5, 3440 DATA 61,-4,57,-4,56,-3,53,-3,52,-4,50,-4,49,-5,48,-5, 3450 DATA 47,-6,44,-6,43aB,-7,42,-7,41,-8,40,-8,39,-9,38,-9, 3460 DATA 29,-18,29,-19,27,-21,27,-22,26,-23,26,-24,25,-24,0,1000 3470 REM -- 393 3480 RESTORE 3490 : Z=FNShapeinter(256) 3490  DATA 0,1001,24,-36,24,-37,25,-38,25,-47,0,1000 3500 RaCEM -- 406 3510 RESTORE 3520 : Z=FNShapeinter(3) 3520 DATA 0,1001,24,-36,24,-38,25,-39,25,-40,24,-41,25,-42,24,-43, 3530 DATA 25,-44,24,-45,25,-46,24,-47,26,-49,25,-50,30,-55,27,-55, 3540  DATA 25,-57,22,-57,20,-55,19aD,-56,15,-52,14,-53,11,-50,11,-49, 3550 DATA 10,-48,10,-44,0,1000 3560 REM -- 435 3570 FGPOINT -7*T0-60*T1+T2,-7*T3-60*T4+T5,3 3580 FGLINE 80*T0-60*T1+T2,80*T3-60*T4+T5,3 3590  REM -- 441 3600 aERESTORE 3610 : Z=FNShapeinter(0) 3610 DATA 0,1001,-1,1,-1,0,-2,0,0,1000 3620 REM -- 449 3630 FGPAINT 15*T0-44*T1+T2,15*T3-44*T4+T5,1 3640 REM -- 453 3650 FGPAINT 46*T0-8*T1+T2,46*T3-8*T4+T5,1 3660 REM -- 4aF57 3670 FGPAINT 46*T0-21*T1+T2,46*T3-21*T4+T5,2 3680 REM -- 461 3690  FGPAINT 46*T0-3*T1+T2,46*T3-3*T4+T5,2 3700 REM -- 465 3710 FGPAINT 63*T0-3*T1+T2,63*T3-3*T4+T5,2 3720 REM -- 469 3730 FGPAINT 20*T0-3*T1+T2,20*T3-3*T4+T5,2 3740 REM -- 473 3750  FGPAINT 11*T0-3*T1+T2,11*T3-3*T4+T5,2 3760  REM -- 477 3770 FGPAINT 4*T0-3*T1+T2,4*T3-3*T4+T5,2 3780 REM -- 481 3790 FGPAINT 4*T0-51*T1+T2,4*T3-51*T4+T5,2 3800 REM -- 485 3810 RESTORE 3820 : Z=FNShapeinter(1) 3820 DATA 0,1001,19,-50,18,-49,21,-52,20,-51,20,-50,18,-48,0,1000 3830 REM -- 496 3840 FGPAINT aI28*T0-58*T1+T2,28*T3-58*T4+T5,2 3850  REM -- 500 3860 FGCTL (9) 3870  REM -- 502 3880  T0=Tm0 : T1=Tm1 : T2=Tm2 : T3=Tm3 : T4=Tm4 : T5=Tm5 3890 RETURN -1 3900 FNEND 3910 REM ****************************** 3920 REM **aJ**** NAMN 3930 REM 3940 DEF FNNamn(Trx,Try,Scale,Rot) LOCAL Tm0,Tm1,Tm2,Tm3,Tm4,Tm5 3950 Tm0=T0 : Tm1=T1 : Tm2=T2 : Tm3=T3 : Tm4=T4 : Tm5=T5 3960 T2=Trx*T0+T2 3970 T5=Try*T4+T5 3980 T0=T0*Scale : T4=T4*Scale 3990 REM -- 1 4000 REaKM -- 4 4010 RESTORE 4020 : Z=FNShapeinter(1) 4020 DATA 0,1001,10,203,8,205,6,205,4,203,4,201,5,200,5,199, 4030 DATA 6,198,6,197,7,196,7,195,8,194,8,193,9,192,9,191, 4040 DATA 10,190,10,189,11,188,11,187,12,186,12,185,aL13,184,13,182, 4050  DATA 12,181,11,181,10,182,10,183,11,184,15,184,16,185,17,185, 4060 DATA 19,187,19,188,20,189,20,190,19,191,19,192,18,193,18,194, 4070 DATA 17,195,17,196,0,1001,15,199,16,200,0,1001,20,190,21,190, 4080 DATA 22,191,23,191,25,193aM,25,195,24,196,24,197,23,198,23,200, 4090 DATA 26,203,26,204,25,205,27,203,27,202,28,201,28,200,29,199, 4100 DATA 30,199,31,200,32,200,32,206,33,207,33,208,36,211,33,208, 4110 DATA 33,206,34,205,34,204,35,203,37,203,38,204,38,205,40,207, 4120 DATA aN39,208,39,209,38,210,38,212,37,213,37,214,36,215,36,216, 4130 DATA 35,217,35,218,34,219,34,220,33,221,33,222,32,223,32,224, 4140 DATA 31,225,30,225,30,223,31,222,31,221,32,220,32,219,33,218, 4150 DATA 33,217,34,216,34,215,41,208,42,208,42,217,46,22aO1,46,224, 4160 DATA 46,221,43,218,43,216,44,215,44,214,46,212,47,212,50,215, 4170 DATA 50,216,49,217,49,218,48,219,48,220,47,221,47,222,46,223, 4180 DATA 47,222,47,221,48,220,48,219,49,218,49,217,51,215,52,215, 4190  DATA 52,220,0,1000 4200 REM --aP 116 4210  PRINT CUR(18,28); 4220 PRINT CHR$(130); 4230 PRINT 'Janne'; 4240  REM -- 129 4250 PRINT CUR(19,28); 4260 PRINT CHR$(130); 4270  PRINT 'Gustafsson'; 4280  REM -- 148 4290  T0=Tm0 : T1=Tm1 : T2=Tm2aQ : T3=Tm3 : T4=Tm4 : T5=Tm5 4300 RETURN -1 4310 FNEND 4320 REM ****************************** 4330 REM ****** LINDA 4340 REM 4350 DEF FNLinda(Trx,Try,Scale,Rot) LOCAL Tm0,Tm1,Tm2,Tm3,Tm4,Tm5 4360 Tm0=T0 : Tm1=T1 : Tm2=T2 : Tm3=T3 : Tm4=T4 : Tm5=T5aR 4370 T2=Trx*T0+T2 4380 T5=Try*T4+T5 4390  T0=T0*Scale : T4=T4*Scale 4400 REM -- 1 4410 REM -- 4 4420 FGCTL (9) 4430 REM -- 6 4440 Z=FN\del(65,70,1,0) 4450 REM -- 18 4460 Z=FNNdel(65,70,1,0) 4470 REM -- 30 4480 Z=FNNamn(0,0,1,0) 4490 REM -- 42 4500 FOR I=0 TO 150 : FOR I1=0 TO 355 : NEXT I1 : NEXT I 4510 REM -- 45 4520 T0=Tm0 : T1=Tm1 aT: T2=Tm2 : T3=Tm3 : T4=Tm4 : T5=Tm5 4530 RETURN -1 4540 FNEND 4550 DEF FNShapeinter(Color) 4560  READ Sx,Sy : IF Sy=1000 THEN 4590 ELSE IF Sy=1001 THEN 4580 4570 FGLINE Sx*T0+Sy*T1+T2,Sx*T3+Sy*T4+T5 : GOTO 4560 4580 READ Sx,Sy : FGPOINT Sx*T0+Sy*aUT1+T2,Sx*T3+Sy*T4+T5,Color : GOTO 4560 4590 RETURN 0 4600 FNEND 4610 T0=1 : T1=0 : T2=0 : T3=0 : T4=1 : T5=0 4620 PRINT CHR$(12); 4630 FGPOINT 0,0,0 : FGFILL 239,239 4640 FGCTL (10) 4650 Z=FNLinda(0,0,1,0) >560 4580 READ Sx,Sy : FGPOINT Sx*T0+Sy*aVx*T3+Sy*T4+T5,Color : GOTO 4560 4590 RETURN 0 4600 FNEND 4610 T0=1 : T1=0 : T2=0 : T3=0 : T4=1 : T5=0 4620 PRINT CHR$(12); 4630 FGPOINT 0,0,0 : FGFILL 239,239 4640 FGCTL (10) 4650 Z=FNLinda(0,0,1,0) >560 4580 READ Sx,Sy : FGPOINT Sx*T0+Sy*qq .:IHHMHHI:.., .::IHHI..IHHMMMHIHHHI:.. ::HMHHMHHMMMMMMHMMHMHI::, IHHHMHMHMHHHMMMMMMMMMH::..: MMMMMMMMMHMMMMMMHNMMMMMMMMI: MMMMMMMMMMMMHMMHMMMMMMMMMO,: MMMMMMMMMMMMMMMMMMMMMMMMMMM, MHMHMMMMMMMXMMHMMMMHHMMMMMM:.. HMMMMMMHMMMMMMHHMMMMMMMMMMMMMqM MMMMMMMMMHMMHHHI' '::IIHMMMMMI MMMHMMMMMMMMMMHI, HIHMMMMMM. MMMMMMMMMMMMMMIII, '':IHMMMM MMMMMMMMMHMMMMMMH: ... HMMM: MMMMMMMMMMMMMMMHHH IMM MH, MMMMMMMMMMMMMMMMMI, ...IM',,, MMMMMMHMMMMMMMMMMM :MIMMI., MMMNMMMHHMMMMMMMY IqMML.. IMMIHH:. LMMMMMMMHHHHHMMMMIMMT:::... 'IHI:... MMMMMMMMMMMMMMM'H:MHIII:...: '::.:. MMMMMHHMMHHMHI ,,MMMII:'::I:I. :I:: MMMMMMMMMHH....:'''''::..::I:.: MII: MMMMMMMMM::.::''' '':::IH:IM:: IM. MMMMMMMMMMII:'' ' ''::I:: :MMMM. MMMMMMMMNMMII:q. ':I:.,MMMMM': MMMMMMMMMHHHII:. .::I:ILMMMM'::::. MMMMMMMMMMMMMII::.. .:II: '::II:''.:,:''''::.., MMMMMMMMMMMMMMII:::.:I::.. .. ..:'' ,.:'''::, ':, MM MMMMMMMMHII::'II::....:' ..:' ::., IHIMMMMMMMMMMMMMMHI::....::::: :' q :: '. '':HMMMMMMMMMMHHHHHI:..:::II::' .::::::III:,, ', 'IHMMMHHHHHHHIHIIIIHHHH: ,'' ::, .::... ', 'MMMHHHHHIIHHHHHHHII: .::: ::::::::...... ...:, MMHHHHHHHIHIIHHIIII '...'''' '''Hq:IIHIII... ...', .MMHHHHHHHHHHIIIIII':' ..... .:::::II. 'HHH:.. ..', ,MMMMMHHHHII::''' '' .. .....:HI:, II:.. ...:: ,MHMMMMMHH:.'' ... .. ...::H:, 'I::. .. .IMHMMMHI:'' ..:.q .. ...::II, 'II.... IMHIMMI:'' . : ....::H: I:: . MMHIMMI:.'' ..: ...: ... ....II,'I:.... 'MMHIMM:'':. . .. . .. ,..IIHI:::. INIHMMI::q:'' . , .,, ..::IHIII IMIH MM....... . ..::HH HMIHMNMHI:.. . ...::: IHIMMM::... q ''' :MMHMM:.. .. ... I II..... . 'MIHMMI:... :::.. .. I. :::::.. ...::.... .. MMHMMM:... .. .:.....:.III:::.........::::...... HMIVMI:... ..:::::::::III:H:IIHII:::::...::::...... Iq MHIMM:..... ....:::::III:IIIHHHHHHH'III::....:......: HMHMMI:... ....:::::IIIIHMI:':::IHHMHIII:::::..... IMIMM:::... ...:::::III' :....::::IHHMHIIII.::.:. 'MMIMMI:... ....::I:.' ' ''''q ::IIIHMH,'::: IMHMMI:::.... ..::::::.. .. ... ..::IHMM:, HMMMMH......: . ..::::::.. ...::::MMM: IMIMMHH:...:... .. ...:::::... .. ... ..:::::MMIM HMHMMHI:... ..:. ..q ..:::::::..:. ....::::IMM'' 'MMHHHHI:..::... ....::::II::.::....: ..: ...::IHM' IMMHHI:.:::... . ......::III:..::.::::::..IIHHH' 'MMMHHI:::..::. ... ...:IIIHIHII::IHHHHHHHHHI' MIMHHHII::..q :. .. ..:::I::.:HHHHIHMMMHMHHIH' 'MMHHHHII::. ... ..:.::HHHHHHHMHHMMHI' IMMHHIII:::... .....IHHIIHHIIIHHHHMH 'MMHHHIII:..:.. .. ...:HI:...:::IIHHHMH IMHHHII::::... ..IHI.. q..:HHHIHMH 'MMHHII:::.... ...III:.. ..IHHHHMM IMHHHIII::... .. ..IHH.. ..:::IHHMI 'MHHHIIIII:... . ....II:....:::IHMMH' MHHIIII:::::. ...:::..:::.HHHHH 'MqMHI::::....... ..:::::.IHHHIHI MMHII::::....... ....::::::HIIHHH' IMMHHHHHII::... ...:::::MHHHH' MHHHHHHIIH::. .::::HIMMH HMHHHHHHHHH::.. ....:::HHHHI q IMMHHHHHIIII:. .. ..::::IHHM IMMHHHHHHHHHI::. .. ..::HMHHH IMHHHHHHHIII::.... ......::HHHI HMHHHHHHIII::''' ''''':::MHHM' IMMHHHIII::''' '':q:HMMMH ,HMHHHII::'''' ' 'SCCMMMHM ,HMHHHHH:'' '' ''':IHMMMM, ,HMHHHHII::. ''..::MMMMMI ,HMHHII::'' ''''':HHHIHMMMM ,HMHHI::. q''::IIIMMHHMMM :HMMH::'' ..''IHIIMMHMMH AMHHI:'' .... .IIIHIMHMHH ,HMMI:' . ... ::H MMHHI :HMHI:'' .. ... ....:::. MMHH' AHMHHHI:. . q... ....:::::MMHV ,HHMHHHHII::. ..... ....::::MH ,HMMHHHHIII::. ....:::MHV MMHHHHHHII:::. ...... ...:::..IMM AMMHHHHHIII::, ....::.. ..:::MMM :MMHHHHHIII::' ....q:::..:::.:IIM' MMHHHHHHIII::' ....::::..::IIHM' ,MIHHHHHHHII. . :::...::III AMIHHHHMMHHII ''::::::II:, HMIHHHMMHHHHH::. ''' ::::IIH::, MMHIHHHHHHII::' ''::::::II::, qHMHHHHHHHHHHI:' .. ..: :::::.... VMMMHHHHHHHHH::.. ...:::::..:II::. 'MMHHHHHHHHHH::::. .... ....::::.::I::., VMMIHHHHHHHHHII::. ....::::::...:::::. 'MMMHHHHHHHHHHII::. ... .......q.::::::, VMMMHHHHHHHHHIIII::. ....:::. ....::::..:.. VMMMMHHHHHHHHHIII:::., ,,: ...::..::. MMHMMHHHHHHHHIIII::::... ...:. .. ...::::. MMHHMMMHHHHHHHHHHHHHI::... ......::. MMMIHHMMMHHHHqHHHHIIIII:::... ...: ...: MMMMIHMMMMMMHHHMHHHHHHHIIII:::...:: .....::. MMMMMIHMMMMHHHHMHHHHMHHH::.I:.. ... ....:. MMMIHHH HHMMHHHHMMMHHHHHMMHH::. ... .... ..::.. MMMMMHHHIHHHHMMHHHHHHMqMMMHHHHHIII:::.., ... ...:::. MMMMMIHHHIHMMMMMHHHHHHHHMMHHHHHII::::.:' ::::.. :MMMMMIIHHHIHHHMMMMHHHHHHHHHHHHIIII::::.'' ....::::.. IMMMMHHIIIIHMIIHHMMMHHHHHHHHIHHHHHII::. .... ...:::.. IMMMHHHIHIIIIIqIIHHMMMHHHHHHHHHIIIII:::.. ....::: IMMHHHHHI::IIIHHIHHMMMHHHHHHHII::::::..... . ...: :MMMMHHIII::IHHHHHIHHMMMHHHHHHII:::::.. .. ... .. IMMHHHHII:' '' ':HMHHHHMMMHHHHHII:::..::'' : q HMMHHHII::' :::.HHHHHHMMMHHHHHII::'' .. .. HHMHH H... ....::HHHMHMMMMMHHHIII:::''.. ... .. HMHHHII:'' ''''::IHHMMHMMMMIHHHHHH::. .... . . MMHHHI::' .. ...IIHHHHMMMM 'IHHHHII::...... .... MMMHHH:: 'q':::HHHHMHMM' 'HHHHI::::::.... . MMMIHI:: : :::.MHMHMMM 'HHHH::::.......... MMMMHIIH:. ..HHHMMM' 'HMHHHHI::,,,,.. 'MMMHHH::. .. ...:HHMM' 'MMMHHHI:::.... ... AMMMMHHH::. ....:::MMMI q IMMMHHHH:::...... .. .HMMMMHHH::... .. ..:MMM ....::II.IIMMMHHHMH::::........ MMMMMMMMHHH::.. ...::HHNNN ,:IIIHIIII:IIIHHMMMMMMMMMHHH:::... . MMMMMMHHHHHIII::. .:HMOMHH:IIIIH:'''':'':'''::::IHMMMMHHHHI::.... MMMMMMHHHHIII::''IHHHIII IqHHHI:'' '':::.IHMMMMMHHHH::. HHHHMMHIIHIIHHHIII::::'''''''' '':::IHMMMMHHMHHI II:''':::... . ....::::::: .::::::IIHHIIIHMHHIIHHM .. . ......::::::::''IIHHHMHHHHHHHMMMMHHMM .....q ........::::::::::III::IIHHHHHHMHHHHHHMMMMMMMMM ..... ..::... .......:::::IIHHHHHHHIIIIHHMMMMMMMMHHMMMMMM ::. ........:::::::::::IIIHHHHHHMMMMMMMMMMHHHHHMMMMMMMMMHHMII:'' :::::::::::::::::::::::::::CCCCCCCCIIIIIHHHHHMMMMMMMHHHHHMMMMMqMMMM IHIHIIHHHHMMMMMMHHIII:::::::::::::'''''''' jo kla..... ..::... .......:::::IIHHHHHHHIIIIHHMMMMMMMMHHMMMMMM ::. ........:::::::::::IIIHHHHHHMMMMMMMMMMHHHHHMMMMMMMMMHHMII:'' :::::::::::::::::::::::::::CCCCCCCCIIIIIHHHHHMMMMMMMHHHHHMMMMMq IHIIHHHHMMMMMMHHIII:::::::::::::'''''''' jo kla..... ..::... .......:::::IIHHHHHHHIIIIHHMMMMMMMMHHMMMMMM ::. ........:::::::::::IIIHHHHHHMMMMMMMMMMHHHHHMMMMMMMMMHHMII:'' :::::::::::::::::::::::::::CCCCCCCCIIIIIHHHHHMMMMMMMHHHHHMMMMM( 1 REM Ins{nd av Daniel Deimert <5439> 1987-08-18 23.30.41 (KERMIT) 500 DATA -27,-11,-23,-6,-28,-13,-22,-6,-20,-5,-12,-5,-27,-14,-26,-13 510 DATA -38,-29,-42,-28,-40,-28,-50,-16,-8,13,0,13,-29,4,-29,9 520 DATA -50,-17,-41,-28,-49,-17,-50,-8,-8,12,0,12,-28,5,-28,13 530 DATA -50,-15,-49,-10,40,-26,42,-17,-4,9,-21,14,5,48,2,44 540 DATA -53,-39,-45,-48,-55,-23,-55,-28,-61,-23,-58,-22,-42,-39,-43,-39 550 DATA 36,-52,36,-55,-37,-48,-32,-56,-32,-56,-26,-60,9,-74,33,-55 560 DATA 6,-12,12,-11,14,-8,24,-11,6,-13,10,-11,20,-9,10,-8 570 DATA -23,-15,-24,-19,-26,-18,-22,-15,-25,-18,-22,-19,-23,-18,-21,-16 580 DATA -49,2,-43,10,38,-11,43,-15,7,14,7,9,-9,13,-6,8 590 DATA -5,-33,-4,-33,-6,-36,-6,-36,-5,-32,-5,-32,-7,-29,-7,-29 600 DATA -39,-32,-38,-41,-62,-25,-54,-39,-50,-29,-50,-35,-54,-33,-57,-24 610 DATA -38,-34,-39,-39,-51,-19,-60,-22,-57,-25,-50,-24,-48,-25,-46,-38 620 DATA -42,-24,-42,-19,41,-26,43,-14,-3,7,-19,14,8,48,4,42 630 DATA 27,-38,31,-47,-29,-42,-16,-37,-11,-51,10,-48,26,-38,24,-47 640 DATA -4,-73,14,-71,-3,-74,5,-74,5,-73,12,-72,8,-72,35,-57 650 DATA -2,-48,5,-54,-15,-36,-20,-42,17,-34,32,-45,-6,-53,6,-48 660 DATA 40,-51,38,-43,39,-45,38,-50,38,-46,37,-53,37,-47,37,-46 670 DATA 15,-25,18,-24,23,-18,23,-20,12,-19,19,-18 680 DATA 8,-50,20,-49,-12,-53,-3,-62,-5,-49,14,-49,4,-62,16,-53 690 DATA -41,-19,-41,-27,44,-14,43,-20,-22,13,-22,14,8,46,2,42 700 DATA -40,-23,-39,-28,42,-26,50,-19,-23,14,-24,5,3,41,2,48 710 DATA -51,-42,-39,-49,-47,-26,-49,-36,-53,-18,-59,-21,-45,-28,-53,-23 720 DATA -40,-19,-37,-7,50,-18,50,-13,-25,5,-26,14,1,41,9,40 730 DATA -22,-9,-19,-6,-21,-9,-18,-6,-21,-6,-11,-9,-19,-8,-16,-8 740 DATA -57,-26,-57,-28,-37,-41,-37,-37,-59,-31,-50,-40,-39,-36,-36,-40 750 DATA -5,-28,-6,-30,-6,-28,-7,-30,6,-28,5,-30,6,-29,6,-31 760 DATA 6,-37,9,-36,-12,-38,-2,-39,-6,-33,-2,-35,-13,-35,-8,-39 770 DATA -20,-18,-17,-17,-14,-18,-15,-17,-17,-18,-16,-18,-20,-17,-14,-17 780 DATA -39,-17,-35,-6,51,-14,48,-12,-24,8,-23,13,1,40,12,39 790 DATA -36,-6,-36,-1,41,-14,40,-9,-23,8,-24,11,14,3 9,19,40 800 DATA -26,34,-32,37,-32,37,-29,32,-29,32,-30,36,-29,32,-39,34 810 DATA -35,-5,-35,-1,40,-13,41,-12,-26,7,-27,14,21,39,11,38 820 DATA -61,-29,-56,-37,-47,-35,-42,-36,-49,-39,-45,-42,-61,-24,-59,-35 830 DATA 60,-24,55,-20,60,-23,61,-32,61,-29, 61,-24,60,-29,59,-33 840 DATA 17,-53,5,-62,6,-48,17,-50,8,-48,2,-54,-28,-41,-18,-48 850 DATA -14,-52,-4,-62,-5,-51,9,-51,-27,-43,-28,-47,-5,-62,-8,-59 860 DATA -46,14,-42,18,-45,25,-45,15,-42,18,-42,11,-43,11,-51,0 870 DATA 15,-19,18,-16,14,-16,18,-19, 7,-18,8,-16,8,-17,11,-16 880 DATA 39,-42,38,-37,39,-40,40,-32,41,-33,40,-39,39,-34,39,-36 890 DATA 42,-40,43,-42,44,-42,45,-32,46,-36,45,-41,42,-38,43,-41 900 DATA 48,-11,47,7,41,-14,40,-9,15,37,15,36,17,36,19,36 910 DATA -49,-28,-48,-37,-61,-32,-62,-2 7,-55,-35,-43,-49,-46,-34,-42,-35 920 DATA -14,-65,-6,-71,14,-68,32,-57,18,-65,20,-63,14,-70,23,-65 930 DATA 31,-41,32,-43,3,-42,4,-43,-22,-43,-23,-42,-9,-52,-9,-52 940 DATA 30,-40,29,-45,14,-50,21,-48,-27,-46,-25,-46,-26,-47,-27,-47 950 DATA -10,-10,- 11,-15,-9,-11,-10,-15,-10,-13,-8,-13,-11,-11,-8,-12 960 DATA 21,-38,29,-44,-7,-48,-3,-48,-27,-45,-21,-47,-12,-55,-6,-61 970 DATA 48,6,49,-11,39,-10,41,-5,18,35,22,35,19,34,23,34 980 DATA 51,-3,45,8,40,-5,38,-11,23,35,43,17,45,17,27,33 990 DATA 46,-40,46,-36,43,-38,43,-39,46,-30,52,-33,47,-30,52,-32 1000 DATA 57,-32,57,-27,44,-25,49,-21 1010 DATA 7,-13,9,-8,10,-8,8,-12,23,-9,12,-7,11,-9,24,-10 1020 DATA 57,-25,53,-24,52,-25,56,-24,56,-32,55,-26,56,-27,56,-29,52,-24,57,-26 1030 DATA -13,-13,-26,-17,-12,-16,-10,-18,-15,-14,-11,-18,-21,-14,-17,-14 1040 DATA 18,-20,21,-17,12,-16,16,-19,8,-20,10,-19,13,-23,19,-23 1050 DATA -22,-22,-13,-21,-16,-22,-21,-23,-21,-21,-19,-23,-20,-21,-18,-21 1060 DATA 47,4,49,-3,41,-4,37,2,46,16,41,16,41,16,47,9 1070 DATA 37,4,41,-2,-49,-9,-48,-4,43,11,45,9,-2,11,1,11 1080 DATA -47,-4,-48,-9,-48,-3,-49,-1,2,11,8,8,4,11,9,9 1090 DATA 46,-32,48,-28,49,-38,49,-35,50,-37,51,-25,51,-37,52,-30 1100 DATA -56,-23,-57,-29,-60,-24,-60,-33,-54,-23,-46,-29,-46,-40,-44,-42 1110 DATA -44,-34,-45,-38,-44,-37,-42,-37,-44,-38,-42,-38,-48,-46,-42,-49 1120 DATA 21,-16,10,-18,22,-17,19,-25,20,-24,22,-19,10,-23,18,-25 1130 DATA -41,33,-35,34,-41,32,-38,32,-38,31,-42,31,-42,32,-45,30 1140 DATA -3,-36,-12,-37,7,-35,7,-35,-3,-37,-8,-36,-8,-38,-4,-38 1150 DATA 8,-18,9,-16 1160 DATA -35,-45,-29,-58,-36,-46,-35,-53,-38,-48,-26,-57,-35,-48,-30,-58 1170 DATA -34,-52,-25,-59,-32,-55,-25,-60,-34,-49,-14,-68,-36,-51,-22,-61 1180 DATA -49,-3,-46,5,10,9,4,15,3,15,6,10,6,11,6,14 1190 DATA 47,-22,52,-21,48,-21,56,-20,55,-21,48,-21,56,-20,59,-22 1200 DATA 24,-64,32,-60,30,-59,34,-57,33,-59,35,-52,35,-56,36,-49 1210 DATA 61,-32,42,-51,43,-51,51,-41,50,-41,45,-46,58,-37,54,-41 1220 DATA -39,30,-45,23,-38,30,-46,21,-46,24,-47,11,-46,12,-42,27 1230 DATA 7,-29,6,-31,13,-35,13,-35,4,-37,8,-35,5,-36,8,-37 1240 DATA -16,-49,-8,-50,9,-53,9,-49,20,-37,29,-39,-17,-39,-24,-41 1250 DATA 21,-36,32,-44,-2,-62,5,-61,9,-58,16,-53,-26,-44,-22,-46 1260 DATA -51,1,-43,12,7,14,15,13,13,11,17,8,20,10,27,4 1270 DATA -42,11,-49,2,8,13,19,12,19,11,10,12,22,9,27,5 1280 DATA -24,-56,-22,-59,-23,-58,-4,-74,-23,-56,-15,-67,-21,-57,-8,-72 1290 DATA -7,-73,-12,-69,-12,-68,-4,-71,-21,-58,-13,-68,-10,-71,8,-74 1300 DATA 12,-32,14,-35,13,-32,12,-37,14,-34,13,-37,11,-37,14,-36 1310 DATA -17,-6,-10,-8,-13,-9,-10,-6,-10,-7,-11,-6,-12,-6,-15,-6 1320 DATA 17,-35,21,-39,7,-62,14,-56,14,-51,-17,-48,4,-43,4,-47 1330 DATA -11,-12,-12,-14,-12,-13,-9,-15,-20,-16,-15,-16,-17,-16,-15,-16 1340 DATA -11,-22,-12,-24,-9,-22,-12,-23,-9,-20,-11,-24,-8,-20,-9,-23 1350 DATA -34,-2,-33,6,25,7,29,7,30,8,30,6,31,8,35,9 1360 DATA -33,3,-33,-1,33,8,36,8,36,7,36,2,35,4,35,7 1370 DATA -32,6,-31,11,-30,11,-29,4,3,48,-3,41,-5,41,2,48 1380 DATA -5,-59,-6,-62,12,-52,21,-47,-2,-54,-2,-53,-4,-60,3,-62 1390 DATA -44,-47,-41,-49,-54,-24,-56,-30,-36,-43,-37,-48,-47,-37,-49,-32 1400 DATA -40,-48,-45,-46,-38,-47,-35,-44,-58,-36,-51,-40,-58,-35,-48,-45 1410 DATA 24,-42,32,-42,-3,-61,-3,-61,-54,-19,-50,-18,-5,-72,9,-72 1420 DATA 10,-22,10,-22,19,-22,19,-22,13,-16,13,-16,9,-19,10,-20 1430 DATA -25,-42,-21,-41,2,-53,4,-54,29,-40,31,-46,26,-43,22,-48 1440 DATA 6,-10,18,-6,14,-6,21,-7,22,-8,6,-11 1450 DATA 1,-38,-14,-36,-13,-37,-11,-32,-14,-35,-12,-33 1460 DATA 55,-37,41,-51,46,-48,61,-33,41,-49,37,-48 1470 DATA -10,-21,-10,-24,-28,-14,-22,-7 1480 DATA -3,43,-26,35,-26,35,-5,41,-9,39,-20,36,-26,34,-26,37 1490 DATA -6,-58,1,-60,-24,-43,-21,-42,3,-45,3,-46,4,-52,4,-53 1500 DATA 72,73,72,63,71,74,70,78,71,62,70,58,69,57,65,53,70,78,65,83 1510 DATA 64,83,58,86,64,53,55,48,56,49,43,49,47,48,55,48,58,86,46,86 1520 DATA 42,84,46,85,44,50,39,52,42,50,39,51,41,85,40,85,39,86,33,86 1530 DATA 38,51,33,48,35,79,35,58,34,79,34,58,34,57,32,56,34,80,32,79 1540 DATA 32,85,30,83,31,83,31,80,30,82,30,79,31,55,29,55,33,49,23,49 1550 DATA 32,48,25,48,24,50,22,50,28,55,17,78,18,79,20,79,20,80,20,84 1560 DATA 21,51,18,48,19,50,17,48,16,48,14,48,17,49,14,49,19,85,11,86 1570 DATA 13,48,12,53,12,48,11,53,11,54,15,57,15,58,14,59,14,59,-1,59 1580 DATA 14,58,-2,58,10,85,7,83,6,84,1,86,0,86,-5,85,-6,84,-6,80,-7,83,-7,79 1590 DATA -5,79,-3,79,-2,78,-13,56,-14,56,-3,78,-2,59,-4,57,-4,56,-1,54 1600 DATA 0,55,1,55,1,54,1,50,0,50,-1,48,-2,48,-7,48,-2,49,-6,49,-6,48,-9,51 1610 DATA -7,48,-10,50,-11,49,-17,49,-12,48,-16,48,-17,48,-21,51,-18,48,-22,50 1620 DATA -15,55,-16,55,-17,56,-22,78,-21,79,-19,79,-19,80,-19,84,-23,49,-30,49 1630 DATA -24,48,-30,48,-31,48,-31,55,-32,54,-32,49,-30,55,-28,55 1640 DATA -20,85,-25,86,-26,85,-29,83,-28,55,-32,70,-28,55,-31,71 1650 DATA -28,83,-33,86,-34,86,-37,86,-32,70,-41,49,-38,85,-40,84 1660 DATA -40,83,-40,81,-41,83,-41,79,-40,80,-37,78,-37,78,-41,65 1670 DATA -42,65,-38,78,-43,64,-48,78,-47,79,-45,79,-45,80,-45,84 1680 DATA -46,85,-51,86,-42,49,-47,49,-42,48,-48,48,-48,48,-56,70 1690 DATA -48,49,-56,71,-56,71,-60,56,-52,85,-54,84,-55,83,-59,85 1700 DATA -60,86,-64,86,-59,55,-58,54,-57,54,-55,55,-55,54,-55,50 1710 DATA -56,50,-57,48,-57,49,-61,49,-58,48,-60,48,-61,48,-64,51 1720 DATA -62,48,-65,50,-65,85,-67,84,-67,83,-67,79,-68,83,-68,!79,-66,79,-64,79 1730 DATA -63,78,-68,56,-69,55,-64,78,-66,49,-72,49,-68,48,-73,48 1740 DATA -69,55,-73,55,-73,55,-73,48,-74,49,-74,54 1750 DATA 61,71,61,65,60,73,60,63,59,73,59,72,60,65,58,60 1760 DATA 59,61,54,56,59,74,55,78,59,75,54,80,54,80,48,80 1"770 DATA 46,79,55,79,54,56,48,56,47,57,46,57,47,78,46,78 1780 DATA 45,78,45,58,7,76,11,66,10,66,6,76,9,66,1,66,0,66,6,75 1790 DATA 999,0,0,0 >61,71,61,65,60,73,60,63,59,73,59,72,60,65,58,60 1760 DATA 59,61,54,56,59,74,55,78,59,75,54,80,54,80,48,80 1#A 46,79,55,79,54,56,48,56,47,57,46,57,47,78,46,78 1780 DATA 45,78,45,58,7,76,11,66,10,66,6,76,9,66,1,66,0,66,6,75 1790 DATA 999,0,0,0 >61,71,61,65,60,73,60,63,59,73,59,72,60,65,58,60 1760 DATA 59,61,54,56,59,74,55,78,59,75,54,80,54,80,48,80 1B 1 REM Ins{nd av Daniel Deimert <5439>  1987-08-18 23.42.19 (KERMIT) 10 ! * * MADMAIN.800 11 ! * * 12 ! ********************************************************************* 13 ! ** 14 ! ** Huvudprogram f|r ABC800. G|r MERGE p} MADDATA.BAS, d{r ligger 15 ! ** datasatserna som {r gemensamma f|r alla datorer. De {r ocks} 16 ! ** jobbigast att knappa in.... 17 ! ** Datasatserna {r tagna ur tidningen Svenska Mad. Figuren som 18 ! ** ritas p} sk{rmen...tja, ni f}r v{l gissa! 19 ! ** 20 ! ** Inskickat & Inknappat av <5439> Daniel Deimert 21 ! ** 22 ! ** Kopiering av detta g}r alldeles utm{rkt, dock inte kommersiell 23 ! ** s}dan, d} f}r ni betala pengar till Sv. MAD, inte f|r att jag 24 ! ** tror att n}gon vill K\PA det h{r programmet, men... 25 ! ** 26 ! ********************************************************************* 27 ! ** 28 ! ** Tillh|rande programfiler: MADMAIN.806 29 ! ** MADMAIN.800 30 ! **  MADDATA.BAS 31 ! ** 32 ! ** MADMAIN.806 {r huvudprogrammet f|r ABC806. MADMAIN.800 {r 33 ! ** motsvarande f|r ABC800 m. HR-grafik. MADDATA.BAS {r de 34 ! ** gemensamma datasatserna som MERGE'as in i huvudprogrammet. 35 ! ** 36 ! ********************************************************************* 37 ! ** 38 ! ** Kommentarer p} och omkring detta program skickas till: 39 ! ** 40 ! **  Daniel Deimert <5439> 41 ! **  Fridstav{gen 4 42 ! **  715 00 Odensbacken 43 ! **  Telefon: 019/52031 44 ! ** 45 ! ********************************************************************* 46 ! ** 47 ! ** 100 INTEGER : EXTEND 110 Size.=.9 : Xc=120 : Yc=120 120 FGCTL 3 130 FGPOINT 0,0,0 : FGFILL 239,239 140 ; CHR$(12); 150 READ X,Y,X1,Y1 160 IF X=999 THEN GOTO 220 170 Fx=X*Size.+Xc : Fy=239-(Y+Yc) 180 Lx=X1*Size.+Xc : Ly=239-(Y1+Yc) 190 Fy=-Fy : Ly=-Ly : Fy=Fy+239 : Ly=Ly+239 200 FGPOINT Fx,Fy,1 : FGLINE Lx,Ly,1 : FGPOINT Fx+1,Fy,1 : FGLINE Lx+1,Ly,1 210 GOTO 150 220 ; CUR(22,23) DBLE "VAD], JAG DYSTER?"; 230 ; CUR(24,78); 240 GET A$ 250 ; CHR$(12); : FGCTL 0 : ; CUR(3,24) "COPYRIGHT 1985 E.C PUBLICATIONS"; 260 ; CUR(4,20) 'Inknappat & konverterat till ABC800 av' 270 ; CUR(5,27) 'Daniel Deimert <5439>' 280 ; CUR(20,0); 290 END >VAD], JAG DYSTER?"; 230 ; CUR(24,78); 240 GET A$ 250 ; CHR$(12); : FGCTL 0 : ; 24) "COPYRIGHT 1985 E.C PUBLICATIONS"; 260 ; CUR(4,20) 'Inknappat & konverterat till ABC800 av' 270 ; CUR(5,27) 'Daniel Deimert <5439>' 280 ; CUR(20,0); 290 END >VAD], JAG DYSTER?"; 230 ; CUR(24,78); 240 GET A$ 250 ; CHR$(12); : FGCTL 0 : ; 1 REM Ins{nd av Hans-Georg Wallentinus <4046>  1988-03-20 23.16.39 (KERMIT) 10 REM SAVE LIX 20 REM +++++++++++++++++++++++++++++++++++++++++++++++++++ 30 REM ! Program .... LIX.BAC f|r ABC80x 40 REM ! Version 2.3 1988-03-20 50 REM ! av (c) Hans-Georg Wallentinus <4046> 60 REM +++++++++++++++++++++++++++++++++++++++++++++++++++ 70 ! ************* S T A R T A V S N I T T ************* 80 INTEGER : EXTEND 90 DIM A$=160,Siff$=160,Fil$=160 100 ON ERROR GOTO 1260 110 Flag1=0 : Pr=0 : Err=0 : Nummer=0 : Del$="" : Fil$="" : Avsnitt$="" 120 PRINT CHR$(12) 130 ; GRN DBLE 'BER[KNING AV L[SBARHETSINDEX, "LIX"' : ; : ; 140 Fil$=FNV{lj$(4,"Vilken fil skall testas? ") 150 Z=FNSvar(4,Fil$) 160 IF Z=1 THEN 140 170 IF Z=-1 THEN 1760 180 PRINT CUR(6,0) YEL "Ska delavsnitt skrivas ut (J)?" CYA; : ; CHR$(8,8,8,8); 190 INPUT ""Del$ : IF LEN(Del$)=0 THEN Del$="J" 200 Del$=CHR$(ASCII(Del$) AND 223) 210 WHILE Del$="J" 220 PRINT CUR(6,0);SPACE$(80); 230  PRINT CUR(6,0) YEL "Teckenkombination f|r avbrott: " CYA; 240 INPUT ""Teck$ 250 IF End WEND  260 PRINT CUR(8,0) YEL "Vi du ha utskrift p} printer/fil (J)?" CYA; 270 PRINT CHR$(8,8,8,8); : INPUT ""Ja$ 280 IF LEN(Ja$)=0 THEN Ja$="J" 290 Ja$=CHR$(ASCII(Ja$) AND 223) 300 WHILE Ja$="J" 310 Fil2$=FNV{lj$(8,'"RETN" ger printerutskrift. Skriv annars filnamn h{r:') 320 Z=FNFiltest(8,Fil2$) 330 IF NOT Z THEN 310 340 PRINT CUR(8,0) YEL "Vald yttre enhet: " CYA Fil2$ 350 IF Fil2$="CON:" THEN Ja$="N" : GOTO 500 360 WHILE Fil2$="PR:" 370 PRINT CUR(10,0) YEL "S{tt p} printern om den inte redan {r p}satt! "; 380  PRINT YEL "Tryck d{refter valfri tangent." 390 GET Slask$ 400 OPEN "PR:VSA36B72.55A" AS FILE 2 410 IF End WEND 420 WHILE LEN(Fil2$)<>0 430 PREPARE Fil2$ AS FILE 2 440 IF End WEND 450 PRINT #2,"*** ";Fil$;" ***" 460  PRINT #2 470 PRINT #2," Totord L}ngord % L}ngord  Mening Ord/Mening  "; 480 PRINT #2," Lix Ant.tkn" 490 Pr=-1 500 IF End WEND 510 PRINT CHR$(12) 520 PRINT CUR(0,0) DBLE MAG "*** ";Fil$;" ***" : ; 530  PRINT CYA " Totord L}ngord % L}ngord  Mening Ord/Mening  "; 540 PRINT CYA "Lix Ant.tkn" 550 PRINT 560 OPEN Fil$ AS FILE 1 570 Z=FNInrow25("Nu testas rad:") 580 Z=FNTestrad 590 REM  H{r startar huvudslingan  600 INPUT LI NE #1,A$ 610 Nummer=Nummer+1 620 Rad$=NUM$(Nummer) 630 IF LEN(A$)=0 THEN 600 640 IF LEN(A$)>2 THEN Tecklen=Tecklen+LEN(A$) 650 IF ASCII(A$)=32 THEN A$=RIGHT$(A$,2) : GOTO 630 660 IF LEN(Or$)>0 THEN LET A$=Or$+A$ 670 Or$="" 680 IF LEN(A$)<3 THEN GOTO 60 0 690 IF INSTR(1,A$,CHR$(127,32)) OR INSTR(1,A$,CHR$(127,9,1,13)) THEN 600 700 A$=LEFT$(A$,LEN(A$)-2) 710 ! **************** TEST OM START/SLUTRAD ************** 720 IF Del$="N" THEN 790 730 A=INSTR(1,A$,Teck$) 740 IF A=0 THEN 790 750 Avsnitt1$=A$ 760  Avsnitt1$=RIGHT$(Avsnitt1$,A+LEN(Teck$)) 770 IF ASCII(Avsnitt1$)<>95 THEN 780 780 GOTO 1330 790 ! **************** TEST OM MENINGSSLUT **************** 800 IF ASCII(A$)>63 AND ASCII(A$)<95 AND Punkt=1 THEN Mening=Mening+1 810 Punkt=0 820 A=INSTR(1,A$," .") 830 IF A=0 THEN GOTO 1030 840 IF A<>LEN(A$) THEN 870 850 LET Punkt=1 860 GOTO 1030 870 Slut$=RIGHT$(A$,LEN(A$)) 880 IF ASCII(Slut$)<>32 THEN GOTO 910 890 A$=LEFT$(A$,LEN(A$)-1) 900 GOTO 820 910 IF ASCII(Slut$)=13 OR ASCII(Slut$)=127 THEN GOTO 1020 920 Bokstav$=MID$(A$,A+1,LEN(A$)-A) 930 IF ASCII(Bokstav$)<>32 THEN GOTO 960 940 LET Bokstav$=RIGHT$(Bokstav$,2) 950 GOTO 930 960 A1=A 970 IF ASCII(Bokstav$)>63 AND ASCII(Bokstav$)<95 THEN GOTO 1000 980 A=INSTR(A1+1,A$,".") 990 IF A>0 THEN GOTO 920 ELSE GOTO 1030 1000 LET Mening=Mening+1 1010 GOTO 980 1020 LET Mening=Mening+1 1030 ! ******************* R[KNA ORD I RADEN ****************** 1040 Mellanslag=INSTR(1,A$," ") 1050 IF Mellanslag<>1 THEN 1070 1060 A$=RIGHT$(A$,2) : GOTO 1040 1070 IF Mellanslag=0 OR Mellanslag=LEN(A$) THEN Flag2=2 ELSE Flag2=0 1080 IF Mellanslag>0 THEN Ord$=LEFT$(A$,Mellanslag-1) ELSE Ord$=A$ 1090 LET A$=RIGHT$(A$,Mellanslag+1) 1100 IF ASCII(A$)=32 THEN A$=RIGHT$(A$,2) : GOTO 1100 1110 ! ****************** SKALA AV SKILJETECKEN OCH R[KNA ORD ************* 1120 ! %%%%%%%%%%%%%%%%%% DELMOMENT A: F\RSTA TECKEN VASKAS FRAM %%%%%%%%%% 1130 IF ASCII(Ord$)=32 THEN Ord$=RIGHT$(Ord$,2) : GOTO 1130 1140 ! %%%%%%%%%%%%%%%%%% DELMOMENT B: SISTA TECKEN VASKAS FRAM %%%%%%%%%%% 1150 Ord1$=RIGHT$(Ord$,LEN(Ord$)) 1160 IF ASCII(Ord1$)=127 THEN 1190 1170 IF ASCII(Ord1$)=45 THEN 1800 1180 IF ASCII(Ord$)>63 THEN 1210 1190 Ord$=LEFT$(Ord$,LEN(Ord$)-1) 1200 GOTO 1140 1210 IF C>0 OR ASCII(Ord$)>63 THEN 1220 1220 ! %%%%%%%%%%%% DELMOMENT C: Addition av Totord och L}ngord %%%%%%%%%%% 1230 Totord=Totord+1 1240 IF LEN(Ord$)>6 THEN LET L}ngord=L}ngord+1 1250 IF Flag2=2 THEN 600 ELSE 1030 1260 ! ************* F E L H A N T E R A R E ************ 1270 IF ERRCODE=34 OR ERRCODE=38 THEN RESUME 1320 1280 IF ERRCODE=134 OR ERRCODE=210 THEN RESUME 1770 1290 PRINT DBLE RED "FEL ";ERRCODE : PRINT 1300 STOP 1310 ! 1320 LET Err=1 1330 ! ************* UTSKRIFTSDEL ************* 1340 IF Del$="N" AND Err=1 THEN Avsnitt$="Hela "+Fil$ 1350 IF LEN(Avsnitt$)=0 THEN 1580 1360 IF Mening=0 THEN GOTO 1580 1370 IF Pr THEN PRINT #2,Avsnitt$ 1380 PRINT GRN Avsnitt$ 1390 Siff$=SPACE$(30)+NUM$(INT(Totord)) : Siff$=RIGHT$(Siff$,LEN(Siff$)-5) 1400 Siff1$=SPACE$(15)+NUM$(INT(L}ngord)) : Siff1$=RIGHT$(Siff1$,LEN(Siff1$)-10) 1410 Siff$=Siff$+Siff1$ 1420 Ol.=L}ngord*100./Totord : Ol=10*Ol. : Ol.=Ol/10. 1430 Siff1$=SPACE$(15)+NUM$(Ol.) : Siff1$=RIGHT$(Siff1$,LEN(Siff1$)-10) 1440 Siff$=Siff$+Siff1$ 1450 Siff1$=SPACE$(15)+NUM$(INT(Mening)) : Siff1$=RIGHT$(Siff1$,LEN(Siff1$)-10) 1460 Siff$=Siff$+Siff1$ 1470 Ml.=Totord/Mening : Ml=Ml.*10 : Ml.=Ml/10. 1480 Siff1$=SPACE$(15)+NUM$(Ml.) : Siff1$=RIGHT$(Siff1$,LEN(Siff1$)-10) 1490 Siff$=Siff$+Siff1$ 1500 Lix=INT(Ml.+Ol.+.5) 1510 Siff1$=SPACE$(17)+NUM$(INT(Lix)) : Siff1$=RIGHT$(Siff1$,LEN(Siff1$)-10) 1520 Siff$=Siff$+Siff1$ 1530 Siff1$=SPACE$(15)+NUM$(INT(Tecklen)) : Siff1$=RIGHT$(Siff1$,LEN(Siff1$)-10) 1540 Siff$=Siff$+Siff1$ 1550 IF Pr THEN PRINT #2,Siff$ 1560 PRINT YEL Siff$ 1570 Z=FNAddo 1580 IF Err=1 THEN 1620 1590 Totord=0 : L}ngord=0 : Mening=0 1600 Avsnitt$=Avsnitt1$ 1610 GOTO 600 1620 ! ************ A V S L U T N I N G ************ 1630 IF Del$="N" THEN 1660 1640 IF G}ng=0 THEN Z=FNSummera 1650 IF Z THEN Z=0 : GOTO 1350 1660 IF Pr THEN ; #2 : ; #2,"Fil ";Fil$;" slut. " : ; #2 : ; #2 1670 PRINT : PRINT CYA "Fil ";Fil$;" slut. "; 1680 CLOSE 1,2 1690 PRINT YEL "Vill du k|ra fler filer (N)?" GRN; : PRINT CHR$(8,8,8,8); 1700 INPUT ""Ja$ : IF LEN(Ja$)=0 THEN Ja$="N" 1710 Ja$=CHR$(ASCII(Ja$) AND 223) 1720 IF Ja$<>"J" THEN 1760 1730 Totord=0 : L}ngord=0 : Mening=0 : Tecklen=0 : G}ng=0 1740 Totordtot=0 : L}ngordtot=0 : Meningtot=0 : Teck=0 1750 GOTO 110 1760 END 1770 REM ************ 'ORDET' HAR F]TT FEL 210 ELLER 134 ********* 1780 IF LEN(Ord$)>0 THEN LET Totord=Totord+1 1790 IF Flag2=0 THEN GOTO 1030 ELSE GOTO 600 1800 REM ************ BINDESTRECK P] SISTA ORDET ************ 1810 Or$=LEFT$(Ord$,LEN(Ord$)-1) 1820 GOTO 600 1830 REM ******* Funktion FNAddo: adderar till slutsummering ****** 1840 DEF FNAddo 1850  Totordtot=Totordtot+Totord 1860 L}ngordtot=L}ngordtot+L}ngord 1870 Meningtot=Meningtot+Mening 1880  Teck=Teck+Tecklen 1890 Tecklen=0 1900 RETURN 0 1910 FNEND 1920 REM ***** Funktion FNSummera: f|rbereder f|r utskrift att totalv{rden **** 1930 DEF FNSummera 1940 G}ng=1 1950 Avsnitt$="Hela "+Fil$ 1960 Totord=Totordtot 1970 L}ngord=L}ngordtot 1980 Mening=Meningtot 1990 Tecklen=Teck 2000 RETURN -1 2010 FNEND 2020 REM  FNV{lj$: tar emot info om vald fil  2030 DEF FNV{lj$(A,Text$) LOCAL Fil$=160 2040 PRINT CUR(A,0) YEL Text$ CYA; 2050 Fil$=FNInmat$ 2060 IF Fil$="PR" THEN Fil$="PR:" ELSE IF Fil$="CON" THEN Fil$="CON:" 2070 IF A=4 AND LEN(Fil$)=0 THEN ; CUR(6,0);"Filnamn ej angivet!" : GOTO 2150 2080 IF A=8 AND L EN(Fil$)=0 THEN Fil$="PR:" 2090 IF Z THEN 2040 2100 ; CUR(A+2,0) YEL "Vald fil/enhet: " GRN Fil$ YEL " [r det riktigt (J) "; 2110 PRINT CHR$(8,8,8); 2120 INPUT ""Ja$ : IF LEN(Ja$)=0 THEN Ja$="J" 2130  Ja$=CHR$(ASCII(Ja$) AND 223) 2140 IF Ja$<>"J"! THEN 2150 ELSE 2180 2150 FOR I=A TO A+2 : PRINT CUR(I,0) SPACE$(80); : NEXT I 2160 Fil$="" 2170  GOTO 2040 2180 PRINT CUR(A+2,0) SPACE$(80); 2190 RETURN Fil$ 2200 FNEND 2210 REM  FNInmat$: matar in filnamn m m  2220 DEF FNInmat$ LO"CAL Rad$=160 2230 INPUT LINE Rad$ 2240 Rad$=FNVersaler$(LEFT$(Rad$,LEN(Rad$)-2)) 2250  PRINT STRING$(LEN(Rad$),8) Rad$ ! Skriv |ver med versaler 2260 RETURN Rad$ 2270 FNEND 2280 REM  FNVersaler$: g|r om tecknen till versaler  2290 D#EF FNVersaler$(In$) LOCAL Ut$=160,P,K 2300 Ut$=In$ 2310 WHILE P95 AND K<127 THEN MID$(Ut$,P,1)=CHR$(K-32) 2350 WEND 2360 RETURN Ut$ 2370 FNEND 2380 REM  FNSvar: test om vald fi$l/enhet finns  2390 DEF FNSvar(A,F$) LOCAL R,Slask$=10 2400 ON ERROR GOTO 2450 2410 OPEN F$ AS FILE 8 2420 CLOSE 8 2430 R=0 2440 RETURN R 2450 PRINT CUR(A+2,0); 2460 PRINT RED "Hittar inte r{tt fil/enhet, vill du f|rs|ka igen (J)?"; 2470 %PRINT CHR$(8,8,8); 2480 INPUT LINE Slask$ 2490  FOR I=A TO A+2 : PRINT CUR(I,0) SPACE$(80); : NEXT I 2500 IF ASCII(Slask$)=13 THEN Slask$="J" 2510 Slask$=CHR$(ASCII(Slask$) AND 223) 2520 IF Slask$<>"J" THEN R=-1 : RESUME 2440 2530 PRINT CUR(A+2,&0);SPACE$(79); : R=1 2540 RESUME 2440 2550 FNEND 2560 REM  FNInrow 25: l{gger in text p} rad 25  2570 DEF FNInrow25(Text$) LOCAL Vdu$=0 2580 OUT 56,6,57,25 2590 POKE VAROOT(Vdu$),80,0,32695,127 2600 Vdu$=Text$ 2610 RETURN -1 2620 FNEN'D 2630 REM  FNTestrad: l{gger in plats f|r nummer p} testad textrad  2640 DEF FNTestrad 2650 POKE VAROOT(Rad$),80,0,32710,127 2660 RETURN -1 2670 FNEND 2680 REM  FNFiltest: kollar om fil f|r lagring finns  2690 DEF FNFiltest(A,F$)( 2700 ON ERROR GOTO 2850 2710 G}ng=0 2720 OPEN F$ AS FILE 8 2730 CLOSE 8 2740 ; CUR(A+2,0) RED "OBS! Filen finns redan, vill du lagra |ver den (J)?"; 2750 PRINT CHR$(8,8,8); : INPUT ""Ja$ 2760 IF LEN(Ja$)=0 THEN Ja$="J" 2770 Ja$=CHR$(ASCII(Ja$)) AND 223) 2780 IF Ja$="J" THEN 2820 2790 FOR I=A TO A+2 : PRINT CUR(I,0) SPACE$(80); : NEXT I 2800 RETURN 0 2810 G}ng=-1 2820 PREPARE F$ AS FILE 2 2830 FOR I=A TO A+2 : PRINT CUR(I,0) SPACE$(80); : NEXT I 2840 RETURN -1 2850 IF ERRCODE=21 AN*D NOT G}ng THEN RESUME 2810 2860 IF ERRCODE=21 AND G}ng THEN RESUME 2890 2870 PRINT ERRCODE "Tryck valfri tangent f|r att forts{tta"; 2880 RESUME 2790 2890 PRINT CUR(A+2,0) RED "OBS! Felaktigt filnamn, f|rs|k igen!"; 2900 FOR Ja=1 TO 3000 : NEXT +Ja 2910 FOR I=A TO A+2 : PRINT CUR(I,0) SPACE$(80); : NEXT I 2920 RETURN 0 2930 FNEND >Tryck valfri tangent f|r att forts{tta"; 2880 RESUME 2790 2890 PRINT CUR(A+2,0) RED "OBS! Felaktigt filnamn, f|rs|k igen!"; 2900 FOR Ja=1 TO 3000 : NEXT ,0 FOR I=A TO A+2 : PRINT CUR(I,0) SPACE$(80); : NEXT I 2920 RETURN 0 2930 FNEND >Tryck valfri tangent f|r att forts{tta"; 2880 RESUME 2790 2890 PRINT CUR(A+2,0) RED "OBS! Felaktigt filnamn, f|rs|k igen!"; 2900 FOR Ja=1 TO 3000 : NEXT " 1 REM Ins{nd av Hans-Georg Wallentinus <4046>  1988-01-09 23.14.42 (KERMIT) PROGRAM LIX-BAC (ver. 2.0, 1988-01-09) ALLM[NT OM LIX Programmet ber{knar l{sbarhetsindex (LIX). V{rdet {r ett m}tt p} hur l{tt en skriven text {r att f|rst}. LIX-v{rdet {r summan av procent l}nga ord i en mening och antalet ord i samma mening. Har man en text med m}nga l}nga ord (sju bokst{ver eller mer) s{nks lixtalet om meningarna g|rs fler och kortare. Omv{nt kan man till}ta sig ha l{ngre meningar om texten best}r av m}nga korta ord. UNGEF[RLIGA RIKTV[RDEN F\R LIX Barnb|cker och motsvarande: ca 30-35 Artiklar i dagstidningar: 35-50 Artiklar i popul{rvetenskapliga tidskrifter till en "allm{nbildad allm{nhet": 40-60 Vetenskapliga artiklar: 55 och upp}t. S] H[R FUNGERAR PROGRAMMET Efter RUN f}r du en fr}ga om vilken (text)fil som skall genoms|kas. Efter detta kommer en fr}ga om du vill dela upp texten i delavsnitt. Svarar du ja, f}r du en f|ljdfr}ga om vilken "teckensekvens" som skall utm{rka inledningen av ett nytt delavsnitt. Denna m}ste du f|rst ha lagt in i texten. Om du inte har n}got eller n}gra speciella tecken som alltid inleder ett stycke, t ex B f|r fet text eller E f|r bred text, kan du l{gga in t ex "$$" som s{llan anv{nds i l|pande text. Du kan sedan v{lja mellan att f} utskrift p} skrivare eller annan ytt- re enhet, t ex en diskett. Utskrift p} sk{rmen f}r du alltid. F|rutom LIX-v{rdet anges antalet ord totalt, antal l}nga ord, procent l}nga ord, antal meningar, antal ord per mening i genomsnitt, samt totalt antal tecken i avsnittet (inkl. mellanslag). Avslutningsvis ber{knas dessa v{rden f|r hela texten. L{gg m{rke till att "hela tex- ten" f}r lite olika v{rde om du har delat upp den i avsnitt, resp. om du k|r hela texten utan uppdelning. Detta beror p} att rubrikerna kom- mer med i det senare fallet. En utskrift av "lixningen" av ovanst}ende text ser ut s} h{r: *** LIX.INF *** Totord L}ngord % L}ngord Mening Ord/Mening Lix  Ant.tkn ALLM[NT OM LIX 66 15 22 .7  4  16  39  486 UNGEF[RLIGA RIKTV[RDEN F\R LIX 15 7  46.7  1  15  62  311 S] H[R FUNGERAR PROGRAMMET 205  43  21  13  15  36  1257 Hela LIX.INF  286  65 22.7 18 15 38 2054 Fil LIX.INF slut Hans-Georg Wal lentinus <4046> > 486 UNGEF[RLIGA RIKTV[RDEN F\R LIX 15 7  46.7  1  15  62  311 S] H[R FUNGERAR PROGRAMMET 205  43  21  13  15  36  1257 Hela LIX.INF  286  65 22.7 18 15 38 2054 Fil LIX.INF slut Hans-Georg Wal s <4046> > 486 UNGEF[RLIGA RIKTV[RDEN F\R LIX 15 7  46.7  1  15  62  311 S] H[R FUNGERAR PROGRAMMET 205  43  21  13  15  36  1257 Hela LIX.INF  286  65 22.7 18 15 38 2054 Fil LIX.INF slut Hans-Georg Wal 1 REM Ins{nd av Daniel Deimert <5439> 1987-08-18 23.39.55 (KERMIT) 10 ! * * MADMAIN.806 11 ! * * 12 ! ********************************************************************* 13 ! ** 14 ! ** Huvudprogram f|r ABC806. G|r MERGE p} MADDATA.BAS, d{r ligger 15 ! ** datasatserna som {r gemensamma f|r alla datorer. De {r ocks} 16 ! ** jobbigast att knappa in.... 17 ! ** Datasatserna {r tagna ur tidningen Svenska Mad. Figuren som 18 ! ** ritas p} sk{rmen...tja, ni f}r v{l gissa! 19 ! ** 20 ! ** Inskickat & Inknappat av <5439> Daniel Deimert 21 ! ** 22 ! ** Kopiering av detta g}r alldeles utm{rkt, dock inte kommersiell 23 ! ** s}dan, d} f}r ni betala pengar till Sv. MAD, inte f|r att jag 24 ! ** tror att n}gon vill K\PA det h{r programmet, men... 25 ! ** 26 ! ********************************************************************* 27 ! ** 28 ! ** Tillh|rande programfiler: MADMAIN.806 29 ! **  MADMAIN.800 30 ! **  MADDATA.BAS 31 ! ** 32 ! ** MADMAIN.806 {r huvudprogrammet f|r ABC806. MADMAIN.800 {r 33 ! ** motsvarande f|r ABC800 m. HR-grafik. MADDATA.BAS {r de 34 ! ** gemensamma datasatserna som MERGE'as in i huvudprogrammet. 35 ! ** 36 ! ********************************************************************* 37 ! ** 38 ! ** Kommentarer p} och omkring detta program skickas till: 39 ! ** 40 ! ** Daniel Deimert <5439> 41 ! ** Fridstav{gen 4 42 ! **  715 00 Odensbacken 43 ! **  Telefon: 019/52031 44 ! ** 45 ! ********************************************************************* 46 ! ** 47 ! ** 100 INTEGER : EXTEND 110 Size.=1.6 : Xc=256 : Yc=120 120 FGCTL BLK+GBLK 130 FGPOINT 0,0,0 : FGFILL 511,239,0 140 ; CHR$(12); 150 READ X,Y,X1,Y1 160 IF X=999 THEN GOTO 220 170 Fx=X*Size.+Xc : Fy=239-(Y+Yc) 180 Lx=X1*Size.+Xc : Ly=239-(Y1+Yc) 190 Fy=-Fy : Ly=-Ly : Fy=Fy+239 : Ly=Ly+239 200 FGPOINT Fx,Fy,1 : FGLINE Lx,Ly,1 : FGPOINT Fx+1,Fy,1 : FGLINE Lx+1,Ly,1 210 GOTO 150 220 ; CUR(22,23) DBLE "VAD], JAG DYSTER?"; 230 ; CUR(24,78); 240 GET A$ 250 ; CHR$(12); : FGCT L BLK+BLK : ; CUR(3,24) "COPYRIGHT 1985 E.C PUBLICATIONS"; 260 ; CUR(4,20) 'Inknappat & konverterat till ABC806 av' 270 ; CUR(5,27) 'Daniel Deimert <5439>' 280 ; CUR(20,0); 290 END >JAG DYSTER?"; 230 ; CUR(24,78); 240 GET A$ 250 ; CHR$(12); : FGCT LK : ; CUR(3,24) "COPYRIGHT 1985 E.C PUBLICATIONS"; 260 ; CUR(4,20) 'Inknappat & konverterat till ABC806 av' 270 ; CUR(5,27) 'Daniel Deimert <5439>' 280 ; CUR(20,0); 290 END >JAG DYSTER?"; 230 ; CUR(24,78); 240 GET A$ 250 ; CHR$(12); : FGCT100 ! ----------------------------------------------------- 110 ! 120 ! ' IFR - SIMULATOR  (f|r ABC806) 130 ! ' =============== 140 ! 150 ! '  Saved as  'SIMULHR.BAC' 160 ! 170 ! ID Computer-Systeme GmbH * Bad Honnef * 180 ! 190 ! 20.02.1985 200 ! 210 ! 9'976 bytes frei 220 ! ------------------------------------------------------ 230 ! 235 EXTEND : FLOAT 240 ! ---------------------- Common --------------------------- 250 ! 260 COMMON Vs(19,2),Vp(9,1,5),Vpl(9),Wa(10,1),Err(23),Errtot(23),Errtot 270 COMMON Vs$(19)=3,Vp$(9)=10,Err$(23)=50 280 COMMON Nlatmin,Nlatmax,Nlatdiff,Elongmin,Elongmax,Elongdiff 290 COMMON Flag 300 ! 310 COMMON Korr,Zgr,Kd,Kgr 320 COMMON Fra,Fin,Fhi,Fza,Fan,Fze 330 COMMON A(4),A0,A1,A2,A4,A6,A7 340 COMMON B(4),B0,B1,B2,B4,B6,B7 350 ! 360 ! ---------------------- Wind ------------------------------ 370 ! 380 Rs=1 : IF RND<.5 THEN Rs=-1 390 FOR I=0 TO 10 : Wa(I,0)=RND/4 : NEXT I 400 FOR I=4 TO 6 : Wa(I,0)=Wa(I,0)*Rs : NEXT I 410 FOR I=0 TO 6 : Wa(I,1)=FIX(5*RND) : NEXT I 420 FOR I=4 TO 6 : Wa(I,1)=Wa(I,1)*Rs : NEXT I 430 ! 440 ! ------------- Pisten - Daten ------------------- 450 ! 460 Vpl(0)=285 : Vp$(0)="Paris" 470 Vp(0,0,0)=81 : Vp(0,0,1)=2.1 : Vp(0,0,2)=1.1 : Vp(0,0,3)=2.1 : Vp(0,0,4)=3.1 : Vp(0,0,5)=4.1 480 Vp(0,1,0)=81 : Vp(0,1,1)=2.1 : Vp(0,1,2)=1.1 : Vp(0,1,3)=2.1 : Vp(0,1,4)=3.1 : Vp(0,1,5)=4.1 490 Vpl(1)=636 : Vp$(1)="Lyon" 500 Vp(1,0,0)=168 : Vp(1,0,1)=2.1 : Vp(1,0,2)=1.1 : Vp(1,0,3)=2.1 : Vp(1,0,4)=3.1 : Vp(1,0,5)=4.1 510 Vp(1,1,0)=168 : Vp(1,1,1)=2.1 : Vp(1,1,2)=1.1 : Vp(1,1,3)=2.1 : Vp(1,1,4)=3.1 : Vp(1,1,5)=4.1 520 Vpl(2)=66 : Vp$(2)="Marseille" 530 Vp(2,0,0)=138 : Vp(2,0,1)=2.1 : Vp(2,0,2)=1.1 : Vp(2,0,3)=2.1 : Vp(2,0,4)=3.1 : Vp(2,0,5)=4.1 540 Vp(2,1,0)=138 : Vp(2,1,1)=2.1 : Vp(2,1,2)=1.1 : Vp(2,1,3)=2.1 : Vp(2,1,4)=3.1 : Vp(2,1,5)=4.1 550 Vpl(3)=691 : Vp$(3)="Milan" 560 Vp(3,0,0)=352 : Vp(3,0,1)=2.1 : Vp(3,0,2)=1.1 : Vp(3,0,3)=2.1 : Vp(3,0,4)=3.1 : Vp(3,0,5)=4.1 570 Vp(3,1,0)=352 : Vp(3,1,1)=2.1 : Vp(3,1,2)=1.1 : Vp(3,1,3)=2.1 : Vp(3,1,4)=3.1 : Vp(3,1,5)=4.1 580 Vpl(4)=164 : Vp$(4)="Br}ssel" 590 Vp(4,0,0)=50 : Vp(4,0,1)=2.1 : Vp(4,0,2)=1.1 : Vp(4,0,3)=2.1 : Vp(4,0,4)=3.1 : Vp(4,0,5)=4.1 600 Vp(4,1,0)=50 : Vp(4,1,1)=2.1 : Vp(4,1,2)=1.1 : Vp(4,1,3)=2.1 : Vp(4,1, 4)=3.1 : Vp(4,1,5)=4.1 610 Vpl(5)=111 : Vp$(5)="......." 620 Vp(5,0,0)=0 : Vp(5,0,1)=2.1 : Vp(5,0,2)=1.1 : Vp(5,0,3)=2.1 : Vp(5,0,4)=3.1 : Vp(5,0,5)=4.1 630 Vp(5,1,0)=0 : Vp(5,1,1)=2.1 : Vp(5,1,2)=1.1 : Vp(5,1,3)=2.1 : Vp(5,1,4)=3.1 : Vp(5,1,5)=4.1 640 Vpl(6)=111 : Vp$(6)="......." 650 Vp(6,0,0)=0 : Vp(6,0,1)=2.1 : Vp(6,0,2)=1.1 : Vp(6,0,3)=2.1 : Vp(6,0,4)=3.1 : Vp(6,0,5)=4.1 660 Vp(6,1,0)=0 : Vp(6,1,1)=2.1 : Vp(6,1,2)=1.1 : Vp(6,1,3)=2.1 : Vp(6,1,4)=3.1 : Vp(6,1,5)=4.1 670 Vpl(7)=111 : Vp$(7)="... ...." 680 Vp(7,0,0)=0 : Vp(7,0,1)=2.1 : Vp(7,0,2)=1.1 : Vp(7,0,3)=2.1 : Vp(7,0,4)=3.1 : Vp(7,0,5)=4.1 690 Vp(7,1,0)=0 : Vp(7,1,1)=2.1 : Vp(7,1,2)=1.1 : Vp(7,1,3)=2.1 : Vp(7,1,4)=3.1 : Vp(7,1,5)=4.1 700 Vpl(8)=111 : Vp$(8)="......." 710 Vp(8,0,0)=0 : V p(8,0,1)=2.1 : Vp(8,0,2)=1.1 : Vp(8,0,3)=2.1 : Vp(8,0,4)=3.1 : Vp(8,0,5)=4.1 720 Vp(8,1,0)=0 : Vp(8,1,1)=2.1 : Vp(8,1,2)=1.1 : Vp(8,1,3)=2.1 : Vp(8,1,4)=3.1 : Vp(8,1,5)=4.1 730 Vpl(9)=111 : Vp$(9)="......." 740 Vp(9,0,0)=0 : Vp(9,0,1)=2.1 : Vp(9,0,2)=1.1 : Vp(9,0,3)=2.1 : Vp(9,0,4)=3.1 : Vp(9,0,5)=4.1 750 Vp(9,1,0)=0 : Vp(9,1,1)=2.1 : Vp(9,1,2)=1.1 : Vp(9,1,3)=2.1 : Vp(9,1,4)=3.1 : Vp(9,1,5)=4.1 760 ! 770 ! -------------------- VOR - Daten ------------------------ 780 ! 790 Vs(0,0)=48.7166 : Vs(0,1)=2.3833 : Vs(0,2)=111.2 : Vs$(0)="OL " 800 Vs(1,0)=45.75 : Vs(1,1)=4.95 : Vs(1,2)=116.3 : Vs$(1)="LYO" 810 Vs(2,0)=43.45 : Vs(2,1)=5.2 : Vs(2,2)=117.1 : Vs$(2)="MBO" 820 Vs(3,0)=45.63301 : Vs(3,1)=8.7 : Vs(3,2)=113.7 : Vs$(3)="SRN" 830 Vs(4,0)=50.9 : Vs(4,1)=4.4833 : Vs(4,2)=114.6 : Vs$(4)="BUB" 840 Vs(5,0)=42 : Vs(5,1)=1 : Vs(5,2)=109.1 : Vs$(5)="..." 850 Vs(6,0)=42 : Vs(6,1)=1 : Vs(6,2)=109.1 : Vs$(6)="..." 860 Vs(7,0)=42 : Vs(7,1)=1 : Vs(7,2)=109.1 : Vs$(7)="..." 870 Vs(8,0)=42 : Vs(8,1)=1 : Vs(8,2)=109.1 : Vs$(8)="..." 880 Vs(9,0)=42 : Vs(9,1)=1 : Vs(9,2)=109.1 : Vs$(9)="..." 890 Vs(10,0)=42 : Vs(10,1)=1 : Vs(10,2)=109.1 : Vs$(10)="..." 900 Vs(11,0)=42 : Vs(11,1)=1 : Vs(11,2)=109.1 : Vs$(11)="..." 910 Vs(12,0)=42 : Vs(12,1)=1 : Vs(12,2)=109.1 : Vs$(12)="..." 920 Vs(13,0)=42 : Vs(13,1)=1 : Vs(13,2)=109.1 : Vs$(13)="..." 930 Vs(14,0)=42 : Vs(14,1)=1 : Vs(14,2)=109.1 : Vs$(14)="..." 940 Vs(15,0)=42 : Vs(15,1)=1 : Vs(15,2)=109.1 : Vs$(15)="..." 950 Vs(16,0)=42 : Vs(16,1)=1 : Vs(16,2)=109.1 : Vs$(16)="..." 960 Vs(17,0)=42 : Vs(17,1)=1 : Vs(17,2)=109.1 : Vs$(17)="..." 970 Vs(18,0)=42 : Vs(18,1)=1 : Vs(18,2)=109.1 : Vs$(18)="..." 980 Vs(19,0)=42 : Vs(19,1)=1 : Vs(19,2)=109.1 : Vs$(19)="..." 990 ! 1000 ! -------------------- Definitionen ------------------------ 1010 ! 1020 DEF FNZahl(X0,Y0,N$,F) LOCAL X,Y 1030 X=X0-4 : Y=Y0 1040 FOR J=1 TO LEN(N$) 1050 Z=-1 1060  Z$=MID$(N$,J,1) 1070 IF Z$>="0" AND Z$<="9" THEN Z=VAL(Z$) 1080  X=X+4 : Y=Y0 1090 IF Z$="-" THEN Z=10 : X=X-1 1100 IF Z$="." THEN Z=11 : X=X-2 1110 IF Z$="1" THEN X=X-1 1120 IF Z=0 THEN FGPOINT X,Y,F : FGLINE X+2,Y : FGLINE X+2,Y+4 : FGLINE X,Y+4 : FGLINE X,Y 1130 IF Z=1 THEN FGPOINT X+2,Y,F : FGLINE X+2,Y+4 1140 IF Z=2 THEN FGPOINT X+2,Y,F : FGLINE X,Y : FGLINE X,Y+2 : FGLINE X+2,Y+2 : FGLINE X+2,Y+4 : FGLINE X,Y+4 1150 IF Z=3 THEN FGPOINT X,Y,F : FGLINE X+2,Y : FGLINE X+2,Y+4 : FGLINE X,Y+4 : FGPOINT X+1,Y+2 1160 IF Z=4 THEN FGPOINT X+2,Y,F : FGLINE X+2,Y+4 : FGPOINT X,Y+4 : FGLINE X,Y+2 : FGLINE X+2,Y+2 1170 IF Z=5 THEN FGPOINT X,Y,F : FGLINE X+2,Y : FGLINE X+2,Y+2 : FGLINE X,Y+2 : FGLINE X,Y+4 : FGLINE X+2,Y+4 1180  IF Z=6 THEN FGPOINT X+2,Y+4,F : FGLINE X,Y+4 : FGLINE X,Y : FGLINE X+2,Y : FGLINE X+2,Y+2 : FGLINE X,Y+2 1190 IF Z=7 THEN FGPOINT X+2,Y,F : FGLINE X+2,Y+4 : FGLINE X,Y+4 1200 IF Z=8 THEN FGPOINT X,Y,F : FGLINE X+2,Y : FGLINE X+2,Y+4 : FGLINE X,Y+4 : FGLINE X,Y : FGPOINT X+1,Y+2 1210  IF Z=9 THEN FGPOINT X,Y,F : FGLINE X+2,Y : FGLINE X+2,Y+4 : FGLINE X,Y+4 : FGLINE X,Y+2 : FGLINE X+2,Y+2 1220 IF Z=10 THEN FGPOINT X+1,Y+2,F : FGLINE X+2,Y+2 1230 IF Z=11 THEN FGPOINT X+1,Y,F 1240 NEXT J 1250 RETURN 0 1260 FNEND 1270 DEF FNVor(X1,Y1) 1280  FOR J=0 TO 29 1290 FGPOINT X1+2*SIN(J*PI/15)*2,Y1+COS(J*PI/15)/Korr*2,2 1300 IF INT(J/5)*5=J THEN FGLINE X1+2*SIN(J*PI/15)*3,Y1+COS(J*PI/15)*3/Korr 1310 NEXT J 1320 RETURN 0 1330 FNEND 1340 ! 1350 ! --------------------- Verteilung ------------------------ 1360 ! 1370 IF Flag=1 THEN 1400 1380 IF Flag=2 THEN 3220 1390 IF Flag=3 THEN 3380 1400 ! 1410 ! --------------------- Variablen / Clear ----------------- 1420 ! 1430 FGCTL BLK 1440 FGPICTURE 0,0,4 : FGPOINT 0,0,0 : FGFILL 511,239 1450 FGPICTURE 1,0 : FGPOINT 0,0,0 : FGFILL 511,239 1460 FGPICTURE 2,0 : FGPOINT 0,0,0 : FGFILL 511,239 1470 RESTORE 1480 FOR I=0 TO 23 1490 READ Err$(I),Err(I) 1500 NEXT I 1510 ! 1520 ! -------------------- Ursprung --------------------------- 1530 ! 1540 Nlatmin=42 : Nlatmax=52 : Nlatdiff=Nlatmax-Nlatmin 1550 Elongmin=0 : Elongmax=Elongmin+2*Nlatdiff : Elongdiff=Elongmax-Elongmin 1560 Korr=.865 1570 Zgr=14 : ! Zeigergr|sse 1580 Kd=18 : ! Kreisgr|sse 1590 Kgr=3 : ! Kreisgradation 1600 Khd=23 : ! K}nstl. Horizont Durchmesser 1610 A(0)=227 : A(1)=173 : A(2)=173 : A(3)=227 : A(4)=117 1620 B(0)=40 : B(1)=40 : B(2)=100 : B(3)=100 : B(4)=45 1630 A0=117 : B0=105 : ! K}nstlicher Horizont 1640 A1=203 : B1=140 : ! ILS Kreuz 1650 A2=128 : B2=235 : ! Mittelstreifen 1660 A4=0 : B4=140 : ! Radio 1670 A5=0 : B5=170 : ! DME 1680 A6=32 : B6=96 : ! Wheels 1690 A7=50 : B7=50 : ! Tanks 1700 A8=78 : B8=0 : ! VLF 1710 A9=0 : B9=200 : ! Navigation 1720 Fra=5 : ! F Rahmen 1730 Frah=6 : ! F Rahmen-Instrumente 1740 Fin=5 : ! F Instrumente 1750 Fhi=5 : ! F Hintergrund 1760 Fza=7 : ! F Zahlen 1 770 Fan=7 : ! F Analog 1780 Fze=6 : ! F Zeiger 1790 Fkrd=5 : ! F VOR Koordinaten 1800 ! 1810 ! ----------------- VOR Karte zeichnen ------------------------ 1820 ! 1830 FGPICTURE 1,1 : FGCTL BLK : ! 1,0 / 1840 FGCTL BLK+BLU+GRN+RED : ! / 1850 FOR I=0! TO Elongdiff 1860  Z=FNZahl(I*490/Elongdiff+8,3,NUM$(I+Elongmin),1) 1870 FOR J=10 TO 230 STEP 2 1880 FGPOINT I*490/Elongdiff+10,J,1 1890 NEXT J 1900 NEXT I 1910 FOR I=0 TO Nlatdiff 1920 Z=FNZahl(0,I*220/Nlatdiff+8,NUM$(I+Nlatmin),1) 1930 FOR "J=10 TO 500 STEP 4 1940  FGPOINT J,I*220/Nlatdiff+10 1950 NEXT J 1960 NEXT I 1970 FOR I=0 TO 5 1980  Y=11+(Vs(I,0)-Nlatmin)/Nlatdiff*220 : X=12+(Vs(I,1)-Elongmin)/Elongdiff*490 1990 Z=FNVor(X,Y) 2000 Z=FNZahl(X,Y+5,NUM$(Vs(I,2)),3) 2010 NEXT I # 2020 ! 2030 ! ------------------- Platz Karte zeichnen -------------------- 2040 ! 2050 FGPICTURE 2,0 : FGCTL BLK+BLK+BLK+BLK+BLK 2060 FGPOINT 0,180,1 : FGLINE 40,180 2070 FGPOINT 20,160 : FGLINE 20,200 2080 ! 2090 ! ----------------------- Rah$menstruktur ------------------------- 2100 ! 2110 FGPICTURE 0,0 : FGCTL BLK+BLK+BLK+BLK+BLK 2120 FGCTL BLK+CYA+RED+YEL+GRN+BLU+MAG+WHT : ! / 2130 ! Fenster 2140 FGPOINT 75,135,Fra : FGLINE 181,135 2150 FGPOINT 101,237 : FGLINE 155,237 2160 FGPOINT 75,%135 : FGLINE 101,237 2170 FGPOINT 181,135 : FGLINE 155,237 2180 FGPOINT 128,140,6 : FGLINE 128,136 : FGLINE 130,136 2190 FGLINE 128,138 : FGLINE 126,136 : FGLINE 128,136 2200 ! K}nstlicher Horizont 2210 FGPOINT A0-25,B0-25/Korr,Frah : FGFILL A0+25,B0-&25/Korr : FGFILL A0+25,B0+24/Korr : FGFILL A0-25,B0+24/Korr : FGFILL A0-25,B0-25/Korr 2220 FGPOINT A0,B0+Khd/Korr,Frah 2230 FOR I=0 TO 119 2240 FGLINE A0+SIN(I*PI/60)*Khd,B0+COS(I*PI/60)*Khd/Korr,Frah 2250 NEXT I 2260 FGPAINT A0-24,B0-27,Frah 2270 ! 'ILS Kreuz 2280 FGPOINT A1,B1,6 : FGFILL A1+50,B1+2 : FGFILL A1+48,B1+50 : FGFILL A1,B1+48 : FGFILL A1+2,B1 2290 FGPOINT A1+50,B1+51,Fin : FGLINE A1+50,B1+82 : FGLINE A1,B1+82 : FGLINE A1,B1+51 2300 ! warnings 2310 FGPOINT A1-30,B1+70,Fin : FGLINE A1-30(,B1+30 : FGLINE A1-1,B1+30 : FGLINE A1-1,B1+70 : FGLINE A1-30,B1+70 2320 ! Radio 2330 FGPOINT A4,B4,Fin : FGLINE A4+74,B4 : FGLINE A4+74,B4+30 : FGLINE A4,B4+30 : FGLINE A4,B4 2340 FGPOINT A4+6,B4+8,Fan : FGLINE A4+66,B4+8 2350 FOR I=0 TO 60 STEP 5 236)0 FGPOINT A4+6+I,B4+9,Fan 2370 IF MOD(I,10)=0 THEN FGPOINT A4+6+I,B4+10 : FGLINE A4+6+I,B4+11 2380 NEXT I 2390 FOR I=0 TO 3 2400  Z=FNZahl(A4+1+I*20,B4+14,NUM$(110+I*4),Fan) 2410 NEXT I 2420 ! DME 2430 FGPOINT A5,B5,Fin : FGLINE A5+74,B5 : FGLINE* A5+74,B5+30 : FGLINE A5,B5+30 : FGLINE A5,B5 2440 ! Navigation 2450 FGPOINT A9,B9,Fin : FGLINE A9+74,B9 : FGLINE A9+74,B9+39 : FGLINE A9,B9+39 : FGLINE A9,B9 : FGPOINT A9,B9+29 : FGLINE A9+74,B9+29 2460 ! Schalter 2470 FGPOINT 50,50,Fin : FGLINE 78,50+ : FGLINE 78,0 : FGLINE 0,0 2480 FGLINE 0,130 : FGLINE 50,130 : FGLINE 50,0 : FGLINE 0,0 2490 FGPOINT 0,30 : FGLINE 50,30 : FGPOINT 0,60 : FGLINE 50,60 2500 FGPOINT 0,90 : FGLINE 50,90 : FGPOINT 0,110 : FGLINE 50,110 2510 ! VLF 2520 FGPOINT A8,B8,Fin :, FGLINE A8+66,B8 : FGLINE A8+66,B8+20 : FGLINE A8,B8+20 : FGLINE A8,B8 2530 ! Tanks 2540 FGPOINT A7,B7,Fin : FGLINE A7+37,B7 : FGLINE A7+37,B7+80 : FGLINE A7,B7+80 : FGLINE A7,B7 2550 FGPOINT A7+5,B7+30 : FGLINE A7+33,B7+30 : FGLINE A7+33,B7+68 : FGLI-NE A7+5,B7+68 : FGLINE A7+5,B7+30 2560 FGPOINT A7+19,B7+30 : FGLINE A7+19,B7+68 2570 FGPOINT A7+6,B7+31,6 : FGFILL A7+18,B7+67 2580 FGPOINT A7+20,B7+31,6 : FGFILL A7+32,B7+67 2590 ! Uhren 2600 FOR J=0 TO 4 2610 FOR I=-Kd TO Kd STEP .5 2620 FGPOINT A.(J)+I,B(J)+SQR(ABS(Kd^2-I^2))/Korr,Fza 2630 IF I=-Kd THEN FGLINE A(J)+I+Kgr,B(J)+(SQR(ABS(Kd^2-I^2)))/Korr 2640 IF I=-Kd THEN FGPOINT A(J)+I,B(J)+(SQR(ABS(Kd^2-I^2))-3)/Korr : FGLINE A(J)+I,B(J)+(SQR(ABS(Kd^2-I^2))+3)/Korr 2650 IF I=0 THEN FGLINE A(/J)+I,B(J)+(SQR(ABS(Kd^2-I^2))-Kgr)/Korr 2660 IF I=Kd THEN FGLINE A(J)+I-Kgr,B(J)+SQR(ABS(Kd^2-I^2))/Korr 2670  IF I=Kd THEN FGPOINT A(J)+I,B(J)+(SQR(ABS(Kd^2-I^2))-3)/Korr : FGLINE A(J)+I,B(J)+(SQR(ABS(Kd^2-I^2))+3)/Korr 2680  FGPOINT A(J)+I,B(J)-S0QR(ABS(Kd^2-I^2))/Korr,Fza 2690  IF I=0 THEN FGLINE A(J)+I,B(J)-(SQR(ABS(Kd^2-I^2))-Kgr)/Korr 2700 NEXT I 2710 NEXT J 2720 FGPOINT 200,11,Fin : FGLINE 200+54,11 : FGLINE 200+54,11+58 : FGLINE 200,11+58 : FGLINE 200,11 2730 FGPOINT 201,12,1 : FGFILL1 218,18 2740 FGPOINT 146,11,Fin : FGLINE 146+51,11 : FGLINE 146+51,11+58 : FGLINE 146,11+58 : FGLINE 146,11 2750 FGPOINT 147,12,1 : FGFILL 164,18 2760 FGPOINT 146,71,Fin : FGLINE 146+51,71 : FGLINE 146+51,71+58 : FGLINE 146,71+58 : FGLINE 146,71 2770 F2GPOINT 147,72,1 : FGFILL 164,78 2780 FGPOINT 200,71,Fin : FGLINE 200+54,71 : FGLINE 200+54,71+58 : FGLINE 200,71+58 : FGLINE 200,71 2790 FGPOINT 201,72,1 : FGFILL 218,78 2800 FGPOINT 88,21,Fin : FGLINE 88+56,21 : FGLINE 88+56,21+49 : FGLINE 88,21+49 : 3FGLINE 88,21 2810 ! Hintergrund 2820 FGPOINT 0,0,Fhi : FGLINE 0,239 : FGLINE 255,239 : FGLINE 255,0 : FGLINE 149,0 2830 FGPAINT 100,75 : FGPAINT 80,230 : FGPAINT 180,170 : FGPAINT 157,237 2840 FGPAINT 10,136 : FGPAINT 250,1 : FGPAINT 81,23 2850 ! acc 24860 Z=FNZahl(A(0)-1,B(0)+23,"0",Fza) 2870 Z=FNZahl(A(0)+14,B(0)+17,".5",Fza) 2880 Z=FNZahl(A(0)+20,B(0)-2,"1",Fza) 2890 Z=FNZahl(A(0)+14,B(0)-20,".5",Fza) 2900 Z=FNZahl(A(0)-1,B(0)-27,"2",Fza) 2910 Z=FNZahl(A(0)-18,B(0)-19,".5",Fza) 2920 Z=FNZahl(A(0)-523,B(0)-2,"1",Fza) 2930 Z=FNZahl(A(0)-18,B(0)+16,".5",Fza) 2940 ! vario 2950 Z=FNZahl(A(1)-1,B(1)+23,"0",Fza) 2960 Z=FNZahl(A(1)+14,B(1)+17,"1",Fza) 2970 Z=FNZahl(A(1)+20,B(1)-2,"2",Fza) 2980 Z=FNZahl(A(1)+14,B(1)-20,"3",Fza) 2990 Z=FNZahl(A(1)-1,B(1)-627,"4",Fza) 3000 Z=FNZahl(A(1)-16,B(1)-19,"3",Fza) 3010 Z=FNZahl(A(1)-23,B(1)-2,"2",Fza) 3020 Z=FNZahl(A(1)-17,B(1)+16,"1",Fza) 3030 ! tas 3040 Z=FNZahl(A(2)-1,B(2)+23,"0",Fza) 3050 Z=FNZahl(A(2)+14,B(2)+17,"1",Fza) 3060 Z=FNZahl(A(2)+20,B(2)-2,"2",Fza7) 3070 Z=FNZahl(A(2)+14,B(2)-20,"3",Fza) 3080 Z=FNZahl(A(2)-1,B(2)-27,"4",Fza) 3090 Z=FNZahl(A(2)-17,B(2)-19,"5",Fza) 3100 Z=FNZahl(A(2)-23,B(2)-2,"6",Fza) 3110 Z=FNZahl(A(2)-17,B(2)+16,"7",Fza) 3120 ! alt 3130 Z=FNZahl(A(3)-1,B(3)+23,"0",Fza) 3140 Z=F8NZahl(A(3)+14,B(3)+17,"5",Fza) 3150 Z=FNZahl(A(3)+20,B(3)-2,"10",Fza) 3160 Z=FNZahl(A(3)+14,B(3)-20,"15",Fza) 3170 Z=FNZahl(A(3)-1,B(3)-27,"20",Fza) 3180 Z=FNZahl(A(3)-20,B(3)-19,"25",Fza) 3190 Z=FNZahl(A(3)-26,B(3)-2,"30",Fza) 3200 Z=FNZahl(A(3)-20,B(93)+16,"35",Fza) 3210 GOTO 3840 3220 ! 3230 ! --------------------- Fehlermeldungen ------------------------- 3240 ! 3250 ; CHR$(12) CUR(0,10) ULN GRN "Fehlermeldungen" NULN " " 3260 ; CUR(1,5) ULN "Text" NULN " " CUR(1,55) ULN "Fehler" NULN " " 3270 :; CUR(1,62) ULN "Anzahl" NULN " " CUR(1,72) ULN "Punkte" NULN " " 3280 ; CUR(0,50) RED "Total Fehler : " YEL Errtot 3290 FOR I=1 TO 23 3300 ; CUR(1+I,0) MAG Err$(I); 3310 ; CUR(1+I,55) WHT; : ; USING "####" Err(I); 3320 ; CUR(1+I,62) BLU; : ; USING; "###" Errtot(I)/Err(I); 3330 ; CUR(1+I,72) YEL; : ; USING "####" Errtot(I); 3340 NEXT I 3350 IF SYS(5)<>0 THEN GET H$ ELSE 3350 3360 IF H$<>CHR$(32) THEN 3350 3370 GOTO 3840 3380 ! 3390 ! ------------------------- Instruktionen -------------------<--------- 3400 ! 3410 ; CHR$(12) CUR(0,20) ULN GRN "Instruktionen" NULN " " 3420 ; CUR(3,0) RED "E = " YEL "Ende" 3430 ; CUR(3,0) RED "C = " YEL "Kursvorwahl" 3440 ; CUR(4,0) RED "W = " YEL "Wheels" 3450 ; CUR(5,0) RED "V = " YEL "VOR Frequenz" 3460 ;= CUR(6,0) RED "R = " YEL "Radial" 3470 ; CUR(7,0) RED "A = " YEL "Kurs einstellen" 3480 ; CUR(8,0) RED "M = " YEL "Durchstarten" 3490 ; CUR(9,0) RED "F = " YEL "Auftanken" 3500 ; CUR(10,0) RED "T = " YEL "Tank li/re" 3510 ; CUR(11,0) RED "K = " YEL "VO>R Karten" 3520 ; CUR(12,0) RED "S = " YEL "Starterlaubnis" 3530 ; CUR(13,0) RED "P = " YEL "Pistendaten" 3540 ; CUR(15,0) RED "PF1/2 = " YEL "Thrust" 3550 ; CUR(16,0) RED "PF3/4 = " YEL "Flaps" 3560 ; CUR(17,0) RED "PF5/6 = " YEL "Bremsen" 3570 ; CUR(1?8,0) RED "PF7/8 = " YEL "VOR Frequenz" 3580 ; CUR(19,0) RED "SH+PF7/8 = " YEL "Platzwahl" 3590 ; CUR(2,40) ULN MAG "Steuerung" NULN " " 3610 ; CUR(3,58) YEL "auf " CYA "[" 3620 ; CUR(4,58) RED " ! " 3630 ; CUR(5,45) YEL "left " CYA "<-" RED " <- -> @" YEL " right " CYA "->" 3640 ; CUR(6,58) RED " ! " 3650 ; CUR(7,58) YEL "ab " CYA "-" 3660 ; CUR(9,40) ULN MAG "Flaps" NULN " " 3670 ; CUR(10,40) RED " 5` = " YEL "  > 240 kts" 3680 ; CUR(11,40) RED "15` = " YEL "210 - 239 kts" 3690 ; CUR(12,40) REDA "25` = " YEL "180 - 209 kts" 3700 ; CUR(13,40) RED "40` = " YEL "150 - 179 kts" 3710 ; CUR(15,40) ULN MAG "Daten" NULN " " 3720 ; CUR(16,40) RED "Leergewicht" TAB(60) YEL "140 t" 3730 ; CUR(17,40) RED "Treibstoff" TAB(60) YEL " 20 t" 3740 ; CUR(18,40)B RED "Max speed" TAB(60) YEL "650 kts" 3750 ; CUR(19,40) RED "Min speed" TAB(60) YEL "150 kts" 3760 ; CUR(20,40) RED "Max groundspeed" TAB(60) YEL "182 kts" 3770 ; CUR(21,40) RED "Max vert speed" TAB(60) YEL "1500 ft/min" 3780 ; CUR(22,40) RED "Max SchCub" TAB(60) YEL "450 kN" 3790 ; CUR(23,40) RED "Max gear down" TAB(60) YEL "270 kts"; 3800 ! 3810 ! 3820 IF SYS(5)<>0 THEN GET H$ ELSE 3820 3830 IF H$<>CHR$(32) THEN 3820 3840 ! 3850 ! ------------------------- Back to SIMUL ------------------------D- 3860 ! 3870 CHAIN 'SIMUL.BAC' 3880 ! 3890 ! ------------------- Fehlertexte ------------------------- 3900 ! 3910 DATA "Congratulation for a successfull flight",0 3920 DATA "The aircraft don't stand on the landing gear",200 3930 DATA "Release brakEes before setting the thrust",1 3940 DATA "You rolled off the decision point",20 3950 DATA "You ran out of the runway from the centerline",10 3960 DATA "You ran out of the runway past end",10 3970 DATA "Landing gear down below 4oo FT",1 3980 DATA "FlaFps to be retracted",1 3990 DATA "Flaps to be setted",1 4000 DATA "Thrust reduce above 15oo FTs",5 4010 DATA "Thrust reduce below 2ooo FTs",5 4020 DATA "Speed must not exeed 950 knots",2 4030 DATA "Speed must be at least 150 kts",2 4040 DATA "You flew Ginto the ground - Congratulations",1000 4050 DATA "You touch ground before runway",50 4060 DATA "You are out of fuel",1 4070 DATA "You try to set brakes when gears are up",1 4080 DATA "Aufsetzdruck zu gross",100 4090 DATA "---",1 4100 DATA "---",1 4110H DATA "---",1 4120 DATA "---",1 4130 DATA "---",1 4140 DATA "---",1 >re runway",50 4060 DATA "You are out of fuel",1 4070 DATA "You try to set brakes when gears are up",1 4080 DATA "Aufsetzdruck zu gross",100 4090 DATA "---",1 4100 DATA "---",1 4110I---",1 4120 DATA "---",1 4130 DATA "---",1 4140 DATA "---",1 >re runway",50 4060 DATA "You are out of fuel",1 4070 DATA "You try to set brakes when gears are up",1 4080 DATA "Aufsetzdruck zu gross",100 4090 DATA "---",1 4100 DATA "---",1 4110O I100 ! ---------------------------------------------- 110 ! 120 ! '  IFR - SIMULATOR (f|r ABC806) 130 ! ' =============== 140 ! 150 ! '  Saved as 'SIMUL.BAC' 160 ! 170 ! ID Computer-Systeme GmbH * Bad Honnef * 180 ! 190 ! o2.o8.1984 200 ! 210 ! 7'029 bytes frei 220 ! --------------------------------------------- 230 ! 240 ON ERROR GOTO : ATTRIBUTE 1 : RANDOMIZE : EXTEND : FLOAT 250 OUT 1,50 : OUT 34,129 260 ! 270 ! ------------------------ Common -------------------------- 280 !  290 COMMON Vs(19,2),Vp(9,1,5),Vpl(9),Wa(10,1),Err(23),Errtot(23),Errtot 300 COMMON Vs$(19)=3,Vp$(9)=10,Err$(23)=50 310 COMMON Nlatmin,Nlatmax,Nlatdiff,Elongmin,Elongmax,Elongdiff 320 COMMON Flag 330 ! 340 COMMON Korr,Zgr,Kd,Kgr 350 COMMON Fra,Fhi,Fin,Fza,Fan,Fze 360 COMMON A(4),A0,A1,A2,A4,A6,A7 370 COMMON B(4),B0,B1,B2,B4,B6,B7 380 ! 390 ! ---------------------- Dimensionierung ------------------------ 400 ! 410 DIM Vs(19,2),Vp(9,1,5),Vpl(9),Wa(10,1),Err(23),Errtot(23) 420 DIM Vs$(19)=3,Vp$(9)=10,Err$(23)=50 430 ! 440 ! ------------- Definitionen ------------------- 450 ! 460 DEF FNZeit=VAL(MID$(TIME$,12,2))*3600+VAL(MID$(TIME$,15,2))*60+VAL(MID$(TIME$,18,2)) 470 DEF FNErr(F) 480 OUT 34,7 490 ; CUR(24,0) BLU NWBG YEL Err$(F) CUR(22,78) BLBG " " 500 Errtot=Errtot+Err(F) 510  Errtot(F)=Errtot(F)+Err(F) 520 IF Errtot<=1000 THEN RETURN 0 530 ; CUR(24,55) BLU NWBG FLSH RED "Zuviele Fehler gemacht !" CUR(22,78) BLBG " " 540 IF SYS(5) THEN ; CUR(22,78); : GET H$ ELSE 540 550 IF H$<>CHR$(32) THEN 540 560 RETURN -1 570 FNEND 580 DEF FNPiste(Breite,Pos1,Geschw) 581 Pos=-Pos1 590 FGPOINT 80,141,0 : FGFILL 176,150 600  IF Breite<=0 OR Pos<-20 OR Pos>20 THEN FGPOINT 102,151,0 : FGFILL 154,236 605 IF Breite<=0 THEN 810 610 IF Pos>-10 AND Pos<85 THEN FGPOINT A2+Pos-37,141,7 : FGFILL A2+Pos-38,150 620 IF Pos<10 AND Pos>-85 THEN FGPOINT A2+Pos+37,141,7 : FGFILL A2+Pos+38,150 630  IF Pos<-20 OR Pos>20 THEN 810 650 FGPOINT A2+Pos-Breite/2-1,B2,0 : FGFILL A2-26,B2-84 660 FGPOINT  A2+Pos+Breite/2+1,B2 : FGFILL A2+26,B2-84 665 IF Geschw<.3 THEN Geschw=15 666  IF Geschw<1 THEN Geschw=1 670 FOR H=0 TO 14 STEP ABS(Geschw) 680 IF H<6 THEN FGPOINT A2+Pos-Breite/2,B2+1,0 : FGFILL A2+Pos+Breite/2,B2+1-H : GOTO 710 690  FGPOINT A2+ Pos-Breite/2,B2,7 : FGFILL A2+Pos+Breite/2,B2+6-H 700 FGPOINT A2+Pos-Breite/2,B2+5-H,0 : FGFILL A2+Pos+Breite/2,B2+1-H 710 FOR J=0 TO 60 STEP 15 720  FGPOINT A2+Pos-Breite/2,B2-J-H,7 : FGFILL A2+Pos+Breite/2,B2-J-9-H 740 FGPOINT A2+Pos+Breite/2,B2 -J-10-H : FGFILL A2+Pos-Breite/2,B2-J-14-H,0 760  NEXT J 770 IF H>5 THEN FGPOINT A2+Pos-Breite/2,B2-60-H,7 : FGFILL A2+Pos+Breite/2,B2-74 : GOTO 800 780  FGPOINT A2+Pos-Breite/2,B2-60-H,7 : FGFILL A2+Pos+Breite/2,B2-69-H 790 FGPOINT A2+Pos-Breit e/2,B2-70-H,0 : FGFILL A2+Pos+Breite/2,B2-74 800 NEXT H 810 RETURN 0 820 FNEND 830 DEF FNGlide 840 FGPOINT A1+3+Bilsx,B1+3,0 : FGLINE A1+3+Bilsx,B1+47 850 FGPOINT A1+3,B1+3+Bilsy : FGLINE A1+47,B1+3+Bilsy 860  Bilsx=Ilsx : Bilsy=Ilsy 870 FGPOI NT A1+3+Bilsx,B1+3,3 : FGLINE A1+3+Bilsx,B1+47 880 FGPOINT A1+3,B1+3+Bilsy : FGLINE A1+47,B1+3+Bilsy 890 RETURN 0 900 FNEND 910 DEF FNToff(F) 920 IF F=1 THEN ; CUR(24,0) BLU NWBG RED "You are cleared to takeoff" CUR(22,78) BLBG " " 930 IF F=0 THEN ; CUR(24,0) BLU NWBG RED "You have to wait" CUR(22,78) BLBG " " 940 FOR I=0 TO 5000 : NEXT I 950 RETURN 0 960 FNEND 970 ! 980 ! ------------- Init flight ---------------- 990 ! 1000 K$="ECWVRAMFSPTK"+CHR$(49,50,51,52,192,193,194,195,196,197,198,199,214,215) 1010 ! 1020 Kr=180/PI : Kts=2 : Feet=10/3 : At=2.5 : Mleer=140000 : Mtreib=20000 1030 Vmax=950 : Vmin=150 : Vmaxgr=182 : Vmaxvert=1500 : Vmaxgear=270 : Kmax=450 1040 ! 1050 Bilsx=22 : Bilsy=22 : Bkhx1=-22 : Bkhy1=0 : Bkhx2=22 : Bkhy2=0 : Bccx=0 : Bccy=0 : Bvorfr=0 1060 Basx=0 : Basy=0 : Balx=0 : Baly=0 : Brcx=0 : Brcy=0 : Bacx=0 : Bacy=0 1070 ! 1080 Fu(0)=9999 : Fu(1)=9999 : Fp(0)=100 : Fp(1)=100 : Ta=0 : Cc=81 : As=0 : Rc=0 1090 Tr=1 : Fa=0 : Ca=0 : Ac=0 : Ar=0 : Wh=1 : Br=3 : Fl=0 : Ct=0 1100 Tu=0 : Tu1=0 : Tu2=0 : Tu3=0 : Tu4=0 : Toff=0 1110 Ap=285 : Al=Ap : Ld=48 : Lm=43 : Gd=2 : Gm=23 : Za=0 : Ma=0 1120 Ilsx=22 : Ilsy=22 : Z=FNGlide 1130 Z1$="OUT " : Vorfr=111.2 : Z2=0 : Qdm=0 : Dme=0 : Vorind=1 : Platzind=1 : Piste=0 : Platz=0 1140 Xx=0 : Yy=0 : Ix=0 : Cv=0 : Cz=0 1150 ! 1160 ! 1170 ! ------------------- Menue ----------------------------- 1180 ! 1190 ; CHR$(12) : FGCTL BLK+BLK+BLK+BLK+BLK 1200 ; CUR(2,24) YEL DBLE "S I M U L - X" 1210 ; CUR(5,27) RED "IFR Flight simulator" 1220 IF Flag<>0 THEN 1250 1230 ; CUR(8,27) GRN "Einen Moment bitte !" 1240 Flag=1 : CHAIN 'SIMULHR.BAC' 1250 ; CUR(8,26) MAG ULN "Select program function" NULN " " 1260 ; CUR(10,24) CYA "1 ...... Normal cruise operations" 1270 ; CUR(11,24) CYA "2 ...... Takeoff training" 1280 ; CUR(12,24) CYA "3 ...... Cruise training" 1290 ; CUR(13,24) CYA "4 ...... Landing training" 1300 ; CUR(14,24) CYA "5 ...... Karte der VOR's" 1310 ; CUR(15,24) CYA "6 ...... Daten der Pl{tze" 1320 ; CUR(16,24) CYA "7 ...... Fehlermeldungen" 1330 ; CUR(17,24) CYA "8 ...... Instruktionen" 1340 ; CUR(18,24) CYA "9 ...... Ende" 1350 ; CUR(21,26) MAG "Your choice (1-9) >"; : GET G$ 1360 IF G$<"1" OR G$>"9" THEN 1350 1370 IF G$="5" THEN GOSUB 2500 : GOTO 1190 1380 IF G$="6" THEN GOSUB 2650 : GOTO 1190 1390 IF G$="7" THEN Flag=2 : CHAIN 'SIMULHR.BAC' 1400 IF G$="8" THEN Flag=3 : CHAIN 'SIMULHR.BAC' 1410 IF G$<>"9" THEN 1460 1420 ATTRIBUTE 4 1430 ; CUR(22,0) GRN; 1440 OUT 34,1 1450 END 1460 GOSUB 2000 1470 FOR I=0 TO 20 : Errtot(I)=0 : NEXT I : Errtot=0 1480 Z=FNPiste(0,Ix,0) 1490 Zbak1=FNZeit 1500 IF G$="1" OR G$="2" THEN GOSUB 3000 : GOSUB 4000 : GOTO 6000 1510 Tu=4 : Tu1=1 : Tu2=1 : Tu3=1 : Tu4=1 : Toff=1 1520 Al=1800 : Ap=0 : As=250 : Tr=5 : Wh=0 : Br=0 : Fl=0 1530 Ld=50 : Lm=0 : Gd=4 : Gm=0 : Vorfr=114.6 : Cc=19 : Dme=19 : Platz=4 1540 IF G$="4" THEN Lm=47 : Gm=18 : Kx=1 : Cc=45 : Dme=45 1550 GOSUB 3000 : GOTO 8000 2000 ! 2010 ! ------------- Panel ------------------ 2020 ! 2030 ; CHR$(12) : FGCTL BLK+CYA+RED+YEL+GRN+BLU+MAG+WHT 2040 ; CUR(1,0) GRN "VOR" 2050 ; CUR(1,11) GRN "Range" 2060 ; CUR(0,0) GRN "Platz:" 2070 ; CUR(2,0) GRN "Pos N  Lat" 2080 ; CUR(3,0) GRN " E  Long" 2090 ; CUR(4,0) ULN GRN "DME" NULN " " CUR(4,12) ULN GRN "QDM" NULN " " 2100 ; CUR(5,4) GRN "......:......" 2110 ; CUR(7,0) ULN GRN "Radio" NULN " " CUR(7,17) GRN "MHz" 2120 ; CUR(2,67) GRN "L{nge:" 2130 ; CUR(3,67) GRN "Breite:" 2140 ; CUR(4,67) GRN "Marker > <" 2150 ; CUR(7,73) RED "#" 2160 FGPOINT A1+3+Bilsx,B1+3,3 : FGLINE A1+3+Bilsx,B1+47 2170 FGPOINT A1+3,B1+3+Bilsy : FGLINE A1+47,B1+3+Bilsy 2180 ; CUR(11,0) ULN GRN "Time" NULN " " 2190 ; CUR(13,0) ULN GRN "Wheels" NULN " " 2200 ; CUR(15,0) ULN GRN "Thrust" NULN " " 2210 ; CUR(16,0) GRN "RI........M" 2220 ; CUR(18,0) ULN GRN "Flaps" NULN " " 2230 ; CUR(19,0) GRN "05`15`25`40`" 2240 ; CUR(20,0) GRN " . . . ." 2250 ; CUR(21,0) ULN GRN "Triebwerke" NULN " " 2260 ; CUR(22,0) GRN "1 2 3 4" 2270 ; CUR(19,15) ULN GRN "Brakes" NULN " " 2280 ; CUR(20,18) GRN ".rel" CUR(21,18) GRN ".1" CUR(22,18) GRN ".2" CUR(23,18) GRN ".max"; 2290 ; CUR(11,16) ULN GRN "Fuel" NULN " " 2300 FGPOINT A7+18,B7+31,6 : FGFILL A7+6,B7+67 2310 FGPOINT A7+32,B7+31 : FGFILL A7+20,B7+67 2320 ; CUR(12,36) RED "!" CUR(13,33) RED "---+---" 2330 ; CUR(16,16) GRN "> < > <" 2340 ; CUR(3,56) GRN "GPS WUS" CUR(5,56) "]ZW ]Z2" 2350 ; CUR(4,56) GRN "> <  > <" CUR(6,56) "> < > <" 2360 ; CUR(17,27) GRN "(  )" 2370 ; CUR(18,36) "N" CUR(19,32) "W E" CUR(20,36) "S" 2380 ; CUR(22,24) ULN GRN "VLF" NULN " N  Lat" 2390 ; CUR(23,29) GRN "E  Long"; 2400 ; CUR(11,47) GRN "tas" CUR(11,65) GRN "alt" 2410 ; CUR(17,47) GRN "var" CUR(17,65) GRN "acc" 2420 ; CUR(19,51) GRN "- +" CUR(19,69) GRN "- +" 2430 ; CUR(23,59) WHT "Errors :  Pkt." ; 2440 RETURN 2500 ! 2510 ! ----------------------- VOR Karten ------------------------- 2520 ! 2530 FGPICTURE 0,1 : FGCTL BLK+BLU+GRN+YEL 2540 ; CHR$(12) CUR(0,20) ULN YEL "Karte der VOR's und Pl{tze" NULN " " 2550 ; CUR(24,70) MAG "E LONG" CUR(0!,0) MAG "N LAT" 2560 IF LdNlatmax OR GdElongmax THEN 2580 2570 ; CUR((Nlatmax-Ld)/Nlatdiff*23,(Gd-Elongmin)/Elongdiff*79) FLSH RED "#" 2580 FOR I=0 TO 19 2590  ; CUR((Nlatmax-Vs(I,0))/Nlatdiff*23,2+(Vs(I,1)-Elongmin)/El"ongdiff*79) Vs$(I); 2600 NEXT I 2610 IF SYS(5)<>0 THEN GET H$ ELSE 2610 2620 IF H$<>CHR$(32) THEN 2610 2630 FGCTL BLK+BLK+BLK+BLK : FGPICTURE 0,0 2640 RETURN 2650 ! 2660 ! ------------------------ Flugpl{tze ------------------------ 2670 ! 2680 FGP#ICTURE 0,2 : FGCTL BLK+MAG+YEL+RED+BLU+WHT+GRN+CYA 2690 ; CHR$(12) CUR(0,20) ULN YEL "Flugplatzdaten" NULN " " 2700 ; CUR(3,60) ULN YEL "Piste A" NULN " " ULN YEL "Piste B" NULN " " 2710 ; CUR(5,40) GRN "QDM :" 2720 ; CUR(6,40) GRN "Anfang  :"$ 2730 ; CUR(7,40) GRN "L{nge  :" 2740 ; CUR(8,40) GRN "Outer marker :" 2750 ; CUR(9,40) GRN "Middle marker :" 2760 ; CUR(10,40) GRN "Dec. point :" 2770 I=Platz 2780 ; CUR(1,50) MAG "<- ->" 2790 ; CUR(12,40) RED Vp$(I) "  " YEL Vpl(I) RED "feet  % " 2800 ; CUR(5,60) MAG; : ; USING "###" Vp(I,0,0) 2810 ; CUR(5,70) MAG; : ; USING "###" Vp(I,1,0) 2820 ; CUR(6,60) MAG; : ; USING "#.#" Vp(I,0,1) 2830 ; CUR(6,70) MAG; : ; USING "#.#" Vp(I,1,1) 2840 ; CUR(7,60) MAG; : ; USING "#.#" Vp(I,0,2) 2850 ; C&UR(7,70) MAG; : ; USING "#.#" Vp(I,1,2) 2860 ; CUR(8,60) MAG; : ; USING "#.#" Vp(I,0,3) 2870 ; CUR(8,70) MAG; : ; USING "#.#" Vp(I,1,3) 2880 ; CUR(9,60) MAG; : ; USING "#.#" Vp(I,0,4) 2890 ; CUR(9,70) MAG; : ; USING "#.#" Vp(I,1,4) 2900 ; CUR(10,60) MA'G; : ; USING "#.#" Vp(I,0,5) 2910 ; CUR(10,70) MAG; : ; USING "#.#" Vp(I,1,5) 2920 ; CUR(1,52); : GET G$ 2930 IF G$=CHR$(32) THEN 2970 2940 IF G$=CHR$(8) AND I>0 THEN I=I-1 2950 IF G$=CHR$(9) AND I<9 THEN I=I+1 2960 GOTO 2790 2970 FGCTL BLK+BLK+BLK+BLK(+BLK : FGPICTURE 0,0 2980 RETURN 3000 ! 3010 ! ------------------- Schalterstellung ------------------ 3020 ! 3030 ; CUR(20,0) GRN " . . . ." CUR(20,Fl*3) RED ">" 3040 ; CUR(20,17) " " CUR(21,17) " " CUR(22,17) " " CUR(23,17) " " CUR(20+Br,17) R)ED ">"; 3050 FGPOINT A6,B6,0 : FGFILL A6+14,B6+9 3060 FGPOINT 102,136,0 : FGFILL 114,140 : FGPOINT 140,136 : FGFILL 152,140 3070 IF Wh=1 THEN 3100 3080 FGPOINT A6,B6+5,6 : FGFILL A6+14,B6+9 3090 GOTO 3180 3100 FGPOINT A6,B6,6 : FGFILL A6+4,B6+4 3110 FG*POINT A6+5,B6+5 : FGFILL A6+9,B6+9 3120 FGPOINT A6+10,B6 : FGFILL A6+14,B6+4 3130 ! 3140 FGPOINT 102,136,6 : FGFILL 103,140 : FGPOINT 105,136 : FGFILL 106,140 3150 FGPOINT 110,136 : FGFILL 111,140 : FGPOINT 113,136 : FGFILL 114,140 3160 FGPOINT 140,+136 : FGFILL 141,140 : FGPOINT 143,136 : FGFILL 144,140 3170 FGPOINT 148,136 : FGFILL 149,140 : FGPOINT 151,136 : FGFILL 152,140 3180 ; CUR(17,0) SPACE$(11) CUR(17,Tr) RED "!" 3190 ; CUR(23,0); : IF Tu1=0 THEN ; WHT "O"; ELSE ; RED "#"; 3200 ; CUR(23,3,); : IF Tu2=0 THEN ; WHT "O"; ELSE ; RED "#"; 3210 ; CUR(23,6); : IF Tu3=0 THEN ; WHT "O"; ELSE ; RED "#"; 3220 ; CUR(23,9); : IF Tu4=0 THEN ; WHT "O"; ELSE ; RED "#"; 3230 IF Ta=0 THEN ; CUR(16,17) RED "##" CUR(16,22) " " ELSE ; CUR(16,17) " " CU-R(16,22) RED "##" 3240 ; CUR(7,11) MAG; : ; USING "###.#" Vorfr 3250 FGPOINT A4+6+Bvorfr,B4+1,0 : FGLINE A4+6+Bvorfr,B4+7 3260 FGPOINT A4+6+Bvorfr,B4+12 : FGLINE A4+6+Bvorfr,B4+13 3270 FGPOINT A4+6+Bvorfr,B4+19 : FGLINE A4+6+Bvorfr,B4+29 3280 Bvorfr=(V.orfr-110)*5 3290 FGPOINT A4+6+Bvorfr,B4+1,Fze : FGLINE A4+6+Bvorfr,B4+7 3300 FGPOINT A4+6+Bvorfr,B4+12 : FGLINE A4+6+Bvorfr,B4+13 3310 FGPOINT A4+6+Bvorfr,B4+19 : FGLINE A4+6+Bvorfr,B4+29 3320 IF Vorind<>1 THEN 3490 3330 FOR I=0 TO 19 3340  IF ABS(Vo/rfr-Vs(I,2))<.001 THEN Vorind=2 : GOTO 3440 3350 NEXT I 3360 Vorind=0 3370 L2=0 : G2=0 : C2=0 : Dme=0 : Qdm=0 3380 Z1$="OUT " 3390 ; CUR(1,5) SPACE$(3) 3400 ; CUR(2,6) SPACE$(6) CUR(3,6) SPACE$(6) 3410 ; CUR(4,4) SPACE$(5) CUR(4,16) SPACE$(4) 3420 ; C0UR(6,0) SPACE$(20) 3430 GOTO 3490 3440 L2=Vs(I,0) 3450 G2=Vs(I,1) 3460 ; CUR(1,5) MAG Vs$(I) 3470 ; CUR(2,6) MAG; : ; USING "###.##" L2 3480 ; CUR(3,6) MAG; : ; USING "###.##" G2 3490 IF Platzind<>1 THEN 3530 3500 Platzind=0 3510 ; CUR(0,7) MAG Vp$(Pla1tz) SPACE$(8) 3520 ; CUR(0,15) MAG; : ; USING "####" Vpl(Platz) 3530 RETURN 4000 ! 4010 ! ------------- Display instruments value ----------- 4020 ! 4030 ; CUR(17,15) MAG; : ; USING "#####" Fu(0) 4040 ; CUR(17,20) MAG; : ; USING "#####" Fu(1) 4050 2; CUR(18,16) MAG; : ; USING "###_%" Fp(0) 4060 ; CUR(18,21) MAG; : ; USING "###_%" Fp(1) 4070 FGPOINT A7+18,B7+31+Fp(0)*36/100 : FGFILL A7+6,B7+67,7 4080 FGPOINT A7+32,B7+31+Fp(1)*36/100 : FGFILL A7+20,B7+67 4090 ; CUR(17,41) YEL; : ; USING "###_`" Cc3 4100 FGPOINT A(4),B(4),0 : FGLINE A(4)+Bccx,B(4)+Bccy 4110 FGPOINT A(4),B(4),0 : FGLINE A(4)-Bccx,B(4)-Bccy 4120 Bccx=Zgr*SIN(PI*Cc/180) 4130 Bccy=Zgr*COS(PI*Cc/180)/Korr 4140 FGPOINT A(4),B(4),Fze : FGLINE A(4)+Bccx,B(4)+Bccy 4150 FGPOINT A(4),B(4),14 : FGLINE A(4)-Bccx,B(4)-Bccy 4160 ; CUR(17,28) YEL; : ; USING "###_`" Cv 4170 ; CUR(16,48) MAG; : ; USING "###" As 4180 FGPOINT A(2),B(2),0 : FGLINE A(2)+Basx,B(2)+Basy 4190 Basx=Zgr*SIN(PI*As/400) 4200 Basy=Zgr*COS(PI*As/400)/Korr 4210 FGPOINT A(2),B5(2),Fze : FGLINE A(2)+Basx,B(2)+Basy 4220 ; CUR(11,5) RIGHT$(TIME$,12) 4230 ; CUR(22,46) MAG; : ; USING "+#####" Rc 4240 FGPOINT A(1),B(1),0 : FGLINE A(1)+Brcx,B(1)+Brcy 4250 Brcx=Zgr*SIN(PI*Rc/4000) 4260 Brcy=Zgr*COS(PI*Rc/4000)/Korr 4270 FGPOINT A(1)6,B(1),Fze : FGLINE A(1)+Brcx,B(1)+Brcy 4280 IF Ar=0 THEN ; CUR(16,65) MAG; : ; USING "#####" Al 4290 FGPOINT A(3),B(3),0 : FGLINE A(3)+Balx,B(3)+Baly 4300 Balx=Zgr*SIN(PI*Al/20000) 4310 Baly=Zgr*COS(PI*Al/20000)/Korr 4320 FGPOINT A(3),B(3),Fze : FGLINE7 A(3)+Balx,B(3)+Baly 4330 ; CUR(22,64) MAG; : ; USING "+###.#" Ac 4340 FGPOINT A(0),B(0),0 : FGLINE A(0)+Bacx,B(0)+Bacy 4350 Bacx=Zgr*SIN(PI*Ac) 4360 Bacy=Zgr*COS(PI*Ac)/Korr 4370 FGPOINT A(0),B(0),Fze : FGLINE A(0)+Bacx,B(0)+Bacy 4380 ; CUR(13,73) SPA8CE$(5) 4390 IF Ar=0 AND Ma=0 THEN 4460 4400 ; CUR(16,65) RED; : ; USING "#####" Ar 4410 FGPOINT A(3),B(3),0 : FGLINE A(3)+Barx,B(3)+Bary 4420 IF Ma=1 THEN 4460 4430 Barx=Zgr*SIN(PI*Ar/2000) 4440 Bary=Zgr*COS(PI*Ar/2000)/Korr 4450 FGPOINT A(3),B(3),2 : 9FGLINE A(3)+Barx,B(3)+Bary 4460 ; CUR(22,32) MAG; : ; USING "##" Ld 4470 ; CUR(22,36) MAG; : ; USING "##.#" Lm 4480 ; CUR(23,32) MAG; : ; USING "##" Gd; 4490 ; CUR(23,36) MAG; : ; USING "##.#" Gm; 4500 ; CUR(14,30) RED; : ; USING "+##_`" Fa 4510 ; CUR:(14,38) RED; : ; USING "+##_`" Ca 4520 FGPOINT A0+Bkhx1,B0+Bkhy1,4 : FGLINE A0+Bkhx2,B0+Bkhy2 4530 Bkhx1=-22*COS((Fa+Ca+Ct)/Kr) : Bkhy1=-22*SIN((Fa+Ca+Ct)/Kr)/Korr 4540 Bkhx2=22*COS((Fa-Ca-Ct)/Kr) : Bkhy2=-22*SIN((Fa-Ca-Ct)/Kr)/Korr 4550 Pkhx1=-19*COS(;(Fa+Ca+Ct+4)/Kr) : Pkhy1=-19*SIN((Fa+Ca+Ct+4)/Kr)/Korr 4560 Pkhx2=-19*COS((Fa+Ca+Ct-4)/Kr) : Pkhy2=-19*SIN((Fa+Ca+Ct-4)/Kr)/Korr 4570 Pkhx3=19*COS((Fa-Ca-Ct+4)/Kr) : Pkhy3=-19*SIN((Fa-Ca-Ct+4)/Kr)/Korr 4580 Pkhx4=19*COS((Fa-Ca-Ct-4)/Kr) : Pkhy4=-19*SIN<((Fa-Ca-Ct-4)/Kr)/Korr 4590 IF (Al-Ap)=0 THEN Bkhx1=-22 : Bkhy1=0 : Bkhx2=22 : Bkhy2=0 4600 FGPOINT A0+Bkhx1,B0+Bkhy1,0 : FGLINE A0+Bkhx2,B0+Bkhy2 4610 FGPAINT A0+Pkhx1,B0+Pkhy1,4 : FGPAINT A0+Pkhx3,B0+Pkhy3 4620 FGPAINT A0+Pkhx2,B0+Pkhy2,1 : FGPAINT A=0+Pkhx4,B0+Pkhy4 4630 ; CUR(2,74) YEL; : ; USING "##.###" Yy/Feet/1000 4640 ; CUR(3,74) YEL; : ; USING "##.###" Xx/Feet/1000 4650 IF Z1$="OUT " THEN ; CUR(1,17) RED Z1$ : GOTO 4710 4660 ; CUR(1,17) FLSH RED Z1$ STDY " " 4670 ; CUR(4,16) MAG; : ; USING> "###_`" Qdm 4680 ; CUR(4,4) MAG; : ; USING "###.#" Dme 4690 ; CUR(6,0) SPACE$(20) 4700 IF Z2>0 THEN ; CUR(6,Z2+3) MAG "#" 4710 ; CUR(4,57) RED; : IF Al<300 AND Ap=0 THEN OUT 34,7 : ; "#" ELSE ; " " 4720 ; CUR(4,62) RED; : IF Ar<200 AND Ar>0 AND Wh=0? THEN OUT 34,7 : ; "#" ELSE ; " " 4730 ; CUR(6,57) RED; : IF Fa>11 THEN OUT 34,7 : ; "#" ELSE ; " " 4740 ; CUR(6,62) RED; : IF Fa>15 THEN OUT 34,7 : ; "#" ELSE ; " " 4750 ; CUR(24,0) BLU NWBG SPACE$(80) CUR(22,78) BLBG " " 4760 ; CUR(23,68) YEL; : ;@ USING "####" Errtot; 4770 RETURN 5000 ! 5010 ! ------------- Key input --------------------------- 5020 ! 5030 Mxinp=0 5032 Z=INP(42) 5034 IF Z<>8 AND Z<>9 AND Z<>91 AND Z<>123 AND Z<>45 THEN 5180 5040 IF SYS(5) THEN GET G$ ELSE 5180 5100 IF G$=CHRA$(9) THEN Ca=Ca+1 5110 IF G$=CHR$(8) THEN Ca=Ca-1 5120 IF G$="{" OR G$="[" THEN Fa=Fa-1 5130 IF G$="-" THEN Fa=Fa+1 5180 IF SYS(5)=0 THEN RETURN ELSE GET H$ 5190 IF H$>="a" AND H$<"x" THEN H$=CHR$(ASCII(H$) AND 223) 5200 G=INSTR(1,K$,H$) 5210 IF G=0 THBEN 5180 5220 IF G<13 THEN 5240 5230 ON G-12 GOTO 5540,5560,5580,5600,5270,5290,5320,5340,5360,5380,5400,5420,5430,5450 5240 ON G GOTO 1080,5650,5480,5720,5740,5520,5530,5780,5860,5640,5500,5630 5250 Mxinp=Mxinp+1 : GOSUB 3000 5260 IF Mxinp<8 THEN 5180 CELSE RETURN 5270 IF Tr>0 THEN Tr=Tr-1 5280 GOTO 5250 5290 IF Tr<10 THEN Tr=Tr+1 5300 IF Toff=0 AND Tr>2 THEN Tr=2 5310 GOTO 5250 5320 IF Fl>0 THEN Fl=Fl-1 5330 GOTO 5250 5340 IF Fl<3 THEN Fl=Fl+1 5350 GOTO 5250 5360 IF Br>0 THEN Br=Br-1 5370 GOTO 5250D 5380 IF Br<3 THEN Br=Br+1 5390 GOTO 5250 5400 IF Vorfr>110.09 THEN Vorfr=Vorfr-.1 : Vorind=1 5410 GOTO 5250 5420 IF Vorfr<121.91 THEN Vorfr=Vorfr+.1 : Vorind=1 5430 IF Platz>0 THEN Platz=Platz-1 : Platzind=1 5440 GOTO 5250 5450 IF Platz<9 THEN Platz=PElatz+1 : Platzind=1 5460 GOTO 5250 5470 GOTO 5250 5480 IF Wh=0 THEN Wh=1 ELSE Wh=0 5490 GOTO 5250 5500 IF Ta=0 THEN Ta=1 ELSE Ta=0 5510 GOTO 5250 5520 Za=1 : GOTO 5260 5530 Ma=1 : GOTO 5260 5540 IF Tu1=0 THEN Tu1=1 ELSE Tu1=0 5550 GOTO 5610 5560 IF Tu2F=0 THEN Tu2=1 ELSE Tu2=0 5570 GOTO 5610 5580 IF Tu3=0 THEN Tu3=1 ELSE Tu3=0 5590 GOTO 5610 5600 IF Tu4=0 THEN Tu4=1 ELSE Tu4=0 5610 Tu=Tu1+Tu2+Tu3+Tu4 5620 GOTO 5250 5630 GOSUB 2500 : Platzind=1 : Vorind=1 : GOSUB 2000 : GOTO 5250 5640 GOSUB 2650 : PlaGtzind=1 : Vorind=1 : GOSUB 2000 : GOTO 5250 5650 ON ERROR GOTO 5260 5660 ; CUR(17,28); : INPUT ' 'Cv 5670 ON ERROR GOTO 5680 Cz=1 5690 IF Cv>360 THEN Cv=Cv-360 5700 IF Cv<=0 THEN Cv=360+Cv 5710 GOTO 5260 5720 ON ERROR GOTO 5740 5730 ; CUR(7,11); : INPHUT ''Vorfr 5740 ON ERROR GOTO 5760 5750 ; CUR(4,16); : INPUT ''Qdm 5760 ON ERROR GOTO 5770 GOTO 5260 5780 IF (Al-Ap)>0 OR As<>0 THEN 5250 5790 FOR I=0 TO 1 5800  IF Fu(I)>=9999 THEN Fu(I)=9999 : Fp(I)=100 : GOTO 5840 5810 Fu(I)=Fu(I)+1000 5820 Fp(II)=Fp(I)/10 5830 GOSUB 4000 5840 NEXT I 5850 GOTO 5250 5860 IF As>0 OR Al-Ap>0 THEN 5260 5870 IF Yy>-10 AND Yy<10 AND Xx>-10 AND Xx<10 THEN Toff=1 ELSE Toff=0 5880 Z=FNToff(Toff) 5890 GOTO 5260 6000 ! 6010 ! ------------- Take off module -----------J---------- 6020 ! 6030 Z=FNPiste(7,Ix,0) 6040 GOSUB 4000 6050 IF Tr>1 AND Br>0 THEN IF FNErr(2) THEN 1080 6060 IF Wh=0 AND Al-Ap=0 THEN IF FNErr(1) THEN 1080 6070 IF As<>0 THEN 6100 6080 GOSUB 6500 6090 GOTO 6040 6100 IF Al-Ap>0 THEN 6190 6110 IF Tr<0K AND Br=1 THEN IF FNErr(2) THEN 1080 6120 IF Yy>6800 AND Tr=10 THEN IF FNErr(3) THEN 1080 ! 6500 6130 IF Yy>10500 THEN IF FNErr(5) THEN 1080 6140 IF ABS(Xx)>100 THEN IF FNErr(4) THEN 1080 6150 IF As<150 AND Fa>0 THEN IF FNErr(12) THEN 1080 6160 GOSUB L6500 6170 GOSUB 7000 6180 GOTO 6040 6190 IF Al<1500 AND Tr<9 THEN IF FNErr(9) THEN 1080 6200 IF As<150 THEN IF FNErr(12) THEN 1080 6210 IF Al-Ap<800 THEN Z=FNPiste(6-(Al-Ap)/100,Ix,As/20*(-1)*(Yy<10500)) 6220 IF Al-Ap>1500 THEN Yy=0 : Xx=0 : Ap=0 : GOTMO 8000 6230 GOSUB 6500 6240 GOSUB 9000 6250 GOTO 6040 6500 ! 6510 ! ------------- Update FU-AS-RC --------------------- 6520 ! 6530 GOSUB 5000 6540 Zdiff=FNZeit-Zbak1 : Zbak1=FNZeit 6550 IF As>270-30*Fl AND Fl>0 THEN IF FNErr(7) THEN 1080 6560 IF As<N240-30*Fl AND Al-Ap>0 THEN IF FNErr(8) THEN 1080 6570 IF Al-Ap>0 AND As<150 THEN IF FNErr(12) THEN 1080 6580 IF Wh=0 AND Br=1 THEN IF FNErr(16) THEN 1080 6590 IF (Al-Ap)>400 AND Wh=1 THEN IF FNErr(6) THEN 1080 6600 IF As>950 THEN IF FNErr(11) THEN 108O0 6610 IF Al>2100 AND Tr=10 THEN IF FNErr(10) THEN 1080 6620 IF Al-Ap<0 AND Ar=0 THEN IF FNErr(13) THEN 1080 6630 IF Fu(0)=0 AND Fu(1)=0 THEN IF FNErr(15) THEN 1080 6640 Fu(Ta)=Fu(Ta)-ABS(Tu*(Tr-3*(Tr=0)-3*(Tr=10))/6*Zdiff) 6650 IF Fu(Ta)<0 THEN Fu(Ta)P=0 : Tu=0 : Tu1=0 : Tu2=0 : Tu3=0 : Tu4=0 : GOSUB 3000 6660 Fp(Ta)=Fu(Ta)/100 6670 Mtot=Mleer+Fu(0)+Fu(1) 6680 As=As/Kts 6690 Ft=Tu*At/32*(Tr-1+4*(Tr=0))*(Mleer+20000) 6700 Rl=As^2*(5+ABS(Fa)+2*Fl+4*Wh)*(1-Al/40000) 6710 Rbr=As*Br^2*At*10000*(-1)*((AlQ-Ap)=0) 6720 As=As+((Ft-Rl-Rbr)/Mtot)*Zdiff 6730 As=As-SGN(Fa)*(As-As*COS(Fa/Kr)) 6735 IF As<0 THEN As=0 : ! / 6740 Rc=As*SIN(Fa/Kr)*Feet*60*(1-Al/40000)+(120-15*Fl-As)^2*(As<120-15*Fl AND (Al-Ap)>0) 6750 Al=Al+(Zdiff*Rc/60) 6760 IF Al360 THEN Cc=Cc-360 6820 IF Cc<0 THEN Cc=Cc+360 6830 RETURN 7000 ! 7010 ! ------------- Motion on runway -----------------S--- 7020 ! 7030 IF FNZeit<(Zbak2+10) THEN 7070 7040 Zbak2=FNZeit 7050 IF RND<.5 THEN Z=1 ELSE Z=-1 7060 Cc=Cc+RND*Z 7070 Da=(Cc-Vp(Platz,Piste,0))/Kr 7080 Dy=As*COS(Da)*Zdiff*1.58 7090 Dx=As*SIN(Da)*Zdiff*1.58 7100 Yy=Yy+Dy 7110 Xx=Xx+Dx 7120 Ix=FIX(XTx*22/100) 7130 Z=FNPiste(7,Ix,As/20) 7140 RETURN 8000 ! 8010 ! ------------- Cruise module ----------------------- 8020 ! 8030 GOSUB 4000 8040 GOSUB 6500 8050 IF Cz=0 THEN 8210 8060 Cc=INT(Cc) 8070 IF Cc=Cv THEN Cz=0 : Ca=0 : GOTO 8210 8080 IF Cv>CcU THEN Rt=1 : Cd=Cv-Cc 8090 IF CvCc+180 THEN Rt=-1 : Cd=360-Cv+Cc 8110 IF Cv20 THEN Ce=Rt*7 : Rt=Rt*20 : GOTO 8150 8130 IF Cd>10 THEN Ce=Rt*5 : Rt=Rt*10 : GOTO 8150 8140 IFV Cd>5 THEN Ce=Rt*3 : Rt=Rt*5 ELSE Ce=Rt 8150 IF Ce10 THEN Ra=Ra*4 : GOTO 8190 8170 IF Ce>6 THEN Ra=Ra*3 : GOTO 8190 8180 IF Ce>4 THEN Ra=Ra*2 8190 Ca=Ca+Ra 8200 Cc=Cc+Rt 8210 Wi=FIX(Al/4000) 82W20 IF Wi>=10 THEN Wi=10 8230 IF RND<.5 THEN Z=1 ELSE Z=-1 8240 As=As : ! +Wa(Wi,1)*Z 8250 Cc=Cc : ! +Wa(Wi,0)*Z 8260 IF Cc>360 THEN Cc=Cc-360 8270 IF Cc<=0 THEN Cc=360+Cc 8280 GOSUB 9000 8290 Wi=0 8300 IF Vorind<>2 THEN 8030 8310 IF L1Vs(Platz,0)-.025 THEN Wi=Wi+1 8320 IF G1Vs(Platz,1)-.025 THEN Wi=Wi+1 8330 IF Al<1900 AND Al>1700 THEN Wi=Wi+1 8350 IF Al>1900 THEN Ma=0 8360 ; CUR(4,75) " " 8370 IF Wi<>3 THEN 8030 8380 IF Ma=1 THEN 8030 8400 ; CUR(4Y,75) RED "#" 8410 IF ABS(Cc-Vp(Platz,0,0))<5 AND Z1$<>"OUT " THEN Piste=0 : GOTO 9500 8420 IF ABS(Cc-Vp(Platz,1,0))<5 AND Z1$<>"OUT " THEN Piste=1 : GOTO 9500 8430 GOTO 8030 9000 ! 9010 ! ------------- Situation routine ------------------- 9020 ! 903Z0 Vv=As*(1+(Al/40000)) 9040 Dl=Zdiff*Vv/3600*COS(Cc/Kr)/60 9050 Dg=Zdiff*Vv/3600*SIN(Cc/Kr)/COS(((Lm/60)+Ld)/Kr)/60 9060 L1=Ld+(Lm/60) 9070 G1=Gd+(Gm/60) 9080 L1=L1+Dl 9090 G1=G1+Dg 9100 Ld=FIX(L1) 9110 Lm=(L1-FIX(L1))*60 9120 Gd=FIX(G1) 9130 Gm=(G1-FI[X(G1))*60 9140 IF Vorind=0 THEN 9370 9150 Dl=(L2-L1)*60 9160 Dg=(G2-G1)*COS(((L1+L2)/2)/Kr)*60 9170 D=SQR((Dl^2)+(Dg^2)) 9180 IF D>300 THEN Z1$="OUT " : GOTO 9370 9190 IF Dme=0 THEN 9220 9200 IF DDme THEN Z1$="FROM" 9220 \Dme=D 9230 IF G2=G1 AND L2L1 THEN Z5=0 : GOTO 9310 9250 Z5=ATN((L2-L1)/((G2-G1)*COS(((L1+L2)/2)/Kr)))*Kr 9260 Z5=ABS(INT(Z5)) 9270 IF L2>L1 AND G1G2 THEN Z5=270-Z5 : GOTO 9310 9300 IF L2>L1 AND G1>G2 THEN Z5=270+Z5 : GOTO 9310 9310 IF Za=1 THEN Qdm=Z5 : Za=0 : Cv=Qdm : Cz=1 9320 Z6=Qdm-Z5 9330 Dd=D*SIN(Z6/Kr) 9340 Z2=7+INT(Dd) 9350 IF Z2>13 THEN^ Z2=13 9360 IF Z2<1 THEN Z2=1 9370 RETURN 9500 ! 9510 ! ------------- Landing module ---------------------- 9520 ! 9530 Qdm=Qdm(Piste) 9540 Yy=34220 : Ap=Vpl(Platz) 9550 Xx=100 : IF RND<.5 THEN Xx=-100 9560 GOSUB 4000 9570 GOSUB 6500 9580 Yy=Yy-((As_*Zdiff)*COS((Cc-Vp(Platz,Piste,0))/Kr)*1.58) 9590 Xx=Xx+((As*Zdiff)*SIN((Cc-Vp(Platz,Piste,0))/Kr)*1.58) 9600 Ex=Yy*SIN(1/Kr) 9610 IF Ex<100 THEN Ex=100 9620 Ilsx=22+INT(7/Ex*Xx)*(22/7) 9630 IF Ilsx<0 THEN Ilsx=0 9640 IF Ilsx>44 THEN Ilsx=44 9650 Ar=Al`-Ap 9660 Dr=Ar-(Yy*SIN(3/Kr)) 9670 Er=Yy*SIN(1/Kr) 9680 IF Er<50 THEN Er=50 9690 Ilsy=22+INT(7/Er*Dr)*(22/3) 9700 IF Ilsy<0 THEN Ilsy=0 9710 IF Ilsy>44 THEN Ilsy=44 9720 Z=FNGlide 9730 IF Yy<3500 THEN Ma=0 9735 IF Yy<-9500 THEN Ma=1 9740 IF Ma=1 THEN Tar=9 : Fa=5 : Ar=0 : Ap=0 : Ilsx=22 : Ilsy=22 : Z=FNGlide : GOTO 8000 9750 ; CUR(4,75) RED; : IF Yy<4500 AND Yy>3500 THEN ; FLSH "#" ELSE ; "#" 9760 IF Yy>4000 THEN 9810 9770 Ix=FIX(Xx*22/100) 9780 IF Ix>22 THEN Ix=22 9790 IF Ix<-22 THEN Ix=-22 9800 Z=FbNPiste(6-Ar/100,Ix,As/20*(-1)*(Yy<1000)) 9810 IF Ar>0 THEN 9560 9820 IF Rc<-400 THEN IF FNErr(17) THEN 1080 9830 IF Rc<-800 THEN IF FNErr(13) THEN 1080 9840 IF Yy<-9500 THEN IF FNErr(5) THEN 1080 9850 IF ABS(Xx)>100 THEN IF FNErr(4) THEN 1080 9860 IF Wch=0 THEN IF FNErr(1) THEN 1080 9870 IF Yy>1000 THEN IF FNErr(14) THEN 1080 9880 IF As>0 THEN 9560 9890 Toff=0 9900 GOSUB 4000 9910 IF Rc<50 THEN Z=FNErr(0) 9920 Z=FNPiste(7,Ix,15) 9930 IF SYS(5) THEN GET G$ ELSE 9930 9940 IF G$<>CHR$(32) THEN 9930 9950d GOTO 6040 >rr(1) THEN 1080 9870 IF Yy>1000 THEN IF FNErr(14) THEN 1080 9880 IF As>0 THEN 9560 9890 Toff=0 9900 GOSUB 4000 9910 IF Rc<50 THEN Z=FNErr(0) 9920 Z=FNPiste(7,Ix,15) 9930 IF SYS(5) THEN GET G$ ELSE 9930 9940 IF G$<>CHR$(32) THEN 9930 9950e040 >rr(1) THEN 1080 9870 IF Yy>1000 THEN IF FNErr(14) THEN 1080 9880 IF As>0 THEN 9560 9890 Toff=0 9900 GOSUB 4000 9910 IF Rc<50 THEN Z=FNErr(0) 9920 Z=FNPiste(7,Ix,15) 9930 IF SYS(5) THEN GET G$ ELSE 9930 9940 IF G$<>CHR$(32) THEN 9930 9950!#yI: $dE;d6-----------------------------------------------------n6x1' IFR - SIMULATOR (f|r ABC806)!' ===============4/' Saved as 'SIMULHR.BAC'-(ID Computer-Systeme GmbH * Bad Honnef * 20.02.19859'976 bytes frei<7------------------------------------------------------ ?:---------------------- Common ---------------------------eօՂքՁփ  ք4ք Ձ>jօ8lօ8lČ6օւ@քք Xօ8ֆHL*X`hpxĀ "Ĉ,6ĐĘĠĨ*@İĸȋЋ5JՃ  $,5TՃ4 X`hpxĀ^@h;---------------------- Wind ------------------------------r|Ձ ՀՁ( ք  > Ճ3Ճ փ@ > >~+ փ@ Ձ>փ .3Ճ փ@ Ձ> Ձ>~=61------------- Pisten - Daten ------------------- ׉XParis և"Ձ ܂ffffffՂ ܁ ͱւ@ ܂ffffffՃ ܂Fffffffփ  ܃333333Ձ և"ՁՁ ܂ffffffՁՂ ܁ ͱՁւ@ ܂ffffffՁՃ ܂FffffffՁփ  ܃333333Ձ֊ՁXLyonՁ ֈ(ՁՁ ܂ffffffՁՂ ܁ ͱՁւ@ ܂ffffffՁՃ ܂FffffffՁփ  ܃333333ՁՁ ֈ(ՁՁՁ ܂ffffffՁՁՂ ܁ ͱՁՁւ@ ܂ffffffՁՁՃ ܂FffffffՁՁփ  ܃333333#ՂևՂX MarseilleՂ ֈ ՂՁ ܂ffffffՂՂ ܁ ͱՂւ@ ܂ffffffՂՃ ܂FffffffՂփ  ܃ 333333ՂՁ ֈ ՂՁՁ ܂ffffffՂՁՂ ܁ ͱՂՁւ@ ܂ffffffՂՁՃ ܂FffffffՂՁփ  ܃333333"&ւ@׊,ւ@XMilan0ւ@ ։0ւ@Ձ ܂ffffffւ@Ղ ܁ ͱւ@ւ@ ܂ffffffւ@Ճ ܂Fffffffւ@փ  ܃333333:ւ@Ձ ։0ւ@ՁՁ ܂ffffffւ@ՁՂ ܁ ͱւ@Ձւ@ ܂ffffffւ@ՁՃ ܂Fffffffւ@Ձփ  ܃333333!DՃֈ$ՃX Br}sselNՃ ֆHՃՁ ܂ffffffՃՂ ܁ ͱՃւ@ ܂ffffffՃՃ ܂FffffffՃփ  ܃333333XՃՁ ֆHՃՁՁ ܂ffffffՃՁՂ ܁ ͱՃՁւ@ ܂ffffffՃՁ Ճ ܂FffffffՃՁփ  ܃333333#bփ և^փ X.......lփ  փ Ձ ܂ffffffփ Ղ ܁ ͱփ ւ@ ܂ffffffփ Ճ ܂Fffffffփ փ  ܃333333vփ Ձ փ Ձ Ձ ܂ffffffփ ՁՂ ܁ ͱփ Ձւ@ ܂ffffffփ ՁՃ ܂Fffffffփ Ձփ  ܃333333#փ@և^փ@X.......փ@ փ@Ձ ܂ffffffփ@Ղ ܁ ͱփ@ւ@ ܂ffffffփ@Ճ ܂Fffffffփ@փ  ܃333333փ@Ձ փ@ՁՁ ܂ffffffփ@ՁՂ ܁ ͱփ@Ձւ@ ܂ffffffփ@ՁՃ ܂Fffffffփ@Ձփ  ܃333333#փ`և^փ`X.......փ` փ`Ձ ܂ffffffփ`Ղ ܁ ͱփ`ւ@ ܂ffffffփ`Ճ ܂Fffffffփ`փ  ܃333333փ`Ձ փ`ՁՁ ܂ffffffփ`ՁՂ ܁ ͱփ`Ձւ@ ܂ffffffփ`ՁՃ ܂Fffffffփ`Ձփ  ܃333333!Մև^ՄX.......Մ ՄՁ ܂ffffffՄՂ ܁ ͱՄւ@ ܂ffffffՄՃ ܂FffffffՄփ  ܃333333ՄՁ ՄՁՁ ܂ffffffՄՁՂ ܁ ͱՄՁւ@ ܂ffffffՄՁՃ ܂FffffffՄՁփ  ܃333333#քև^քX.......ք քՁ ܂ffffffքՂ ܁ ͱքւ@ ܂ffffffքՃ ܂Fffffffք  ܃333333քՁ քՁՁ ܂ffffffքՁՂ ܁ ͱքՁւ@ ܂ffffffքՁՃ ܂FffffffքՁփ  ܃333333?:-------------------- VOR - Daten ------------------------ P܆BcA Ձ܂#Ղ܇^ffffffOL J Ձֆ7ՁՁ܃ffffffՁՂ܇hՁLYOP*Ղ܆-ͱՂՁ܃&ffffffՂՂ܇j333333ՂMBOT4ւ@܆63)ւ@Ձ܄ 333333ւ@Ղ܇cffffffւ@SRNP>Ճ܆KՃՁ܃w1ՃՂ܇e333333ՃBUBGHփ ֆ(փ ՁՁփ Ղ܇Z333333փ ...GRփ@ֆ(փ@ՁՁփ@Ղ܇Z333333փ@...G\փ`ֆ(փ`ՁՁփ`Ղ܇Z333333փ`...CfՄֆ(ՄՁՁՄՂ܇Z333333Մ...Gpքֆ(քՁՁքՂ܇Z333333ք...Gzք ֆ(ք ՁՁք Ղ܇Z333333ք ...Gք0ֆ(ք0ՁՁք0Ղ܇Z333333ք0...Gք@ֆ(ք@ՁՁք@Ղ܇Z333333ք@...GքPֆ(քPՁՁքPՂ܇Z333333քP...Gք`ֆ(ք`ՁՁք`Ղ܇Z333333ք`...Gքpֆ(քpՁՁքpՂ܇Z333333քp...CՅֆ(ՅՁՁՅՂ܇Z333333Յ...Gօֆ(օՁՁՂ܇Z333333օ...Gօֆ(օՁՁօՂ܇Z333333օ...Gօֆ(օՁՁօՂ܇Z333333օ...@;-------------------- Definitionen ------------------------z#qzxxxՃ ՁP* Ձg$PՁo.o0o9 o'g8Ճ Bo-ք gՁLo.ք0gՂVo1 Ձd`gX, ,Ղ, Ղ, Ճ, Ճ, 7jgՁ+Ղ, ,Ղ, Ճ{tgՂoՂ, ,, , ՂՂ, ՂՂ, Ճ, Ճk~gւ@^, ,Ղ, Ղ, Ճ, ՃՁ, ՂmgՃaՂ, ,Ղ, Ճ, Ճ, ՂՂ, Ղ|gփ o, ,Ղ, Ղ, Ղ, Ղ, ՃՂ, Ճ|gփ@oՂ, Ճ,, Ճ, Ղ, Ղ, Ղ, ՂIgփ`<Ղ, ,Ղ, Ճ, ՃxgՄl, ,Ղ, Ղ, Ճ, Ճ, Ձ, Ղ|gքo, ,Ղ, Ղ, Ճ, Ճ, ՂՂ, Ղ;gք .Ձ, Ղ,Ղ, Ղ$gք0Ձ, ,T$Pօh= ՂPքpՂ,PքpՂ,ՂNPփ փ P7ՂPքpւ@,Pքpւ@u(2<?F:--------------------- Verteilung ------------------------PZՁ"dՂ!nւ@9x?:--------------------- Variablen / Clear ----------------- Ѐ4,,Ճ,,׉,ֈo/Ձ,,,׉,ֈo/Ղ,,,׉,ֈo օ8!  ?:-----!--------------- Ursprung ---------------------------ֆ(XֆP``Xh"ppՂhxxp܀]p =q"ք` Zeigergr|sse,օ Kreisgr|sse6ւ@Kreisgradation)@օ8K}nstl. Horizont Durchmesser"@JֈcՁֈ-Ղֈ-ւ@ֈcՃևj@T4ֆ Ձ4ֆ Ղ4ևHւ@4ևHՃ4ֆ4(^ևjևRXK}nstlicher HorizonthֈK ֈ ` ILS Kreuz!rՈֈkhMittelstreifen|ֈ pRadi#oֈ*DMEՆ$և@xWheelsֆH,ֆHTanksևVLFֈH Navigationփ F Rahmen!փ@F Rahmen-Instrumenteփ F Instrumenteփ F Hintergrundփ`ȋ F Zahlen$փ`Ћ F Analogփ@؋ F Zeigerփ F VOR KoordinatenC>----------------- VOR Karte zeichnen ------------------------&Ձ,ՁЀ1,0 /0ЀЄЂЁ/: v0D ։uՄւ@ p%Ձ&gNք PֈfՂ("X ։uք ,P,Ձblv hp/ ֈ\hՄ XՁgք P։zՃ#P, ֈ\hք  փ Eք0 ~&Xhֈ\*ք@ Ձ~p։u22*jg/2*փ Ղ~ւ@gC>------------------- Platz Karte zeichnen --------------------!Ղ,ЀЀЀЀЀ# ,ֈ4',Ձֆ ,ֈ4օ ,ֈ օ ,ֈH F*A----------------------- Rahmenstruktur -------------------------4!>,ЀЀЀЀЀ"HЀІЁЃЂЄЅЇ/ RFenster%\և,ֈ,ֈ5,ֈf(ևJ,ֈmֈ,ֈmpև,ֈևJ,ֈmzֈ5,ֈֈ,ֈm1Ո,ֈ ,փ@Ո,ֈֈ,ֈ+Ո,ֈ և|,ֈՈ,ֈK}nstlicher HorizontօH,XօH,օH),XօHօH,Xօ@օH,Xօ@օH,XօH,X, ևnC= ֆp,X ֆp,6օ@,XօX, ILS Kr*euze ,`,փ@ ֆH,`Ղ ֆ@,`ֆH ,`ֆ@ Ղ,`Y ֆH,`ֆL, ֆH,`և$ ,`և$ ,`ֆL warningsu օp,`և , օp,`+օp Ձ,`օp Ձ,`և օp,`և  Radio_ ,p,և,pև,pօp,pօp,p3$ փ@,pՄ,Ћև,pՄ. ֆpփ q#,8 փ@ ,pք,ЋHB ք .4փ@ ,pք փ@ ,pք0L EV ւ@>8` Ձ օ pք`և\ ՃЋgj T t DME_~ ,,և,և-,օp,օp, Navigation ,,և,և,ֆ,ֆ,,օhև,օh Schalter> ֆH,ֆH,և,ֆHև.,,7 ,ֈֆH,ֈֆH,,9 ,օpֆH,օp,ֆpֆH,ֆp9 ,և4ֆH,և4,և\ֆH,և\ VLF_ ,,և,և,/օ ,օ , Tanks_ ,,,,ֆ,,ֆ,և ,,և ,,q ,փ ,օp,ֆ,օp,ֆ,և,փ ,և,փ ,օ0p/ ,օ,օp,օ,և5 ,փ@,օx,փ@,օ,և4 ,օ ,օx,փ@,Ն,և  Uhren( PՃ2 Հ=< P~ ,P4~Ղ Ղ1,ȋGF 9P~ ,P4~Ղ ՂP rP~ ,P4~Ղ Ղւ@P~ ,P4~Ղ Ղւ@EZ 9P~ ,P42~Ղ ՂEd 8P~ ,P4~Ղ Ղn rP~ ,P4~Ղ Ղւ@P~ ,P4~Ղ Ղւ@=x P~ ,P34~Ղ Ղ,ȋE 9P~ ,P4~Ղ Ղ r c_ ֈH,ք0,ֈHֆX,ք0ֈHֆX,ք0ֆhֈH,ք0ֆhֈH,ք0$ ֈI,ք@,ՁֈZ,օ_ 4ֈ,ք0,ֈֆL,ք0ֈֆL,ք0ֆhֈ,ք0ֆhֈ,ք0$ ֈ,ք@,Ձֈ$,օ_ ֈ,և,ֈֆL,ևֈֆL,ևֆhֈ,ևֆhֈ,և$ ֈ,և,Ձֈ$,5և_ ֈH,և,ֈHֆX,ևֈHֆX,ևֆhֈH,ևֆhֈH,և$ ֈI,և,ՁֈZ,և_ և0,օ(,և0ֆ`,օ(և0ֆ`,օ(ֆDև0,օ(ֆDև0,օ( HintergrundJ 6,,,ֈoֈ,ֈoֈ,ֈ,; ևH,ևև ,ֈfֈ4,ֈ*ֈ,ֈm, ք ,ֈֈz,Ձև",օ8 " acc1, ~Ձ4~օ80ȋg36 ~ք`74~օ.5ȋMg1@ ~օ 4~Ղ1ȋg3J ~ք`4~օ .5ȋg1T ~Ձ4~օX2ȋg3^ ~օ4~օ.5ȋg1h ~օ848~Ղ1ȋTg2r ~օ4~Յ.5ȋ"g | vario1 Ձ~ՁՁ4~օ80ȋg2 Ձ~ք`Ձ4~օ1ȋg1 Ձ~օ Ձ4~Ղ2ȋg2 Ձ~ք`Ձ94~օ 3ȋQg1 Ձ~ՁՁ4~օX4ȋ g1 Ձ~ՅՁ4~օ3ȋߴg1 Ձ~օ8Ձ4~Ղ2ȋߴg1 Ձ~օՁ4~Յ1ȋߴg tas1 Ղ~Ձ:4~օ80ȋSߴg2 Ղ~ք`Ղ4~օ1ȋ!ߴg1 Ղ~օ Ղ4~Ղ2ȋ޴g2 Ղ~ք`Ղ4~օ 3ȋ޴g1 Ղ~ՁՂ4~օX4ȋ޴g2 Ղ~օՂ4;~օ5ȋ[޴g1 Ղ~օ8Ղ4~Ղ6ȋ*޴g1& Ղ~օՂ4~Յ7ȋݴg 0 alt3: ւ@~Ձւ@4~օ80ȋݴg4D ւ@~ք`ւ@4~օ5ȋݴg4N ւ@~օ <ւ@4~Ղ10ȋUݴg5X ւ@~ք`ւ@4~օ 15ȋ ݴg4b ւ@~Ձւ@4~օX20ȋܴg5l ւ@~օ ւ@4~օ25ȋܴg4v ւ@~օPւ@4~Ղ30ȋܴg4 ւ@=~օ ւ@4~Յ35ȋOܴg D  E @--------------------- Fehlermeldungen ------------------------- 5 ք@ ք ЊЂFehlermeldungenЋ = Ձփ ЊTextЋ Ձֆ\ЊFehlerЋ ? Ձ>ֆxЊAnzahlЋ ՁևЊPunkteЋ + ֆHЁTotal Fehler : Ѓ Ձ օ8 Ձ Ѕ ;, Ձ ֆ\Ї;#### ~;5 Ձ ֆxЄ;### ~ ~;, Ձ? ևЃ;#### ~;  փ  Ɣ ”Ն * 4 J> E------------------------- Instruktionen ----------------------------H 3R ք@ օ ЊЂ InstruktionenЋ #\ ւ@Ё@E = ЃEnde*f ւ@ЁC = Ѓ Kursvorwahl$p ՃЁW = ЃWheels+z փ ЁV = Ѓ VOR Frequenz% փ@ЁR = ЃRadial. փ`ЁA = ЃKurs einstellen* ՄЁM = Ѓ DurAchstarten( քЁF = Ѓ Auftanken) ք ЁT = Ѓ Tank li/re) ք0ЁK = Ѓ VOR Karten- ք@ЁS = ЃStarterlaubnis* քPЁP = Ѓ Pistendaten) քpЁPF1/2 = ЃBThrust' ՅЁPF3/4 = ЃFlaps* օЁPF5/6 = ЃBremsen/ օЁPF7/8 = Ѓ VOR Frequenz/ օЁ SH+PF7/8 = Ѓ Platzwahl(Ղֆ ЊЅ SteuerungЋ !ւ@ֆhЃauf ІC[$ՃֆhЁ ! K.փ ֆ4Ѓleft І<-Ё <- -> Ѓ right І->8փ@ֆhЁ ! Bփ`ֆhЃab І-%Lքֆ ЊЅFlapsЋ /Vք ֆ Ё 5` = Ѓ > 240 kts/`ք0ֆD Ё15` = Ѓ 210 - 239 kts/jք@ֆ Ё25` = Ѓ 180 - 209 kts/tքPֆ Ё40` = Ѓ 150 - 179 kts%~քpֆ ЊЅDatenЋ 2Յֆ Ё LeergewichtֆpЃ140 t2օֆ Ё TreibstoffֆpEЃ 20 t3օֆ Ё Max speedֆpЃ650 kts3օֆ Ё Min speedֆpЃ150 kts9օ ֆ ЁMax groundspeedֆpЃ182 kts<օ(ֆ ЁMax vert speedֆpЃ 1500 ft/min2օ0ֆ ЁF Max SchubֆpЃ450 kN8օ8ֆ Ё Max gear downֆpЃ270 kts;փ  Ɣ”Ն G B------------------------- Back to SIMUL ------------------------- SIMUL.BAC(G?2:------------------- Fehlertexte -------------------------<3F2,"Congratulation for a successfull flight",0:P93"The aircraft don't stand on the landing gear",2004Z3-"Release brakes before setting the thrust",1.d-'"You rolled off Hthe decision point",20:n93"You ran out of the runway from the centerline",10/x.("You ran out of the runway past end",10*)#"Landing gear down below 4oo FT",1! "Flaps to be retracted",1"Flaps to be setted",1('!"Thrust reducIe above 15oo FTs",5('!"Thrust reduce below 2ooo FTs",5*)#"Speed must not exeed 950 knots",2*)#"Speed must be at least 150 kts",2982"You flew into the ground - Congratulations",1000+*$"You touch ground before runway",50"YJou are out of fuel",132,"You try to set brakes when gears are up",1#""Aufsetzdruck zu gross",100"---",1"---",1"---",1"---",1""---",1,"---",1VsVpVplWaErrErrtotNlatminNlatmaxNlatdiffKElongminElongmaxElongdiffFlagKorrZgrKdKgrFraFinFhiFzaFanFzeRsZahlVorKhdFrahFkrdg  4 >T l   X n X `!h@!p!x!"h"""""#0#P#ȋp#Ћ#؋#|  $0,84|X`hLp x08# x Px gxoz0$((@@HHP$x$*x2xzVorKhdFrahFkrdg  4 >T l   X n X `!h@!p!x!"h"""""#0#P#ȋp#Ћ#؋#|  $0,84|X`h$&yTy $4d/----------------------------------------------n2x-' IFR - SIMULATOR (f|r ABC806)!' ===============.)' Saved as 'SIMUL.BAC'-(ID Computer-Systeme GmbH * Bad Honnef * o2.o8.19847'029 bytes frei3.---------------------------------------------ՁՁ,ֆHֆ,ֈ@;------------------------ Common --------------------------e"ՂքՁփ  ք4ք Ձ>jօ8lօ8lČ6,օւ@քք Xօ8ֆHL*6X`hpxĀ @ĈJTĐĘĠĨ*^İĸȋЋ؋5hՃ  $,5rՃ4 X`hpxĀ|E@---------------------- Dimensionierung ------------------------SօՂքՁփ  քք Ձ>օ8օ80օւ@քք Xօ8ֆH4/------------- Definitionen ------------------->=#4)ք@Ղ'֌a)քpՂ'ֆp)օՂ'(h xֆ,փ`4օ@ЄНЃօ0ևМ ~ ~~֊zIօ@ֆ\ЄНЈЁZuviele Fehler gemacht !օ0ևМ &փ օ0և; &Ն  0Ձ:D#z($`$$ E$Nև ,ֈ ,ֈ0,ֈ>Xօ օ !ևL,ֈ,ֈ,ֈl]Hbք և*2ֆ,ֈ ,փ`ֆ,ֈHlք և*2ֆ,ֈ ,փ`ֆ,ֈvօ օ ?:ՂՁ,h,օP,hև(5ՂՁ,hօP,hև(քpՁՁք`R փ@EՂ,hՁ,Ղ,hՁCՂ,h,փ`Ղ,hփ@IՂ,hփ ,Ղ,hՁ-ֆpքpO Ղ,h-,փ`Ղ,h-քRՂ,h-ք Ղ,h-ք`,1Uփ HՂ,hֆp,փ`Ղ,hևK  Ղ,hֆp,փ`Ղ,hև FՂ,hև ,Ղ,hև *4 >$օ0Dօ0Lօ0օ0 3$%-5=EMU.N8]׎<Ձ]׎<mևHՁmևH}և":BՁՁւ@'L 9V׉ֆ@%ֆ,-Ղ5օ8=EM`օ0Tօ0\UDjOUT ]܇^ffffffgowՁՁ!t~=8------------------- Menue -----------------------------ք@ ЀЀЀЀЀ%Ղօ@ЃЍ S I M U L - X*փ օXЁIFR Flight simulatorD)ՄօXЂEinen Moment bitte !Ձ SIMULHR.BAC6ՄօPЅЊSelect program functionЋ 7ք օ@І!1 ...... Normal cruise operations/ք0օ@І2 ...... Takeoff training.ք@օ@І3 ...... Cruise training/ քPօ@І4 ...... Landing training.ք`օ@І5 ...... Karte der VOR's/քpօ@І6 ...... Daten der Pl{tze-(Յօ@І7 ...... Fehlermeldungen,2օօ@І8 ...... Instruktionen#<օօ@І 9 ...... Ende1Fօ(օPЅYour choice (1-9) >; P19Z5d6 $n7Ղ SIMULHR.BAC%x8ւ@ SIMULHR.BAC94 Ճօ0Ђ;ֆ,Ձ=(dօ dU :!12 C)'ՃՁՁՁՁՁ 0֋aֈzփ =ֆH%-Ճ5=܇e333333gօօՃ/4"ֆ<-օ=Ձֆ4ֆ4  l1,'------------- Panel ------------------'ք@ ЀІЁЃЂЄЅЇՁЂVORՁք0ЂRange ЂPlatz:)ՂЂPos N Lat+ ւ@Ђ E Long>*ՃЊЂDMEЋ Ճք@ЊЂQDMЋ "4փ ՃЂ ......:......8>փ`ЊЂRadioЋ փ`օЂMHzHՂևЂL{nge:Rւ@ևЂBreite:\ՃևЂ Marker > <fփ`ևЁ#=p ւ@D,`ւ@,ւ@ ւ@D,`ֆ<7z ւ@,`ւ@L ֆ<,`ւ@L#ք0ЊЂTimeЋ %քPЊЂWheelsЋ %քpЊЂThrustЋ ՅЂ RI........M$օЊЂFlapsЋ !օЂ 05`15`25`40` օ Ђ . . . .)օ(ЊЂ TriebwerkeЋ օ0Ђ 1 2 3 4&օքpЊЂBrakesЋ Vօ օЂ.relօ(օЂ.1օ0օЂ.2օ8օЂ.max;#ք0ՅЊЂFuelЋ 5,օ,օx,փ@,փ@,և. ,Ն,օx,օ ,և/ ք@ֆЁ!քPֆЁ---+--- ՅՅЂ > < > <4$ ւ@ֆ`ЂGPS WUSփ ֆ`]ZW ]Z23. Ճֆ`Ђ> < > <փ@ֆ`> < > <8 օօXЂ( )9B օֆNօՆ W Eօ ֆS3L օ0օ@ЊЂVLFЋ N Lat'V օ8օhЂE Long;-` ք0ֆ<Ђtasք0ևЂalt-j օֆ<ЂvarօևЂacc7t օֆLЂ- +օև Ђ- +,~ օ8ֆlЇErrors : Pkt.;  B =----------------------- VOR Karten -------------------------  ,ՁЀЄЂЃ@ ք@ օ ЊЃKarte der VOR's und Pl{tzeЋ 0 օ@և ЅE LONGЅN LAT) %X%`5p5x54 `%hօ85pևЈЁ# dօPJ `d~hօ8ՂdՁ~pևd;( 2 փ  < Ն F ЀЀЀЀ,P Z Bd =------------------------ Flugpl{tze ------------------------n *x ,ՂЀЅЃЁЄЇЂІ4 ք@ օ ЊЃFlugplatzdatenЋ @ ւ@ֆpЊЃPiste AЋ ЊЃPiste BЋ % փ ֆ ЂQDM :% փ@ֆ ЂAnfang :% փ`ֆ ЂL{nge :$ Մֆ ЂOuter marker :% քֆ ЂMiddle marker :% ք ֆ ЂDec. point : d ՁֆHЅ<- ->F ք@ֆ ЁdX Ѓd~Ёfeet - փ ֆpЅ;###d ~- փ և Ѕ;###dՁ! ~- փ@ֆpЅ;#.#dՁ ~- փ@և Ѕ;#.#dՁՁ ~- փ`ֆpЅ;#.#dՂ ~-" փ`և Ѕ;#.#dՁՂ ~-, ՄֆpЅ;#.#dւ@ ~-6 Մև Ѕ;"#.#dՁւ@ ~-@ քֆpЅ;#.#dՃ ~-J քև Ѕ;#.#dՁՃ ~.T ք ֆpЅ;#.#dփ  ~.^ ք և Ѕ;#.#dՁփ  ~h ՁֆP; r Ն J | #Մ d dՁd" ք dք dՁd *! ЀЀЀЀЀ,  = 8------------------- Schalterstellung ------------------ 6 օ Ђ . . . .օ ւ@Ё>X օ օ $(օ օ0օ օ8օ օ օЁ>;, $,x,$ք`,xք@ ևL,ֈ,ևd,ֈ ֈ ,ֈֈ,ֈ  Ձ91 $,xփ ,փ@$ք`,xք }+ %$,x,փ@$Ճ,xՃ/& $փ ,xփ $ք,xք*0 $ք ,x$ք`,xՃ: AD ևL,ֈ,փ@ևN,ֈ ևR,ֈևT,ֈ ;N և\,ֈև^,ֈ ևb,ֈևd,ֈ& ;X ֈ ,ֈֈ ,ֈ ֈ,ֈֈ,ֈ ;b ֈ,ֈֈ,ֈ ֈ,ֈֈ,ֈ (l օք0օЁ!.v օ8; ЇO; Ё#;/ օ8ւ@; ЇO; Ё#';/ օ8փ@; ЇO; Ё#;/ օ8ք; ЇO; Ё#;S }%ՅօЁ##Յօ0 #Յօ Յօ0Ё### փ`ք0Ѕ;###.#g; փ@,pՁ,(@,pփ`7 փ@,pք@փ@,pքP7 փ@,pօփ@,pօh gև\փ < փ@,pՁ,؋փ@,pփ`7 փ@,pք@փ@),pքP7 փ@,pօփ@,pօh Ձ dօ2, gdՂ~wnOߏ Ղ  !* &w 4 OUT ]> Ձփ ւ@(H Ղփ@փ@ւ@*փ@փ@$R ՃՃփ ՃՅՃ\ փ@օ f p d~z dՁ~ Ձփ Ѕd# Ղփ@Ѕ;###.##$ ւ@փ@Ѕ;###.## ՁS " փ`+ЅXՄ' քpЅ;####~ 94------------- Display instruments value -----------(օքpЅ;#####]~(օօ Ѕ;#####Ձ]~'օՅЅ;###_%m~,(օօ(Ѕ;###_%Ձm~F,օ,օxm~ֆևH,փ@,և,փ`?,Ն,օxՁm~ֆևH,օ ,և#օֆ$Ѓ;###_`@Ճ~,Ճ4~,Ճ~-,Ճ4~ @Ճ~,Ճ4~,Ճ~,Ճ4~ ֈ4"ֈ4 A,Ճ~,Ճ4~,؋Ճ~,Ճ4~ @6Ճ~,Ճ4~,ՁՃ~,Ճ.4~ #@օօ`Ѓ;###_` JՅֆ@Ѕ;###@TՂ~,Ղ4~,Ղ~,Ղ4~%^։Hh։H%ArՂ~,Ղ4~,؋Ղ~,Ղ4~%/|ք0փ )ք@$օ0ֆ8Ѕ;+#####@Ձ~,Ձ4~,Ձ~=,Ձ4~E֌z=֌zEAՁ~,Ձ4~,؋Ձ~=,Ձ4~E+0ՅևЅ;#####Dւ@~,ւ@4~,ւ@~-,ւ@4~5׏@-׏@5Eւ@~,ւ@4~,؋ւ@~-,ւ@4~5#օ0ՇЅ;+###.#1@~,4~,~M,4~UMUA~,4~,؋~M,4~UքPևփ &M"0ՅևЁ;#####2D:ւ@~,ւ@4~,ւ@~.,ւ@4~6DMՁwN֋z.X֋z6Dbւ@~,ւ@4~,Ղւ@~.,ւ@4~6lօ0ՆЅ;##%"vօ0ֆЅ3;##.#- օ8ՆЅ;##5;#օ8ֆЅ;##.#=;#ք`օpЁ;+##_`#ք`ֆЁ;+##_`4,X,Ճ,X=օ0օ04<օ0օ0CօՃ>օՃFCօՃNօՃVBօՃ^օ5ՃfBօՃnօՃv,օ0օ04,X,,X4>,XF,Ճ^,Xf4 N,X6V,Ձn,Xv+ՂևЃ;##.###֊z, ւ@ևЃ;##.###֊z'*]OUT ՁօЁ] 4ՁօЈЁ]Љ !>ՃՅЅ;###_`w!HՃՃЅ;###.#7Rփ@օ $\oփ@oւ@Ѕ#?fՃֆdЁ;։ֆ,փ`# FpՃֆxЁ;ֈHֆ,փ`# 9zփ@ֆdЁ;ք0ֆ,փ`# 89փ@ֆxЁ;քpֆ,փ`# .օ@ЄНև օ0ևМ #օ8ևЃ;####;94------------- Key input --------------------------- ~ֆ(U0UՄUք9Uև6UևvUֆ4փ  jք ՁՄ Ձ{[ Ձ - Ձ<փ  %Fax ֈ_ PՁ{Z:dքP.-nք@1Om\wIq%x $6W~%~Ձ~8~Մ Ձք Ձ ՂՂ Ձl;ւ@ ՁN Ձ1ւ@ Ձ*g܇\.zGg}L͞gՁ"*,g܇sRg}L͛gՁ6ՁՁ@JքՁՁTq^<jhՁrJ|}Ձ}}* ՁE. ՁM!ՁZՁ:ՁՁz߈Ձ=Ձ؈_ՁՁ؈DNօօ`; Ŀ& 0Ձ:։4 ։4D ։4NXbփ`ք0; glvՃՅ; w>pdՁt3d]~׎<d]׎&օ0օ06H&փ@ևHօ Ձ֊z!UR&: \&։HօS˳ f&֊HքP!p&׎pփ s z&ևHՃjS&ՁM6&֊zք`.&m & &ׇ&ֆH U&փ`քpUT&փ  &Ն &gnVsVpVplWaErrErrtotNlatminNlatmaxNlatdiffElongminElongmaxElongdiffFlagKorrZgrKdKgrFraFhiFinFzaFanFzeZeitPisteBreitePos1GeschwPosGlideBilsxBilsyIlsxIlsyToffKrKtsUFeetAtMleerMtreibVmaxVminVmaxgrVmaxvertVmaxgearKmaxBkhx1Bkhy1Bkhx2Bkhy2BccxBccyBvorfrBasxBasyBalxBalyBrcxBrcyBacxBacyFuFpTaCcAsRcTrFaCaAcArWhBrFlCtTuTu1Tu2Tu3Tu4ApAlLdLmGdGmZaMaVorfrQdmDmeVorindPlVatzindPlatzXxYyIxCvCzZbak1KxBarxBaryPkhx1Pkhy1Pkhx2Pkhy2Pkhx3Pkhy3Pkhx4Pkhy4MxinpZdiffMtotFtRlRbrZbak2DaDyDxRtCdCeRaWiVvDlDgDdExDrEr  4 >T l   X n X `!h@!p!x!"h"""W""#0#P#ȋp#Ћ#؋#|  $0,84|X`hp x08z$x-x D%L@%Tp%\%dx {z %& &H&`&&&&'P'''(8(h((( ()P)%x)-)5)=)E*M@*Uh*]*m*}**X*+ +8+P+h+++++++,0,P,p, %,,%,-,5,=-E -M8-Ux] gP-ow----#@.p.....z./ &.0/6X/>/F/N/V0^@0fp0n0v0~1x01`11111Y2 282P2h2222  2%2-25x=(E0M3U-e(3m@3uX3,=-E -M8-Ux] gP-ow----#@.p.....z./ &.0/6X/>/F/N/V0^@0fp0n0v0~1x01`11111&= ֈH ֈ Ձ"(#Ձ,Ղ  -"Ձ".";քP ;2Ձ*0*<*Ձ Ձ(=*ՁF.Pq  > Xb,zzz"x*x Ձ"(#Ձ,Ղ  -"Ձ".";քP ;2Ձ*0*<*Ձ Ձ(=*ՁF.Pq  > X"'"a~   ;丈Є  ;,101010100 "'",110010000 .,000010000 A,101000101( I,1000100012",",010101100< :,010001010F C,110001110P L,110101010Z M,101111101d N,10101"0101n O,010101010x S,001110001 T,111010010 V,101010010 X,111111111 Y,101111010 W,101111111'"',110110000 -,000111000 ?,111011010 H,101011001 J,111001111 P,110010011"" ",000000000 /,001010100 $,010111010nude.pic޸ݸЇЀ"!,6@#޸,ߟ E;J޵Tn^"h)3;),3r")|޵=฼^3=ߟN޵X฼4.NX1i=ޟ,Xޟo,޸Z? ooݵo iiOptimize picture scanningNUDE.PIC"޸$t.#޸,ߟ  8FuB޵L Vw`uujzy z)z3z=yNzXyiyoyuyOptimize picture scanningNUDE.PIC2'E2i# REMOTASM (c) LID@N DATAֈHID+------------------------------------------------------------------( ! REMO.BAC#2! (C) 1987 by Bj|rn Linderson<!GFB! Programmet best}r av en grund, som {r h{mtat fr}n2 Mikael lid`n,)P$! men ombyggt till nuvarande skick.Z!d!n!x!JE+------------------------------------------------------------------- !-@A 44&F,ݸ,ݸ,ݸ,ݸ,ݸ,ݸ,ݸ,ݸ,ݸ2,!,ǀ,,",,,!X,ݸ,,޸,,ݸ,,,ݸ,*,,,",䜸,,!,ǦH ,Ǧ,",᜸,,!,,,"D(,,,!,DŽ,DŽ,",ߜ,2ߜ`0,!,ݸ,ݸ,",L,,*,P,,~,#,f,o,",,x@,!,,,",P,,*,{,,",,,!,,,"`P,{,,*,Ǒ2,,",ޜ,ޜ,!,,,",Ǒ,,>,ݸQ`,, ,>,,, ,>,޸,, ,>,,, ,R,,ݸ,ݸ,,,,!,ݸ,ݸ,,[,,,ǯ,,RV휸,,,2(,,,,,, ,,,,[,,,f ,,,,:,,,,,(, ,,,,(,,d"0,,,o,o,,,(,(,,, ,8,,2,ǀ,0n,@,,,o,o,>,޸,Ǹ,,R,R,,,,x,ǹ,(l6P,,,,,޸,,ݸ,!,ǀ,ǀ,,!,!,,,d@`,,2,y,ǐ,(,,,R,R,,,,,,,vJp,,2,ǃ,ǃ,޸,޸,ݸ,!,ǃ,ǃ,,!,!,,,TTǀ,, ,,ݸ,,,>,ݸ,, ,2 >,,, ,, Z^ǐ,,, ,,!,0,0,,>,޸,, ,=,, ,^hǠ,,M,,,,M,,,,,,,,2,,Rrǰ, ,,ݸ,ݸ,ݸ,ݸ,ݸ,>,2 ǀ,2,,,,,,d|,M,,,,*,,,|,ǵ, ,,>,ݸ,, ,>t,(,, ,>,,2,,,,,+,",,,*,2 h,,~,#,",,,,,,,,,M,ݸ,ݸ,ݸf,ݸ,ݸ,ݸ,ݸ,ݸ,C,O,N,,,,,,',',j,,,',',2 ,, ,,>,,2,,,>,,l,ݸ,ݸ,,>,ݸ,2,,,:,,,,,(,,l ,,,',',,,,,x,DZ,(,2 ,,#,",v0,,`,i,+,",,,,>,ݸ,2,,,~,,@,,# V24:VTA50C99.&CՁ6֋z:A,ݸ,A,$2A刧݊A,ݸ,A,""TmT& ",ݸ0 ",ǀ4:'Ձ,ֆ<,,փ LOGIN.SYSDֈB Z'IֆֈEՁ,ֈ~ Jb KL2bN X b* COMMUNICATION OPENl#, ;v޵hj#,(y ޸#,,Dž,dž +&IF H$='22' OUT 65,5,65,171,65,4,65,87Ձ,ֆ<,,փ  LOG2IN.SYS** SUBRUTINER **ݵ( --݊0uޜ0u #޸,ƒ ީy *4£ݖ>yH ’£ Rfy\ f£pZb£z22y’  ’£bޜީy bޜb @ !޸, V24:VEA50C99.22C$#,TGC MR20X2 &V24:VEA50C99.04E04&2Kollar 1200/75bbݸ ݸ,߸#$#, MR20P20S20X0 &.V24:VEA50c99.22C22&8ݵB#,D Lݸ,ݸVKollar 300/300`Dbbݸjݸ,ݸ׏CPt2o~ i!ݵpfA刧劾 ޜݵ&22օp޸޸A,ݸ,A,ݸ " S:MESSAGE.TXT޸  ; #޸,ߟ ޜ2Z슾OՁ֊zЈTryck p} en tangent! ;Љ  ݵn(q2<ݵ' FP Zy")d)5޸,/,ݸ,޸޵r)n)0޸,/,ݸ,޸޵I x)0޸2,/,ݸ,ݸ )5޸,/,ݸ,ݸݵݸ " ;H0 THEN Var$=LEFT$(Var$,LEN(Var$)-1) 310 IF (ASCII(Slask$)>47 AND ASCII(Slask$)<58) THEN IF LEN(Var$)12 THEN 560 580 Datum$=FNInp$(CUR(7,26),2) 590 IF VAL(Datum$)<1 OR VAL(Datum$)>31 THEN 580 600 Timme$=FNInp$(CUR(8,26),2) 610 IF VAL(Timme$)>24 THEN 600 6B20 Minut$=FNInp$(CUR(9,26),2) 630 IF VAL(Minut$)>60 THEN 620 640 Sekund$=FNInp$(CUR(10,26),2) 650 IF VAL(Sekund$)>60 THEN 640 660 Dag$=FNVeckodag$(VAL(]r$),VAL(M}nad$),VAL(Datum$)) 680 T$=CHR$(VAL(LEFT$(Timme$,1))*16+VAL(RIGHT$(Timme$,2)),VAL(LEFT$(MinB ut$,1))*16+VAL(RIGHT$(Minut$,2))) 685 T$=T$+CHR$(VAL(LEFT$(Datum$,1))*16+VAL(RIGHT$(Datum$,2))) 690 T$=T$+CHR$(VAL(LEFT$(M}nad$,1))*16+VAL(RIGHT$(M}nad$,2)),VAL(LEFT$(]r$,1))*16+VAL(RIGHT$(]r$,2))) 700 T$=T$+CHR$(VAL(Dag$),VAL(LEFT$(Sekund$,1))*16+VAL(B RIGHT$(Sekund$,2))) 710 ! 720 ! S[TT KALENDER 730 ! 740 Z=CALL(VARPTR(A$),VARPTR(T$)) 750 POKE -17,VAL(]r$),VAL(M}nad$),VAL(Datum$),VAL(Timme$),VAL(Minut$),VAL(Sekund$) 760 ! 770 ! R[TT TID ? 780 ! 790 PRINT CUR(21,0) YEL '[R TIDEN RIKTIG (J/N)? _'B ; 800 PRINT CUR(0,60) YEL TIME$ 810 IF SYS(5)=0 THEN 800 820 GET X$ 830 IF X$='n' OR X$='N' THEN 100 840 PRINT CUR(21,23) YEL X$ 845 OUT 53,3 850 END 860 ! 870 ! DATA SATSER SOM INNEH]LLER RUTIN F\R S[TTNING AV KALENDER 880 ! 890 DATA 62,134,211,54,B 62,133,211,54,227,227 900 DATA 1,224,4,62,6,211,54,203,1,62 910 DATA 14,31,211,54,227,227,62,134,211,54 920 DATA 227,227,16,235,14,7,6,8,62,6 930 DATA 211,54,203,6,62,14,31,211,54,227 940 DATA 227,62,134,211,54,227,227,16,235,35 950 DATA 13,32,229,62,5B ,211,54,201 1000 DEF FNVeckodag$(]r.,M}n.,Dag.) LOCAL F.,F1.,F2.,F3.,F4.,V.,].,M.,D. 1010 ].=1900.+]r. : M.=M}n. : D.=Dag. 1020 LET F1.=365.*].+D.+31.*(M.-1.) 1030 IF M.>2. THEN 1100 1040 LET F2.=INT((].-1.)/4.) 1050 LET F3.=0. 1060 LET F4.=INT((B(].-1.)/100.)+1.) 1070 LET F4.=INT(3./4.*F4.) 1080 LET F.=F1.+F2.-F4. 1090 GOTO 1150 1100  LET F2.=INT(.4*M.+2.3) 1110 LET F3.=INT(]./4.) 1120 LET F4.=INT(]./100.)+1. 1130 LET F4.=INT(3./4.*F4.) 1140  LET F.=F1.-F2.+F3.-F4. 1150 LET V.=F.+INTB((-F.)/7.)*7. 1160 ! 0 L|rdag 1170 IF V.=0. RETURN '7' 1180 IF V.=-6. RETURN '1' ! S|ndag 1190 IF V.=-5. RETURN '2' 1200  IF V.=-4. RETURN '3' 1210 IF V.=-3. RETURN '4' 1220 IF V.=-2. RETURN '5' 1230 IF V.=-1. RETURN '6' 1240 RETURN 0. 1250 FBNEND >*7. 1160 ! 0 L|rdag 1170 IF V.=0. RETURN '7' 1180 IF V.=-6. RETURN '1' ! S|ndag 1190 IF V.=-5. RETURN '2' 1200  IF V.=-4. RETURN '3' 1210 IF V.=-3. RETURN '4' 1220 IF V.=-2. RETURN '5' 1230 IF V.=-1. RETURN '6' 1240 RETURN 0. 1250 FB>*7. 1160 ! 0 L|rdag 1170 IF V.=0. RETURN '7' 1180 IF V.=-6. RETURN '1' ! S|ndag 1190 IF V.=-5. RETURN '2' 1200  IF V.=-4. RETURN '3' 1210 IF V.=-3. RETURN '4' 1220 IF V.=-2. RETURN '5' 1230 IF V.=-1. RETURN '6' 1240 RETURN 0. 1250 FR(R6oi ,ߜ,, ݵ&,2t Enheten ej klar,8 >(^ !Skrivaren ej READY.,j> 9 ݵDDݓDQ࣐ݵ[QDޜR:asWFM8 #>( !Skrivaren ej READY.,>  DޜDg ǀkݵީ,ǠƁk`- Ƌ ,, ,ݸ,,, ,ݸaƕNUFDDR0DRR1DR2DR3HD0HD1HD2HD3MF0MF1MF2MF3MO0MO1MO2MO3SF0SF1SF2SF3SO0SO1SO2SO3RAMQ,zƿ,,ݸ,޸,,,ݸ,޸T( ݵ  Filnamn: ------------ StorRlek:  -------- Skydd: ------ 'Fysnum: 1------- ;!E!('8# >ǻ E'Op`!:v!U~<~<_#R# Oh) c9&I Y5Y Y(= Y @ Y᜵Y‹ !Y&&7aUFD:pa a aRAM:R M ݵ' ߜ-R,2ᜈ,ݵ ݊ᜈߜ-ݍaRAM: ,/ݍaRAM:a0a9•a  maRAM:ma'maRAM: mކmޜR䈧syQ&L'ᜈmޜ䈧s-yy݊,K FE ,aUFD: %  ,k (yՂW&Ry 9: *** L I B *** R Ver 1.1(C) 1983 by ARADO ABEnhet/Filnamn?,2:;23%Felaktigt enhetsnamn,:ޜݖ:ޜ….*…….ޜUfd D ….…….ޟR !  … P - Printerutskrift S - StorlekN - Fysiskt filnumer F - FilstatusA - Alfabetisk ordningV{lj (P,S,N,F,A) ?; P ,>>S ,N ,FR ,A ,88 ) z :a ,01DR:a,:፾, Q݊,:aB/=:&, R  0)9+y I32&ޜ&&ޜ&Drive: a•&ޜ&hVOLYM: ¿&ޜ&H&ޜ&6    1&ޜ&R [݊޵Cݖ; ;;1; ;ޟ&ޜ&VCݖ;;';;; ;ޟ&ޜ&ݖR ޜµ ;µ ; µ ; µ ; ;ޜޟW<&ޜ&2&ޜ& &ޜ& lediga av totaltR sektorer. )9+y I329pr:޸#޸#޸#޸,Drive: a•#޸,VOLYM: ¿#޸    1[Wݖ#޸,; R#޸, ; #޸,; #޸,1;#޸, ;ޟ#޸Wݖ#޸,; #޸,; #޸,'; #޸,;;#޸, ;ޟ#޸ݖޜ#޸,µ ;#޸,µR ; #޸, µ ; #޸, µ ;#޸, ;ޜޟC#޸5#޸#޸#޸,C lediga av totalt$ sektorer.,Y#aUFD:,y RY[Y YYޜ犈Y Y ¿Y YޜYY#TD>a sysdir.sys߸ #߸,Ɓ踈 .'+zᜈߜ-/R RAM:-ޟj-݊숧]븼, 芾 . () +,!-9,mf`݊ǀR,툽,aSkivan d}ligt formatterad.$퟈!aDiskfel ,%!*I-sފ0,sފaUFD:E+sޟ,E+saUFD:Ryޟ,$퐸 ޜ[)VJ)݊ _  _  8",3!*",  .l-g!*--  Rޜ ވ(=S߈(=RL1G!*.:  z(!*!.Q.z(  ߜ0s0R sO+$'9!*",.q)݊yX,޵0݊x,……ލR獾"µ[ޜ(=[ޜ[휵7ޜ  /9/ +y yyzkݲk[ޟߵފޟkkµޜR ޜޟ µޜµޜ(=µޜޜE µޜµޜ(=µޜSµޜ(= kޜkޜRkkޟޜ  &,28>DQ[ak '1;EOYmsyRkޟޜ  &,28>DQ[ak '1;EOYmsyb)b-Ќ SCNET transfer protocol.( -Dž-2Dž,ݸ,ݸ<F P d ;2n*Terminalprogram skrivet av Bj|rn Linderson&xAnv{nder sig av Windows ABC800D<300/300 75b/1200 1200/75 1200/2400/4800/9600 bps supportas$Logga fil / s{nda fil 1)SCOM Ver. 5.00 PF5 gives help page Ռ&ESO޵.4V24:VEA50C99.22%4V24:VEA50C99.04bDE%4V24:VEA50C99.40DA4V24:VEA50C99.444V24:VEA50C99.554V24:VEA50C99.664V24:VEA50C99.77޵TT4޸޵Z `",6@n SzJ޵f/^b#޸,fc=`S `hhrݸ| }) b-w wݖ #޸,wݸ ; #޸,޸ &!r0 }4:} ǀ b`D#޸,}; X}b1`G `ݸ }I$b CON:WND:01011378.OWND:16010736.O߸WND:16390740.Oงݸ  -!%%*#߸,Ё; ;b4#, ;+>#߸,Ѓ;System data information;Ё"H#, System control R#,"\ފ#߸, Local echo on#f݊#߸, Local echo off-pTފ"#߸, Current speed 300/300;-zTߊ"#߸, Current speed 75b/1200;-T"#߸, Current speed 1200/75;-Tኾ"#߸, Current speed 1200/1200;-T⊾"#߸, Current speed 2400/2400;-T㊾"#߸, Current speed 4800/4800;-T䊾"#߸, Current speed 9600/9600;Zފ#߸, b8 ;Zߊ#߸, 7 ;#߸,.#߸, Log file :;#߸, Xmit file :;—0ފ#߸, Logg ON #߸, Logg OFF$.8BLV`jݸtb ~ $ } ww `PF1w `PF4w >`PF7w `PF8w `PF9w `PF10w <`PF11w .`b PF2w `PF3 w ݂݂PF15w S`PF14w `PF5(wǁ F `STOP2w `PF6<FPZdxݸ |q%a Tb TT劾޵TT4(=.T4ZD޸ݸ ?%$"ފݵ޵6ݸ@JT^ hj%O(r#,;#, Filnamn :;ƍ|! !ݸb  ?'$ފݵ޵ݸ D&)&!ݵ 0DݸNXbl v1&w#޸,— x޵#,, ߟ  `b  ,#,; Send chars :;;; *`} , #޸,***MOXIE***KILL ݵ ݸ ta&YE. #,;#,Transfer file :;Ɨ—b,*ݸ/4>HR \ZI'?fZފߵZ޵ZpT4ZD޸ݸq'' 8,縇9,( xSPR 8,븇9, 8,츇b9, ݸ  $ .  8 |1(a B .ޜ.L .ኾ޵.V T4(=.` T4ZD޸t ݸ~     o))T* #,; Directory :;#, ߟ D ;DR0DR1bDR2DR3HD0HD1HD2HD3MF0MF1MF2MF3MO0MO1MO2MO3SF0SF1SF2F3 o ࣵw" w݊#,;;ݸ Drive :;;2  H Hard disk Floppy disk  ,w ݵ b f` ~  ( ޵鸼 # ./( @ `,,ޜ2 3 퐽 7 8  < F ,K #,;b;ݸZ d n x  *1 ;$Help page for SCOM Ver 5.00 terminal G ?PF1 Change baudrate PF2 Change bits/characterC ;PF3 Change parity PF4 Local echo on/off> 6PF5 Helpb page PF6 Autocall TGC@ 8PF7 Open log file PF8 Close log file@ 8PF9 Transfer send file PF10 Name send fileD :;J #,#,T Yy^ #,;;h ݸi Dž,,r |    +# Ce` ݸ    SmodReccharInsZkIkIstFindnebtnodeInitcallTransferEndcallCloseupResetmodemRestartDelayOpenfXcBusyFailIcNocItAutiFileInitwindowInitwindExternInitscrnsSpeedLokal\ppnaSt{ngTransAngefLocalTsLoggLoggaDsBitsCursorMinneSl{cktParParitListHelpScharRcbharAsDirectoryDirDrectoryCrFcursorLitLisLefQlHelppageStopexecCtrlcCurposAutocallPhoneTransfpA+ zz~.(4~D~Tq%ZI'`y f wy}z&&2'&((!$!,z)y*y yzy +rParitListHelpScharRcr*@r!   ,ḇf` ޜ (x,22<;Sektor ;; bearbetas....;Fjy yy *` a ݵ ޸,* ݸ,ḇ (߸,ḇ 2,ḇ <,ḇ F,⸇ P,޸ Z,ݸ d,ݸ n,ݸ x,ݸ ,ݸLsity