1 1 ,!$ ( y8(H!qmĀutf|r slogo.txttCOMCMD8088 $$$ SUBͬ 2y2!121((>//2:· &1KaQƷ( 8 ͱű0Q6͕21͝ı:Ƿ ª~#fo͉͝:J !Ƕ±USERTYPE)DIR >LIST%GO ERA SAVEREN CGET LJUMPͱō> _ ͥ ͥa~_>(Q !j5 6>S(dIK͹~Q~#J  _2iI<I!~6(͍>_ Ƈ!1ƶ2>2(D((::7=2Hͣ .!!66#5((ͱŤ!͹\î!ͱ> 0!F#~iw6!"K*~!8Q#ͱſî 8=.:;<>[ o$͝!T ~+ H(+!J~ (#0 0Wy8 88Oyñ͝!J ~ (-H()08 80#OzW{_W{_}!~ɯ2I͓͓:1>=!1ƾ!Iį2S( @G:(:1wx2p2l. #6S:lķ(#* 6?w?#6 :l<2l! J # ### >͝!J~ (A(S SS(Wx2ʁ(f=`O> vբ I{ Kͱ ! xv  > v (> Qx 0 ͱŮ\  6?#͝ʁ( GnͬFjern?dJKI>2t͝±2("ʁK>2j!k6!k~8 ͠ =w4!~ ( ( ( rr > rx \(=o&(B2iS()S|(+!Iͥ( I< ͬFull͝±IͬFjern #~ Qx>.Qͱ?dJ:!IY= 4#"͝ *G!~(p p2IIͬFinner ikke͉÷ͫ_6F!A:J :Ƿ=210ͫ_:J :R ±!R!\">͝!~2I!Y͠~2Yį2i\!I!!#~( +#~ x2K!0î6͝±>2"22s #>( 2s_:Ƿŷ˗:SM (!~NPw :$!#Å!>ü8Iͣ =:SM( ! ͉ñƱH ږϛڠϼσ؇+mԴԠػ>Vؔ3667!!!-!~w !-#rg -5 =I !;( 45(####~#foZD(C o>kx(^Xy(=(Obk#͆ (: ́3yΐ(yT]+Obk ͆x> (,):d2cZ(_*xy{@ 2hOxy0 y0 O:h̷( y( 0^ ڗ2e>2hGf/#q[[> 2e>![8O͈n:c!d̾́yO=#q d6 ny=GͦO!#:g̷ BϷ (2g̗<^ C :̇!wͱ :f̷y!d4 5 5 6yͦ0^y  :d:A2͉͉yϷ!g~6  !e~ :d 6G 2e>:g̷ $O͘3.ͨyO: (*L""̗2*:[* DM*q#p[0MD!'ڷ* *ڗ*w#w:O|^#V#"##"####S**|!6(6>* ͐ wy<_W`i<K ~C[*S̷R0%:2̷*!(!"*#|*[!N#F$#!,[*̷R'[* ( PÂwPr+s[*{#zjwj6*~:*̅o$s ~*ͪ* K"[*s#r:O*L}!>2q*"1ͫ(R[(P0BsKy($?(x ( ( Nl # :2!~Зw>ÖPYx( ͐0*շR0KB͐0<͊x !:/GO:Ö*LMD*6]T[*s#r1*6#6ͫs>(:̖ #~$ =2Gs :̷(N N#Fy( *̷BԂ# B* s#~+#w+w͌ ͸*~w~  ͸ dX͸x~s []! N!Fwyx(>8>*wXؗ!w#w2ͪj͸s ~w * :̷(~ w ~(!5&& # #  8 w ~>2 ͌ ͸~s6dX͌*!"͸"!w# ! wG ]җ2ͷ * ~<w( !̦!̦( ' 4~?(͸ :<(\ ͔|UЗÖX)X!6!6U!:̾8 !͑՗2:̷ ͭ͠( ̀#&ÔX)X!62͌*́U:0ͭ͠ >2̷(O ͳ1|>ʖ"* :̷:O (s s#r:̷̀: 8y== 1*w#*",:G# " ,!:̾8w4jw := 8͑!~ =2̗w8З2*~!_W{~"GO~#.0[_xGr yݖ xݖ(2ͷ*.:<(&q ps:< . (\.:<(Öj6}2]GN~ _态OxG{G~_G{X ͸*̗w!w"w#sͯ*_yݖ!xݞ"{ݞ#8{!* ͯq!p"w#:!̾w:*OL<~}*MD"Â*>2~=20:2~2w+:̶w>"\!w#2.g" 4ؗO~?(x~?dX͸ *"XX5X4|*":ÖS ** XX*":< =*[|/W}/_S*zg{o"X>2-F!"S{2si1̗22͚:̷(*̗w:̷( w:2+{i*D}>2y)Ko)V+^[ Feil p} A: $Lese/skrive feil$Gal Plate$Fil KUN lesbar$  $ $1$æñüV6K[TP"3޶ۚ(z߬          RRP P TIKO - ver 4.01:72!~#(OͼPޯ22>21RͼͭV͝W,!"KKܷ ({8 y2͝[!"">2!N#w!"!4: /_:: :y y9!~ +wCy!{ 6!^=w -CO>2 0_P?(=("~W ݳwC2 2 `̓: 0o&H!8 ~y2`i{ n&C:!ھ>2 !~=w#Kޗ=`+ C6ͭ2 &)0$o" <2ۗ ^#V*:O* :$%(ܕO : x(!  N!O:  e+ ͵$2#ͽ:  ^+ ͵'#ͽ:**:! ۾( wO*RBKC!|c2<2`2<2|ܯ2y2 :2!:ڷ(.=2! #!4: =0 6*#"گ2cݯ2:G:ڷ2!~6( ! #:!ھ(#:۷!:2:۷ܯ2:!ߦo&)[:۷ >2!~+=~+w$ > > /  `@?ط y> = > isk * &T; * Forms: * ZT; * JUMP Call at ; is in HEX * T; ******************************************************* TJUMP: T CALL HEXNUM ;GET LOAD ADDRESS IN HL T JR CALLPROG ;PERFORM CALL T; ,U; **************************************************************** LU; * Command: GO * U; * Function: To Call the program in the TPA without loading * U; * loading from disk. Same as JUMP 100H, but much * V; * more convenient, especially when used with * MV; * parameters for programs like STAT. Also can be * V; * allowed on remote-access systems with no problems. * V; * * V; * Form: * V; * GO * 5W; **************************************************************** 9W; YWGO: LXI H,TPA ;Always to TPA vW JR CALLPROG ;Perform call zW; W; ******************************************** W; * Command: COM file processing * X; * Function: To load the specified COM file * -X; * from disk and execute it * BX; * Forms: * \X; * * X; ******************************************** XCOM: X LDA FCBFN ;ANY COMMAND? X CPI ' ' ;' ' MEANS COMMAND WAS 'D:' TO SWITCH Y JRNZ COM1 ;NOT , SO MUST BE TRANSIENT OR ERROR =Y LDA TEMPDR ;LOOK FOR DRIVE SPEC \Y ORA A ;IF ZERO, JUST BLANK iY JZ RCPRNL Y DCR A ;ADJUST FOR LOG IN Y STA TDRIVE ;SET DEFAULT DRIVE Y CALL SETU0D ;SET DRIVE WITH USER 0 Y CALL LOGIN ;LOG IN DRIVE Z CALL USRNUM ;GET USER #, IF ANY 3Z MOV E,A ;GET IT READY FOR BDOS UZ LDA FCBFN ;SEE IF # SPECIFIED `Z CPI ' ' Z JRNZ SUSER ;SELECT IF WANTED Z JMP RCPRNL ;RESTART CPR ZCOM1: Z LDA FCBFT ;FILE TYPE MUST BE BLANK Z CPI ' ' Z JNZ ERROR [ LXI H,COMMSG ;PLACE DEFAULT FILE TYPE (COM) INTO FCB '[tryLOAD: L[ LXI D,FCBFT ;COPY INTO FILE TYPE a[ LXI B,3 ;3 BYTES i[ LDIR [ LXI H,TPA ;SET EXECUTION/LOAD ADDRESS [ PUSH H ;SAVE FOR EXECUTION [ CALL MEMLOAD ;LOAD MEMORY WITH FILE SPECIFIED IN CMD LINE \ ; (NO RETURN IF ERROR OR TOO BIG) 9\ POP H ;GET EXECUTION ADDRESS =\; }\; CALLPROG IS THE ENTRY POINT FOR THE EXECUTION OF THE LOADED \; PROGRAM. ON ENTRY TO THIS ROUTINE, HL MUST CONTAIN THE EXECUTION \; ADDRESS OF THE PROGRAM (SUBROUTINE) TO EXECUTE \; ]CALLPROG: 9] SHLD EXECADR ;PERFORM IN-LINE CODE MODIFICATION e] call resdsus ;Restore default disk/user ] CALL SCANER ;SEARCH COMMAND LINE FOR NEXT TOKEN ] LXI H,TEMPDR ;SAVE PTR TO DRIVE SPEC ] PUSH H ] MOV A,M ;SET DRIVE SPEC ] STA FCBDN ^ LXI H,FCBDN+10H ;PT TO 2ND FILE NAME R^ CALL SCANX ;SCAN FOR IT AND LOAD IT INTO FCBDN+16 p^ POP H ;SET UP DRIVE SPECS {^ MOV A,M ^ STA FCBDM ^ XRA A ^ STA FCBCR ^ LXI D,TFCB ;COPY TO DEFAULT FCB ^ LXI H,FCBDN ;FROM FCBDN ^ LXI B,33 ;SET UP DEFAULT FCB _ LDIR _ LXI H,CIBUFF-1 !_COM4: *_ INX H T_ MOV A,M ;SKIP TO END OF 2ND FILE NAME l_ ORA A ;END OF LINE? x_ JRZ COM5 _ CPI ' ' ;END OF TOKEN? _ JRNZ COM4 _; _; LOAD COMMAND LINE INTO TBUFF _COM5: _ MVI B,-1 ;SET CHAR COUNT ` LXI D,TBUFF ;PT TO CHAR POS ` DCX H `COM6: 6` INR B ;INCR CHAR COUNT L` INX H ;PT TO NEXT U` INX D }` MOV A,M ;COPY COMMAND LINE TO TBUFF ` STAX D ` ORA A ;DONE IF ZERO ` JRNZ COM6 `; `; RUN LOADED TRANSIENT PROGRAM `COM7: ` MOV A,B ;SAVE CHAR COUNT a STA TBU40 COM+80 COM+DOODLE LOGKOPI COM! LYD LOG UTF\R COM TREE LOG SPII LOGCIRCLE LOGKAT COM SLOGO TXTWM21 COMZ$$$ SUBWM21 HLP80B COM% SPIR LOG!KVADRAT LOG"LOGO COM#$%&'()*+,-./012LOGO COMC34567TRY LOG8LES MEGN9:;<=MOVE LOG>SPIC LOG?MANY LOG@TSPIRAL LOGAFIGUR LOGBPALETT LOGCKAT COM DESTJERNE LOGFLISTPRO LOG GVAR LOGHTEGNING LOGINAUT LOGJPLANTER LOGKBORDER LOGLFIRKANT LOGMBLOMST" LOGNBLOMST2"LOGOFIRKANT"LOGP!9"1W!00{_G G ~@# x !P*"K:2P*"N2 222!͖22!͖qdáNy #~ ʗ+ #y ~ aڼ VræTfæNSD2>æU2æB>2æ?E æ_5!Q"!T" !" ! "XæI@2æWK2æLV2æPa2ææ:ʿ!2~#ʂʑʬæN#~q+w##úN###~q+++w#N#~q+w###úBNwy#>͞:!2~!3###~+w+w###!B~+w>͞:>͞:>NS:*N"N*"*"*"*"*"*"Dp*"*"*"*"*"*"*"*":!l\!e~ ’6F#6N#6T\!@ |\ʠ:ȯ2:m 5!l\!e6C#6O#6M!|6#6#6\\!:4!! \"@ !Nl##~+:U~@## ~#  V͛͞f x…> ͞> ͞x͞t> ͞> ͞&)*TIKI(ver 3.3 $N-P $ Installer ny terminaldriver: Opsjoner: -N = N,DK -U = US,UK -S = S,SF -D = D -B = blank (ca 10 min) -V = vis font -I = invers -W = svart/hvitt -L = last .FNT -P = permanent $)TIKI /1aZQ"WSX#EDC$RFV%TGB&YHN/UJM(IK;)OL:=P\_?][ `~*  +-*789%=456 10.23      G k @OZmF@Hms2E:*2" }>>2!~ G>:"2":M00>02M !3&|(~#/:M  y8:M 2O2G|:pO)]x8o0 .;>G$ 7:x0+q(9A= ::Fx*C[:Eg<>/0}ox| 0/O :Y~چw,~w( >o0$r:*######_^#V*~G0O:O:Vy"(_w{(,w( #Z:0/O:~(8w,w:!9"&!F A! x2%<2$2#!ͱK:#㇇>:#G!ͱ A *&:OFyx (zW0z0#ɷ(:$2#:%<2%:$<2$~#O*} .:ü:Q>ɯ2*}T~#"O<ʗ!9"1*|̌! "!~wļ!~w !4~ܼ*?????????????????????????????????????????????????? cG!8x 2^2* #8x 2o"0"p͉͌!N"!~('0yG4> 2EyG6!"Cy 8c:y([8^8 {8 0%G:b: x͟8x͟!E4x͟5>͟0!:E2E2E! ~#fo*C"CTW*[CR̈́*CR"C*"C̀:E 2E:E G:x2E:2ɯ2ET,!"C(4eRKͮ> ͩ>n22KE>2!ͽT4Ԍ40T H>2b*C"C0*% R8(:ͮ0}oT] DM*B8:ͩÄ>2ɯ2>>!w>}Č>ͺ2<:=(ú>!>2À!~#~#d   !":(*|+"|̑!~w:E 2E2E*C*E"E"CU\4eTdpl`[r&K  "-3<DMV_hqz %.7@IR[dmv"+6?HS\enw%-6?HQVYbVkt}VVVVVVVVVV  '.5<CJVVQYaisV|VVVVVVVVVVVVVVVV %VVVVVV.9VDVVMV_hVVq{VV PPPPPPPP xp(  @ PP`h @ @@@ @  @ p   `` @x`` @`` ` pp0@0p0Pp8@p @@@ppppx```` ```` @ @@ @  @p pp Ppppxp ppبȨppph𠐈ppp pPP PP PP  @x𠠸pȈpp P P pxxxxxxpp p  xxp  P @@HP`PH Шpp  xxX`@@@xp p xPP PP P xp @ppppppxx  x@@@@@x@  @    @ @@ H((H p  pPP(H@ PPp    p  p 0H@@Hpp@ @``00   @@@@@ `   ` @@@  @@@ p`H0p0@ PPxxpHHHHp Pp Ȩ0pPPxp p pP @ Pppxx pxx xx0P xx@xxp @pp@ pp  0P xp p p x @x0HpHHHpP  @pxxppHHHHHHH @@@@@ `   ` @@@  @@@ p`H!9"1W!00{_G G ~@# x !P*"K:2P*"N2 222!͖22!͖qdáNy #~ ʗ+ #y ~ aڼ VræTfæNSD2>æU2æB>2æ?E æ_5!Q"!T" !" ! "XæI@2æWK2æLV2æPa2ææ:ʿ!2~#ʂʑʬæN#~q+w##úN###~q+++w#N#~q+w###úBNwy#>͞:!2~!3###~+w+w###!B~+w>͞:>͞:>NS:*b"b*"*"*"*"*"*"Dp*"*"*"*"*"*"*"* ":!l\!e~ ’6F#6N#6T\!T |\ʠ:ȯ2:m 5!l\!e6C#6O#6M!|6#6#6\\!:4!! \"@ !Nl##~+:U~@## ~#  V͛͞f x…> ͞> ͞x͞t> ͞> ͞&)*TIKI(ver 3.3 $N-P $ Installer ny terminaldriver: Opsjoner: -N = N,DK -U = US,UK -S = S,SF -D = D -B = blank (ca 10 min) -V = vis font -I = invers -W = svart/hvitt -L = last .FNT -P = permanent $)TIKI /1aZQ"WSX#EDC$RFV%TGB&YHN/UJM(IK;)OL:=P\_?][ `~*  +-*789%=456 10.23      G&m TcnÁZTssss2Y:*)2" >>2!~ G>:"2":M0 > 2M !3&|(~#/:M  y8:M 2O2G|:pO)]x8o0 .;>G$ 7:x0+q(9A= ::Fx*C[:EO>G<a<x>6}ox| 6/O :Y~ږw,~w( >o0$:*######_^#V*~G,6O:O:Vz( y"(_w{(,ywy,w( #Z:6/O:~( 8w,w:!9":!Z A! x29<2827!K:7㇇#>#:7G!# A *::OFyx (zW0z0#ɷ(:827:9<29:8<28~##O*} .3::Q>ɯ2*}T~#"O<ʫ!9"1*|̎! "!~w!~w !4~*?????????????????????????????????????????????????? cG!8x 2r2* #8x 2̓"6"͎̈́͝!b"! ~('0yG4> 2EyG6!"Cy 8c:y([8^8 {8 0%G: v: xͯ8xͯ!E4xͯ5>ͯ0!:E2E/2E! ~#fo*C"ChW*[CR͘*CR"C*"C͔:E 2E:E G:x2E: 2 ɯ2Eh,!"C(HyR_> ͽ> p2 2 _Y>2 !hHԠ H0h \>2 v*C"C0 %*% R8(: 6}o%T] DM*B8:ͽ Ø>2ɯ2>>! w>Ď>ͼ2 <:=(ü>!>2 Ô!~#~#d   !":(*|+"|̓!~w:E 2E/2E*C*E"E"Ci$pHyhxto:_-  "-3<DMV_hqz %.7@IR[dmv"+6?HS\enw%-6?HQVYbVkt}VVVVVVVVVV  '.5<CJVVQYaisV|VVVVVVVVVVVVVVVV %VVVVVV.9VDVVMV_hVVq{VV PPPPPPPP xp(  @ PP`h @ @@@ @  @ p   `` @x`` @`` ` pp0to lesmeg pr [Ref: Ross, s. 85 ff] pr [Use: doodle 80] end to doodle :n fs seth 0 setpos [-170 -125] d1 :n rt 90 end to d1 :n if :n < 10 [fd :n stop] d1 :n / 2 rt 90 d1 :n / 2 lt 90 d1 :n / 2 lt 90 d1 :n / 2 rt 90 d1 :n / 2 end @0p0Pp8@p @@@ppppx```` ```` @ @@ @  @p pp Ppppxp ppبȨppph𠐈ppp pPP PP PP  @x𠠸pȈpp P P pxxxxxxpp p  xxp  P @@HP`PH Шpp  xxX`@@@xp p xPP PP P xp @ppppppxx  x@@@@@x@  @    @ @@ H((H p  pPP(H@ PPp    p  p 0H@@Hpp@ @``00   @@@@@ `   ` @@@  @@@ p`H0p0@ PPxxpHHHHp Pp Ȩ0pPPxp p pP @ Pppxx pxx xx0P xx@xxp @pp@ pp  0P xp p p x @x0HpHHHpP  @pxxppHHHHHHH`00   @@@@@ `   ` @@@  @x29<2827!K:7㇇#>#:7G!# A *::OFyx (zW0z0#ɷ(:827:9<29:8<28~##O*} .3::Q>ɯ2*}T~#"O<ʪ!9"1*|̎! "!~w!~w !4~*?????????????????????????????????????????????????? cG!8x 2r2* #8x 2̓"6"͎̓͝!b"! ~('0yÇ ʭ a~ A^ ɾ#~ ~ #:(08:00OxG6 #x_ _ 2 !6# bk #~w#!!!#! + >  !.: (R w# 2ܯ "6BK~(+('_ L P #Я!!4#~66  > > _ 8  ( @ >:  0>. 0B8 { 0 'ffdf ff<<<̀>k > > > '  :(P > H':IG:KO(( (> ܸ(>> >6 #:6 #G! ##~#( ~#fopxW 2P G<2G ~* 26 #G<2>-  p'B!~ 7N# 6!C~-V~# (= 2! >?3<>,;~(7# .:=* >?.~ > #0 >?(> $- > .: >x > >:. !7 @87> 7. = :@2 ȷ7:[X# ~#-"X6*T@"T~O"T>!6:@(H!! #? (<>= <>? ~?(V :L'<o&)))))V:((! #? ~!: !:@8( (!*X<'6<\'"T*^"V"X6*T~(*X#"^*^*}oR}|o>g+"d*`h(^:(8J:!i~##~#B''i:(h͡+[`-:( *`~"w#:( *`~w#*`"`*#"*f+"f|b>2 'h<2v2t2h͉ ~'7ɯh:% *X~w?2h~@("X~@­ 7#i "X2h< h:(h͡+!8Q: :r(?:(!i~#( #~# '>2:( :s(9:(.:q('[VR8~@(66"X7!\42>2*X"Xڪ [`*Xs#r#"X!"bB> *ͩ[*Xs#r#"X:( '7?7: iA : ~!C@(%#~: #~= #~Aڭ ҭ <2*T"^#E*V~ :'Í :(':=o&̀*V"X"Z2\2]*^"`*d"fH8S ͉ʭ :=|:=|:|# ~#222++<>! í !*|*`n(I:(0 ͯ !~w/ 'i+́ :í *`"`*+"*#":ͯ '!2 *|+"!ª *bª #"b: *Z~~ "Z7ɯ2:2~@( ~?(2~ (2Y "Z!]4́ ~@(*Z"Z<2 *Z"Z*Z^#V#S`Sb^#V#S"Z!"͝  ͯ :( :]!\(!~(6/ :(\ l 27:!#0~w !#~w!:̈́ =: ̈́ :2%S A *Z~?2Y <'S J ʭ : iJ f 8S ͈ ; : D' '>|2*T"^E>( ͩ>) 2-: 0>*2 > : !C@? ~ $!~ 6:(!6 !4~8 : 1 1S : : '3'2:#VSCQLAERUHBYK$? 2.3 ^C?=?=?... ...?:=-v-g-e-a$$$ SUBTIKI(kopiering av filer: KOPI ffn1 ffn2..ffnN opt KOPI dsk:=ffn1 ffn2..ffnN opt KOPI efn1=efn2 opt opt er: -A hopp over arkiverte filer -B splitt store filer -E slett etter kopiering -G fra bruker , 0..15 -G* fra alle brukere -H fil kan ha hull -K ikke slett filer med feil -L sm} bokstaver -P til bruker , 0..15 -Q sp|r for hver fil -R hopp over bl-filer -S ikke stopp, un|dvendig ved = -U store bokstaver -V verifisering -W omvendt av -S -Y ta med sys-filerkopifinner ikke ? ulovlig filnavn ignorert finnes ikkeingen fil feil plate! plate full? byttet plate!(ny plate)sett i til-plate (cr)sett ito lyd pr [Demonstrasjon av enkle lydeffekter.] tones [478 64 426 48 379 32 358 24 319 16 284 12 253 8 239 64] repeat 10 [tones [120 32 0 64]] end Ø$:8:9b$:9ȯ29 ʷb$r>G29<2929*9#b$r>29G29*9#b$r>29G29* 9#:9?):99ʐ$o& ^#V*9I s#r29* 9##{$:8ʷ$:9ʷ$*9 29r͎ "$'L%G *w8++$ $$Ͱ $ ͎ , %; % % "w8L%yL% G /% ȸ'% F%Ͱ ,ʽ$ý$:9&y,͡utf|r 1.1$! \! \"!"!"}2!9^#V>>[!\"* ~o&| SUB* C*\|[! \*~o&|A*s*\|[l!}2"!"MD|MD}0|>9>i`#!9^#V{z!9^#Vi`#)^#V~#+~o&ÿki`|!9^#V>>*ki`|4MD}@|,>~>,i`>o&k!^i`|k* \y$$$ SUB"*\|ʥ*#\ÿ*\|¿l*^#V"|*##\*"\|l*!^#Vs#rÿ*\*|c!*}|`!\*\|Z!!"*~o&|w *$! \!}}2! \:o&|¥!:o&## s:o&###s! "*#"+~Oo&|i`!9~o&|I**###*##~o&s!o"#|0**##s*s#ri*###*##~o&#s!9~w* \̓ ?$! \*~w*."!"!:!_6{+~ ʼ{+~ #+ü!!9j&#͑$6!"" """"*"ɍ* =*"=6*=}œ"A*Aw#P*A!9N##^#Vo&*ڈ"!""*"ɍ* =*"=6*=}œ"A*Aw#P*A!9N##^#Vo&***###*##~o&s!o"#|0**##s*s#ri*###*##~o&#s!9~w* \̓ ?$! \*~w*."!"!:!_6{+~ ʼ{+~ #+ü!!9j&#͑$6to lesmeg pr [Ref: Allan s. 58 ff] pr [Bruk: tree 100 6] end to t1 :length :order if :order = 0 [stop] lt 45 fd :length t1 :length / 1.7 :order - 1 pu bk :length rt 90 pd fd :length t1 :length / 1.7 :order - 1 pu bk :length lt 45 pd end to tree :lenght :order cs t1 :lenght :order end to lesmeg pr [Tegner spiral etter iterativ algoritme.] pr [Se ogs} "spic". end to spii cs ht pu fd 30 lt 90 fd 20 rt 90 pd s2 5 st pr nodes end to s2 :dist repeat 190 [ fd :dist rt 87 make "dist :dist + 2 ] end to lesmeg pr [Enkel demonstrasjon av sirkel-tegning] pr [Bruk: sirkel] end to sirkel repeat 36 [fd 5 lt 10] end LYD LOG PENT LOG TREE LOG SPII LOGCIRCLE LOG fra-plate (cr)sett i system-plate (cr)kopiering avbrutt(j/n)?)TIKI til bruker , 0..15 -Q sp|r for hver fil -R hopp over bl-filer -S ikke stopp, un|dvendig ved = -U store bokstaver -V verifisering -W omvendt av -S -Y ta med sys-filerkopifinner ikke ? ulovlig filnavn ignorert finnes ikkeingen fil feil plate! plate full? byttet plate!(ny plate)sett i til-plate (cr)sett iN = N,DK -U = US,UK -S = S,SF -D = D -B = blank (ca 10 min) -V = vis font $)TIKI /1aZQ"WSX#EDC$RFV%TGB&YHN/UJM(IK;)OL:=P\_?][ `~*  +-*789%=456 10.23      G#o EU`sLF2Y:*))2" ́>>2!~ G>:"2":M0>2M !3&|(~#/:M  y8:M 2>(=2G|:pO)]x8o0 .;>G$ 7:x0+q(9A= ::Fx*C[:EO>G<<a<x>3}ox| 3/O :Y~ ڔw,~w( >o0$:*######_^#V*~G 3O:O:^Vy"8 (w,( ##Z:3/O :~(8w,w:!9",!L A! x2+<2*2)!ͷ K:)㇇>:)G!ͷ  A *,:OFyx (zW0z0#ɷ(:*2):+<2+:*<2*~#O*} .%::Q>ɯ2*}T~#"O<ʜ!9"1*|̐! "!~w!~w !4~*?????????????????????????????????????????????????? cG!8x 2d2* #8x 2u"3"u͐͏!T"!~('0yG4> 2EyóPTIKI(KAT DOC*** F}r ikke skrevet fil.*** Gjensidig utelukkende velgere. Trykk p} mellomrom Navn Typ Plass UN Atr ! fil(er), som opptar Kb av totalt Kb.Igjen p} katalog-innganger og Kb. KAT Ver. 2.0 (c) 1985 Gisle Hannemyr Syntaks: KAT (ffn) (-velgere) Eksempel: a>>KAT *.* -USKNP Koder brukt i attributt-kolonnen: l = Kun lesbar fil; Blank = Lese/skrive fil s = Systemfil; Blank = Normal fil a = Arkiv-bit satt; Blank = Arkiv-bit null Lovelige opsjoner: ? - Skriv dette. U - Vis filer under andre USER AREA. S - Vis system filer. L - Vis i langt format. K - Vis i kort format. A - Vis alt <=> -USL. F - Skriv katalog p} diskfil KAT.DOC. 1 - Skriv katalog p} en kolonne. P - Stopp hver gang skjermen er full. N - Negerer standard-opsjon; -NP = Ikke stopp. )TIKIs!_2> (>! 0͈C :$0$2'2(\!$O\\> (B ͧ :$07  !K' 6 y2'(\\09{>2&2 D"2D 2&2!"" " : 2: 2 : 2!: 2": 2#:2$:2%!Jr+s+p+qIG8*I*G:]-  l]O!]6 !M6!K6 :K*K&l ~2LH(? :&0-/3ZU :M2#:LS :M2":LK :M2!:LL :M2 :LA :M2#2"2 :LP :M2%:L1 :M20 <2:LF :M2$202%<2:LN2M!K4:$G:!2:8-:!! ( WZ!: 0#:!0+:ͫx20!%0 ~D:\( :\=_:]  ?]Z:#0!6?  2 ]O ?\ZDM4O!"E*;##)*E"C*7&#ͥ")*;#"+ !)Ͳ"->!92/\2:ʇ:ƀo&"2~(t*++"+*2DM0b*2 DM9 *C q#p* ". *2#DM*C - *2 *C w* #" )*E*Cs#r*C"C2![6!"^* "v>![B *[&\) ^#V"S O!t ^#V"U:[=2[US? *S"O*U"Q*SͶ)*E^#V"WQOڥ *O)*EN#F*W( *O#"O *Q)*E^#V*WDMK *Q+"Q( QOڢ *O)*E^#V"Y*Q)*E*O)*EN#Fq#p*Q)*E*Ys#r*O#"O*Q+"QSQOU UO :[<2[O!\ *Os#r*[&t) *Us#r*Q"U< QS6 :[<2[O!\ *Ss#r*[&t) *Qs#r*O"SÙ!""  *#")*E*#")*EN#Fq#p *)*E*) *E^#VN#FH *#")*E^#V"C *C ^#V"*)*E^#V"C*C d *C q#p{ L *" !p+q*)*E^#V"C!6> !85*&*C>:0: .  O :<2 :!/0~ *C ^#V*-͎DMdK : 0\ *C Nd *C ~8l   *C ~8s   *C ~8a  =!6:!8A :!8 : 0 !:0  : 0=:<2!6:8M:!ښ :!/0: 0!:0: 8 :<2M     * "!">!Ҧ **&o"0**&o>(*0#"0K[0"0!"0Ҍ   !"}2:<2O:ڂ *** " t >!e : 8 *DM *+"*0*" *#" *&*0͎*"õ :*9#"""*="> : *+"!Ͳ+s#r!6"*~2*#"*+">L:2(*+":<2O>I!6*#"*~2  * DMd**-͎DMd:28**-͎DMd*0#"0  AO :  :-8*+DMd**-͎DMd. g  ->>! ~?&W >#:" /!:/Q K#E W \#Si`N#FogDM!>))덑o|g҈ =vDM!>))ҝ = ^#V) ¥^#V|g}o ¶_{ozgO{ozgi`N#Fogo&og_{_z#W O Y:$!K' s y2'\( -Q{-]!s+p+q*͸2<2:!ڕ !4!6:=!8*& N !4 >303}Z;{ )#80 -U logo   TULL TEKUTSKRIFTTEK-LYD LOG UTF\R COM TREE LOG SPII LOGCIRCLE LOGKAT COM STARTLOGTEKWM21 COMZKOPI COMWM21 HLP80B COM% SPIR LOG!i` COPYRIGHT (C) 1978 MICROPRO INTERNATIONAL CORPORATION MicroPro WORDMASTER release 1.07A TDV2215 ver. JOH/82 >>*>>}| )P(OÒ%!"&̀:O*&2&*&͟"&͖:ON#*&% :͛%:ě%:O<=N#=XP1)>t1)t2L'!9"`'F##*0~#Ÿ~<ʲ+~#¯~dүҲ>2K':!F>wps#r#="9'*9'";'"='"?'"A'& 2[2h2k2}*}&|g+"C':ENOT ENOUGH MEM|<<20'|d!"&'n)"('>2,'z2-'!]~+ —NO FILE NAME~R w& ~ʰR w:\ʼ>2'~&!;  :'&FILE EXISTS ON DESTINATION DSK\>2[!2'# NEW FILE &&( !C MùWMBACKUP$$$h !\~2l:&wh&( *`'Q!'~\!Sm &!em ͗¹ & !lS# ABORT (Y/N)? 0"LY͗c*`'!#h!&~5!l(6"M'h>*$0""M'~:k( ʍG#"xLHFQʳOʂEZA# ???*M'#$ù $#"O'h!6*O'""M'I"O''>';|T,Vʹ!""T'*T'I"R'"O'ʐC,D2KxLTPTʚ*X'!͟BG/>2^'I"O'"R'F5N;RGSAUQʫ_'AIZ<ʉMʉ!W Y:L''8;;h(ˆN~#Da{:\'G:^'x!"E'"G'!"^'-"&"O'D |*Z'A>ʞzz#ÑI"O'"R'P[ XL. T: KG GN *O'*T'*X'͹*3'A"X'"T'"O'# QX?'!94STACK OVFL͠ Ç͠ >"?'A"='͛Í:\'/!2\'"X'͇(T*X'Q"X'>N5!2\'2'"X'~T!͂ *?'һͻ>}$$*='>{ܭ͟$#þ*X'*\'(*&+Q͖"\'"X'͵:\'!?'!;'!́!+|*X'|$+"X'*X':'#͵ J͖ J Jͨ _^# ## 'p7p*O'I"O'ȷp  pa*R'~   :b'C># :X'ͬ # TURKEY *R' *O'c'D; > > & E >5 [ & 2b'"O'y ȷկ m *O'":K'š "O'O'*O' ì #~+:¬  ʬ @# .!   "D"O'^ 4INVALID FILE NAMELIB#    >   ~ #L.:*? пC  !5' !3'͑þ_*3'"5'!3'͕) C !5'h *?'ͅ!5'͂ ͹͍(^ ͍ h ͡ *?'? "?'͛† !3'*1'*C'|q  ͟4QBUF FULLe ;܅ $#!    $"='͛ Ҭ  >$! 0 $ "='$ I :& ͹ } :& C N N :& C k  $*='+ ڕ ~ ˆ #*='þ ¬ > ͬ > $U ͕w# *%F  +"% /> g%/*;'͟*='{*='*='+ ~ 33!='c'O, !='͍͒ h ? 3 ͕w# C s#r+*='*?'͟!='!='x͕zL͞k 4MEM FULLV ͽ ͇Җ :\'K7 ͇Ҩ à ͽ ͮ :\' !?'$ *?'Q !;'$ *='9 y ͮͽ :c' G:\'x *='< "=' *?'J "?' 6 GyOxG*=':c'g}o|g:c'o|gw  v #^ +ͫ#^ Q #͖w  #ʙ ʈ ͫʈ ѷ} *X':\' *?'ҽ #DM!*A'ͽ *='| gDM!*;'ͫ L>͂*X'S ͮ "X'*X'!\'z5~/͕}K zK!;'*='N#͔v z9#2'͵\!"'"X'"V':\'!*')>M>  Êī# „„7>  á+ī ››7>~>"7)"LA?[*;'͟*A'#͟*='#͟ ;'(*?'͟?'4PUTCUR ERR`+6d!&~6W!&~Tw2&t:&*&"&X:&¤*&>{ܭ]Uʙ “$"&>2&:&9*& n]U !$N#ü$:+:&9]U*&͟]U!$*&$:&!&5!&5]U> $ "&!"&!&~#6> $N#*% ʄ G > !J ~G@ @ 0 0 !"&2&:2&2&% % %| +2_':&!&8>w!%!&5Gu6ʹ2&u!&~6d!&6k6r6@I!&~6ʨ|ڠ ʠ ʠ–>~ ҝ>^â> g%N#:&H :!J ͕Em,`?*:T *vE |FH!&~4*& tuL  V X*tnELL"T+VX "gV |ʬ2&*&!"&*V':&.>2&:&<ð!&!&(%Êi2&*& :&!&W*&ͣ$:&!&ڽl$ $*&"&Y:&!&/2& V HK "]K iu"Žu"òͲ ڛ"u ʦ Ûuڬx2&Ϳ~xu u"?'͛  !"&!&~/w!"&dʹ0 > ʫ %*& !$ͬ W|y yG:&xs z Ã:&!&V"&*&"&*='++=—O:&| $͢ tn > ͬ > ì !&~6!&͚$L:&]+:& $:&!&54!&!&~ |6 (":&ʀ !&6*&2&:&=<څ!"&"&*&"&z2&*&"&*V'*='|$"E'͌*&"&͞"&͙"&:&"&n I͚$Ï  !&4:=Ҟ+~#͚$Þl$I ͚$+ !&4 *='ͅx~# =2&:&<{ܗ$V͚$ :&WxV~# P!&4:=2+~#͚$2|*&l$*&,&"&7͕|33nx•͙ N#ͣ~ #*?'{͕yOxG;+ô:I'N#"#:I':!J':I'%!%"%:I':>P>(2>> 22&>22J'7WM21 HLP%!2&! &¢>2&&¢4WM21.HLP NOT FND ON DEFAULT OR A:&!'ͩ &!'͏!'~#$=ºâʹ &f 4FILE NOT FOUND#&!'ͩ ͏O') (&f !?'ͼ͕|*V' ͟+^&!C{(t*V'͇3{&2! *V'#(#:\'M:\'7^^;͑;ԑ:\';'?'*/'`i͟ !_'4F!.'=O:-'=G  *;'s*&* '͟&+5!8/!* '#" '";'!"E'!C'I*A' U~:-'GO ~z o*A'ͪ–:&W< zÛ̓ҥ*"'͟ҽ\ ͕ͪ!͟*(')!C' \!C'x=ͪsy\ͪs!C'*A'vԏk2&"A' _#&7İ [7ĩ ~wʣ#‘7> >:[!&7:\':&:&7^!;'*;'#&Ͱ ";' *('͕͟*&')$$=O4MEM SHORTAGE, TRY CLEARING QBUFI͕ͽ)JzJ3@3T!;'͕y&/! *E'*='|ß*G'*?'͟='͟!;'*&* '͟ҷ" '!?'|*"'͟""'*$'͟"$'*&*~|`i)\͕ͅ͏ ++s#r#s#r##͕ͅ##^#V.r+s+r+s!3'͟܆!D'͟Ԇ!3'#͟+sͼͬb!A'͟++++vPUTHOLE ERR!1' ͬҝ####B'͟!7'͏s#r+ ##s#r++͑#r+s.+r+s!?'͑ͅ!SV͟  %~# !!V͟Aq  J+~ FFBAKx<4COPY ERRo>gO>Gg|DMx++^#V#~#fo++ÕGz¨{x͟ڶ!|7͟ʱڱ|7N#$#$c!#͕ |<^!s#r7>G!"͕}O)|! ʠ!!!~ 6w< !x7ʩ!: ! q#~w\'"#+ʹ!-!>ù!+"Z'"##"+)""~)" "#bk))"0_"!"Z'"X'4NUMBER TOO LARGE0?:!&~w!l(Oy";ܾ>"$ " "!>"m"t""$~"ƒ">$”""ù ¹""G͹ x"ʙ""G"͹ è""$þʳw# y <+~ "> $ 2k(6x$2&~"#" ##~$##*%~@#6#~<7#!%"%N#ʹ#͜#A##ʕ#*%~ƒ#ʹ#Ĝ#O#w#~!$>͛%2&*%~ʹ#͛%²#ʹ#͛%>#2&>#!*J y:&#N###4INTERRUPTEDN#!&~6!%"%"%dw# $ > 0$e$0$$?$ b$:& b$N#:9b$> e$b$N#T$l$$ G:&Ox ƒ$yO/ Ҏ$ʎ$ : x͚$!& ڷ$4:ʯ$$6+4Û$ʤ$ $ $ $4ä$+4N#6~wä$> $> $%>$ %>~l$%# >>*% )%!%[% H%#~<5%+6> g%4:&7%[% [% [%>^g%@"% g%͛%t%!& ʆ% „%64+4:=5+42&Þ%2&O> #ɩ%%%21q$2Z8:[82Y8ͷ!—&2V8Ϳ$a/!#8~6*X7~1!:86:8ďI!!R&i:#8&o&)%^#Vo&DIͽ: HLP8))))))'*'*'*El(m(Im(l( )HES NOT X IN KEY  COMMAMD MODE SUMMARY (TYPE ^J TO RETURN TO EDITING) nQP PUT n LINES INTO Q BUFFER, DELETE FROM FILE n/ljkljkljkl jkljkl kljkjgisle hannemyr fors|kern} e gjhjggjj retertrrrr e nm,{{{{{ 0000000099 e{{| (KILL) CLEAR Q BUFFER QX EXECUTE COMMANDS IN Q BUFFER QLtext$ (LOAD) PUT text INTO Q BUFFER n/QLtext$ APPEND text TO Q BUFFER n TIMES V ENTER VIDEO MODE N! PUT CHR CODE N INTO FILE ; ALL FOLLOWING IS COMMENT E END EDIT ##''*'*#!', &t&n) Rljkljkljkl jkljkl kljkjgisle hannemyr fors|kern} e gjhjggjj retertrrrr e nm,{{{{{ 0000000099<2D8[ !L8:8m*:E8m*z2C8{*z{*!C8*2D8*29"c8:E8O:G8G/!zp(b(||*c8 "c8&x/*!~p(y**>B(:I':B8Wi,!P8452G82N8*89"J8:L8+2M87\\,ͧ+:M82L8p,a:IO *296 #=+#7+ x G +:G8G*J8+F+N 2G8a~++++DM>2N8>.!7,### k+#~‚+  +7,~+2L8*89"J8*696+r+s k+:M8+++~wT,ø+*H8 !3, ~ }ҫ gA>S Ag}S S i |« }!w s#r:[ʔ _!~ʦ ![4ç \͢¦ 2[ 7 >?  e͢!g"c> _͢a_!f~> 5*c~#"c 0 7   > >  ͢| } ines( From_line, To_line: Line_pos ); VAR Index: Line_pos; BEGIN FOR Index:= From_line TO To_line DO Clr_line( Index ); Move_cursor_to( From_line, 0 ) END; PROCEDURE Blank_line( Line: Line_pos; From_col, To_col: Co }ҫ gA>S Ag}S S i |« }!w s#r:[ʔ _!~ʦ ![4ç \͢¦ 2[ 7 >?  e͢!g"c> _͢a_!f~> 5*c~#"c 0 7   > >  ͢| } ʩ*oc~**oc#"ocÏ:qc2Gc2rc:rc2rc> !rc:rc02rc:rc A2rc:rc2sc:scͰ:scͰ2xc2{c"tc>2yc!'"vc>2logo"ɍ* =*"=6*=}œ"A*Aw#P*A!9N##^#Vo&*cs#r*ic"ic80 -U:9?):99ʐ$o& ^#V*9I s#r29* 9##{$:8ʷ$:9ʷ$*9 29r͎ "$'L%G *w8+$$$ SUBWM21 HLP80B COM% SPIR LOG!0͔'d <<< >k͔> ͔> ͣ> ͔  :(3  ͫ(!7 (S>ͣ> ͣ>ͣ6 #76 #V 2~S 2C 2Q 2P D<2}G ~* 26 #D<2|L 2A 2E 2R 2U 2.T 2%B 2{? 2>-͔͔+ ͫþ!~ 7N# 6!~-̻~# (= 29 ͫ<>,;~(7# .:=* >?+~ > #0ͬ >?(> կ!+ > +͹: >x > >:͹. !7 @87> ͹7. ͹= :@2 ȷ7[:# ~#+"6* =" ~" 8Z! >?0 G : ͫo&)))))s !s ͫ" *""6* ~(͔*#"**}oR}|o>g+" *:( *~"w#:( *~w#*"*u#"u*+"| >2͋ 9 ͫ7ɯ:Y*~w?2~@(" ~@ 7# "220{ 'ͧ8":( :(9S:(.:('S[R8~@(66"7%2>2*" ͫͧ [*s#r#"!"uTl[u*s#r#"> ͔*u4:(  ͫ7?7fJ : ͫgSsl͌: w!=(%#~: #~= #~ A  <2z*"7*~ :g ͫâ :( ͫ:|=o& *""*"* ";8͞1͋r :|=~:}=~:y~[!:*R7ȯ12s2t# ~#͸ S:V *~~ "7:z21~@( ~?(21~ (21ͽ"ͣ>!Ĕ~@(+*"1:=2s:Q2t}*"*^#V#SS ^#V#Su"*u|(j*1(K:{ 1ͣ ͹ S ͫgSs1!1Rͣ>!Ĕ1bk*"*u+"u:~(>͹  ͫ2?:s2=:t2Q}!1 *  #" ͹ :(<ͤ87 ͫ͌͞~?R͋  R! ~ẁ͕͞:($ͤ8 ͫ͌͞~?R͕ͣ͞271l f : ͫgSsl͕8͞ :  ͫ>~2y*"7>(͔4>)͔2w!z6#:w q0>*2w͔> q: !=? ~ ͥ!w~ 6:(!|6 !|4~8 :w 1o 1o͞ :w : ͫgS ͫ ͫ2w^C?=?=?... ...?:=-v?-g-a-eTIKI(finner ikke ? ulovlig filnavn ignorert finnes ikkesett i fra-plate (cr)ingenting feil plate! plate full? plate full byttet plate!sett i til-plate (cr)kopi 1.999 sett i system-plate (cr)kopiering avbrudt (j/n)?sett i ny plate (cr)jkopiering av filer KOPI ffn1 KOPI dsk:=ffn1 KOPI efn1=efn2 er: -A hopp over arkiverte filer -B kopier til flere disketter -E slett etter kopiering -G fra bruker , 0..15 -G* fra alle brukere -L sm} bokstaver -P til bruker , 0..15 -Q sp|r for hver fil -R hopp over bl-filer -S ikke stopp, un|dvendig ved = -U store bokstaver -V verifisering )TIKIo VIDEO MODE SUMMARY (TYPE ^J FOR NEXT FRAME) NB!! Changes from standard version !!! ---------------------------------------- ^O INSERTION ON/OFF RUB DELETE CHR LEFT <- CURSOR LEFT CHAR ^G DELETE CHR RIGHT -> CURSOR RIGHT CHAR ^S DELETE WORD LEFT ^A CURSOR LEFT WORD ^T DELETE WORD RIGHT ^F CURSOR RIGHT WORD ^U DELETE LINE LEFT ^Q CURSOR RIGHT TAB ^E DELETE LINE RIGHT Up arrow: CURSOR UP LINE ^Y DELETE WHOLE LINE Down arrow: CURSOR DOWN LINE ^I PUT TAB IN FILE Home: CURSOR TOP/BOT ^N PUT CRLF IN FILE ^L CURSOR RIGHT/LEFT ^@ DO NEXT CHR 4X ^C FILE DOWN 1 LINE ^P NEXT CHR IN FILE ^Z FILE UP 1 LINE ^V VIO CONTROL Roll down: FILE DOWN SCREEN ESC EXIT VIDEO MODE Roll up: FILE UP SCREEN ^J DISPLAY THIS  COMMAND MODE SUMMARY (TYPE ^J FOR NEXT FRAME) +- MEANS + OR - ALLOWED HERE, + ASSUMED IF OMITTED @ MEANS CARRIAGE RETURN OR LINE FEED NECESSARY HERE $ MEANS ESC OR ^Z OR CARRIAGE RETURN NECESSARY HERE n MEANS A NUMBER, 1 ASSUMED IF OMITTED, # = 65535 +-nC MOVE n CHARACTERS +-nD DELETE n CHARACTERS +-nL MOVE n LINES +-nK KILL(DELETE) n LINES +-nT TYPE n LINES nZ SLEEP n SECONDS +-nP MOVE, TYPE n PAGES +-n@ MOVE n LINES, TYPE 1 nItext$ INSERT text n TIMES I@ ENTER INSERT MODE (ESC OR ^Z EXITS MODE) A@, nAtext$ (APPEND) DO 1L THEN JUST LIKE INSERT n<....> LOOP: REPEAT .... n TIMES (DEFAULT = 65535)  COMMAND MODE SUMMARY (TYPE ^J FOR NEXT FRAME) +-nFkey$ (FIND) SHORT SEARCH FOR key n TIMES +-nNkey$ (NEXT) LONG SEARCH FOR key n TIMES +-nSkey$text$ SUBSTITUTE AFTER SHORT SEARCH n TIMES +-nRkey$text$ (REPLACE) SUBSTITUTE AFTER LONG SEARCH /F,/N,/S,/R SAME, EXCEPT EXIT <..> OR QX IF NOT FOUND Y[d:]name.typ$ (YANK) READS FILE IN AT CURSOR nW[d:]name.typ$ WRITE n LINES INTO THE FILE NAMED ^N CRLF INSIDE TEXT OR KEY ^Y ESC INSIDE TEXT OR KEY ^A MATCHES ANY IN KEY ^A MATCHES SEPERATOR IN KEY ^OX MATCHES NOT X IN KEY  COMMAMD MODE SUMMARY (TYPE ^J TO RETURN TO EDITING) nQP PUT n LINES INTO Q BUFFER, DELETE FROM FILE n/QP APPEND n LINES TO Q BUFFER, DELETE FROM FILE nQG (GET) COPY Q BUFFER INTO FILE n TIMES QT TYPE Q BUFFER QK (KILL) CLEAR Q BUFFER QX EXECUTE COMMANDS IN Q BUFFER QLtext$ (LOAD) PUT text INTO Q BUFFER n/QLtext$ APPEND text TO Q BUFFER n TIMES V ENTER VIDEO MODE N! PUT CHR CODE N INTO FILE ; ALL FOLLOWING IS COMMENT E END EDIT H END EDIT AND START OVER Q (QUIT) ABANDON EDIT O RETURN TO ORIGINAL FILE ^Q DISPLAY HELP FILE TIMES QT TYPE Q BUFFER QK (KILL) CLEAR Q BUFFER QX EXECUTE COMMANDS IN Q BUFFER QLtext$ (LOAD) PUT text INTO Q BUFFER n/QLtext$ APPEND text TO Q BUFFER n TIMES V ENTER VIDEO MODE N! PUT CHR CODE N INTO FILE!9"1W!q0{_G G ~@# x !*"K:2P*"N !|!|N#y ~aڐ V›͈T¦|N³>ʹU>ʹB>2? S*S"S*"*"*"*"*"*"*"*"DS*"*"*"*"*"*"*"*"_y!Q"!T" !" ! "Xͱʹ| x›> ʹ> ʹxʹŠ> ʹ> ʹ&)*TIKI(ver 3.0 $ Installer ny terminaldriver: Opsjoner: -N = N,DK -U = US,UK -S = S,SF -D = D -B = blank (ca 10 min) -V = vis font $)TIKI /1aZQ"WSX#EDC$RFV%TGB&YHN/UJM(IK;)OL:=P\_?][ `~*  +-*789%=456 10.23      G#o EU`sLF2Y:*))2" ́>>2!~ G>:"2":M0>2M !3&|(~#/:M  y8:M 2>(=2G|:pO)]x8o0 .;>G$ 7:x0+q(9A= ::Fx*C[:EO>G<<a<x>3}ox| 3/O :Y~ ڔw,~w( >o0$:*######_^#V*~G 3O:O:^Vy"8 (w,( ##Z:3/O :~(8w,w:!9",!L A! x2+<2*2)!ͷ K:)㇇>:)G!ͷ  A *,:OFyx (zW0z0#ɷ(:*2):+<2+:*<2*~#O*} .%::Q>ɯ2*}T~#"O<ʜ!9"1*|̐! "!~w!~w !4~*?????????????????????????????????????????????????? cG!8x 2d2* #8x 2u"3"u͐͏!T"!~('0yG4> 2EyG6! "Cy 8c:y([8^8 {8 0%G:v: xͭ8xͭ!E4xͭ5>ͭ0!:E2E#2E! ~#fo*C "C ZW*[CR͊*C R"C*"C͆:E 2E:E G:x2E:2ɯ2EZ,!"C(:kRQʹ> ͯ>r22QY>2!Z:Ԓ:0Z \>2v*C "C 0*% R8(:ʹ3}oT] DM*B8(:ͯÊ>2ɯ2>>!w>́Đ>;2<:=(þ>!>2Æ!~#~#d   !":(*|+"|̕!~w:E 2E#2E*C*E"E"CZb:kZiuqe`x,Ql p (8HRbr&6FVfv(8HXhx.>N^n~"2BVfv"2BRbr"2BRZ\^`bdfhj    {{c 33333  af 3@a ?q<p?  <<< xx ??  << 0  <<  0` ss ~ ?p >À 7g  qs x ss?? ??c> <<<< <<<< 0 `  `` ?c a` ??gg  pp    ps   gǀ~     ss  ?sw?  >?  ? yy;?  y??g {> <x ?7g ss ??gg 6   ;;  >> ;; >>  ;?~   '<     >> ;;  ?>~  { s> ; v7À s> p  s = ;;  ?<<<<<? `0   <<<<  << x   >> ;;  ?>~  { s> ; v7À s> p  s = ;;  ?<<<<<? `0   <<to lesmeg pr [Tegner spiral etter rekursiv algoritme.] pr [Se ogsaa: spii og spic] end to s1 :dist if :dist > 280 [stop] fd :dist rt 87 s1 :dist + 2 end to spir cs ht pu fd 30 pd recycle s1 5 st recycle pr nodes end CIRCLE LOG80R COM%ROSE LOGWM21 COMZKOPI COMWM21 HLP80B COM% SPIR LOGto firkant repeat 4 [fd 80 lt 90] end to kvadrat.100 repeat 4 [fd 60 rt 90] end to kvadrat repeat 5 [fd 30 rt 72] end to stjerne repeat 10 [kvadrat rt 360 / 10] end to tegning pu rt 90 fd 50 lt 90 fd 50 pd repeat 4 [stjerne pu lt 90 fd 100 pd] end Fjern #~ Qx>.Qͱ?dJ:!to kvadrat repeat 5 [fd 30 rt 72] end to stjerne repeat 10 [kv~          OOeVSDr. Logo for Tiki-100, Ver. 1.0bANGRE=uslett F5=slett tegn F6=avslutt_Ikke implementert. rpl₁V+Ͱ Ͱ 2222Ͱ!22:=O!- 6!=<=HO~#+ 222!MK ~2>#:O>#!9~ /2$Ͱo!~:$8 !9^:$0 2$*!9~++8 NE*!9~H!9~####>!9^!-~2'~2)~(<2+!'!9~/O#~/GyC!9~O#(FCI>2G!=!: CG!= ( _!-K% w/yO:Mƀ ր :8:M 2%: :%O :%O :%>(=2C![ z |'''=====O,,,,,D(2:M2_!~2:P*N ) )2"!! ~#foW/W/ݦ_~=K((=(=(=( =(?G{/!????G{?B!""+V ^ zp+"#RF N x!"#BDM`iRS`i<C"2,"|+[*"[R"*V^tu*V^tu: *V^tu~ ('V ^ !O=IQ|:(Gy/>I> Q>2_><z{: :݆o>ݎݶ7f<>/? ,:݆o>ݎg>G<|ݶ7f<x>:݆o>ݎg>G<<|ݶ7f<x>A9K4ǃssٛ!"!"""!ͅsDM|(!"" `iQ}(]9͗: 9C9]9͟ 3!" !ͅs(/ TO!?'! 2,(ͳ1(! 2,( A gͽ! 2, !"2Itobyeed~H* " " M* " ~HaH(L* " .P3ͦI!u zgͅF!>* Z>!ͅs {@͟ * ͸U!>ÕFpausing...3 :IDḾ}(ͳP=G`i |(͏LZHGï * LI=GøLG* * Q}3O* * 3!ͰFDMG%@!9^#V .@3!9N#FFG! 9^#V"* Q}(*>a*`i+ ~H G* LIG* * ͇ 3~H * A !!3j (RS=G!9^#V! 9~#foQ}( ͸Lj LZHj =G͸L͛Gwtͮr*wt͖H*͛Gwt͑r*wt͖H*͛Gwt *3ZGJG!9^#V}3!ͰFDMZG `iF JG!9^#V}%@.@! 3!96t!: (tw( !96tt!96t}!9N#F`i6twt! 9`i6tͶywUtͨt5uwtK *!tAw(!96tÅO}!9͛GUt!9s Ͷÿ́͡H3!9s wt͖H*!0 !O ͮN* N1Itwt͖H*1Iwt͡>̓Bͨt̓Bͨt5uwt͖H*w3O<(1Iwt͡>̓Bͨtw[́}<(1Iwt͡>̓Bͨtw [͂}3O1I!: (tͰw(Q1Iwt͡>̓Bͨtvwt͖H*1Iwt͡>̓Bͨtwwt͖H*! -n-ÝG͙IG͙I.@3̈́> B( * B !!* ͡>i3!9^#VW3!Fb*v DM! 9^#VW35!r3*} }"wwt!9^#Vwͨtw!tAw!tBvöyͧG*&̈́H3GͽA( !͘* " CI1IͰy!"v síH3G>̈́H3!9N#F B(*~ A(`iq;3!9N#F`i *!"*#"́}(`i*~(*a`iq3!9N#F!"`iDMx( *#"*3! 9N#F!9^#V"!ͽA(ZͽA(O*! B( B(̓Bwt*!̓BͨtͰw*! B  B( *!i ~*!PYQ}!a`i*!(`i! 9^#V"!!3!9N#F B(!A(* *v ^ ~`i ~3G͔3O3GͽA( !͘.@*  @* Z>* " aa?GF!OͼG* ͽA(ͭH* " G3GA(͙I͡>W3* W35öH* ͡>aB" 3>DM3GA(*~ PY{~(ZR`i+*v "v íH* >PÝ}(ZR* =C" !ͰF.@3!9N#FF(@3GZ>a`i+a?F* B * `G !!3O!ͰF6.@3!9N#FF(@aG̈́>A( `i+6a?* `i+{͡>>3! 9N#Fx !9^#V6`iZ>a`i! 9^#V{a?3GA3O3!ͰF͡>DM`iDMx()`i"#A *#* dP*#W35öH3!9N#FF(@Ga`i+a?3͛GͶyDM͂}(`ióP3ͧG*v DM`i*v *~ `i{~(`i^! 9^#V}`is53* | ͳP*~ +"~ !9^#V*v "v öH*~ |ͳP* W353!9N#F`i^!"v s* B(* *v ~ ͳP!"~ !"v s!"0 !"v !"0 *v #"v *v ^͡)!" B3!9^#VW35!" *~ | !*v ^!-Q}(BJ*v ^!.Q}(BJ* | !*v ^ͅ|EQ}(%B*v ^!+Q} *v ^!-Q}(BJ* | !*v ~(!! !!Ut!G!̈́>H(* >=G`NZHs3!ͅs{@ÏLͅF!>* Z>* ͸U!>͕FÍ>* " !" ͧG* 8V(!" " ZHͦ@!!͚s(> .>* * Q}( !!͚sSMZHͧGe(> m* !?D" |(U* "  * " * |(:* " ~H *!" z* * Q}(ZHͦ@!!͚s T(>̈́>* Q}.>!* H(GL~H*  C(1* W35*~ |('*&"Q}( ͉0͡>" #* * Q}(L~HznH LL* /.@@77(̈́>* aB>.@GG̈́>* ͥÍ>!ͰFH3!9N#FF(ZHͧG!* ra`i+HͧG* ͠ * * C(!! ~3O3!9N#F! 9^#V"͠"| #Z>*Z>* *AD͍>͍> *|AZHGͧG* ͡>D" ͧG* ;E" GG3G̈́>!?AD͍>͍>ZHGͧG* ͡>DZHG@@!?ͻ7.@Í>3! 9^#V! 9^#VaBZ>* ̈́>aB" Í>3* DM`iDMx(`i!9~#foQ}(`i!3nH(4*|(!*Bͅ5!"*2|(*+"#WT̈́>DM`iDMx( `i" I* * C H#5!̈́>ͣ5!͡>ͣ5R54<9!* * !̈́>ͣ5!͡>ͣ5C9ZH<9@͡4!͡>ͣ5C9ZHg4ZH* ^4ZH3GͽA( * B" %@* 3!9N#F!3̈́>DM ͍>`iDMx`i" I%@! 9~#( * ͙8͂8(!9^#V͡7 ! 9^#V͡7 ͳPPUPDPXPE!s͛GUt!s6tͰyw!s(t͹w(ͳP!s6tðy*G3W !s͛GUt!t€w(!s6t!tBw( ZH!s6tóPJG:I=G* " * | ZR* Z>-̈́> B ̈́>`G(͍>ͯ/ͳP* " #CC͡>̓B3CxͶyDM!9~#fo͂} PY!́}(ͳP`i!: 6twt!: 6twtuj!9!: 6twtʹj*W ͛Gtwtj*ZHW jiͭóioW !sxUtl!s6twtxwt$k!9lZHW ͛Gwtj*ZHͅkwt͚/*͋kwt͚/*jwt͚/*i)^#VͳTj/8l3O%@!I͓i/vi)^#VͳT͌i*E~#/?l)^#VͳT!͚/!IFSSSTSWINDOWWRAPFENCEW ltwt͖j*wt͖j*wtʹj*W iZH3#-* " *́DMW ͡>W35*!r i?*!r ͳi+*!r i*!r iͳPiZHoW !sxUt!s6twtxwtuj!9ZHW *l*| 3Oͣ^̈́H3ͣDMCI`isZH͌i*E~#" 3*G ͳP͌iDM:I*E~#}iviQ}(I͌i`í}(͌i+ ͌i* ́}(gh͌i`i͂}( `i+͌i ZHviQ}͌i+! ai*" ͌i* ́} *|gviQ}mi *|gviUi *" *" viQ}(͌i!viQ}(** vi]}viͮviQ}ͮgO LOG!~#!͂ 3!9^#V!~3y !9^#V!~]}3!9N#F`i#*v s*v #"v +^! Q}( *v +"v *~ #"~ q~ 5öH3!9N#F@y $!~"4'*4']}*4')))))ʹ ̈́>* aB>!~"4'!9*4 E~ }" k}(R*4 " Ë!!" " * " 3* * j}(! * 7}:#͋!* #" !9^* #" +s}* |(!* | ͋!*4 * ! "5~" * #" +^!9s* |(!9^!Q}( !" !* +" !9^! Q}(!! !9^!* :s* #" Rj}(7R!* :s* ͗}(!͛!! * 7}:#! ͷ#9!" ^!!" g"g"g"!" ^!3!"6'*4 DM! 9^#V!PY{~ )͂ !9^#V!~ *6'#"6'!PYDM*6'3* DM!9~#fo+s#r#|͂ ! 9^#V!~(! 9^#Vͷ#R!PYDM3!9N#F$!! s! 9^#V~Q}ͮR3!9^#V!~Q}ͮR3!|X! 9^#V! 9^#V#3!9N#F!"J'o `is*~ |~(S*J'#^!:Q}(D*J'^!Á} *J'^!P͂}(ͳP*J'^!`is*J'"J'*~ E~"~ *~ |(!A'!8'`i s! 9^#V`s*~ | !!"L'`i*L'#"L'́}(%*J'^!.]}(*J'~(*J'#"J'+^`is*J'~(ͳP!!?(3o +DM! ~!~3!9N#F! 9^#V#(ͳP͗ :S3!9N#F! 9^#V#(ͳP͗ SͦIͽI$!k ! %!! ͈#"ͅF!" ͟ * |(͕F 9ZHͦIͽI$!k ! :%@!! ͈#"@@͡4!͡>ͣ54!͡>ͣ5@!ͻ7!͡>ͣ5͕"ZH!k &}!,9N#FnH(!"~ !9# !9#!9!.@\&=b3!ͰFDMFG͇& `iF qgZH* |(* ͽA( * W3* t3Gñ&* 3.bZH3ͦI!ͅs(/ !'!:"v 1s"~ öH3!ͅs(/ ͟e*| }2N'e!N'"v íH3ͦI!ͅs(/ !'1.@???????? *z &|d'}'*z & Q}3*z &b*z &}2{ * Q}(g"*x #"x ^}2z 3*x ~ %!9^!>Q}(!'!:"x s!!end*v #"v *~ +"~ 3!9N#FPY! ͂}(.b* Q}(G* |(3! ͷ#!" *|( 9!" !!:"x sͤ' * :+++"x * Q}(d'(}'ͤ'( 9* | =`i?Q}(!*|(!!DM@%A( @3qgx(b;W!:"x !" *x ^" * |(*x ^! Q}( }'* #" *x ^}2z ! }2{ *3! 9N#F`i~(`i^! 9^Q}(!!3!9N#FS)(!!H)(()=<>+-*/;3!h)! 9^( [] *z &()3*{ &|( *{ &)Q}(!*{ &()3!9N#FPY!0j}( PY!9k} !!o'( !" û**z &"Q}( !" û**z &:Q}( !" û**z &.Q}(y)(*x #^͡)( !" û**z &͡)( !" û**z &-Q}(iy)(d*x #^͡) *x #^!.Q}(*x ##^͡)(!" .*x #^!(Q} *x #^()(!!" !" !" }'*~ #"~ n)*z &\Q}(ͼ**z &bͼ**z &͡)ͼ*O'* Q}(5* :+++^! Q}(g"* :+++!:"x s!" *x "v !"~ !" )* +!"~ ͼ**z &S),n)(ͼ**,*,*z &-Q}(ͼ***z &.Q}(ͼ***z &ͅ|EQ}(#ͼ**z &+Q} *z &-Q}(ͼ**! *v !Utn)(ü**J~[+b++++,!}2{ o' ͼ*!" 3!9N#F* ]}(!*~ ";2*v "=2`i~(3*;2+";2#| !`i^*=2#"=2+^ͯ|]}(!*;2 ~3*~ +|(!!9^Ͳ,3* Q}(*v ^!9n&Q} !!3!9N#FPY!́}(!-Fb`i~DMPY! 7}"?2|(*?2,PY! ͗}0Fb3!9N#F*~ "C2*v "E2`iDM`iDMx-`i"I2!"A2*A2#"A2́}(k*E2^!\Q}(*C2͂}(*E2#"E2*C2+"C2*I2*A2^"G2| *C2 ~*C2+"C2#| !*E2#"E2+^*G2]}(!b-H-*C2 ~3{9"K2Z>{9"O2*K2|A{9"M2*O2cA{9*M2cA!*K2cA*M2"K2!DM`í}(h*~ | !*K2s*v ^!\Q}(*~ |~('*v #"v +^*K2PYs*~ +"~ | `í}!*K2PYs;.!BZ>̈́>B>̈́>*M2|A͡>"M2-.-!̈́>aBZ>*t )4 ^#V͡>|A*t )4 s#r3!9^#V! aBZ>3!! 96tUt{9"Q2Z>{9DM*Q2|A{9cA{9|A!*Q2cA`i!`i!3! ! 96tUtï/! 6tͶyw! (tͰw ! 6tt ! 6tͶy/! 6twt./*3* |( * Z>=0*t )4 ^#VBK`iDMx(`i&-( `iZ>@3!"t *v DM`i^!\Q}(`i*v *~ `iq~ `i^*t "t *t  }"t /̈́>͍>.* Q}(ͯ/͉0*1(@!]͖,(*@a0ͭ0a?![͖,(*í0×0!]͖,(*1(@a00a?!" 03* |(!* |( * |(!* | !!>'* ~" |(!!" a1* |(!* Q}('*v Q͗0`1a?@!12,(@1ä́> ͍>Ë1͋1a?end3** Q}('* ]}(9͗0̈́>DM C(8H(LH͢O`1!" 1͋1a?̈́>* AD͍>*| 3!22͟b.bÍ> defined3!9N#F`iDM|( `i#^"Z4`iDMx`i"U4!"W4*W4#"W4́}(T*U4*W4^}2Y4|! 9~#(,!2*Y4&( *Y4&()(*Z4|(!\Fb*Y4&Fbz2\[]; 3!9N#F* |( C !! ~S2}! 9N#F!9̓Bwt͓z! 9!9͟b3!9N#F B(+333!9N#Fx8(`i*Q}( * "* "`i"\43`iDM|ͽA(!3͟bW3*\4* ]}(*\4* ]}(`i* ]}(qg~3 . 3!9N#Fx( ͽA(W3![Fbat3!]Fb3!9N#Fqg C(!"Fb33* s4@* s43 ̈́>>̈́>(!9^#V̈́>DÍ>@ð4@4ð4* 4͡>>3!9N#Fxa`i4* `i:8@* ͻ7͞V!"2!" *4 +"x ! }2z !" ""ZH.b5!ͅs(R!" WJ9!".*4 "+sJ99W*.+".#|(*++"+#^*#+"#s*#"+3#5! 9^#V! 9^#Vͣ5R53!9N#F`iDMx`i"U9! 9^#V 7* *U9D"Q9|(c87*Q9*U9W7! 9^#V!Q}(?*Q9"Q9|(".b*Q9*Q}(* "*Q9t3*| * "E7.b* *U9C 87*U9W3E7#7* *U9C"Q9|(]*Q9"Q98(!'7͟b*U9W3qg8(%*Q9 C(!"b*Q9W3*Q93!.7͟b*Q93.bM*U9͙8ͬ8('8 !27͟b*U9-4*-4*-4.bJ~55c66#7ï5make "is pprop!A7͟bto .b!S7͟b=bend3!9N#FW3! 9^#V"W9"W9 *W9"W9*W9|qg!:b*W9W33!9^#V̈́>C ~ ~377(!9^#V* :8͡>>!")4 ^#V" 3* | %*#" j}(!*)4 ^#V" * " * " !3!9N#F C! 9^#V!Q}( ͙8͂8! 9^#VC̈́>aB>3ͬ8( 8 !!3!9^#V;E"3*| !*"*"*;E"!**&.Q}* ]}* Q}!" !" *v ͆b!!9͟b isn't a name or procedure* " !" !" !" " " " " " " " ZH3* dr~(5ͪf(.b!/:Ϳdͽ *| !"͗:*|( {9"5Q*| J**{~((!*"DMcA=*#"!N:͆b!!͚s *DM"!|A* +" `iI need more memory to run LOGOI don't have any LOGO nodes left3!9N#F!cA*|A"* #" !";5@* ͎<* ͎<* ͎<* ͎<* ͎<* ͎<* C<* ͎<* ]}(* ͎<*x=;* q~!"3!"C*C#"C ́}ʤ;*C)4 ^#VBK`iDMx(`iͳ= `i*C)4 s#rz(9`i"C|((*Cͳ=( x=*CDM *C|Ax=;**E~" !"C*C#"C*́}*C))*6 DMͳ=(=o:3!"C*C#"C ́}*C)4 ^#VBK`iDMx(&`i"C"C|(*CC<*C͎<3!9N#Fͳ=x=`iDM"Cx=*C|*Cx=*Cx=*C"C3!9N#F`iDMxͳ=͗AͽA(= B(0LB(#`i"Cx=*Cx=*Cx=x=C* Q}( !?" * ͳ?* ͈?" 3!9^#V*|A* *cA" {9"3* 3* DM" o:3̈́>DM* "C" *Co:`i3!9^#V* |A3!9N#F`i |@3!9N#F`i |͍>3* DM!9~#fo+s#r#|( `iDM`i3* DM!9~#fo+s#r#|( `iDM! 9^#V|A3* DM* cA* |A`i" 3!9N#F! 9~#fo+s#r#|( `iDM`i3!9N#F`iDM* Q}(!`i* Q}(!`i* Q}(!!3!9N#Fx( * ͈?* ̈́>Z>!Z>* Z>͡>" 3* "C*C|*C͎<*Cͳ?DM`i |(*C"C*Cx=*C"C3!DM`iPY!́}! ^#V`i#,?3!DM`iPY!́}`i#?! s#r@@* " @3* |(7* * Q}(!* * Q}(!* ͈?NA!3* |(* * Q}(NA!NA!* ͳ?* ͈?" 3!9N#F! 9^#V`is#r`i3!9N#F! 9^#V! s#r`i3!9N#FPY!q~( PY! r~ !!3!9N#Fx !`iDM|~( PY! r~ !!3!9N#Fx !ͽA3!9N#F`ir~(`i q~ !!3!9N#F`i Q}3!9N#F`iQ}3! 9^#V! 9^#V{9cA|A3!9N#F7B( ! ^#Vw`iDM!`i!`i!6t3!9N#FͽA`i3`iDM|qg3!! 9^#VaB3!9^#V͵C ~ ~3!9N#Fx !`iQ}3! 9N#FͽA(!!9~#fo+s#r#͂}(x `i`iDM`i @3!9N#Fx !`i3!9N#F;EDM|(`i* Q}(`i!3!9N#F;EDM|(`i! 9~#foQ}(`i!3!9N#F C !! 9^#VC͝C3!9N#F C !! 9^#V"F* Q}(ͳE !ME*FC"F| 8`i"F!9^#VaBZ>̈́>*FaB*F|A͍>! 9^#V*FcA`i3!9N#F! 9^#V* Q}(E`i"F*FDM|`i! 9~#foQ}(`i*F|A*F"F3!9N#F`i3!9^#VBZ>* | ͡>" * DM*FDM`i"F|(`i! 9~#foQ} *F̈́>|A͡>|A3!9^#V* E3!9^#VBK`iDMx(`i! 9~#foQ}(!!3!9^#V* F" 3!9N#Fx !`i! 9~#foQ}(`i`i"F*F"F*F|(.*F"F! 9~#foQ}(*F*F|A`i* Z>* Z>͡>" ͡>" 3* * Q}(!!9^#V3!9N#FPY!͂}(nH`iQ}~H( * O8NKO* P~H( * OMKO* P3F* 3GAͳP3G B̀GóPJG%@3!9N#FͽA(b !!3* `G( ͯ/.@!!JG* ̓B3GIFHͰG%@3GͳP3GZ>ͧG%@G* * Q}* * Q}ÀR3͛GͶyDMj}(`i!9~#fok}(`ióP* I* C( 8H * ͢O* * D* Q}* ̈́>D!" * * Q}3~H(!aH* ~3!9^#V/.@3!96twt͚/*.@!"~ öH͉0.@3!9^#V"v 1s"~ ͉0á>3!9N#F C !͵CDM| !! ^#V! 9~#foQ}3@!9~#fo+s#r#|(a?.@* ̓B31Iöy!G3!" " (> &̈́>!9~#foQ}(ͦ@!!͚s.>KO(.P!!͚s̈́>AͳP* |* |(!"ZQ* ]}àQ3!9^#V CóP1̈́>" B" >~H MKO(ͱ&Í>* * D"\O| ̓S* Z>* Z>* Z>*\OZ>!>* Z>L*\O!L* ͸U!?" * !,?ZH* |( * " ͰJ* ͸U!>͕F͡>" ͡>L3!ͅs{@TO~H(L* |* " *  Q*  I@* Q}(9* @D" |(%*  * (* " " eJFKÿJ* " LZHe~H* " ͽAL* | !" LL* B(=KL* CL* b(=K*~ |(1'*&"Q}(ͶHL*&:Q}(ͶH* >ML* ͵C"^O| J* Z>* " L*^O##^#V}* " ͡>" !LR=K#13!ͅs{@!9^#V=L3!9N#FxnH(@O8NKO @P%@a`i=L̈́>`irÍ>FKTO* Z>* " Z>e~H ͉L.@͡>" * Z>* " ZH~H TOM͡>" * |* " ~H* " 3* !9~#fo]}* | !;MR* DMo:* " o:#23!9N#F͠"`O| ' C(* C"`O| ͰS*`O" *`O" 3!9^#V* DMH !L!9^#V}%@! 9^#V}!9^#V}! 9^#V}!M~H!N!M!!O!ͅM*8N~H!N!8N!n!!ͅM* !N!8N!!'ͅM* sN~H!N!sN!0!ͅM* !N!sN!O! ͅM* ͮN~H!N!N!!B ͅM* !N!N!!ͅM* FK~H(!* " 3KO!9^#VO3!9N#FN* A* dP3!9N#FN* B̀G* dP* ͡>3O3!9~#(* * " * ]}KO.P!pO!"͇TTurtle out of bounds!O!͇TNumber too big3!/!9^#VZ>!OͳTêTis a primitive3!/!OͳT!9^#VZ>êTNot enough inputs to* O!"P!%͇T) without (!&/!GPͳT* bTêTI don't know what to do with3!)/!9^#VZ>!PͳT! 9^#VbT!PͳT!Tdoesn't likeas input* * dP3!*/* Z>!PͳT!9^#VZ>!Tdidn't output to3!1/!9^#VͳT!#QͳTêTisn't a parameter!"!IQ!͇TI'm out of space!2/!QͳT* Z>!QͳT!TI can'twhile loading a file!/!QͳT* Z>!QͳT!TCan'tfrom the editor!Q! ͇TCan't divide by zero3!!R͆b!9^#V͟b!ͽ!!! LOGO system bug: !ER!-͇TThe word is too long! /!oRͳT%@êTToo few items in!/* bT!RͳTêTis not TRUE or FALSE!R! ͇TI'm having trouble with the disk!R! ͇TDisk is full!S!.͇TMy edit buffer is full!+S!0Talready exists!HS!0Tnot found!`S!/͇TIf wants [ ]'s around instructions!#/!SͳT* Z>êTI don't know how to3!$/!9^#VZ>!SͳTêThas no value!/!SͳT%@êTI can't find catch for!/!TͳT%@êTCan't find label3!9^#V/!]TͳT%@! 9^#VͳT!TFile3!9N#FA( ͔(* `iZ>3!9^#V/! 9^#VͳT!T!T3!9^#VͼHZ>39 9!" 5!9^#VI%@@"Z>* "͝CZ>* ͝CZ>* "͝CBZ>a?a?a?a?a?͡>" * * D* Q}DM|(/ * 8V(ͦ@!!͚sx UvU(>($* | !* ̓BͶy!͚s* ͸Uͦ@!!͚s3̈́>!9~#fo]}!UR#3O .b* !=CB*|(1!0V͟b*3*|(*(!5V͟b*B.b!" in : 3(> Ẍ́>DMͽA(`i* Q}(!`i* Q}(-!?"V!9~#foQ}(!*V* Q}(!.>!3ͦIA g!"4"2*4 "!!* +" #g*͟b!* +" #g!DM *^`i* ́}(h*4 wWW3!9"#*4 E~"8́}(R!*#s!!"#s!"6!:"!wW*2 |(!:r!:! súW3!9N#F*2 "a!"2 W*##"#+^`isz(`i"#!}2*a"2 !-"!!"6*" !"4g3*6|(^*63!"0".!" * " *6| *+! ]S_͈]*+}Z!ͅs(eS_͟e*| ôY?ZZ͸ZZWZZ^Z*%#"%[ZTZZZZͲZZ]ZZ!DM!"a^ 4*a#"a+Rj}(^!!͚s*%#"%+^`is!`is[ZW ͈]Z*6|(Z! ͕[Z* \ZW ! ͕[͸ZZ[Z!\͕[ZW !!͝]ZW !! ]ZW * * E~! ]ZW * * +!͝]Z!DM `i^͕[`i~(g*| ͂}( *| ͕[^L!ڙY!Y^#VpXY}Y1YYFYbYYYYY YXXXX|XYvXpXYjXdXQXHXBX !̈́>* Q}(ͦ@!!͚s.>!!͚sStopped!3!9~#fo+s#r#͂}qg! Fb3!9^#V͆b@DM|(:!g͟b3!g͟b* |( * 3* |( * 3.b in : .  h3!9^#V" ! 9^#V" L! gABh!"Nh"Jh*+"Lh*"Rh~"Th*~"Zh*"bh+~"\hviQ}(**7}͌i+}*"bh*HhQ}( *͌i viQ}(͌i!*bh+"Ph*bh"Vh~"Xh*HhQ}j*Fh"HhNi!"FhhNi!"Fhh!"Fh3*Fh3!9^#V"Dh3*Dh3*Bh3l!9^#V"Bhl!}2?hj}2>h!}2?h!}2?h͓i}2>h!}2?hj}2>h3*?h&3l!9^#V"@hliQ}*@h}2>h3*@h3!0h6twt3*!9(tw! (th*`h*^hpq3!96twt!96twtj!9*`h*^h̀q! 6t! 6t}!9*Zhwt6tw(!96t!tB>w(!96tbO3!9N#F`i }( !PY~DM! 9^#V! }(`i~`i38lj}2h*8h###7}͗}"h*8h###Z7}"h }( *h͙~"h*h}"h* "rh* "th!vhDM!PYDMPY!h{~({! ^#V"dh! ^#V"fh*h*h#"h^ͻl*rh`is#r"hh*h#*h#"h^ͻl*th! s#r"jh*h*jh*hhpq*h͌n]m*~h"dh*h"fh*rh"hh*th"jh*h͌n3!96twt̀l*wt!96twt̀l*wt͑k!9l* "dh* "fh*^h" "hh*`h" "jh! ! 96tUt! !96tUti(*>h͌nl3!"ph"nh"h!"lh!"h*h#"h́}3o!DM`í}(g`i))Jh^#V`i)*h))dh^#V"h́}(!*h}o"h(`i))Lh^#V*h͂}(!*h}o"hçn*lh| ?*fh*dhFq 0*jh*hhFq !!9^#V*jh*hh*fh*dh! 9*h3! 9N#F!9^#V"h`i)*hE~))dh^#V`i)*h))dh^#VE~"h|ʃp*hwwt!PYE~)*h))dh^#V!PYE~)*hE~))dh^#VE~wwt!9^#V)`i))Jh^#V"h`i)*h))dh^#VE~wͨtwͨtvwtFl*!PYE~)*h))dh~#fos#r*h`i)*h))dhs#r`i)! 9~#fo"h*nhQ}(!"lh*h*phQ}(!"lh*nh"ph*h"nh*h3!96t!(h(tw(!9!(h6tt6t5uUt!96t!tw(!9!(h6tt6tw+ u#~>u>w+u>*N wax*s*s+u vax*N *P #O~.vx##Mv2v q#6#6ÅxqVv q+ s~+`v s~+rv!sw#€v>@2s!s~w#‘vOs!s#¦vyv!s4!s5‹vv!s5v!s~w#vOs!s#vyvõv*N  6+6s+wwax*N *P #{x~{x s~+6w s~+Hw!sw#Vw>@2s!s~w#gwҒws!s#{wҒw†w!s5aw*N  s w+¥waxtb}V}tV}b}tb}V}tb}b}V}tV}b}tV}V}b}|{xx|{xzx/W{/_*N p#z%x6#6#s1x6#6#r#s#w1xÿx*N  ~Nx+~w7+~wSxax*N #~T]#Ox#x qx*N  w#6#w…x>Gʭx+y>O~# x¦xx@ڿxxx y!T]w+x6íx*N #6#w#6Åx*N #6?#6>#wx#6*N 6#6]T#wy*J ###~*J =y>#,y>ax~#=yax*J T]w#w#w#w*N N#~ʿxxҎyG#opy$~+pyyx*J >w#‚yÿxyy6#6#6#6 z6#6#6#6 zùy*N F#~yy!ÿxy#oy$^+Vyʿxxx|/g}/o#ÿxyy! zxz! z!@@ @GzH? ěT?F]cf>S#>c{Z=ֿzf=y0==%}<6{<_^Y&; oP;4$C;hIj:$_=ά3:VR8! 9^#V"s!96t!"s*N ~zt*s6-#"stF{!tA *N #~?{&{z##~'.{?|!t@K|wz?|*N ###~ F{ K|F{*N #~.{##~ F{v{*N #~F{K| 5{*s+))) z(t2sx{yҕ{õ{y/ڜ{2sõ{*s60#6.#ʰ{60#=©{"s>O:s{{*N #~>0{##6*sw#x{6.#"sK|ø{*s+~0{:s|~.;|#;|#6e#6+:s:s|6-/<#d$|61#d 1| &|0_>0w#s#6t!wv*N #4 ^&)DM)) #wz++X|#wax++~|@x3!9N#FPY!aj}(PY!zk}( `i ͙~`i3!9N#FPY!Aj}(PY!Zk}( `i ͙~`i3!9N#F`i Q} `i Q} `i Q} !!|g}o|/g}/o^#V#DM!99`i}|z2~ͨ}:~~}}}ɧR( !T]ɧR(!}T]|y}Rg?ozo&|}Rgo|o&z2~ͨ}:~~||}/g}/o#z}/W{/_}DM!>))}#B} =}}=}}DM!>))} =}}}/o|/g#}|b}V}|g}o{_B~|~|7g}o(~{_B~)=~}RBK^#Vzj~#yd~###R~#x_~#~#foRg?oRgo{_B~|g}oŒ~|g}o!9~!~|*~͡~~͡~*~DM*~o&͡~~o&͡~*~*+++*~DM*~T ##~#foů222og"w!9N#F -G2L+M 0|:|K|t0o&ww(! 9!96tUt.!9!96t!9(twUt! 9!96t!tA$c@4@}@ @ɻ@s`@@ѳ@;@ֳ@@oP@ݳ@@@@]@@@4@[@ @@ @xp@c@?@F@eL@pQ@g@K@\@$@5@@@@`[@/@@A3!96t!(t_/W~#LJ~#χ+DM*N #s## w懯#w!w*J w#w#w#w*J ~#~#~#~!9}|!I#}oGTZ]`e1kr x>}w'%;x WƠAΠV&Ѡ\&֠&٠&ܠ'ߠ&렿m&a%%% %:-7H :Y = @/ F M Q V Z ^ a e i m tv xB z|!~'3iiii"0>áơr͡ rաڡqߡ q 0 e rUrFr3!"͈́!"0 "4!" " !}2-}2!}2z !" 99ͺW*" *" geC9=b=b=b!ݜͿd=b*Ϳd!Ϳd! Ϳd=b=b!'Ϳd!BͿd=b!SͿd=b=b=b!pͿdޝ* " !|! s!"~ !! #! ͗ " |(!! ͈#"!"gWelcome toCopyright (c) 1983, Digital ResearchPacific Grove, CaliforniaDr. Logo is a trademark ofDigital ResearchSerial No. XXXX-0000-654321Please WaitSTARTUPLOG3h"4 =*4 E~+!J}=#"6 *4 *6 E~̈́~"*6 ̈́~=E~"8 3e.b!DM`iPY! ́}(!!4 s#r!"" !"!"*6 "*" {9"!LͼH" Q,ì.PRM!"v !"~ -!! aB* ͡>" AD-3P͜hUi*}i*͚i*i*l!7ͼH" !<ͼH" !BͼH" !" !" !" !" !GͼH" !LͼH" !UͼH" !\ͼH" !cͼH" TRUEFALSE.DEF.APVTOPLEVELREDEFPERRACTan empty word3!9N#F`i"v !"~  *~ #"~ `i`i~(`i^! ]}(`i^ͯ|`is=0.! 9^#V! aB* ͡>" AD`i~(* 3* ! 9^#VaB" 3!EDM! ^#V`i^#Vq! DM~#3! !Pq" !P!Rq" ()asciibfblcharcountemptypfirstfputitemlistnumberpsewordpwordmakelocalnamepgpropplistglistpproprempropprtyperqrcrlshowedernerpopotsdirloadsavecatcherrorthrowgolabelnodesrecycle.contentscoifoppauserepeatrunstopandnotorsincosintrandom+-*/<=>bkcleancsdotfdhtltpdpepxpurtsethsetpcsetpensetposstpaddlebuttonpkeypwait.examine.deposittonesfstssetsplitssctsetpalpaltfsfttmlistnumberpsewordpwordmakelocalnamepgpropplistglistpproprempropprtyperqrcrlshowedernerpopotsdirloadsto try cs repeat 10 [rt 36 repeat 5 [fd 40 rt 72]] end  BETA-test versjon av Dr. Logo for Tiki. ======================================= BETA-test. Alle feil som ikke er dokumentert som kjent LUS nedenfor m} |yeblikkelig rapporteres skriftelig til Hannemyr, Tiki-Data. Den endelige versjonen av Logo vil i all hovedsak v{re lik denne. Dr. LOGO lagrer programfiler som standard TIKO tekstfiler. Disse kan redigeres i hvilken som helst editor som h}nterer slike filer (f.eks. BRUMED), og kan skrives ut med innebygde TIKI-kommandoer som LIST og TYPE. Kjente lus: ------------ * Turtletekst er ikke implementert. * Logo virker bare med skjermemulatorer 40.COM, 80.COM, 120.COM * De fleste av demo-programmene p} disketten er skrevet for 56 K Logo. Sm} endringer kan v{re n|dvendig for } kj|re p} 48 K Logo. * Dersom man kj|rer i FS-mode og Logo har behov for } gi operat|ren en feilmelding, settes Logo i SS-tilstand. Dersom teksten i SS overskriver Logolf, er det n|dvendig } gi "cs" eller "clean" for } f} Logolf i "fase" ved retur til FS. * Kommandospr}ket er engelsk. * For at linje-editoren, tekst-screen og splittscreen skal fungere, m} man kj|re versjon 3.00 eller nyere av skjermemulator (40.COM, 80.COM, 120.COM, 160.COM) f|rst. Videre b|r Dr. Logo brukes med amerikansk tegnsett. Anbefalt automatisk kommando er alts} "80 U", slik den er lagt inn p} denne disketten. Logo Editor, taster: -------------------- I<-- Flytt skrivemerket til begynnelsen av linja. <--- Flytt skrivemerket ett tegn til venstre. F5 Slett tegnet under skrivemerket. -->I Flytt skrivemerket til slutten av linja. ---> Flytt skrivemerket ett tegn til h|yre. SLETT Slett tegnet som st}r til venstre for skrivemerket. Tegnet til venstre for skrivemerket slettes, og skrivemerket flyttes en posisjon til venstre. F8 Flytt skrivemerket til neste tabulatorstopp. I Dr. LOGO er tabulator satt til hver fjerde kolonne (kolonne 1, 5, 9, 13 ...). Denne funksjonen flytter skrivmerket til neste posisjon med tabulatorstopp, og setter om n|dvendig inn et passende antall blanke underveis. F12 Slett fra skrivemerket til slutten av linja. Tegn som slettes lagres i et slettebuffer p} opp til 134 tegn. De sist slettede tegn kan hentes fram igjen med et trykk p} ANGRE-tasten. Opp til 134 tegn kan slettes, og hentes fram igjen p} denne m}ten. Dersom du fors|ker } slette mer enn 134 tegn fra ei linje, vil Dr. bare slette de f|rste 134. S} lange linjer b|r imidlertid unng}s. ANGRE Angre p} sletting. Hent fram igjen fra slettebufferet den siste linja som ble slettet med F12. Funksjonstaster for skjerm-redigering F6 Avslutt redigering. Avslutter redigering og g}r ut av Dr. Logos inne- bygde redigeringsfunksjon. Dessuten blir arbeids- rommet oppdatert med definisjoner av samtlige prose- dyrer og variable i redigerings-bufferet. BRYT Avbryt redigering. Avbryter redigeringen uten } oppdatere Dr. Logos arbeidsrom. Dr. Logo skriver ut "Stoppet!" p} skjermen. Endringer som finnes i redigeringsbufferet blir ikke overf|rt til arbeidsrommet. Du kan imid- lertid fortsette } arbeide med samme redigerings- buffer dersom du gir red kommandoen uten } oppgi noe funksjonsnavn. F7 Plasser linja ved skrivemerket midt p} skjermen. Denne funksjonen justerer skjermbufferet slik at den linja skrivemerket er posisjonert ved kommer midt- veis opp p} skjermen. Dersom skrivemerket er plassert mindre enn 12 linjer fra begynnelsen av skjermbufferet, vil skjermbufferet bare bli vist p} nytt, men linja kan da ikke flyttes. pilned Flytt skrivemerket en linje ned. Skrivemerket flyttes ned en linje mot slutten av redigeringsbufferet. Dersom du er ved slutten av redigeringsbufferet, skjer ingen ting. UTVID ]pne linja. Sett inn ei blank linje dersom skrivemerket st}r f|rst eller sist p} ei linje. Ellers splitt linja der hvor skrivemerket er posisjonert. pilopp Flytt skrivemerket en linje opp. Skrivemerket flyttes opp en linje mot begynnelsen av redigeringsbufferet. Dersom du er ved starten av redigeringsbufferet, skjer ingen ting. F3 Flytt til starten av redigeringsbufferet. d.pilopp Flytt til forrige side i redigeringsbufferet. d.pilned Flytt til neste side i redigeringsbufferet. F2 Flytt til slutten av redigeringsbufferet. Koordinatsystem --------------- I alle 3 grafiske modus p} Tiki-100 opererer Logo med et koordinatsystem p} 354 x 250 i X- og Y-retningen i fullskjerm-modus. < - - - - - - - - - - - - - - - 354 - - - - - - - - - - - - - > ^ ^ +-------------------------------------------------------------+ 124 : : ! ! ! ! : : ! ! ! ! : : ! ! ! ! : 200 ! ! ! ! 250 : ! ! ! ! : : ! ! ! ! : : ! ! ! ! : v +-------------------------------------------------------------+ -75 ! ! : ! << 5 tekstlinjer >> ! ! ! v +-------------------------------------------------------------+-125 Problemer --------- Her er listet opp en del av de problemene du kan risikere } komme opp i; mulige }rsaker og hva du kan fors|ke for } finne en l|sning: 1) P: Piltaster og redigeringsfunksjoner virker ikke. ]: Du kj|rer gal type skjermdriver. L: Installer skjermdriver "40.COM" eller "80.COM" f|r du starter LOGO. Du gj|r dette ved } skrive: a>>80 ute i TIKO. 2) P: Bakgrunnsfargen p} fargemonitor er svart i steden for m|rkebl}. ]: For svak lysstyrke p} skjermem. L: Skru lysstyrken opp til du har passende niv} p} bakrgunnsfargen. P} Kaga Taxan monitor gj|res dette ved } dreie p} knappen merket "BRIGHT". 3) P: Bakgrunnsfargen blafrer raskt m|rkebl}tt, men blir s} svart. ]: Du bruker for gammel versjon av skjermdriver. L: Kj|r skjermdriver (f.eks. "40.COM") med versjonsnummer 3.00 eller h|yere f|r du starter LOGO. Nye versjoner av "40.COM" og "80.COM" finnes p} LOGO distribusjonsdiskett. 4) P: N}r teksten n}r bunnen av skjermen, ruller ikke tekst-linjene opp. I steden blir nederste linje skrevet opp} det som sto der tidligere. ]: Du bruker for gammel versjon av skjermdriver. L: Kj|r skjermdriver (f.eks. "40.COM") med versjonsnummer 3.00 eller h|yere f|r du starter LOGO. Nye versjoner av "40.COM" og "80.COM" finnes p} LOGO distribusjonsdiskett. Programeksempler ---------------- Programeksemplene p} denne disken er i f|rste rekke hentet fra: Boris Allan: Introducing Logo, Granada Publishing, 1984. Peter Ross: Logo Programming, Addison Wesley Small Computer Series, 1983. Daniel Watt: Learning With Logo, Byte/McGraw-Hill, 1983. M}r programeksemplene er hentet fra disse b|kerne, har vi inkludert en Logo-prosedyre som heter "lesmeg" p} fila med programmet. Du kan f} vite hvor du kan lese mer om programmet ved } skrive dette ut. Dersom "lesmeg" er definert (det f}r du vite n}r du laster inn fila med "load" kommandoen), kan du be Logo om } f} lese dette. Fors|k f|lgende: ?load "doodle lesmeg defined doodle defined d1 defined ?lesmeg Ref: Ross, s. 85 ff Bruk: doodle 80 Det som st}r etter Logos klartegn "?" skriver du, det andre er svar fra Logo. Det du fikk vite er f|rst at fila "DOODLE.LOG" definerer tre prosedyrer: * lesmeg * doodle * d1 Vi har gitt hovedprosedyren "doodle" samme navn som fila, slik at det ikke skal v{re tvil om hva som er hovedprosedyre. Dette er en god skikk. "d1" er bare en hjelpeprosedyre som "doodle" gj|r bruk av. N}r vi ba Logo utf|re prosedyren "lesmeg" fikk vi vite to ting. Den f|rste linja sier at "doodle"-programmet er hentet fra side 85 og utover i boka til Peter Ross. Den andre gir et eksempel p} hvordan vi gj|r bruk av "doodle". Vi ser at "doodle" forlanger et tall som argument, og at en rimelig st|rrelse p} dette tallet er "80" -- men det er selvsagt lov } bruke andre tall!  gj|r bruk av. N}r vi ba Logo utf|re prosedyren "lesmeg" fikk vi vite to ting. Den f|rste linja sier at "doodle"-programmet er hentet fra side 85 og utover i boka til Peter Ross. Den andre gir et eksempel p} hvordan vi gj|r bruk av "doodle". Vi serto lesmeg pr [move: Viser hvordan px kan brukes til aa slette ved flytting.] end to move cs ht px tri repeat 10 [m1] st end to m1 tri pu fd 10 pd px tri end to tri repeat 3 [fd 10 lt 120] end to lesmeg pr [Tegner farget spiral.] pr [Se ogsaa spii og spir.] end to s3 :dist repeat 390 [if oddp :bool [setpc 1] [setpc 2] fd :dist rt 89 make "dist :dist + 1] end to oddp :par make "bool not :bool op :par end to spic make "bool "TRUE cs ht pu fd 35 lt 90 fd 20 rt 90 pd s3 0 st end to lesmeg pr [Tre uavhengige demo-program.] pr [Ref: Ross s. 25] end to six repeat 5 [fd 80 lt 144] end to many repeat 12 [fd 30 repeat 4 [fd 15 rt 90] bk 30 rt 30] end to figur :inc :rep make "angle 0 repeat :rep [fd 3 rt :angle make "angle :angle + :inc] end to lesmeg pr [Abs: Tegner en triangul{r spiral.] end to tspiral ht cs pu fd 20 pd make "x 0 repeat 100 [fd :x rt 121 make "x :x + 2] end TSPIRAL LOGto lesmeg pr [Bruk: figur 0.7 80] end to figur :inc :rep make "angle 0 repeat :rep [fd 10 rt :angle make "angle :angle + :inc] end TSPIRAL LOGAFIGUR LOGto lesmeg pr [tellpal teller antall paletter, og viser hvilken RGB verdi disse har.] pr [Bruk: tellpal] pr [vispenn viser deg alle fargene du kan ha paa penner i LOGO.] pr [Bruk: vispenn] pr [blokk lar deg tegner en blokk i naavaerende farge] pr [Bruk: blokk] end to tellpal ts make "col 0 catch "error [d] make "lang se [Vi har] :col pr se :lang [paletter i denne modusen!] end to d make "lang se [Palett no] :col make "lang se :lang [=] pr se :lang pal :col make "col :col + 1 d end to vispenn cs make "col 0 make "avstand 10 catch "error [v] make "lang se [Vi har] :col pr se :lang [farger i denne modusen!] end to v setpc :col fd :avstand lt 90 make "avstand :avstand + 5 make "col :col + 1 v end to blokk ht repeat 30 [lt 90 fd 100 lt 90 fd 1 lt 90 fd 100 lt 90 bk 1] st end dusen!] end to d make "lang se [Palett no] :col make "lang se :lang [=] pr se :lang pal :col make "col :col + 1 d end uTIKI(KAT.DOC*** Gjensidig utelukkende velgere. Trykk p} mellomrom Navn Typ Plass UN Atr ! fil(er), som opptar Kb av totalt Kb.Igjen p} katalog-innganger og Kb. KAT Ver. 2.0 1985 Gisle Hannemyr Syntaks: CAT (ffn) (-velgere) Eksempel: a>>CAT *.* -USKNP Koder brukt i attributt-kolonnen: l = Kun lesbar fil; Blank = Lese/skrive fil s = Systemfil; Blank = Normal fil a = Arkiv-bit satt; Blank = Arkiv-bit null Lovelige opsjoner: ? - Skriv dette. U - Vis filer under andre USER AREA. S - Vis system filer. L - Vis i langt format. K - Vis i kort format. A - Vis alt <=> -USL. F - Skriv katalog p} diskfil DIR.DOC. (II) 1 - Skriv katalog p} en kolonne. P - Stopp hver gang skjermen er full. N - Negerer standard-opsjon; -NP = Ikke stopp. )TIKIs!ͺ*e> (>!0ͻv > (u {ɯ2:M00 >2>:2 !""":2 :2 :2 : 2: 2: 2: 2!4r+s+p+q318*3*1:]-  l];!]6 !76!56 :5 *5&l ~26H(? 'õU :72:6S :72:6K :72 :6L :72 :6A :7222 :6P :72:61 :72 0 <2 :6F :722 02<2 :6N27!54M:G: 2 :0: 8#: 0! 4: 0'õ: 0! 5!0 A'$:\( :\=_$:]  ?]F:0!6?  $2 ]; ?\F$DM;!"/*%##)*/"-*!&#"*%#" !">!#2\$2:ʺ:ƀo&"~(t*+"*DMD0b* DMj *- q#p* ". *#DM*- - * *- w*#")*/*-s#r*-"-$2!E6!"H*"`>!Eu *E&F) ^#V"= O!^ ^#V"?:E=2E?=r *="9*?";*=)*/^#V"A;9*9)*/N#F*A*[*9#"99*;)*/^#V*ADM*~*;+";[;9*9)*/^#V"C*;)*/*9)*/N#Fq#p*;)*/*Cs#r*9#"9*;+";-=;9?2 ?9) :E<2EO!F *9s#r*E&^) *?s#r*;"?o ;=i :E<2EO!F *=s#r*E&^) *;s#r*9"=!"v"xx4 *x#"x)*/*v#"v)*/N#Fq#px*v)*/*x) */^#VN#F*H1 *x#"x)*/^#V"- *- ^#V"z*v)*/^#V"-*- z͕ *- q#pî  *v"!}p+q*|)*/^#V"-!~6> !~85*~&*->: 0:~ .5 O5:~<2~ : /0~ *- ^#V*ͿDMPK5: 0\ *- NP 5*- ~8l5 5 *- ~8s5 5 *- ~8a5 5=!6: !8A  : 8 : 0 ! :0  : 0=:<2!6: 8M: ! [': /0g': 0n'! :0: 8 5v':<2À   5 5% *"!">! ** &͠"** &͠>(*#"K[ "!"ҿ  5 5!"}2:<2O: ڵ *** "ڧ >!Ҙ : 8 5y'*DM; *+"**"R *#"2 * &*Ϳ*"E : *##"""*'">  : *+"!+s#r!6$"*~2*#"*+"> :2[ *+":<2O>| !6*#"*~29  5 5*DMP|'**ͿDMP:8'**ͿDMP'*#"E 5 5'$AO5:5 5:8*DMP'**ͿDMP'. g >-,>>! ~?WW >#I: /!:‚ |#v W ʍ#„i`N#FogDM!>))덑o|gҹ =§DM!>)) = ^#V) ^#V|g}o _{ozgO{ozgi`N#Fogo&og_{_z#W O5'Y -={-I!s+p+q*ͤ2<2:!ځ 5!4k!6:=!8*& N5!4 >3ʽ03}¬Z;¿{ )# ʟ4NG4> NG> NG:*; ? ʒ2.Qͱ?dJ:!to kvadrat repeat 5 [fd 30 rt 72] end to stjerne repeat 10 [kvSTJERNE LOGto lesmeg pr [Funksjoner for liste-prosessering. pr [Fra Paul Ward, desember 1984. pr [----------------------------------] pr [insertr: Innsett :new til hoeyre for foerste forekomst av :old i :lat.] pr [insertl: Innsett :new til venstre for foerste forekomst av :old i :lat.] pr [cons: Konkatener to lister, eller foey et S-uttrykk til en liste.] pr [subst: Erstatt foerste forekomst av :old i :lat med :new.] pr [rember: Fjen alle forekomster av :a i :lat.] pr [occur: Tell alle forekomster av :a i :lat.] pr [firsts: Returner liste med hvert av de foerste S-utrykk i :lat.] end to insertr :old :new :lat if emptyp :lat [op []] if equalp first :lat :old [op cons first :lat cons :new bf :lat] op cons first :lat insertr :old :new bf :lat end to insertl :old :new :lat if emptyp :lat [op []] if equalp first :lat :old [op cons :new :lat] op cons first :lat insertl :old :new bf :lat end to cons :s :l if listp :s [op se (list :s) :l] op se :s :l end to subst :old :new :lat if emptyp :lat [op []] if equalp first :lat :old [op cons :new bf :lat] op cons first :lat subst :old :new bf :lat end to rember :a :lat if emptyp :lat [op []] if equalp :a first :lat [op rember :a bf :lat] op cons first :lat rember :a bf :lat end to occur :a :lat if emptyp :lat [op 0] if equalp first :lat :a [op 1 + occur :a bf :lat] op occur :a bf :lat end to firsts :lat if emptyp :lat [op []] op cons first first :lat firsts bf :lat end to varex make "foo "bar make "bar "baz pr "foo pr :foo end LES MEGN9:;<=MOVE LOG>SPIC LOG?MANY LOG@TSPIRAL LOGAFIGUR LOGBPALETT LOGCKAT COM DESTJERNE LOGFLISTPRO LOG GVAR LOGto firkant repeat 4 [fd 80 lt 90] end to kvadrat.100 repeat 4 [fd 60 rt 90] end to kvadrat repeat 5 [fd 30 rt 72] end to stjerne repeat 10 [kvadrat rt 360 / 10] end to tegning pu rt 90 fd 50 lt 90 fd 50 pd repeat 4 [stjerne pu lt 90 fd 100 pd] end Fjern #~ Qx>.Qͱ?dJ:!to kvadrat repeat 5 [fd 30 rt 72] end to stjerne repeat 10 [kvSTJERNE LOGFLISTPRO LOG GVAR LOGHTEGNING LOGto lesmeg pr [Tegn rekursiv nautilus-design.] end to n1 :size repeat 36 [fd :size rt 10] rt 15 n1 :size + 0.5 end to naut ht cs pu fd 12 rt 180 pd n1 1 st end to planter blomst tre busk end to blomst cs ht pu lt 90 fd 100 rt 90 pd blad stilk kronblad end to blad repeat 2 [repeat 9 [fd 3 rt 10] rt 90] repeat 2 [repeat 9 [fd 3 lt 10] lt 90] end to stilk fd 60 end to kronblad repeat 2 [blad rt 120] end to tre stamme greiner end to stamme fd 120 end to greiner make "lengd 10 repeat 10 [bk 10 rt 90 fd :lengd bk :lengd * 2 fd :lengd lt 90] make "lengd :lengd + 2 end to busk lt 70 repeat 14 [grein] end to grein fd 50 bk 50 rt 10 end make "lengd 12  90] repeat 2 [repeat 9 [fd 3 lt 10] lt 90] end to stilk fd 60 end to kronblad repeat 2 [blad 2 [repeat 9 [fd 3 rt 10] rt 90] repeat 2 [repeat 9 [fd 3 lt 10] lt 90] end to stilk fd 60 end to kronblad repeat 2 [blad rt 120] end to tre stamme greiner end to stamme fd 120 end to greiner make "lengd 10 repeat 10 [bk 10 rt 90 fd :lengd bk :lengd * 2 fd :lengd lt 90] make "lengd :lengd + 2 end to busk lt 70 repeat 14 [grein] end to grein fd 50 bk 50 rtto lesmeg pr [Setter grenser paa skjermen.] end to border ht ss pu setpos [-178 -75] pd setpos [178 -75] fs pu setpos [-178 124] pd setpos [178 124] setpos [178 -125] setpos [-178 -125] setpos [-178 124] pu setpos [0 0] pd st end to firkant :side repeat 4 [fd :side lt 90] end "|~K>2j!k6!k~8 ͠ =w4!~ ( ( ( rto firkant repeat 4 [fd 15 rt 90] end to blomst setpc 2 repeat 10 [firkant rt 60] end to blomst2 setpc 1 repeat 12 [firkant rt 30] end to hage repeat 10 [blomst pu lt 90 fd 20 rt 90 blomst] end Iͥ( I< ͬFull͚®|to firkant repeat 4 [fd 15 rt 90] end to blomst setpc 2 repeat 10 [firkant rt 60] end to blomst2 setpc 1 repeat 12 [firkant rt 30] end to hage repeat 10 [blomst pu lt 90 fd 20 rt 90 blomst] end Iͥ( I< ͬFull͚®|to firkant repeat 4 [fd 15 rt 90] end to blomst setpc 2 repeat 10 [firkant rt 60] end to blomst2 setpc 1 repeat 12 [firkant rt 30] end to hage repeat 10 [blomst pu lt 90 fd 20 rt 90 blomst] end Iͥ( I< ͬFull͚®|