–€€wä©Ø…©…©P…Õ¢†Ō ”0 ‘ŌČęŠõęŠńÉ’š)Ø„Ōi(…ŌčęՊ䩍© ŒČŒĘ© ō©&0©1©ĄŌ­ Ņ9ą ™ ­ Ņ9į!™!­ Ņ9ć#™#¢`čżČL`H¢Š  ŌŠIƍŠŹļ© Šh@$iskformatiertmit30%%$9QPUP6ƒc "ibosoft #/-093(/0€7eitere)nformationenbei#/-093(/04el’pppppppBPppšppppppA&LIB TXT›› Files weden mit ›› #i›› ins Programm eingebunden.›› Dies muss wegen der strengen Pascal› Syntax an bestimm}ten Stellen ge-› schehen:›› .H Vor oder Nach "program"› .C Nach "const"› .T Nach "type"› .V Nach "Var"› .P und › .F na}ch der letzten Variable oder› dem letzten .v include. Die genaue› Syntax zum Aufruf der Funktioen› und Proceduren} entnehmen die den › entsprechenden Files. Zumindest› die von mir geschriebenen sind› durch geschickte Namensgebu}ng› leicht zu duchschauen.›› .E ist fuer den Assembler bestimmt!››PI .C › Die fuer Kyan Pascal geltenden› PI Wer }te als Float Kontanten.›BIN .F› Wandeln eines Bin Strings in› eine Integer Zahl.›CONSOL .F› Abfrage von Start, Select } und› Option Taste.›DEC .F› Wandeln eines Strings mit einer› Vorzeichenlosen Zahl in eine› Integer Zahl.›DPEEK .F› } 2 Byte Peek.›GETKEY .F› Lade ein Zeichen von Tastatur.› Bevor diese Function benutzt› wird muss ein Datenkanal mit› OPE }NKEY geoeffnet werden.›HEX .F› Wandelt einen Hex String in› eine Integer Zahl.›INDEX .F› Sucht einen String in einem } anderen.›LENGTH .F› Ermittelt die Laenge eines Strings.›LOWER .F› Wandelt Char in positiven Kleinbuch-› staben um. ›OC}T .F› Wandelt Octal String in Integer um.›PADDLE .F› Fragt Paddle ab.›PEEK .F› 1 Byte Peek.›PENH .F› Horizonta}le Position des Lightpen.›PENV .F› Vertikale Position des Lightpen.›PTRIG .F› Paddle Feuerknopf.›RANDOM .F› Zufallsz}ahl ]0..1[.›RND .F› Integer Zufallszahl ]0..n[.›STICK .F› Joystick.›STRIG .F› Joystick Feuerknopf.›UPPER .F› Wa}ndelt Char in positiven Gross-› buchstaben um›BOOT .H› Vor "program" Includen um COM› Datei zu Compilieren.›INLINE .H›} Enthaelt wichtige Macros fuer den› Assembler. Wird von vielen Functionen› benoetigt.›CONCAT .P› Verbindet 2 Strings zu }einem dritten›DPOKE .P› 2 Byte Poke.›PAUSE .P› n/50 sec Pause.›POKE .P› 1 Byte Poke.›SOUND .P› Wie Basic jedoch }werden einige Werte› nur von 0 bis 7 angegeben.›SUBSTRIN.P› Schneidet einen Unterstring aus einem› String heraus. ›TOBIN } .P› Wandelt integer in 16 Bit Binaer.›TODEC .P› Wandelt integer in vorzeichenlose› Dezimalzahl um.›TOHEX .P› Wandelt} integer in Hex um.›TOOCT .P› Wandelt integer in Octal um.›STRING .T› Typen Declaration fuer verschiedene› Functionen. }z.B.› TODEC, OCT, CONCAT, etc.›GETKEY .V› Variable fuer Getkey.››key.›› .T› Typen Declaration fuer verschiedene› FunctiD(* Sinus und Cosinus sind nicht sehr *)›(* genau, pi2 ist der genaue pi wert *)›(* aber sin(pi)=0 |Atlan| *)››pi =}3.141592410065;›pi2=3.141592653589;› *)›(* genau, pi2 ist der genaue pi wert *)›(* aber sin(pi)=0 |Atlan| *)››pi =$(*************************************)›(* Binaerzahl -> Integer *)›(* (c) 1987 by Martin Krischik *)›(****}*********************************)››function bin(h:binstring):integer;›› begin› bin:=0;›#a› stx _t›› ldw }_r1,0› ldy #6›_bin0 iny› lda (_local),y› and #$7f› cmp #32› beq _bin0 ›_bi}n1 lda (_local),y› and #$7f› cmp #'0› beq _bin2› cmp #'1› bne _binend› sec}› bcs _bin3›_bin2 clc›_bin3 rol _r1› rol _r1+1› iny› cmp #19+4› bne _bin1›_bine}nd ldwvar 5,_r1›› ldx _t›#› end;››(*************************************)›› cmp #19+4› bne _bin1›_bineUfunction consol:integer;›› begin› consol:=0;›#a› lda $d01f› ldy #5› sta (_local),y›#› end;›› bne _bin1›_bine jfunction dec(d:decstring):integer;›› begin› dec:=0;›#a› stx _t›› lda #0› sta _r1› sta _r1"}+1› ldy #6›_dec0 iny› lda (_local),y› and #$7f› cmp #32› beq _dec0›_dec1 lda (_#}local),y› and #$7f› cmp #'0› bcc _decend› cmp #'9+1› bcs _decend› and #$0f› $} ldx #17› bne _dec3›_dec2 bcc *+4› adc #10-1› lsr›_dec3 ror _r1+1› ror _r1› %} dex› bne _dec2› iny› cmp #7+5› bne _dec1›_decend lda _r1› ldy #5› sta (_l&}ocal),y› lda _r1+1› iny› sta (_local),y›› ldx _t››#› end;››› ldy #5› sta (_l\function Dpeek(adr:integer):integer;›› begin› Dpeek:=0;›#a› ldy #7› lda (_sp),y› sta _r1›› ld(}y #8› lda (_sp),y› sta _r1+1›› ldy #0› lda (_r1),y› ldy #5› sta (_sp),y›› ld)}y #1› lda (_r1),y› ldy #6› sta (_sp),y››#› end;› (_r1),y› ldy #5› sta (_sp),y›› ldFprocedure openkey;›› begin›#a› lda #$ff› sta $2db› lda #33› sta $2fc›# › reset(keyboard,'K:');›#a› lda #+}0› sta $2db›#› end;››function getkey:char;›› begin› get(keyboard);› getkey:=keyboard^;› end;››'K:');›#a› lda #jfunction hex(h:hexstring):integer;›› begin› hex:=0;›#a› stx _t›› lda #0› sta _r1› sta _r1-}+1› ldy #6›_hex0 iny› lda (_local),y› and #$7f› cmp #32› beq _hex0 ›_hex1 .} lda (_local),y› and #$7f› cmp #'0› bcc _hexend› cmp #'9+1› bcc _hex2› and /}#$df› cmp #'A› bcc _hexend› cmp #'F+1› bcs _hexend› sbc #'A-10-1›_hex2 asl› 0} asl› asl› asl› ldx #4›_hex3 asl› rol _r1› rol _r1+1› dex› bne _h1}ex3› iny› cmp #7+4› bne _hex1›_hexend lda _r1› ldy #5› sta (_local),y› lda _2}r1+1› iny› sta (_local),y›› ldx _t››#› end;››› ldy #5› sta (_local),y› lda _Gfunction index(var a1,a2:string):› integer;››var i,j,k,l:integer;››begin››i:=maxstring;›while ((a2[i] = ' ') and (i <> 1))› 4} do i:=i-1;›k:=0;›repeat›j:=1;›l:=1;› while(j<=i) do begin› if(a1[j+k] <> a2[j]) then l:=0;› j:=j+1;› end;› 5} k:=k+1;›until((l=1) or ((i+k)>maxstring));›if(l=1) then index:=k› else index:=0;›end;› then l:=0;› j:=j+1;› end;› Yfunction length(var a1:string):integer;›› var i:integer;›› begin› i:=maxstring;› while(a1[i] = ' ') and (i <> 1)do› $7} i:=i-1;› length:=i;› end;››ger;›› var i:integer;›› begin› i:=maxstring;› while(a1[i] = ' ') and (i <> 1)do› $#function lower(ch:char):char;›› begin› upper:=ch;›#a› ldy #5 ;upper -> accu› lda (_local),y› and #$7f (9} ;negativ -> positiv› cmp #$40› bmi _nu› ora #$2f ;upper -> lower›_nu sta (_local),y›#› end;›and #$7f (s(*************************************)›(* Octalzahl -> Integer *)›(* (c) 1987 by Martin Krischik *)›(****,;}*********************************)››function oct(h:octstring):integer;›› begin› oct:=0;›#a› stx _t›› ldw ,<}_r1,0› ldy #6›_oct0 iny› lda (_local),y› and #$7f› cmp #32› beq _oct0 ›_oc,=}t1 lda (_local),y› and #$7f› cmp #'0› bcc _octend› cmp #'7+1› bcs _octend›_oct2 ,>} asl› asl› asl› asl› asl› ldx #3›_oct3 asl› rol _r1› rol _r1+1› ,?} dex› bne _oct3› iny› cmp #9+4› bne _oct1›_octend ldwvar 5,_r1›› ldx _t›#› end,@};››(*************************************)› cmp #9+4› bne _oct1›_octend ldwvar 5,_r1›› ldx _t›#› end,+function paddle(n:integer):integer;›› begin› paddle:=0;›#a› ldy #7› lda (_sp),y› tay›› lda $270,y› ldy #5›0B} sta (_sp),y›#› end;››:integer;›› begin› paddle:=0;›#a› ldy #7› lda (_sp),y› tay›› lda $270,y› ldy #5›0function peek(adr:integer):integer;›› begin› peek:=0;›#a› ldy #7› lda (_sp),y› sta _r1›› ldy 4D}#8› lda (_sp),y› sta _r1+1›› ldy #0› lda (_r1),y› ldy #5› sta (_sp),y›#› end;››dy 4zfunction penh:integer;›› begin› penh:=0;›#a› lda $d40c› ldy #5› sta (_sp),y›#› end;›› sta (_sp),y›#› end;››dy 8cfunction penh:integer;›› begin› pehv:=0;›#a› lda $d40d› ldy #5› sta (_sp),y›#› end;›› sta (_sp),y›#› end;››dy <cfunction ptrig(n:integer):integer;›› begin› ptrig:=0;›#a› ldy #7› lda (_sp),y› tay›› lda $27c@H},y› ldy #5› sta (_sp),y›#› end;››ptrig:=0;›#a› ldy #7› lda (_sp),y› tay›› lda $27c@0FUNCTION Random: Real;›VAR ISO_Var: Integer;›BEGIN›#A› TXA› PHA› LDA #$0› STA _T›RAN1 INC _T› JSR POLY› DJ} CMP #$0› BEQ RAN1› ORA #$10› LDY #5› STA (_SP),Y›;›RAN2 INY› JSR POLY› ROL A› ROL A› ROL ADK}› ROL A› AND #$F0› STA _T+1› JSR POLY› ORA _T+1› STA (_SP),Y› CPY #9› BCC RAN2› LDA _T› DL} INY› STA (_SP),Y› PLA› TAX›#›Random:=ISO_Var›END;(* But not quite! *)›#A›POLY TYA› PHA› LDY #$0›POLDM}Y1 INY› CLC› ROL POLYN› ROL POLYN+1› ROL POLYN+2› ROL POLYN+3› ROL POLYN+4› ROL POLYN+5› DN} ROL POLYN+6› ROL POLYN+7› BCC POLY3›;› LDX #$0›POLY2 LDA POLYN,X› EOR GEN,X› STA POLYN,X› IDO}NX› CPX #8› BCC POLY2› SEC›;›POLY3 ROL _T+2› CPY #4› BCC POLY1›;› PLA› TAY› LDA _T+2›DP} AND #$0F› CMP #$0A› BCS POLY› RTS›;›;›GEN DW $A1› DB $A2› DB $1A› DB $A2› DB $91› DQ} DB $C3› DB $93› DB $C0›;›POLYN DW $63› DB $42› DB $A1› DB $23› DB $55› DB $09› DDR}B $03› DB $87›#›$93› DB $C0›;›POLYN DW $63› DB $42› DB $A1› DB $23› DB $55› DB $09› DDfunction rnd(n:integer):integer;›› var random:integer;›› begin›#a› lda $d20a› ldy #5› sta (_sp),y› iny› lda HT}#0› sta (_sp),y›#› rnd:=round(random*n/255);› end;››begin›#a› lda $d20a› ldy #5› sta (_sp),y› iny› lda H;function stick(n:integer):integer;›› begin› stick:=0;›#a› ldy #7› lda (_sp),y› tay›› lda $278LV},y› ldy #5› sta (_sp),y›#› end;››stick:=0;›#a› ldy #7› lda (_sp),y› tay›› lda $278L0function strig(n:integer):integer;›› begin› strig:=0;›#a› ldy #7› lda (_sp),y› tay›› lda $284PX},y› ldy #5› sta (_sp),y›#› end;››strig:=0;›#a› ldy #7› lda (_sp),y› tay›› lda $284P0function upper(ch:char):char;›› begin› upper:=ch;›#a› ldy #5 ;upper -> accu› lda (_local),y› and #$7f TZ} ;negativ -> positiv› cmp #$60› bmi _nl› and #$df ;lower -> upper›_nl sta (_local),y›#› end;›and #$7f Ts(*************************************)›(* Mache Pascal Programm vom KIX *)›(* unabhaenging. *)›(* (cX\}) 1987 by Martin Krischik *)›(* and Kyan Software *)›(*************************************)›#a› X]}DW $FFFF› DW $481› DW END-1› ORG $481› ASC 'D8:D1:D1:'›GO LDA #$FF› STA $d301› LX^}DX #0› LDA #12› STA $0342,X› JSR $e456› LDX #0› LDA #>$C000› STA $02e5› LDA X_} #<$C000› STA $02e5+1› LDA #>$BC00› STA $0e› LDA #<$BC00› STA $0e+1› LDA #$C0› X`} STA $6a› LDA #3› STA $0342,X› LDA #>DEF.FILN› STA $0344,X› LDA #+1 -> › inc &1› bne *+4› inc &1+1› \g} endm››ldw macro ; <- #› lda #>&2› sta &1› lda #<&2› sta &1+1› \h} endm››movw macro ; -> › lda &1› sta &2› lda &1+1› sta &2+1› \i}endm››stvar macro ; -> › ldy #&1› lda (_local),y› sta &2› endm››ldvar \j}macro ; <- › lda &2› ldy #&1› sta (_local),y› endm››stwvar macro ; -> › ldy #&1› lda (_local),y› sta &2› iny› lda (_local),y› sta &2+\l}1› endm››ldwvar macro ; <- › lda &2› ldy #&1› sta (_local),y› lda\m} &2+1› iny› sta (_local),y› endm››ldind macro ;(locvar) <- › ldy #&1› lda\n} (_local),y› sta _r1› iny› lda (_local),y› sta _r1+1› lda &2› ldy #0› \o} sta (_r1),y› endm››copvar macro ; -> › ldy #&1› lda (_local),y› ldy \p}#&2› sta (_local),y› endm››#› ; -> › ldy #&1› lda (_local),y› ldy \-procedure concat(var a1,a2,a3:string);››var i,j:integer;››begin››i:=maxstring;›while ((a1[i] = ' ') and (i <> 1))› do i:=i-`r}1;››j:=1;›if (a1[i] <> ' ') then begin› while (j <= i) do begin› a3[j] := a1[j];› j:=j+1;› end;›end;››i:=1;›whi`s}le (j <= maxstring) do begin› a3[j] := a2[i];› i:=i+1;› j:=j+1;›end;››end; a1[j];› j:=j+1;› end;›end;››i:=1;›whi`Pprocedure Dpoke(adr,wert:integer);›› begin›#a› ldy #7› lda (_sp),y› sta _r1›› ldy #8› ldadu} (_sp),y› sta _r1+1›› ldy #5› lda (_sp),y› ldy #0› sta (_r1),y›› ldy #6› ldadv} (_sp),y› ldy #1› sta (_r1),y›#› end;›a (_sp),y› ldy #0› sta (_r1),y›› ldy #6› ldad5procedure pause(n:integer);›› begin› if n<>0 then›#a› ldy #5› lda (_sp),y› sta $021c›› ldhx}y #6› lda (_sp),y› sta $021d›› lda #$FF› sta $022a›_pause lda $022a› bne _pause›#› hy} ;› end;› lda (_sp),y› sta $021d›› lda #$FF› sta $022a›_pause lda $022a› bne _pause›#› h procedure poke(adr,wert:integer);›› begin›#a› ldy #7› lda (_sp),y› sta _r1›› ldy #8› lda l{}(_sp),y› sta _r1+1›› ldy #5› lda (_sp),y› ldy #0› sta (_r1),y›#› end;››dy #8› lda lkprocedure Sound(Chan,Freq,Dist,Vol:› integer);›begin›#a› TXA› PHA› LDA #0› STA $D208› LDA #3› STA $D20F› LDY #p}}11› LDA (_SP),Y› ASL A› AND #6› TAX› LDY #5› LDA (_SP),Y› AND #$0F› STA _T› LDY #7› LDA (_SP),Y› ASL A› ASL A› ASL A› ASL A› p~}ASL A› ORA _T› STA $D201,X› LDY #9› LDA (_SP),Y› STA $D200,X› PLA› TAX›#›end;›Y #7› LDA (_SP),Y› ASL A› ASL A› ASL A› ASL A› pNPROCEDURE SubString(VAR a1: String;› VAR Dest: String;› i,j: Integer);›VAR k: Integt€}er;›BEGIN› FOR k:=1 TO MaxString DO› Dest[k]:=' ';› i:= i-1;› FOR k:=1 TO j DO› Dest[k]:= a1[i+k]›END;›AR k: Integtofunction substring(var a1:string;› i,j:integer)› :string;››var k:integer;› tex‚}mp:string;››begin››for k:=1 to maxstring do temp[k]:=' ';››i:=i-1;››for k:=1 to j do temp[k] := a1[i+k];››substring:=temp;››exƒ}nd;string;››begin››for k:=1 to maxstring do temp[k]:=' ';››i:=i-1;››for k:=1 to j do temp[k] := a1[i+k];››substring:=temp;››ex(*************************************)›(* Integer -> Binaer *)›(* (c) 1987 by Martin Krischik *)›(****|…}*********************************)››procedure tobin(wert:integer; var str:binstring);›› begin› str:='0000000000000000';›#|†}a› stx _t+5› stwvar 7,_r0› stwvar 5,_r1› ldy #0›_tob1 lda #0› asl _r0› rol _r0+1› rol› |‡} ora #'0› sta (_r1),y› iny› cpy #16› bne _tob1›› ldx _t+5›#› end;››(******************************|ˆ}*******)›› sta (_r1),y› iny› cpy #16› bne _tob1›› ldx _t+5›#› end;››(******************************| procedure todec(wert:integer; var str:decstring);›› begin› str:='00000';›#a› stx _t›› ldy #5› lda€Š} (_local),y› sta _r1› iny› lda (_local),y› sta _r1+1› iny› lda (_local),y› €‹} sta _r1+2› iny› lda (_local),y› sta _r1+3››› lda #0› sta _r1+4›› ldy #7€Œ}›_tod1 ldx #'0›_tod2 sec› lda _r1+2› sbc _dectab-1,y› pha› dey› lda _r1+3› €} sbc _dectab+1,y› bcc _tod3› sta _r1+3› pla › sta _r1+2› inx› iny› €Ž} bne _tod2›_tod3 pla› txa› sty _r0+1› jsr _tod4› ldy _r0+1› dey› bpl _tod1€}› lda _r1+2› ora #'0› jsr _tod4› › ldx _t›#› end;›#a›_tod4 ldy _r1+4› sta (_r1),y€}› inc _r1+4› rts››_dectab dw 10› dw 100› dw 1000› dw 10000›#›+4› sta (_r1),y€fprocedure tohex(wert:integer; var str:hexstring);›› begin› str:='0000';›#a› stx _t› ldy #5› lda (_local),y› s„’}ta _r1› iny› lda (_local),y› sta _r1+1› ldx #0› stx _t+1› ldy #8› lda (_local),y› jsr _byte› ldy #„“}7› lda (_local),y› jsr _byte›› ldx _t›#› end;›#a›_byte pha› lsr› lsr› lsr› lsr› „”} jsr _nibble› pla› and #$0f›_nibble cmp #10› bcs _alfa› ora #'0› bne _byteend„•}›_alfa adc #'A-10-1›_byteend ldy _t+1› sta (_r1),y› inc _t+1› rts›#› ora #'0› bne _byteend„_(*************************************)›(* Integer -> Octal *)›(* (c) 1987 by Martin Krischik *)›(****ˆ—}*********************************)››procedure tooct(wert:integer; var str:octstring);›› begin› str:='000000';›#a› stˆ˜}x _t+5› stwvar 7,_r0› stwvar 5,_r1› ldy #0›› lda #0› asl _r0› rol _r0+1› rol› ora #'0ˆ™}› sta (_r1),y› iny›_too1 ldx #3› lda #0›_too2 asl _r0› rol _r0+1› rol› dex› bne _too2› ˆš} ora #'0› sta (_r1),y› iny› cpy #6› bne _too1›› ldx _t+5›#› end;››(*******************************ˆ›}******)›0› sta (_r1),y› iny› cpy #6› bne _too1›› ldx _t+5›#› end;››(*******************************ˆ(*************************************)›(* String Typen *)›(*************************************)››hexsŒ}tring=packed array [1..4] of char;›decstring=packed array [1..5] of char;›octstring=packed array [1..6] Œž} of char;›binstring=packed array [1..16] of char;›string =packed array [1..maxstring] of char;›string20 =packed arŒŸ}ray [1..20] of char;›string40 =packed array [1..40] of char;›string128=packed array [1..128] of char;›strŒ }ing256=packed array [1..256] of char;››(*************************************)›packed array [1..128] of char;›strŒU keyboard:file of char;›] of char;››(*************************************)›packed array [1..128] of char;›strGR TXT›› Die Graphic Routinen sind bei› aelteren Versionen fehlerhaft.› Daher hier noch einamal alle in› funktionier”£}ender Version. ››GRAPHICS.H› Vor "program" Includen um› Graphic Speicher freizumachen›DRAWTO .P› Wie Basic.›FILLTO .P› ”¤}Wie Turbo Basic.›GRAPHICS.P› Wie Basic.›LINE .P› Linie ziehen.›LOCATE .P› Wie Basic.›PLOT .P› Wie Basic.›POSITION.”„}P› Wie Basic.›SETCOLOR.P› Die Helligkeitswerte werden nur von› 0 bis 7 gegeben. (sie werden auto-› matisch mit 2 mutipliz”¦}iert).›TEXTMODE.p› Schaltet Graphic Schirm aus und› gibt gibt Graphic Speicher frei.›››››den auto-› matisch mit 2 mutipliz”[#a›_origin equ $4000›#›.P› Die Helligkeitswerte werden nur von› 0 bis 7 gegeben. (sie werden auto-› matisch mit 2 mutipliz˜procedure drawto(horiz,vert,color:integer);›begin›#a› TXA› PHA› LDY #7› LDA (_SP),Y› STA $54› LDY #9› LDA (_SP),Y› STA $55› Iœ©}NY› LDA (_SP),Y› STA $56› LDY #5› LDA (_SP),Y› STA $2FB› LDX #$60› LDA #$11› STA $342,X› LDA #$0C› STA $34A,X› LDA #0› STA $3œŖ}4B,X› JSR $E456› PLA› TAX›#›END;› LDA (_SP),Y› STA $2FB› LDX #$60› LDA #$11› STA $342,X› LDA #$0C› STA $34A,X› LDA #0› STA $3œ!procedure fillto(horiz,vert,color:integer);›begin›#a› TXA› PHA› LDY #7› LDA (_SP),Y› STA $54› LDY #9› LDA (_SP),Y› STA $55› I ¬}NY› LDA (_SP),Y› STA $56› LDY #5› LDA (_SP),Y› STA $2FD› LDX #$60› LDA #$12› STA $342,X› LDA #$0C› STA $34A,X› LDA #0› STA $3 ­}4B,X› JSR $E456› PLA› TAX›#›END;› LDA (_SP),Y› STA $2FD› LDX #$60› LDA #$12› STA $342,X› LDA #$0C› STA $34A,X› LDA #0› STA $3 !procedure graphics(mode:integer);›begin›#a› TXA› PHA› LDX #$60› LDA #$0C› STA $342,X› JSR $E456› LDA #>$4000› STA $2E5› LDA #¤Æ}<$4000› STA $2E6› sta $6a ;Hier war mal ein Fehler› LDA #>$2000› STA $E› LDA #<$2000› STA $F› LDX #$60› LDA #$03 ;OPEN›¤°} STA $342,X› LDA #>FILEN› STA $344,X› LDA #1 then› ps:=sf*(abs(xl/yl));› if ps>0 then› begin› repeat› xp:=round(xs+x);› ypص}:=round((st*x)+ys);› plot(xp,yp,cl);› x:=x+ps› until x>=xl;› end› else› begin› repeat› xp:=round(xs+x);› ض}yp:=round((st*x)+ys);› plot(xp,yp,cl);› x:=x+ps› until x<=xl;› end;›end;› begin› repeat› xp:=round(xs+x);› ØRprocedure locate(horiz,vert:integer;›var color:integer);›begin›#a› TXA› PHA› LDY #5› LDA (_SP),Y› STA _T› INY› LDA (_SP),Y› S¬ø}TA _T+1› LDY #7› LDA (_SP),Y› STA $54› LDY #9› LDA (_SP),Y› STA $55› INY› LDA (_SP),Y› STA $56› LDX #$60› LDA #$07› STA $342,¬¹}X› LDA #0› STA $348,X› STA $349,X› JSR $E456› LDY #0› STA (_T),Y› TYA› INY› STA (_T),Y› PLA› TAX›#›END;›› LDA #$07› STA $342,¬hprocedure plot(horiz,vert,color:integer);›begin›#a› TXA› PHA› LDY #7› LDA (_SP),Y› STA $54› LDY #9› LDA (_SP),Y› STA $55› INY°»}› LDA (_SP),Y› STA $56› LDX #$60› LDA #$0B› STA $342,X› LDA #0› STA $348,X› STA $349,X› LDY #5› LDA (_SP),Y› JSR $E456› PLA› °¼}TAX›#›END; ›Y› STA $56› LDX #$60› LDA #$0B› STA $342,X› LDA #0› STA $348,X› STA $349,X› LDY #5› LDA (_SP),Y› JSR $E456› PLA› ° procedure position(horiz,vert:integer);›begin›#a› LDY #5› LDA (_SP),Y› STA $54› LDY #7› LDA (_SP),Y› STA $55› INY› LDA (_SP),“¾}Y› STA $56›#›END;›(horiz,vert:integer);›begin›#a› LDY #5› LDA (_SP),Y› STA $54› LDY #7› LDA (_SP),Y› STA $55› INY› LDA (_SP),“procedure setcolor(reg,color,lum:integer);›begin›#a› LDY #5› LDA (_SP),Y› ASL A› AND #$0E› STA _T› LDY #7› LDA (_SP),Y› ASL AøĄ}› ASL A› ASL A› ASL A› ORA _T› PHA› LDA #>$2C4› STA _T› LDA #<$2C4› STA _T+1› LDY #9› LDA (_SP),Y› AND #$07› CLC› ADC _T› STAøĮ} _T› PLA› LDY #0› STA (_T),Y›#›END;›LDA #>$2C4› STA _T› LDA #<$2C4› STA _T+1› LDY #9› LDA (_SP),Y› AND #$07› CLC› ADC _T› STAø$CL TXT›› Mit diesen Proceduren ist es moeglich› die Kommandozeile des Kix im Pascal› auszuwerten.›› z.B. % print tes¼Ć}t.txt -f /P: ›› Beachten sie das Beispielprogramm› "print.pas".››GETCL .P› Hole Kommandozeile. Alle anderen› Proceduren¼Ä} arbeiten erst wenn diese› Procedure ausgefuert worden ist.›GETDN .P› Hole n'ten Dateinamen und haenge› eventuell einen ¼Å}Extender an.›GETODN .P› Dateinamen der nach den Optionen› folgt.›GETOPT .P› Hole Optionen (Text nach einem› "-" Zeichen¼Ę}).›GETREDIR.P› Hole Ausgabe Dateiname (Dateiname› nach einem "/" Zeichen). ›COMLINE .V › Variable zum Zwischenspeichern ¼Ē}der› KIX Komandozeile.››abe Dateiname (Dateiname› nach einem "/" Zeichen). ›COMLINE .V › Variable zum Zwischenspeichern ¼(*************************************)›(* Kommandozeile vom KIX uebernehmen *)›(* (c) 1987 by Martin Krischik *)›(****ĄÉ}*********************************)››procedure get_commandline;›› var cl:integer;›› begin› cl:=address(commandline);›#a› ĄŹ} stx _t+5› stwvar 5,_r1› ldw _r0,$500› ldy #$7f›_gcl1 lda (_r0),y› sta (_r1),y› dey› bpl _gĄĖ}cl1› ldy #0››_gcl2 lda (_r1),y› cmp #155› beq _gcle› cmp #'%› bne _gcl3› lda #32› sta (_r1ĄĢ}),y›_gcl3 cmp #'!› bne _gcl4› lda #32› sta (_r1),y› jmp _gcle›_gcl4 cmp #32› bne _gcl5› iny› ĄĶ} bpl _gcl2› jmp _gcle››_gcl5 lda #32› sta (_r1),y› iny› bmi _gcl2› lda (_r1),y› cmp #155› ĄĪ} beq _gcle› cmp #32› bne _gcl5›_gcle ldx _t+5›#› end;››(*************************************)› cmp #155› Ąk(*************************************)›(* Dateiname aus Kommandozeile *)›(* entnehmen *)›(* (cÄŠ}) 1987 by Martin Krischik *)›(*************************************)››procedure get_dateiname(nr:integer; var name:striÄŃ}ng20; ext:hexstring);›› label 0000;›› var i,j,k :integer;› extflag:boolean;›› begin› i :=1;› j :=1;›ÄŅ} extflag:=true;› name :=' ';› repeat› while (commandline[i]=' ') do› i:=i+1;› ÄÓ}if (commandline[i] in ['/','-']) or (commandline[i]=chr(155)) then› goto 0000;› nr:=nr-1;› if nr<>0 then› ÄŌ} while (commandline[i]<>' ') and (commandline[i]<>chr(155)) do› i:=i+1› until nr=0;› repeat› name[j]:ÄÕ}=upper(commandline[i]);› if name[j]='.' then› extflag:=false;› j:=j+1;› i:=i+1› until (commandline[iÄÖ}]=' ') or (commandline[i]=chr(155));› if extflag then› for k:=1 to 4 do› begin› name[j]:=upper(ext[k]Ä×});› j:=j+1› end;› name[j]:=chr(155);› 0000:› end;››(*************************************)›pper(ext[k]Är(*************************************)›(* Optionen Dateiname aus Kommando- *)›(* Zeile entnehmen *)›(* ČŁ} (c) 1987 by Martin Krischik *)›(*************************************)››procedure get_optionsname(var name:string20; ext:ČŚ}hexstring);›› var i,j,k :integer;› extflag:boolean;›› begin› i :=1;› j :=1;› extflag:=true;› naČŪ}me :=' ';› while(commandline[i]<>'-') and (commandline[i]<>chr(155)) do› i:=i+1;› if commandlČÜ}ine[i]='-' then› begin› while commandline[i]<>' ' do› i:=i+1;› while commandline[i]=' ' do› ČŻ} i:=i+1;› repeat› name[j]:=upper(commandline[i]);› if name[j]='.' then› extflag:=falseČŽ};› j:=j+1;› i:=i+1› until (commandline[i]=' ') or (commandline[i]=chr(155));› if extflag thenČß}› for k:=1 to 4 do› begin› name[j]:=upper(ext[k]);› j:=j+1› end;› namČą}e[j]:=chr(155);› end;› end;››(*************************************)›k]);› j:=j+1› end;› namČK(*************************************)›(* Optionen aus Kommandozeile *)›(* entnehmen *)›(* Ģā} (c) 1987 by Martin Krischik *)›(*************************************)››procedure get_options(var options:string20);›› vĢć}ar i,j:integer;›› begin› i :=1;› j :=1;› options:=' ';› while(commandline[i]<>'-') Ģä}and (commandline[i]<>chr(155)) do› i:=i+1;› if commandline[i]='-' then› repeat› options[j]:=upper(commandĢå}line[i]);› i:=i+1;› j:=j+1;› until(commandline[i]=' ') or (commandline[i]=chr(155));› end;››(************Ģę}*************************)› j:=j+1;› until(commandline[i]=' ') or (commandline[i]=chr(155));› end;››(************Ģ(*************************************)›(* Redirections Dateiname aus *)›(* Kommandozeile entnehmen *)›(****Šč}*********************************)››procedure get_redirect(var name:string20; ext:hexstring);›› var i,j,k :integer;› eŠé}xtflag:boolean;›› begin› i :=1;› j :=1;› extflag:=true;› name :=' ';› while(coŠź}mmandline[i]<>'/') and (commandline[i]<>chr(155)) do› i:=i+1;› if commandline[i]='/' then› begin› i:=i+1;Šė}› repeat› name[j]:=upper(commandline[i]);› if name[j]='.' then› extflag:=false;› Šģ} j:=j+1;› i:=i+1› until (commandline[i]=' ') or (commandline[i]=chr(155));› if extflag then› Šķ}for k:=1 to 4 do› begin› name[j]:=upper(ext[k]);› j:=j+1› end;› name[j]:=chr(1Šī}55);› end;› end;››(*************************************)›k]);› j:=j+1› end;› name[j]:=chr(1Š@(*************************************)›(* Variabel fuer KIX Kommandozeile *)›(* (c) 1987 by Martin Krischik *)›(****Ōš}*********************************)››commandline:string128;››(*************************************)›tin Krischik *)›(****Ōd(*************************************)›(* Drucke Pascal Source Text *)›(* und Include Dateien *)›(* Ųņ} (c) 1987 by Martin Krischik *)›(*************************************)››program print_pascal(input,output);››#i inline.h›Ųó}›const maxstring=255;› neueseite=12;››type›#i string.t››var len ,› nr ,› i ,› dzeile :integŲō}er;› debug ,› includ ,› formfeed,› header :boolean;› a :char;› headtxt :packed file of charŲõ};› printer :text;› options ,› datei ,› headname,› redirect:string20;›#i comline.v››#i upper.f›#i lengthŲö}.f›#i getcl.p›#i getdn.p›#i getredir.p›#i getopt.p›#i getodn.p››procedure print(datei:string20;i:char);›› var j,k,n :integeŲ÷}r;› source :text;› include:string20;› zeile :string;›› begin› n:=1;› Reset(source,datei);› while noŲų}t eof(source) do› begin› readln(source,zeile);› len:=length(zeile);› if (i<>'I') or includ then› Ųł} begin› if debug then› write(printer,dzeile:5,' ');› writeln(printer,n:5,a:2,i:2,' 'Ųś},zeile:len);› n:=n+1› end;› dzeile:=dzeile+1;› if zeile[1]='#' then› if upper(zeilŲū}e[2])='A' then› a:='A'› else› if upper(zeile[2])='I' then› begin› Ųü}k:=3;› j:=1;› while (zeile[k]=' ') and (k<=len) do› k:=k+1;› inŲż}clude:=' ';› while (zeile[k]<>' ') and (k<=len) and (j<=20) do› begin› Ųž} include[j]:=zeile[k];› j:=j+1;› k:=k+1› end;› Ų’} writeln(' Include:',include);› if debug or includ then› print(include,'I')› Ł} end› else› a:=' ';› end› end;››begin› nr :=1;› includ :=false;› debug :=falseŁ};› formfeed:=false;› header :=false;› get_commandline;› get_dateiname(1,datei,'.pa ');› if datei[1]=' ' then› begin›Ł} writeln;› writeln('Kyan Pascal Program Printer.');› writeln('(c) 1987 by Martin Krischik.');› writeln('TŁ}his Proramm is written in Kyan Pascal.');› writeln('usage:');› writeln('FileName [FileName ...] [options]');› Ł}writeln('Options:');› writeln('-i Show Include Files.');› writeln('-d Show Debug Linenumbers.');›Ł} writeln('-f Send Form Feeds.');› writeln('-h FileName Send Headertext.');› writeln('/Device RediŁ}rect Output');› writeln;› write('Print:');› readln(commandline);› commandline[121]:=chr(155);› get_dŁ}ateiname(1,datei,'.pa ');› end;› get_options(options);› i:=2;› while (i<6) and (options[i]<>' ') do› begin› if Ł}upper(options[i])='I' then› includ:=true;› if upper(options[i])='D' then› debug:=true;› if upper(optiŁ }ons[i])='F' then› formfeed:=true;› if upper(options[i])='H' then› begin› get_optionsname(headnameŁ },'.prn');› header:=true› end;› i:=i+1› end;› get_redirect(redirect,'.lis');› if redirect[1]=' ' theŁ }n› Rewrite(Printer,'P:')› else› rewrite(printer,redirect);› while datei[1]<>' ' do› begin› a:=' ';› dzeiŁ }le:=1;› writeln('Drucke Datei:',datei);› if header then› begin› reset(headtxt,headname);› Ł }while not eof(headtxt) do› begin› if headtxt^='#' then› write(printer,datei)› Ł} else› write(printer,headtxt^);› get(headtxt)› end› end;› print(datei,Ł}' ');› if formfeed then› writeln(printer,chr(neueseite));› nr:=nr+1;› get_dateiname(nr,datei,'.pa ')› Ł} end›end.› if formfeed then› writeln(printer,chr(neueseite));› nr:=nr+1;› get_dateiname(nr,datei,'.pa ')› Ų ’’ G¢’š - ©*6© 7© G Œ©…‚©Œ…ƒ¢ ˜}°© Iµu•µu•č蔕©• 5Œ8„‚é…‚„ƒé…ƒ ! 5Œ©   F©   F O©  Œ Œ 8Œ©  °Œ©  °Œ ŌŒš ©  @L5©  F O©  Ż?} F O8µé•µé•©Õ©õ°© Iµu•µu•čč©›  Œ 5Œ© LkŒ©  hŒ ©‘‚©  F©  Œ 8Œ©  F©  Œ©   F©  Œ Ż@}³Œ©  F 1 ;Œ©‘ < L©  F ©  F©’  >Œ =©ž ‹ Œ©ž ’ ‚©  F 8Œ8„‚é…‚„ƒé…ƒ f! 8Œ©  F”•©•©I  Œ s©ö ‹ Œ”ŻA}•©• U©` 8 L©÷ ‹ Œ”•©•©Ę 7 L©ń ‹ Œ "©ų ‹ Œ O©  Œ wŒ©   Œ©  Œ €Œ©ń ‹ Œ "©  F O©  Œ wŒ©ó ‹ Œ”ŻB}•©•©  Œ €Œ©  F”•©•©  Œ €Œ©   Œ©  Œ €Œ©  F©ž ‹ Œ O©’  }Œ tŒ©  F©  F O©  Œ Œ 8Œ©ų ‹ Œ©ų ŻC}‹ Œ O©  Œ Œ 8Œ©  F©  Œ8µé•µé•©žÕ©õ°© Iµu•µu•č蔕©•©#  Œ nŒ©Ž < L©’ ’ ‚©  F©  Œ8µŻD}镵镩žÕ©õ°© Iµu•µu•č蔕©• 5Œ8„‚é…‚„ƒé…ƒ !©A  Œ nŒ©P 9 L©ó ‹ Œ©A  Œ 5ŒLŽ<©’ ’ ‚©  F©  ŻE}Œ8µé•µé•©žÕ©õ°© Iµu•µu•č蔕©• 5Œ8„‚é…‚„ƒé…ƒ !©I  Œ nŒ©} < L©  F©  Œ 8Œ©  F©  Œ 8Œ© ŻF} F©  F O8µé•µé•©žÕ©õ°© Iµu•µu•č蔕©•©   Œ nŒ©  F O©ž ‹ Œ O 7 R©n : L©  F©  F OŻG}©  Œ Œ 8ŒLŽ9©  F© : ŒL“: ©ģ ’ eŒ©  F©  F O8µé•µé•©žÕ©õ°© Iµu•µu•č蔕©ŻH}•©   Œ s©  F O©ž ‹ Œ O 7 R©  F O©  Œ 7 R©ā ; L©  F©  F O8µé•µé•©Õ©õ°© Iµu•µuŻI}•čč©  F©  F O8µé•µé•©žÕ©õ°© Iµu•µu•č蔕©• 5Œ©  F©  F O©  Œ Œ 8Œ©  F©  F O© ŻJ} Œ Œ 8ŒLš:©ģ ; ŒLł; Include:©’ » Œ "©   Œ©   }Œ©  F©  Œ©  }Œ tŒ©÷ ‹ Œ”•©•©ö ‹ Œ”•©• U©z < L©ŻK}ģ ’ ‚©  F©ģ ’ eŒ©’ ’ ‚©I  Œ 5Œ ø6LŽ<©ó ‹ Œ©   Œ 5ŒLõ6©4 LkŒ©ä  hŒ ©‘‚©ü ‹ Œ©  Œ 8Œ©ö ‹ Œ©  Œ 5Œ©÷ ‹ Œ©ŻL}  Œ 5Œ©õ ‹ Œ©  Œ 5Œ©ō ‹ Œ©  Œ 5Œ 9"©ž ’ ‚©  Œ 8Œ©ž ’ ‚©É ‹ Œ 8Œ©ü ’ ‚©0 = ŒL4=.pa ©ü ’ eŒ “"©É ‹ Œ©  ŒŻM}8µé•µé•©Õ©õ°© Iµu•µu•č蔕©•©   Œ nŒ©+ A L©’ » Œ " tŒ©§ = ŒLĆ=Kyan Pascal Program Printer.©’ » ŻN}Œ "©  Œ©  }Œ tŒ©č = ŒL>(c) 1987 by Martin Krischik.©’ » Œ "©  Œ©  }Œ tŒ©) > ŒLP>This Proramm is written in KyŻO}an Pascal.©’ » Œ "©'  Œ©'  }Œ tŒ©u > ŒL{>usage:©’ » Œ "©  Œ©  }Œ tŒ©  > ŒLĮ>FileName [FileName ...] [options]©’ŻP} » Œ "©!  Œ©!  }Œ tŒ©ę > ŒLī>Options:©’ » Œ "©  Œ©  }Œ tŒ© ? ŒL2?-i Show Include Files.©’ » Œ "© ŻQ} Œ©  }Œ tŒ©W ? ŒLz?-d Show Debug Linenumbers.©’ » Œ "©#  Œ©#  }Œ tŒ©Ÿ ? ŒL»?-f Send Form Feeds.©’ŻR} » Œ "©  Œ©  }Œ tŒ©ą ? ŒLü?-h FileName Send Headertext.©’ » Œ "©  Œ©  }Œ tŒ©! @ ŒL<@/Device Redirect OutpŻS}ut©’ » Œ "©  Œ©  }Œ tŒ©’ » Œ " tŒ©n @ ŒLt@Print:©’ » Œ "©  Œ©  }Œ©! ‹ Œ©ž » Œ ©€  >Œ =©! ‹ Œ©y  Œ8µŻT}镵镩թõ°© Iµu•µu•čč©›  Œ 5Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©É ‹ Œ 8Œ©ü ’ ‚© A ŒL!A.pa ©ü ’ eŒ “"©ž ’ ‚©ŻŻU} ‹ Œ 8Œ Ż-©ś ‹ Œ©  Œ 8Œ©ś ‹ Œ O©  Œ ©Ż ‹ Œ©ś ‹ Œ O8µé•µé•©Õ©õ°© Iµu•µu•č蔕©•©   Œ sŻV} R©  D L©’ ’ ‚©Ż ‹ Œ©ś ‹ Œ O8µé•µé•©Õ©õ°© Iµu•µu•č蔕©• 5Œ8„‚é…‚„ƒé…ƒ !©I  Œ nŒ©< B L©ö ŻW}‹ Œ©  Œ 5Œ©’ ’ ‚©Ż ‹ Œ©ś ‹ Œ O8µé•µé•©Õ©õ°© Iµu•µu•č蔕©• 5Œ8„‚é…‚„ƒé…ƒ !©D  Œ nŒ©¼ B LŻX}©÷ ‹ Œ©  Œ 5Œ©’ ’ ‚©Ż ‹ Œ©ś ‹ Œ O8µé•µé•©Õ©õ°© Iµu•µu•č蔕©• 5Œ8„‚é…‚„ƒé…ƒ !©F  Œ nŒ©< CŻY} L©õ ‹ Œ©  Œ 5Œ©’ ’ ‚©Ż ‹ Œ©ś ‹ Œ O8µé•µé•©Õ©õ°© Iµu•µu•č蔕©• 5Œ8„‚é…‚„ƒé…ƒ !©H  Œ nŒ©ŻZ}ģ C L©ž ’ ‚©µ ‹ Œ 8Œ©ü ’ ‚©Ķ C ŒLŃC.prn©ü ’ eŒ ą0©ō ‹ Œ©  Œ 5Œ©ś ‹ Œ©ś ‹ Œ O©  Œ Œ 8ŒLPA©ž ’ ‚©” ‹ Œ 8Œ©ü ’Ż[} ‚©/ D ŒL3D.lis©ü ’ eŒ Ó(©” ‹ Œ©  Œ8µé•µé•©Õ©õ°© Iµu•µu•č蔕©•©   Œ nŒ©¶ D L©ń ‹ Œ©  Œ©§Ż\} D ŒL©DP:©  Œ ¶ŒLÕD©ń ‹ Œ©  Œ©” ‹ Œ©  Œ ¶Œ©É ‹ Œ©  Œ8µé•µé•©Õ©õ°© Iµu•µu•č蔕©•©   Ż]}Œ s© G L©ó ‹ Œ©   Œ 5Œ©ų ‹ Œ©  Œ 8Œ©S E ŒL`EDrucke Datei:©’ » Œ "©   Œ©   }Œ©É ‹ Œ©  Œ©  }Œ tŒ©ō ‹ Œ”Ż^}•©•©O F L©ņ ‹ Œ©  Œ©µ ‹ Œ©  Œ ³Œ©ņ ‹ Œ 1 ;Œ©O F L©ņ ‹ Œ”•©•©#  Œ nŒ© F L©ń ‹ Œ "©É ‹ Œ©  Œ©  Ż_}}ŒL>F©ń ‹ Œ "©ņ ‹ Œ”•©•©  Œ €Œ©ņ ‹ Œ©  ¹ŒLÅE©ģ ’ ‚©É ‹ Œ©ģ ’ eŒ©’ ’ ‚©   Œ 5Œ ø6©õ ‹ Œ”•©•©¬ F L©ń ‹ Ż`}Œ "©   Œ©  Œ €Œ tŒ©ü ‹ Œ©ü ‹ Œ O©  Œ Œ 8Œ©ž ’ ‚©ü ‹ Œ O 8Œ©ž ’ ‚©É ‹ Œ 8Œ©ü ’ ‚© G ŒLG.pa ©ü ’ eŒ “"LÕŻa}D©ä LkŒ Œ©  Œ €Œ tŒ©ü ‹ Œ©ü ‹ Œ O©  Œ Œ 8Œ©ž ’ ‚©ü ‹ Œ O 8Œ©ž ’ ‚©É ‹ Œ 8Œ©ü ’ ‚© G ŒLG.pa ©ü ’ eŒ “"LÕÜDrucke Pascal Programm: W#W›BN\=›› Œ Œ 8Œ©ž ’ ‚©ü ‹ Œ O 8Œ©ž ’ ‚©É ‹ Œ 8Œ©ü ’ ‚© G ŒLG.pa ©ü ’ eŒ “"LÕą-Drucke Pascal Programm: #››#W›BN\=›› Œ Œ 8Œ©ž ’ ‚©ü ‹ Œ O 8Œ©ž ’ ‚©É ‹ Œ 8Œ©ü ’ ‚© G ŒLG.pa ©ü ’ eŒ “"LÕä(*************************************)›(* *)›(* Quadromania XE *)›(* ée} *)›(* (c) 30.08.1987 by Martin Krischik *)›(* Buelser Str. 22 *)›(* éf} 4390 Gladbeck *)›(* *)›(*************************************)››#i graphics.h›ég}›program quadromania(input,output);››var level ,› drehen ,› halt :integer;› tonflag :boolean;› wahl éq}Ć5’’’’’’BLIB TXTBPI C BBIN F B CONSOL F B!DEC F B'DPEEK F B*GETKEY F B,HEX F B3INDEX F B6LENGTH F B8LOWER F B:OCT F BAPADDLE F BCPEEK F BEPENH F BFPENV F BGPTRIG F B IRANDOM F BSRND F BUSTICK F BWSTRIG F BYUPPER F B [BOOT H B dINLINE H BqCONCAT P BtDPOKE P BwPAUSE P BzPOKE P B|SOUND P BSUBSTRINP BSUBSTT P B„TOBIN P B‰TODEC P B‘TOHEX P B–TOOCT P BœSTRING T B”GETKEY V B¢GR TXTB§GRAPHICSH BØDRAWTO P B«FILLTO P B®GRAPHICSP B²LINE P B·LOCATE P BŗPLOT P B½POSITIONP BæSETCOLORP BĀCL TXTBČGETCL P B ĻGETDN P B ŲGETODN P BįGETOPT P BēGETREDIRP BļCOMLINE V B ńPRINT PA BQPRINT BbSTAR PRNBcGD PRNB4dQUADRO PA BR”QUADRO B£óDUNGEON B–TEXTMODEP :char;›#i getkey.v››#i graphics.p›#i setcolor.p›#i position.p›#i plot.p›#i drawto.p›#i fillto.p›#i locate.p›#i sound.p›#i coér}nsol.f›#i rnd.f›#i getkey.f›#i upper.f›#i poke.p›#i peek.f›#i stick.f›#i strig.f›#i pause.p››procedure init;›› begin› opeés}nkey;› poke(82,0);› setcolor(4,0,3);› setcolor(1,12,6);› setcolor(2,12,2);› drehen :=0;› level :=1;› ét}tonflag :=true;› halt :=0› end;››procedure stellen;›› begin› if level=9 then› level:=1› else› level:=éu}level+1;› drehen:=35+level*15-sqr(level-4)+11;› position(19,6);› write((35+level*15):3);› position(8,7);› writév}e(drehen:3);› position(10,10);› write(level:1);› position(0,16);› writeln› end;››procedure ton;›› begin› poséw}ition(7,11);› if tonflag then› begin› tonflag:=false;› write('Aus');› end› else› begin› éx} tonflag:=true;› write('An ');› end;› position(0,16);› writeln› end;››procedure spiel;›› var x,y,coloéy}r,› halt :integer;› farbflag :boolean;› wahl :char;›› procedure spielfeld;›› begin› graphics(éz}3+16);› setcolor(0,8,3);› setcolor(1,3,3);› setcolor(2,12,6);› setcolor(4,0,3);› plot(39,23,1);› é{} drawto(39,0,1);› drawto(0,0,1);› fillto(0,23,1)› end;›› procedure dreh(x,y:integer);›› procedure invert(x,é|}y:integer);›› var color:integer;›› begin› locate(x,y,color);› if color=1 then› color:=2› é}} else› color:=1;› plot(x,y,color)› end;›› begin› if tonflag then› sound(0,217,4,halt*2é~});› invert(x ,y ); pause(halt);› invert(x ,y+1); pause(halt);› invert(x ,y-1); pause(halt);› invert(xé}+1,y ); pause(halt);› invert(x+1,y+1); pause(halt);› invert(x+1,y-1); pause(halt);› invert(x-1,y ); pause(haé€}lt);› invert(x-1,y+1); pause(halt);› invert(x-1,y-1); pause(halt);› sound(0,0,0,0)› end;›› procedure verdré}ehen;›› var i:integer;›› begin› for i:=1 to 35+level*15 do› dreh(rnd(37)+1,rnd(21)+1)› end;›› function é‚}testen:boolean;›› label 0000;›› (* Goto um Zeit zu Sparen *)›› var x,y,color:integer;›› begin› testen:=true;éƒ}› for x:= 0 to 39 do› for y:= 0 to 23 do› begin› locate(x,y,color);› if color=2 thé„}en› begin› testen:=false;› goto 0000 (* exit *)› end› end;› é…} 0000:› end;›› begin› spielfeld;› halt:=0;› verdrehen;› halt:=3;› x:=20;› y:=12;› repeat› ré†}epeat› locate(x,y,color);› plot(x,y,3);› pause(4);› sound(0,0,0,0);› plot(x,y,color);› é‡} pause(4);› if tonflag and (stick(0)<>15) then› begin› sound(0,50,5,8);› poke(77,0)›éˆ} end;› case stick(0) of› 15:(* nichts *);› 13: y:=y+1;› 14: é‰} y:=y-1;› 7: x:=x+1;› 5:begin x:=x+1; y:=y+1 end;› 6:begin x:=x+1; y:=y-1 end;› éŠ} 11: x:=x-1;› 9:begin x:=x-1; y:=y+1 end;› 10:begin x:=x-1; y:=y-1 end› end;› if x>38 é‹}then x:= 1;› if x< 1 then x:=38;› if y>22 then y:= 1;› if y< 1 then y:=22› until (strig(0)=0) or (céŒ}onsol<>7);› sound(0,0,0,0);› if strig(0)=0 then› begin› dreh(x,y);› drehen:=drehen-1› é} end;› farbflag:=testen› until (drehen=0) or farbflag or (consol<>7);› graphics(0);› setcolor(4,0,2);› setéŽ}color(1,12,6);› setcolor(2,12,2);› if farbflag then› begin› position(14,5);› writeln(' Ā Ņ Į Ö Ļ ” 'é});› position(10,10);› writeln('Du hast es geschafft');› writeln(' Du hattest noch ',drehen:3,' Versucé}he ueber.')› end› else› if drehen=0 then› begin› position(1,5);› writeln('Du hast leideé‘}r keinen Versuch mehr.');› position(0,10);› write('Vielleicht versuchst du es mal mit einem');› wré’}iteln('leichteren Level')› end› else › begin› position(7,5);› writeln('Schade, dass du aé“}usfgiebst')› end;› position(0,20);› writeln('Bitte drueck eine Taste');› wahl:=getkey› end;››begin› init;› é”} write('}Ńõįäņļķįīéį ŲÅ                          ');› writeln('             Øć© ±¹ø· āł Ķįņōéī Ėņéóćčéė');› writeln('Orgié•}nal ST GFA Basic Spiel von');› writeln('Christan Zwicker Happy Computer 7/87');› writeln('Dieses Spiel ist in Kyan Pascal'é–});› writeln('geschrieben');› writeln('Auf einem 24 * 39 Felder grossen Spiel-');› writeln('feld befinden sich Spielsteineé—} (eine');› writeln('Seite Rot andere Blau). Alle Steine');› writeln('liegen zu Anfang mit der Bauen Seite');› writeln('nacé˜}h oben. Ich drehe mehrere 3 * 3');› writeln('grosse Felder um und Du muesst durch');› writeln('Auswahl von ebenfalls 3 * 3 é™}grossen');› writeln('Feldern dies rueckgaengig machen.');› position(0,20);› writeln('Bitte drueck eine Taste');› wahl:=geéš}tkey;› repeat› write('}Ńõįäņļķįīéį ŲÅ                          ');› writeln('             Øć© ±¹ø· āł Ķįņōéī Ėņéóćčéė'é›});› writeln('Du hattest noch ',drehen:3,' Versuche ueber.');› writeln('Jetzt verdrehe ich ',(35+level*15):3,' Felder'éœ});› drehen:=35+level*15-sqr(level-4)+11;› writeln('Du hast ',drehen:3,' Versuche.');› writeln(' Ģevel: ',level:1é});› if tonflag then› writeln(' Ōon An ')› else› writeln(' Ōon Aus');› writeln(' Ótart');› writelnéž}(' Ånde');› writeln('Deine Wahl');› repeat› wahl:=upper(getkey);› if wahl in ['L','T','S'] then› caéŸ}se wahl of› 'L':stellen;› 'T':ton;› 'S':Spiel› end› until wahl in ['E','S']› until wahlé }='E'›end.›› 'L':stellen;› 'T':ton;› 'S':Spiel› end› until wahl in ['E','S']› until wahlč ’’@Ųg¢’š -@©*6©@7©Ł g Œ©…‚©Œ…ƒ¢ Ŗ^L: ¹™Aˆ÷ Ź@G é@ ¹‡™Aˆ÷ Ź@4 é@ ¹„™Aˆ÷ Ź@!¢©ņD©@E© B©€H©Iķ¢} VäL@©B©D©AE©H©I Vä0Į8­AķAH­AķAI­AD­AE Vä0 é@`¢©B©D©AE©J©K Vä`© B Vä`error loķ£}ading pascal library›D8:lib›©  hŒ ©‘‚ŠH¢`© B V䩍å©@ę©…© …¢`©B©pD©AE ±‚K)šI J VäL”S:›hŖ©ķ¤} LkŒ©  hŒ ©‘‚ ±‚ )…” ±‚ ”H©Ä…”©…•  ±‚)e”…”h ‘”©  LkŒ©  hŒ ©‘‚ ±‚…T ±‚…Uȱ‚…V©  LkŒ©  hŒ ©‘‚ŠH ±‚ķ„}…T  ±‚…Uȱ‚…V¢`© B©HI ±‚ VähŖ©  LkŒ©  hŒ ©‘‚ŠH ±‚…T  ±‚…Uȱ‚…V ±‚ū¢`©B© J©K VähŖ©  LkŒ©  hŒ ©‘‚ķ¦}ŠH ±‚…T  ±‚…Uȱ‚…V ±‚ż¢`©B© J©K VähŖ©  LkŒ©  hŒ ©‘‚ŠH ±‚…”ȱ‚…• ±‚…T  ±‚…Uȱ‚…V¢`©B©HI V䠑”˜Č‘”hķ§}Ŗ©  LkŒ©  hŒ ©‘‚ŠH©Ņ©Ņ  ±‚ )Ŗ ±‚)…” ±‚ ”Ņ  ±‚ŅhŖ©  LkŒ©  hŒ ©‘‚©  F©  Œ 8Œ­Š ‘€©  F OķØ}© LkŒ©  hŒ ©‘‚­ Ņ ‘‚Č©‘‚©  F©  F O©   F O Œ©’  Œ DŒ GŒ bŒ 4 8Œ©  F O©  LkŒ©  hŒ ©‘‚©’Ū©!üķ©}©÷ ‹ Œ©  Œ© D ŒLDK:©  Œ ³Œ©Ū© LkŒ©  hŒ ©‘‚©÷ ‹ Œ©  ¹Œ©  F©÷ ‹ Œ”•©• 5Œ©  F”•©•© LkŒ© ķŖ} hŒ ©‘‚©  F©  F”•©• 5Œ ±€)É`0)ߑ€©  F”•©•© LkŒ©  hŒ ©‘‚ ±‚…– ±‚…— ±‚ ‘–©  LkŒ©  hŒ ©‘‚©ķ«}  F©  Œ 8Œ ±‚…– ±‚…— ±– ‘‚©  F O©  LkŒ©  hŒ ©‘‚©  F©  Œ 8Œ ±‚عx ‘‚©  F O©  LkŒ©  hŒ ©‘‚ķ¬}©  F©  Œ 8Œ ±‚ع„ ‘‚©  F O©  LkŒ©  hŒ ©‘‚©  F O©  Œ s©Ķ E L ±‚ ±‚©’*­*Šū© LkŒ©  hŒ ķ­}©‘‚ ŃC©ž ’ ‚©R  Œ 8Œ©ž ’ ‚©  Œ 8Œ ¬D©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ |A©ž ’ ‚©  Œ 8Œ©ž ’ ‚© ķ®}  Œ 8Œ©ž ’ ‚©  Œ 8Œ |A©ž ’ ‚©  Œ 8Œ©ž ’ ‚©   Œ 8Œ©ž ’ ‚©  Œ 8Œ |A©ü ‹ Œ©  Œ 8Œ©ž ‹ Œ©  Œ 8Œ©ł ‹ Œ©ķÆ}  Œ 5Œ©ś ‹ Œ©  Œ 8Œ© LkŒ©  hŒ ©‘‚©ž ‹ Œ O©   Œ nŒ©2 G L©ž ‹ Œ©  Œ 8ŒLPG©ž ‹ Œ©ž ‹ Œ O©  Œ Œ 8Œ©ü ķ°}‹ Œ©#  Œ©ž ‹ Œ O©  Œ Œ Œ©ž ‹ Œ O©  Œ Œ  Œ©   Œ Œ 8Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ ¼A©#  Œ©ž ‹ Œ ķ±}O©  Œ Œ Œ©  Œ©’ » Œ " wŒ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ ¼A©ü ‹ Œ O©  Œ©’ » Œ " wŒ©ž ’ ‚©   Œ 8Œ©ž ’ ‚ķ²}©   Œ 8Œ ¼A©ž ‹ Œ O©  Œ©’ » Œ " wŒ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ ¼A©’ » Œ " tŒ© LkŒ©  hŒ ©‘‚©ž ’ ‚© ķ³} Œ 8Œ©ž ’ ‚©   Œ 8Œ ¼A©ł ‹ Œ”•©•©3 I L©ł ‹ Œ©  Œ 5Œ© I ŒLIAus©’ » Œ "©  Œ©  }ŒLiI©ł ‹ Œ©  Œ 5Œ©N ķ“}I ŒLQIAn ©’ » Œ "©  Œ©  }Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ ¼A©’ » Œ " tŒ© LkŒ©  hŒ ©‘‚©ž ’ ‚©  Œ©  Œķµ} Œ 8Œ A©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ |A©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ |A©ž ’ ‚©ķ¶}  Œ 8Œ©ž ’ ‚©   Œ 8Œ©ž ’ ‚©  Œ 8Œ |A©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ |A©ž ’ ‚©'  Œ 8Œ©ž ’ ‚©ķ·}  Œ 8Œ©ž ’ ‚©  Œ 8Œ įA©ž ’ ‚©'  Œ 8Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ B©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©ķø}  Œ 8Œ B©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ dB© LkŒ©  hŒ ©‘‚©ž ’ ‚©   F O 8Œ©ž ’ ‚©  F O 8ķ¹}Œ©ž ’ ‚©  F 8Œ ØB©  F O©  Œ nŒ©ü K L©  F©  Œ 8ŒL L©  F©  Œ 8Œ©ž ’ ‚©   F O 8Œ©ž ’ ‚©  F O 8Œķŗ}©ž ’ ‚©  F O 8Œ įA©  LkŒ©  hŒ ©‘‚©ł ‹ Œ”•©•©ņ L L©ž ’ ‚©  Œ 8Œ©ž ’ ‚©Ł  Œ 8Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚ŹŹķ»}„€…”„…• ±”ČÉš±”Hȱ”…•h…”LŗL„”i •Č„•i• O©  Œ Œ 8Œ öB©ž ’ ‚©  F O 8Œ©ž ’ ‚©  F O 8Œ „K©ž ’ ‚ŹŹ„€…”„…• ķ¼}±”ČÉš±”Hȱ”…•h…”L.M„”i •Č„•i• O 8Œ E©ž ’ ‚©  F O 8Œ©ž ’ ‚©  F O©  Œ Œ 8Œ „K©ž ’ ‚ŹŹ„€…”„…• ±”ČÉš±ķ½}”Hȱ”…•h…”L¢M„”i •Č„•i• O 8Œ E©ž ’ ‚©  F O 8Œ©ž ’ ‚©  F O©  Œ Œ 8Œ „K©ž ’ ‚ŹŹ„€…”„…• ±”ČÉš±”Hȱ”…•h…ķ¾}”LN„”i •Č„•i• O 8Œ E©ž ’ ‚©  F O©  Œ Œ 8Œ©ž ’ ‚©  F O 8Œ „K©ž ’ ‚ŹŹ„€…”„…• ±”ČÉš±”Hȱ”…•h…”LŠN„”i ķæ}•Č„•i• O 8Œ E©ž ’ ‚©  F O©  Œ Œ 8Œ©ž ’ ‚©  F O©  Œ Œ 8Œ „K©ž ’ ‚ŹŹ„€…”„…• ±”ČÉš±”Hȱ”…•h…”LO„”iķĄ} •Č„•i• O 8Œ E©ž ’ ‚©  F O©  Œ Œ 8Œ©ž ’ ‚©  F O©  Œ Œ 8Œ „K©ž ’ ‚ŹŹ„€…”„…• ±”ČÉš±”Hȱ”…•h…”L†O„”ķĮ}i •Č„•i• O 8Œ E©ž ’ ‚©  F O©  Œ Œ 8Œ©ž ’ ‚©  F O 8Œ „K©ž ’ ‚ŹŹ„€…”„…• ±”ČÉš±”Hȱ”…•h…”LśO„”i •Č„•iķĀ}• O 8Œ E©ž ’ ‚©  F O©  Œ Œ 8Œ©ž ’ ‚©  F O©  Œ Œ 8Œ „K©ž ’ ‚ŹŹ„€…”„…• ±”ČÉš±”Hȱ”…•h…”LxP„”i •Č„•iķĆ}• O 8Œ E©ž ’ ‚©  F O©  Œ Œ 8Œ©ž ’ ‚©  F O©  Œ Œ 8Œ „K©ž ’ ‚ŹŹ„€…”„…• ±”ČÉš±”Hȱ”…•h…”LöP„”i •Č„•ķÄ}i• O 8Œ E©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ öB©  LkŒ©   hŒ ©‘‚©  Œ©#  Œ©ž ‹ ŒķÅ} O©  Œ Œ ŒµÕµI€…”µI€å”°ččččLUR©  2Œ©  2Œ©ž ’ ‚©ž ’ ‚©%  Œ 8Œ8„‚é…‚„ƒé…ƒ sC©  Œ Œ 8Œ©ž ’ ‚©ž ’ ‚© ķĘ} Œ 8Œ8„‚é…‚„ƒé…ƒ sC©  Œ Œ 8Œ SL©  °Œ©  °Œ ŌŒš ©  @LĖQ©  LkŒ©  hŒ ©‘‚©  F©  Œ 5Œ©  Œ©'  ŒµÕµķĒ}I€…”µI€å”°ččččLŽS©  2Œ©   2Œ©  Œ©  ŒµÕµI€…”µI€å”°ččččLqS©  2Œ©   2Œ©ž ’ ‚©   F O 8Œ©ž ’ ‚©   F O 8ķČ}Œ©ž ’ ‚©   F 8Œ ØB©   F O©  Œ nŒ©T S L©  F©  Œ 5Œ© XLŽS©   °Œ©  °Œ ŌŒš ©   @LäR©   °Œ©  °Œ ŌŒš ©  ķÉ} @LÆR©  F”•©•© LkŒ©  hŒ ©‘‚ ¢I©   F©  Œ 8Œ rQ©   F©  Œ 8Œ©  F©  Œ 8Œ©   F©   Œ 8Œ©ž ’ ‚© ķŹ} F O 8Œ©ž ’ ‚©   F O 8Œ©ž ’ ‚©   F 8Œ ØB©ž ’ ‚©  F O 8Œ©ž ’ ‚©   F O 8Œ©ž ’ ‚©  Œ 8Œ įA©ž ’ ‚©  Œ ķĖ}8Œ E©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ öB©ž ’ ‚©  F O 8Œ©ž ’ ‚©   F O 8Œ©ž ’ ‚© ķĢ}  F O 8Œ įA©ž ’ ‚©  Œ 8Œ E©ł ‹ Œ”•©•©ž ’ ‚©  Œ 8Œ8„‚é…‚„ƒé…ƒ E©  Œ s R©Ń U L©ž ’ ‚©  Œ 8Œ©ž ’ ‚ķĶ}©2  Œ 8Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ öB©ž ’ ‚©M  Œ 8Œ©ž ’ ‚©  Œ 8Œ ¬D©  F©ž ’ ‚©  Œ 8Œ8„‚é…‚„ƒé…ƒ EķĪ} 8Œ©  F O©  Œ nŒ© V LLwX©  F O©   Œ nŒ©V V L©   F©   F O©  Œ Œ 8ŒLwX©  F O©  Œ nŒ©’ V L©   ķĻ}F©   F O©  Œ Œ 8ŒLwX©  F O©  Œ nŒ©Ī V L©  F©  F O©  Œ Œ 8ŒLwX©  F O©  Œ nŒ©( W L©  F© ķŠ} F O©  Œ Œ 8Œ©   F©   F O©  Œ Œ 8ŒLwX©  F O©  Œ nŒ©‚ W L©  F©  F O©  Œ Œ 8Œ©   F©   F ķŃ}O©  Œ Œ 8ŒLwX©  F O©   Œ nŒ©¾ W L©  F©  F O©  Œ Œ 8ŒLwX©  F O©   Œ nŒ© X L©  F©  F O© ķŅ} Œ Œ 8Œ©   F©   F O©  Œ Œ 8ŒLwX©  F O©   Œ nŒ©r X L©  F©  F O©  Œ Œ 8Œ©   F©   F O©  Œ ķÓ}Œ 8ŒLwX© I©  F O©&  Œ ©£ X L©  F©  Œ 8Œ©  F O©  Œ ©Ļ X L©  F©&  Œ 8Œ©   F O©  Œ ©ū XķŌ} L©   F©  Œ 8Œ©   F O©  Œ ©' Y L©   F©  Œ 8Œ©ž ’ ‚©  Œ 8Œ8„‚é…‚„ƒé…ƒ RE©  Œ nŒ8„‚é…‚„ƒé…ƒ =C©ķÕ}  Œ s U©ū S L©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ öB©ž ’ ‚©  Œ 8Œ8„‚é…‚„ƒé…ƒ RE© ķÖ} Œ nŒ©8 Z L©ž ’ ‚©  F O 8Œ©ž ’ ‚©   F O 8Œ SL©ü ‹ Œ©ü ‹ Œ O©  Œ Œ 8Œ©  F8„‚é…‚„ƒé…ƒ \R 5Œ©ü ‹ Œ O©ķ×}  Œ nŒ©  F”•©• U8„‚é…‚„ƒé…ƒ =C©  Œ s U©ū S L©ž ’ ‚©  Œ 8Œ A©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©ķŲ}  Œ 8Œ |A©ž ’ ‚©  Œ 8Œ©ž ’ ‚©   Œ 8Œ©ž ’ ‚©  Œ 8Œ |A©ž ’ ‚©  Œ 8Œ©ž ’ ‚©   Œ 8Œ©ž ’ ‚©  Œ 8Œ |A©  FķŁ}”•©•©• \ L©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ ¼A©— [ ŒL¤[ Ā Ņ Į Ö Ļ ” ©’ » Œ "©   Œ©   }Œ tŒ©ž ’ ‚©   Œ 8Œ©ž ’ ķŚ}‚©   Œ 8Œ ¼A©ī [ ŒL\Du hast es geschafft©’ » Œ "©  Œ©  }Œ tŒ©' \ ŒL;\ Du hattest noch ©’ » Œ "©  Œ©  }ķŪ}Œ©ü ‹ Œ O©  Œ wŒ©q \ ŒL\ Versuche ueber.©  Œ©  }Œ tŒL(^©ü ‹ Œ O©  Œ nŒ©Ä ] L©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  ŒķÜ} 8Œ ¼A©ß \ ŒL]Du hast leider keinen Versuch mehr.©’ » Œ "©#  Œ©#  }Œ tŒ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©   Œ 8Œ ¼A©L ] ŒLt]ķŻ}Vielleicht versuchst du es mal mit einem©’ » Œ "©(  Œ©(  }Œ©– ] ŒL¦]leichteren Level©’ » Œ "©  Œ©  }Œ tŒL(^©ž ’ ķŽ}‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ ¼A©ó ] ŒL ^Schade, dass du ausfgiebst©’ » Œ "©  Œ©  }Œ tŒ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  ķß}Œ 8Œ ¼A©W ^ ŒLn^Bitte drueck eine Taste©’ » Œ "©  Œ©  }Œ tŒ©  F8„‚é…‚„ƒé…ƒ D 5Œ© LkŒ©  hŒ ©‘‚ ŌE©Ä ^ ŒLķķą}^}Ńõįäņļķįīéį ŲÅ                          ©’ » Œ "©)  Œ©)  }Œ© _ ŒL7_             Øć© ±¹ø· āł Ķįņōéī Ėņéóćčéė©’ » Œ "ķį}©(  Œ©(  }Œ tŒ©\ _ ŒL|_Orginal ST GFA Basic Spiel von©’ » Œ "©   Œ©   }Œ tŒ©” _ ŒLÅ_Christan Zwicker Happy Compuķā}ter 7/87©’ » Œ "©$  Œ©$  }Œ tŒ©ź _ ŒL `Dieses Spiel ist in Kyan Pascal©’ » Œ "©   Œ©   }Œ tŒ©/ ` ŒL:`geschriebenķć}©’ » Œ "©   Œ©   }Œ tŒ©_ ` ŒL‡`Auf einem 24 * 39 Felder grossen Spiel-©’ » Œ "©(  Œ©(  }Œ tŒ©¬ ` ŒLŠ`feld befindķä}en sich Spielsteine (eine©’ » Œ "©$  Œ©$  }Œ tŒ©õ ` ŒLaSeite Rot andere Blau). Alle Steine©’ » Œ "©#  Œ©#  }Œ tŒ©ķå}= a ŒLaaliegen zu Anfang mit der Bauen Seite©’ » Œ "©$  Œ©$  }Œ tŒ©† a ŒLØanach oben. Ich drehe mehrere 3 * 3©’ » Œ "ķę}©"  Œ©"  }Œ tŒ©Ķ a ŒLńagrosse Felder um und Du muesst durch©’ » Œ "©$  Œ©$  }Œ tŒ© b ŒL9bAuswahl von ebenfalls 3 ķē}* 3 grossen©’ » Œ "©#  Œ©#  }Œ tŒ©^ b ŒLbFeldern dies rueckgaengig machen.©’ » Œ "©!  Œ©!  }Œ tŒ©ž ’ ‚©  Œ 8Œķč}©ž ’ ‚©  Œ 8Œ ¼A©É b ŒLąbBitte drueck eine Taste©’ » Œ "©  Œ©  }Œ tŒ©ų ‹ Œ8„‚é…‚„ƒé…ƒ D 5Œ© c ŒLHc}Ńõįäņļķįķé}īéį ŲÅ                          ©’ » Œ "©)  Œ©)  }Œ©j c ŒL’c             Øć© ±¹ø· āł Ķįņōéī Ėņéóćčéė©’ » Œ "©(  Œ©(ķź}  }Œ tŒ©· c ŒLÉcDu hattest noch ©’ » Œ "©  Œ©  }Œ©ü ‹ Œ O©  Œ wŒ©’ c ŒLd Versuche ueber.©  Œ©  }Œ tŒ©*ķė} d ŒL=dJetzt verdrehe ich ©’ » Œ "©  Œ©  }Œ©#  Œ©ž ‹ Œ O©  Œ Œ Œ©  Œ wŒ©‡ d ŒLŽd Felder©  Œ©  }Œ tŒķģ}©ü ‹ Œ©#  Œ©ž ‹ Œ O©  Œ Œ Œ©ž ‹ Œ O©  Œ Œ  Œ©   Œ Œ 8Œ©õ d ŒLżdDu hast ©’ » Œ "©  Œ©  }Œ©ü ‹ Œķķ} O©  Œ wŒ©3 e ŒL=e Versuche.©   Œ©   }Œ tŒ©X e ŒLde Ģevel: ©’ » Œ "©   Œ©   }Œ©ž ‹ Œ O©  Œ wŒ tŒ©ł ‹ ķī}Œ”•©•©Ū e L©³ e ŒL½e Ōon An ©’ » Œ "©   Œ©   }Œ tŒL f©å e ŒLļe Ōon Aus©’ » Œ "©   Œ©   }Œ tŒ© f ŒLf ķļ}Ótart©’ » Œ "©  Œ©  }Œ tŒ©A f ŒLHf Ånde©’ » Œ "©  Œ©  }Œ tŒ©m f ŒLxfDeine Wahl©’ » Œ "©   Œ©   }Œ tŒķš}©ų ‹ Œ©’ ’ ‚8„‚é…‚„ƒé…ƒ D 5Œ8„‚é…‚„ƒé…ƒ bD 5Œ©ų ‹ Œ”•©• 錩L  Œ ĖŒ©T  Œ ĖŒ©S  Œ ĖŒ ь©‚ g L©  F©ų ‹ Œ”ķń}•©• 8Œ©  F O©L  Œ nŒ©; g L öFL‚g©  F O©T  Œ nŒ©\ g L ²HL‚g©  F O©S  Œ nŒ©} g L ¤SL‚g© I©ų ‹ Œ”•ķņ}©• 錩E  Œ ĖŒ©S  Œ ĖŒ ь©“ f L©ų ‹ Œ”•©•©E  Œ nŒ© c L© LkŒ©  F O©S  Œ nŒ©} g L ¤SL‚g© I©ų ‹ Œ”•ģL’’ Zo¢’š - ©*6© 7©[ o Œ©…‚©Œ…ƒ¢ żfL: ¹™!ˆ÷ Ź G é  ¹‡™!ˆ÷ Ź 4 é  ¹„™!ˆ÷ Ź !¢©ņD© E© B©€H©Ińō} VäL ©B©D©!E©H©I Vä0Į8­!ķ!H­!ķ!I­!D­!E Vä0 é `¢©B©D©!E©J©K Vä`© B Vä`error lońõ}ading pascal library›D8:lib›€€€€ńö}ń÷}LYä©  hŒ ©‘‚©  F©  Œ 8Œ­Š ‘€©  F O© LkŒ©  hŒ ©‘ńų}‚©’Ū©!ü©w x Œ©  Œ©” " ŒL–"K:©  Œ ³Œ©Ū© LkŒ©  hŒ ©‘‚©w x Œ©  ¹Œ©  F©w x Œ”•©• 5Œ©  F”•©•ńł}© LkŒ©  hŒ ©‘‚©  F©  F”•©• 5Œ ±€)É`0)ߑ€©  F”•©•© LkŒ©  hŒ ©‘‚ ±‚…– ±‚…— ±‚ ‘–©  LkŒ© ńś} hŒ ©‘‚ ±‚ )…” ±‚ ”H©Ä…”©…•  ±‚)e”…”h ‘”©  LkŒ©  hŒ ©‘‚ ±‚…T ±‚…Uȱ‚…V©  LkŒńū}ńü}ńż}ńž}ń’}©  hŒ ©‘‚†”©1 ±€©h©@©©©©©  Yä0-©i©@©Ķ©#©Ķ ©#  Yä0 ©Ķ-"©ņ}#."¦”© LkŒ©  hŒ ©‘‚©  F©  Œ 8Œ†”©1  ±€©R©@ ±€ȱ€©­ Ŗ½!½!   ±€ ȱ€ ­ Š­ Éņ}° ©€©  ,"­ ‘€¦”©  F O©  LkŒ©  hŒ ©‘‚©  F©  Œ 8Œ†”©1  ±€©W©€ ±€ȱ€©­ Ŗ½!½ņ}!   ±€ ȱ€ ­ Š­ É° ©€©  ,"­ ‘€¦”©  F O©  LkŒ©  hŒ ©‘‚©  F©  Œ 8Œ†”©1 ±€©Q©©ņ} ,"­ ‘€¦”©  F O©  LkŒ©  hŒ ©‘‚© ( ŒL0(}Įģōåņīįōå Ņåįģéōł Ōčå Äõīēåļī           ©’ » Œ "©)  Œ©)  }Œ©R ( ņ}ŒLz(Ćčįņįćōåņ Ķļīéōļņ                       ©’ » Œ "©(  Œ©(  }Œ©œ ( ŒLÄ(            Øć© ±¹ø·  āł Ķįņōéī Ėņéóćčéė©’ » ņ}Œ "©(  Œ©(  }Œ©ę ( ŒL)                     įīä Šåōåņ Óįāįōč   ©’ » Œ "©(  Œ©(  }Œ tŒ© LkŒ©  hŒ ©‘‚©G ) ŒLO)ņ}ŲEnde©’ » Œ "©  Œ©  }Œ tŒ©t ) ŒL)Deine Wahl©’ » Œ "©   Œ©   }Œ tŒ©  F©’ ’ ‚8„‚é…‚„ƒé…ƒ ¬" 5Œ8„‚é…‚„ƒņ}酃 ö" 5Œ©  F”•©•© LkŒ©  hŒ ©‘‚©   F© * ŒL *AR CHAR!©ų ’ eŒ©  F©  Œ 5Œ©  Œ©  ŒµÕµI€…”µI€å”°ņ}ččččL+©  2Œ©  2Œ©€ ‹ Œ©  F O8µé•µé•©Õ©õ°© Iµu•µu•č蔕©•©   F©  F O8µé•µé•©Õ©ņ }õ°© Iµu•µu•č蔕©• s©ś * L©  F©  Œ 5Œ©  °Œ©  °Œ ŌŒš ©  @LW*©  F”•©•© LkŒ©   hŒ ©‘‚©ņ }  Œ©’ » Œ "©  Œ €Œ©   F O©  Œ Œ©  Œ wŒ©} + ŒL+ ©  Œ©  }Œ©€ ‹ Œ©   Œ©   F O Œ8µé•µé•©Õņ }©õ°© Iµu•µu•č蔕©•©  Œ nŒ© , L©ö + ŒL’+ist Frei!©’ » Œ "©   Œ©   }Œ tŒL(.©  Œ©   F O©  Œņ } Œ Œ©  Œ©   F O©  Œ Œ Œ©  Œ ŒµÕµI€…”µI€å”°ččččLr-©  2Œ©  2Œ©€ ‹ Œ©  F O8µé•µé•©Õ©õ°ņ }© Iµu•µu•č蔕©•©  Œ s©: - L©€ ‹ Œ©  F O8µé•µé•©Õ©õ°© Iµu•µu•č蔕©•©’ » Œ "©ņ}  Œ €ŒLU-©   Œ©’ » Œ "©  Œ €Œ©  °Œ©  °Œ ŌŒš ©  @LŠ,©€ ‹ Œ©   Œ©   F O Œ8µé•µé•©Õ©õ°© Iµņ}u•µu•č蔕©•©’  Œ nŒ©ż - L©Ū - ŒLß- OK©’ » Œ "©  Œ©  }Œ tŒL(.© . ŒL . LOST©’ » Œ "©  Œ©  }Œ tŒ©ņ}  LkŒ©  hŒ ©‘‚© x Œµi•µi•©  Œ 5Œ©  F© x Œµi•µi•© c Œ8µé•µéc•©’Õ©õ°© Iµu•µu•čņ}č 8Œ†” ±€…–ȱ€…—© Ž‘–  ±– ¢q–ČŠūꗬŠöŖ ±€…–ȱ€…— ŽŠ‘–¦”© LkŒ©  hŒ ©‘‚© x Œµi•µi•©  Œ 5Œ©  F© x Œņ}µi•µi•©  F O8µé•µéc•©’Õ©õ°© Iµu•µu•č蔕©•©  Œ©’  Œ 8Œ©  F O©  LkŒ©  hŒ ©‘‚© ņ} F©ž ’ ‚©  F O 8Œ8„‚é…‚„ƒé…ƒ ź.©  Œ Œ©ž ’ ‚©  F O©  Œ Œ 8Œ8„‚é…‚„ƒé…ƒ ź. Œ 8Œ©  F O©  LkŒ©  hŒņ} ©‘‚© x Œµi•µi•©  Œ 5Œ© x Œµi•µi•©  F O8µé•µéc•©’Õ©õ°© Iµu•µu•čč©  F O 5Œ©  ņ}LkŒ©  hŒ ©‘‚©ž ’ ‚©  F O 8Œ©ž ’ ‚©  F O©  Œ Œ 8Œ 0©ž ’ ‚©  F O©  Œ Œ 8Œ©ž ’ ‚©  F O©  Œ ņ}qŒ 8Œ 0©  LkŒ©  hŒ ©‘‚©ž ’ ‚©   F O©  Œ Œ 8Œ©ž ’ ‚©   F O 8Œ Ø#©  Œ©’ » Œ "©  Œ €Œ©  F©ž » Œ ņ} ¤Œ©  Œ©’  Œ 8Œ©ž ’ ‚©  F O 8Œ©ž ’ ‚©  F O 8Œ 0©  LkŒ©  hŒ ©‘‚©ž ’ ‚©   F O©  Œ Œ 8Œ©ž ’ ‚©   ņ}F O 8Œ Ø#©  Œ©’ » Œ "©  Œ €Œ©  F©ž » Œ  ¤Œ©  Œ©’  Œ 8Œ©ž ’ ‚©  F O 8Œ©ž ’ ‚©  F O 8Œ ž0©  LkŒņ}©   hŒ ©‘‚ š'©Ø 2 ŒL·2Lade Character:©’ » Œ "©  Œ©  }Œ tŒ©ž ’ ‚©   F O 8Œ -+© x Œµi•µi•©  Œ 5Œ© ņ} Œ©(  ŒµÕµI€…”µI€å”°ččččLś3©  2Œ©  2Œ©} x Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  F O©   F O©ø  Œ Œ Œ 8Œ©ž ’ ‚©ņ} x Œµi•µi•©  F O8µé•µé•©%Õ©õ°© I©€  ”Œ 8Œ8„‚é…‚„ƒé…ƒ f& 8Œ©  °Œ©  °Œ ŌŒš ©  @L<3© x Œµiņ}•µi•©  Œ 5Œ©  LkŒ©   hŒ ©‘‚ š'©9 4 ŒLL4Schreibe Character:©’ » Œ "©  Œ©  }Œ tŒ©ž ’ ‚©   F O 8Œ -+©ˆ 4ņ} ŒL™4Alte Pruefsumme:©’ » Œ "©  Œ©  }Œ©ž ’ ‚©Ž c Œ 8Œ8„‚é…‚„ƒé…ƒ ź.©  Œ wŒ tŒ /.©ģ 4 ŒLü4Neue Pruefsumme:©’ ņ}» Œ "©  Œ©  }Œ©ž ’ ‚©Ž c Œ 8Œ8„‚é…‚„ƒé…ƒ ź.©  Œ wŒ tŒ© x Œµi•µi•©  Œ 5Œ©  Œ©(  ŒµÕµI€…”µI€ņ}唰ččččLS6©  2Œ©  2Œ©} x Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  F O©   F O©ø  Œ Œ Œ 8Œ©ž ’ ‚© x Œµi•µi•©  Fņ } O8µé•µé•©%Õ©õ°© I©€  ”Œ 8Œ8„‚é…‚„ƒé…ƒ ’& 8Œ©  °Œ©  °Œ ŌŒš ©  @L•5©} x Œ©ž ’ ‚©  Œ 8Œ8„‚é…‚„ƒéņ!}…ƒ ˜' 8Œ© x Œµi•µi•©  Œ 5Œ©  LkŒ©  hŒ ©‘‚©ž ’ ‚©   F O©  Œ Œ 8Œ8„‚é…‚„ƒé…ƒ /©  Œ ©e 7 L© ņ"} F AŒU6©ž ’ ‚©   F O 8Œ8„‚é…‚„ƒé…ƒ / DŒ _Œ©ž ’ ‚©   F O©  Œ Œ 8Œ8„‚é…‚„ƒé…ƒ / DŒ YŒ MŒLę7©  F AŒņ#}U6©ž ’ ‚©   F O 8Œ8„‚é…‚„ƒé…ƒ / DŒ _Œ©ž ’ ‚©   F O©  Œ Œ 8Œ8„‚é…‚„ƒé…ƒ / DŒ YŒ AŒU6 YŒ MŒ©  Fņ$} JŒ© LkŒ©   hŒ ©‘‚©ž ’ ‚©  F O©  Œ Œ 8Œ©ž ’ ‚©  F O 8Œ Ø#©  Œ©’ » Œ "©  Œ €Œ©  F©ž » Œ  §Œ©žņ%} ’ ‚©   F O 8Œ©ž ’ ‚©  F JŒ AŒU6 bŒ SŒ 8Œ ž0©  F©  F JŒ©  F JŒ AŒU6 bŒ SŒ AŒU6 GŒ _Œ \Œ MŒņ&}©  F JŒ©’  Œ DŒ ’Œ©N 9 L©ž ’ ‚©   F O©  Œ Œ 8Œ©ž ’ ‚©  F JŒ AŒU6 \Œ SŒ 8Œ ž0L†9©ž ’ ‚©   F O©  ņ'}Œ Œ 8Œ©ž ’ ‚©  F JŒ SŒ 8Œ ž0© LkŒ©  hŒ ©‘‚©ž ’ ‚©  F O 8Œ8„‚é…‚„ƒé…ƒ ź.©  Œ©’ » Œ " wŒ©ž ’ ‚©  F ņ(}O©  Œ Œ 8Œ8„‚é…‚„ƒé…ƒ ź.©  Œ wŒ© : ŒL: +/-: 0©  Œ©  }Œ tŒ© LkŒ©  hŒ ©‘‚©ž ’ ‚©   F O©  Œ Œ 8ņ)}Œ©ž ’ ‚©   F O 8Œ Ø#©  Œ©’ » Œ "©  Œ €Œ©  F©ž » Œ  ¤Œ 8Œ©ž ’ ‚©  F O 8Œ©ž ’ ‚©ž ’ ‚©  F O 8Œ8„‚éņ*}…‚„ƒé…ƒ ź.©  F O Œ 8Œ 0©ž ’ ‚©  F O©  Œ Œ 8Œ©ž ’ ‚©ž ’ ‚©  F O©  Œ Œ 8Œ8„‚é…‚„ƒé…ƒ ź.©  F O ņ+} Œ 8Œ 0©  LkŒ©  hŒ ©‘‚ š'© ; ŒL”;ĮCharacter Level:©’ » Œ "©  Œ©  }Œ©ž ’ ‚©< c Œ 8Œ8„‚é…‚„ƒé…ƒ ź.©  Œ ņ,}wŒ tŒ©ä ; ŒL÷;ĀExperience :©’ » Œ "©  Œ©  }Œ©ž ’ ‚©= c Œ 8Œ8„‚é…‚„ƒé…ƒ £6©   Œ©  Œ †Œ tŒ©N < ŒLa<ĆLņ-}evel wechsel :©’ » Œ "©  Œ©  }Œ©ž ’ ‚©A c Œ 8Œ8„‚é…‚„ƒé…ƒ £6©   Œ©  Œ †Œ tŒ©ø < ŒLĖ<ÄHitpoint :©’ »ņ.} Œ "©  Œ©  }Œ©ž ’ ‚©E c Œ 8Œ8„‚é…‚„ƒé…ƒ /©  Œ wŒ tŒ© = ŒL.=ÅHitpoint max :©’ » Œ "©  Œ©  }Œ©ž ’ ‚ņ/}©G c Œ 8Œ8„‚é…‚„ƒé…ƒ /©  Œ wŒ tŒ©~ = ŒL„=ĘSTA©’ » Œ "©  Œ©  }Œ©ž ’ ‚©I c Œ 8Œ 9©ŗ = ŒLĄ=ĒCHR©’ » Œ "ņ0}©  Œ©  }Œ©ž ’ ‚©Q c Œ 8Œ 9©ö = ŒLü=ČSTR©’ » Œ "©  Œ©  }Œ©ž ’ ‚©Y c Œ 8Œ 9©2 > ŒL8>ÉINT©’ » Œ "© ņ1} Œ©  }Œ©ž ’ ‚©a c Œ 8Œ 9©n > ŒLt>ŹWIS©’ » Œ "©  Œ©  }Œ©ž ’ ‚©i c Œ 8Œ 9©Ŗ > ŒL°>ĖSKL©’ » Œ "©  Œ©ņ2}  }Œ©ž ’ ‚©q c Œ 8Œ 9©ę > ŒLģ>ĢSPD©’ » Œ "©  Œ©  }Œ©ž ’ ‚©y c Œ 8Œ 9©" ? ŒL5?ĶMoral :©’ » Œ "©ņ3}  Œ©  }Œ©ž ’ ‚©… c Œ 8Œ8„‚é…‚„ƒé…ƒ ź.©  Œ wŒ tŒ©  F8„‚é…‚„ƒé…ƒ 0) 5Œ©  F”•©• 錩A  Œ©M  Œ ĪŒ ь©$ņ4} D L©  F©  F”•©• 8Œ©  F O©A  Œ nŒ©/ @ L©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©< c Œ 8Œ &1L$D©  F O©ņ5}B  Œ nŒ©ƒ @ L©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©= c Œ 8Œ ÷7L$D©  F O©C  Œ nŒ©× @ L©ž ’ ‚©  Œ 8Œ©ž ’ ‚©ņ6}  Œ 8Œ©ž ’ ‚©A c Œ 8Œ ÷7L$D©  F O©D  Œ nŒ©+ A L©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©E c Œ 8Œ Ś1L$D©  F Oņ7}©E  Œ nŒ© A L©ž ’ ‚©  Œ 8Œ©ž ’ ‚©   Œ 8Œ©ž ’ ‚©G c Œ 8Œ Ś1L$D©  F O©F  Œ nŒ©Ó A L©ž ’ ‚©  Œ 8Œ©ž ’ ‚ņ8}©   Œ 8Œ©ž ’ ‚©I c Œ 8Œ 4:L$D©  F O©G  Œ nŒ©' B L©ž ’ ‚©  Œ 8Œ©ž ’ ‚©   Œ 8Œ©ž ’ ‚©Q c Œ 8Œ 4:L$D©  Fņ9} O©H  Œ nŒ©{ B L©ž ’ ‚©  Œ 8Œ©ž ’ ‚©   Œ 8Œ©ž ’ ‚©Y c Œ 8Œ 4:L$D©  F O©I  Œ nŒ©Ļ B L©ž ’ ‚©  Œ 8Œ©ž ’ņ:} ‚©   Œ 8Œ©ž ’ ‚©a c Œ 8Œ 4:L$D©  F O©J  Œ nŒ©# C L©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©i c Œ 8Œ 4:L$D©  ņ;}F O©K  Œ nŒ©w C L©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©q c Œ 8Œ 4:L$D©  F O©L  Œ nŒ©Ė C L©ž ’ ‚©  Œ 8Œ©žņ<} ’ ‚©  Œ 8Œ©ž ’ ‚©y c Œ 8Œ 4:L$D©  F O©M  Œ nŒ© D L©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©… c Œ 8Œ &1L$D© ņ=}I©  F”•©•©X  Œ nŒ©t ; L© LkŒ©  hŒ ©‘‚ š'©e D ŒLwDĮGold :©’ » Œ "©  Œ©  }Œ©ž ’ ‚©  F Oņ>} 8Œ8„‚é…‚„ƒé…ƒ /©  Œ wŒ tŒ©Ź D ŒLÜDĀSilber :©’ » Œ "©  Œ©  }Œ©ž ’ ‚©  F O©  Œ Œ 8Œ8„‚é…‚„ƒéņ?}…ƒ /©  Œ wŒ tŒ©9 E ŒLKEĆCopper :©’ » Œ "©  Œ©  }Œ©ž ’ ‚©  F O©  Œ Œ 8Œ8„‚é…‚„ƒé…ƒ /©  Œ ņ@}wŒ tŒ©Ø E ŒLŗEÄGems :©’ » Œ "©  Œ©  }Œ©ž ’ ‚©  F O©  Œ Œ 8Œ8„‚é…‚„ƒé…ƒ /©  Œ wŒ tŒ© F ŒL)ņA}FÅJuwels :©’ » Œ "©  Œ©  }Œ©ž ’ ‚©  F O©  Œ Œ 8Œ8„‚é…‚„ƒé…ƒ /©  Œ wŒ tŒ©† F ŒL˜FĘFoot PackeņB}ts :©’ » Œ "©  Œ©  }Œ©ž ’ ‚©  F O©   Œ Œ 8Œ8„‚é…‚„ƒé…ƒ ź.©  Œ wŒ tŒ©õ F ŒLGĒWater Flask :©’ » Œ "ņC}©  Œ©  }Œ©ž ’ ‚©  F O©   Œ Œ 8Œ8„‚é…‚„ƒé…ƒ ź.©  Œ wŒ tŒ©d G ŒLvGČUnlit Torches :©’ » Œ "©  Œ©  }ņD}Œ©ž ’ ‚©  F O©   Œ Œ 8Œ8„‚é…‚„ƒé…ƒ ź.©  Œ wŒ tŒ©Ó G ŒLåGÉCrystals :©’ » Œ "©  Œ©  }Œ©ž ’ ‚©  FņE} O©   Œ Œ 8Œ8„‚é…‚„ƒé…ƒ ź.©  Œ wŒ tŒ©B H ŒLTHŹKeys :©’ » Œ "©  Œ©  }Œ©ž ’ ‚©  F O©  Œ ŒņF} 8Œ8„‚é…‚„ƒé…ƒ ź.©  Œ wŒ tŒ©± H ŒLĆHĖCompasses :©’ » Œ "©  Œ©  }Œ©ž ’ ‚©  F O©  Œ Œ 8Œ8„‚é…‚„ƒéņG}…ƒ ź.©  Œ wŒ tŒ©  I ŒL2IĢTimepieces :©’ » Œ "©  Œ©  }Œ©ž ’ ‚©  F O©  Œ Œ 8Œ8„‚é…‚„ƒé…ƒ ź.©  Œ wņH}Œ tŒ©  F8„‚é…‚„ƒé…ƒ 0) 5Œ©  F©  F”•©•©A  Œ Œ 8Œ©  F”•©• 錩A  Œ©E  Œ ĪŒ ь©L J L©ž ’ ‚©  Œ ņI}8Œ©ž ’ ‚©  Œ©  F O Œ 8Œ©ž ’ ‚©  F O©  Œ©  F O Œ Œ 8Œ Ś1©  F©  F O©  Œ Œ 8Œ©  F”•©• éņJ}Œ©F  Œ©L  Œ ĪŒ ь©ą J L©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  F O 8Œ©ž ’ ‚©  F O©  F O Œ 8Œ &1©  F”•©•©X  Œ nņK}Œ©X D L©  LkŒ©  hŒ ©‘‚©  F©  Œ 5ŒŹŹ„€…”„…• ±”ČÉš±”Hȱ”…•h…”L/K„”i•Č„•i• OŹŹ„€…”„…• ±”ČÉš±”Hȱ”…•h…”ņL}LaK„”i •Č„•i•ŹŹ„€…”„…• ±”ČÉš±”Hȱ”…•h…”LK„”i'•Č„•i• O©Õ©õ°© I6µu•µu•čč O ŹŹ„€…”„…• ±”ČÉšņM}±”Hȱ”…•h…”LźK„”i•Č„•i• O©  Œ  U©7 L L©  F©  Œ 5ŒŹŹ„€…”„…• ±”ČÉš±”Hȱ”…•h…”LAL„”i#•Č„•i• OŹŹ„€…”ņN}„…• ±”ČÉš±”Hȱ”…•h…”LsL„”i •Č„•i•ŹŹ„€…”„…• ±”ČÉš±”Hȱ”…•h…”L¢L„”i'•Č„•i• O©Õ©õ°© I6µu•µu•ččņO} O ŹŹ„€…”„…• ±”ČÉš±”Hȱ”…•h…”LüL„”i#•Č„•i• O©  Œ  U©I M L©  F©  Œ 5Œ©  F”•©• ;Œ©ś N L š'©o MņP} ŒLMEine solche Position ist nicht©’ » Œ "©  Œ©  }Œ tŒ©² M ŒL»Mmoeglich.©’ » Œ "©   Œ©   }Œ tŒ©ą M ŒLNBitteņQ} schlagen sie im Handbuch Seite 9©’ » Œ "©'  Œ©'  }Œ tŒ©, N ŒLQNnach um zu Erfahren welche positionen©’ » Œ "©%  Œ©ņR}%  }Œ tŒ©v N ŒL„Nmoeglich sind.©’ » Œ "©  Œ©  }Œ tŒ©© N ŒL¾NDruecken sieÓōįņō.©’ » Œ "©  Œ©  }Œ tŒ8„‚é…‚ņS}„ƒé…ƒ /"©  Œ s©Ł N L©  F©  F”•©• 5Œ©  F”•©•© LkŒ©)  hŒ ©‘‚©   F©  Œ©Õ©õ°© I6µu•ņT}µu•čč©  Œ 8Œ©   F©  Œ©Õ©õ°© I6µu•µu•čč©  Œ 8Œ©   F©  Œ©Õ©õ°© I6µu•µu•ččņU}©  Œ 8Œ©   F©  Œ©Õ©õ°© I6µu•µu•čč©  Œ 8Œ©   F©  Œ©Õ©õ°© I6µu•µu•čč©  Œ 8ņV}Œ©   F©  Œ©Õ©õ°© I6µu•µu•čč©  Œ 8Œ©   F©  Œ©Õ©õ°© I6µu•µu•čč©  Œ 8Œ š'©'  ņW}F©ž ’ ‚© c Œ 8Œ8„‚é…‚„ƒé…ƒ ź. 8Œ©  F©ž ’ ‚© c Œ 8Œ8„‚é…‚„ƒé…ƒ ź. 8Œ©#  F©ž ’ ‚© c Œ 8Œ8„‚é…‚„ƒé…ƒ ź. 8Œ©ņX}   F©'  F O 8Œ©   F O©  Œ nŒ©Ļ Q L©%  F©  Œ 8Œ©!  F©#  F O 8Œ©  F©  Œ©  F O Œ©   Œ Œ 8ŒL8ņY}T©   F O©  Œ nŒ©D R L©%  F©  Œ 8Œ©!  F©#  F O©   Œ Œ 8Œ©  F©  Œ©  F O Œ©   Œ Œ 8ŒL8T©   FņZ} O©  Œ nŒ©„ R L©%  F©  Œ 8Œ©!  F©#  F O 8Œ©  F©  Œ©  F O Œ 8ŒL8T©   F O©  Œ nŒ© S L©%  F©ņ[}  Œ 8Œ©!  F©#  F O©   Œ Œ 8Œ©  F©  Œ©  F O Œ 8ŒL8T©   F O©  Œ nŒ©q S L©%  F©  Œ 8Œ©!  F©#ņ\}  F O 8Œ©  F©  Œ©  F O Œ 8ŒL8T©   F O©  Œ nŒ©Ņ S L©%  F©  Œ 8Œ©!  F©#  F O 8Œ©  F©  Œ© ņ]} F O Œ 8ŒL8T©   F O©  Œ nŒ©3 T L©%  F©  Œ 8Œ©!  F©#  F O 8Œ©  F©  Œ©  F O Œ 8ŒL8T© I©B T Œņ^}LRTIntene Position:©’ » Œ "©  Œ©  }Œ tŒ©w T ŒL‡TĮAuf Plan :©’ » Œ "©  Œ©  }Œ©'  F O©  Œ wŒ tŒ©Ą T ņ_}ŒLĻTĀNach Sueden:©’ » Œ "©  Œ©  }Œ©  F O©  Œ wŒ tŒ© U ŒLUĆNach Osten :©’ » Œ "©  Œ©  }Œ©#  F Oņ`}©  Œ wŒ tŒ©P U ŒL`USpiel Position:©’ » Œ "©  Œ©  }Œ tŒ©… U ŒL•UÄIn Level :©’ » Œ "©  Œ©  }Œ©%  F Oņa}©  Œ wŒ tŒ©Ī U ŒLŻUÅNach Norden:©’ » Œ "©  Œ©  }Œ©  F O©  Œ wŒ tŒ© V ŒL%VĘNach Osten :©’ » Œ "© ņb} Œ©  }Œ©!  F O©  Œ wŒ tŒŹŹ„€…”„…• ±”ČÉš±”Hȱ”…•h…”L^V„”i•Č„•i•8„‚é…‚„ƒé…ƒ 0) 5ŒŹŹ„€…”„…• ±”ČÉš±”Hȱ”…ņc}•h…”L V„”i•Č„•i•”•©• 錩A  Œ©F  Œ ĪŒ ь©ś ^ L©  FŹŹ„€…”„…• ±”ČÉš±”Hȱ”…•h…”LüV„”i•Č„•i•”•©• 8Œ©ņd}  F O©A  Œ nŒ©ą W L©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ Ø#©  Œ©’ » Œ "©  Œ €Œ©'  F©ž » Œ  ¤Œ 8Œ8„‚é…‚„ƒé…ņe}ƒ K©Ż W L©ž ’ ‚© c Œ 8Œ©ž ’ ‚©'  F O 8Œ 0Lś^©  F O©B  Œ nŒ©” X L©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ Ø#©  Œņf}©’ » Œ "©  Œ €Œ©  F©ž » Œ  ¤Œ 8Œ8„‚é…‚„ƒé…ƒ K©‘ X L©ž ’ ‚© c Œ 8Œ©ž ’ ‚©  F O 8Œ 0Lś^©  F O©C  ņg}Œ nŒ©H Y L©ž ’ ‚©  Œ 8Œ©ž ’ ‚©   Œ 8Œ Ø#©  Œ©’ » Œ "©  Œ €Œ©#  F©ž » Œ  ¤Œ 8Œ8„‚é…‚„ƒé…ƒ K©E Y L©ž ’ņh} ‚© c Œ 8Œ©ž ’ ‚©#  F O 8Œ 0Lś^©  F O©D  Œ nŒ©ģ Z L©ž ’ ‚©  Œ 8Œ©ž ’ ‚©   Œ 8Œ Ø#©  Œ©’ » Œ "©  ņi}Œ €Œ©%  F©ž » Œ  ¤Œ 8Œ©  F©%  F O 8Œ©  F O©  Œ nŒ© Z L©'  F O©  Œ © Z L©'  F©  Œ 8ŒLŖZ© ņj} F O©  Œ nŒ©G Z L©'  F©  Œ 8ŒLŖZ©  F O©  Œ nŒ©v Z L©'  F©  Œ 8ŒLŖZ©  F O©  Œ nŒ©„ Z L©'  Fņk}©  Œ 8ŒLŖZ© I8„‚é…‚„ƒé…ƒ K©é Z L©ž ’ ‚© c Œ 8Œ©ž ’ ‚©'  F O 8Œ 0Lś^©  F O©E  Œ nŒ©  ] L©ž ’ ‚©  Œņl} 8Œ©ž ’ ‚©  Œ 8Œ Ø#©  Œ©’ » Œ "©  Œ €Œ©  F©ž » Œ  ¤Œ 8Œ©%  F O©  Œ nŒ©  F O©   Œ  R©ź [ L©ņm}  F©  Œ©  F O Œ 8Œ©'  F O©  Œ ©ē [ L©'  F©'  F O©  Œ Œ 8ŒL¶\©%  F O©  Œ nŒ©i \ L©  F© ņn} Œ©  F O Œ©   Œ Œ 8Œ©'  F O©  Œ ©f \ L©'  F©'  F O©  Œ Œ 8ŒL¶\©  F©   F©'  F O©Õ©õ°©ņo} I6µu•µu•čč O©  F O Œ 8Œ8„‚é…‚„ƒé…ƒ K© ] L©ž ’ ‚© c Œ 8Œ©ž ’ ‚©  F O 8Œ 0©ž ’ ‚© c Œ 8Œ©ž ņp}’ ‚©'  F O 8Œ 0Lś^©  F O©F  Œ nŒ©õ ^ L©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ Ø#©  Œ©’ » Œ "©  Œ €Œ©!  F©ž »ņq} Œ  ¤Œ 8Œ©%  F O©  Œ nŒ©!  F O©  Œ  R©. ^ L©#  F©!  F O©   Œ Œ 8Œ©'  F O 錩  Œ ĖŒ©  Œ ĖŒņr} ь©+ ^ L©'  F©'  F O©  Œ Œ 8ŒL‹^©#  F©!  F O 8Œ©'  F O 錩  Œ ĖŒ©  Œ ĖŒ ь©‹ ^ L©'  F©'  F O©ņs}  Œ Œ 8Œ8„‚é…‚„ƒé…ƒ K©ņ ^ L©ž ’ ‚© c Œ 8Œ©ž ’ ‚©#  F O 8Œ 0©ž ’ ‚© c Œ 8Œ©ž ’ ‚©'  F O 8Œ 0Lś^© IŹŹ„ņt}€…”„…• ±”ČÉš±”Hȱ”…•h…”L_„”i•Č„•i•”•©•©X  Œ nŒ©Ģ P L©) LkŒ©  hŒ ©‘‚©ž ’ ‚©  F O 8Œ Ž2 š'©ž ’ ‚© ņu} F O 8Œ -+©‘ _ ŒL¤_Was moechten Sie?©’ » Œ "©  Œ©  }Œ tŒ©É _ ŒLŅ_Śustand©’ » Œ "©   Œ©   }Œ tŒ©÷ _ ŒL`ņv}Įusruestung©’ » Œ "©   Œ©   }Œ tŒ©( ` ŒL;`Ēilden Ausruestung©’ » Œ "©  Œ©  }Œ tŒ©` ` ŒLi`Šosition©’ » Œ "©ņw}   Œ©   }Œ tŒ©Ž ` ŒLœ`Ģese von Disk©’ » Œ "©  Œ©  }Œ tŒ©Į ` ŒLŌ`Óchreiben auf Disk©’ » Œ "©  Œ©  }Œ tŒ©łņx} ` ŒLž`Ånde©’ » Œ "©  Œ©  }Œ tŒ©# a ŒL.aDeine Wahl©’ » Œ "©   Œ©   }Œ tŒ©  F©’ ’ ‚8„‚é…‚„ƒé…ƒ ¬" 5Œ8„‚éņy}…‚„ƒé…ƒ ö" 5Œ©  F”•©• 錩Z  Œ ĖŒ©A  Œ ĖŒ©G  Œ ĖŒ©P  Œ ĖŒ©L  Œ ĖŒ©S  Œ ĖŒ ь© c L©  F©  F”•©•ņz} 8Œ©  F O©Z  Œ nŒ© b L g;Lc©  F O©A  Œ nŒ©A b L©ž ’ ‚©± c Œ 8Œ KDLc©  F O©G  Œ nŒ©s b L©ž ’ ‚©q u ņ{}Œ 8Œ KDLc©  F O©P  Œ nŒ©” b L )OLc©  F O©L  Œ nŒ©É b L©ž ’ ‚©  F O 8Œ Ž2Lc©  F O©S  Œ nŒ©ž b L©ņ|}ž ’ ‚©  F O 8Œ 4Lc© I©  F”•©•©E  Œ nŒ©m _ L©  LkŒ©  hŒ ©‘‚ š'©ž ’ ‚©  F O 8Œ -+©[ c ŒL€cIhr Cņ}}haracter ist "LOST", wuenschen©’ » Œ "©%  Œ©%  }Œ tŒ©„ c ŒL°cdas ich ihn©’ » Œ "©   Œ©   }Œ tŒ©Õ c ŒLķc×iederbņ~}elebe, nur zum©’ » Œ "©  Œ©  }Œ tŒ© d ŒL!dĮenderen lade,©’ » Œ "©  Œ©  }Œ tŒ©F d ŒLXdĀeides mache oder©’ »ņ} Œ "©  Œ©  }Œ tŒ©} d ŒL„dĪichts©’ » Œ "©  Œ©  }Œ tŒ©© d ŒL“dDeine Wahl©’ » Œ "©   Œ©   }Œ tŒ©x x Œ©’ ņ€}’ ‚8„‚é…‚„ƒé…ƒ ¬" 5Œ8„‚é…‚„ƒé…ƒ ö" 5Œ©x x Œ”•©• 錩W  Œ ĖŒ©B  Œ ĖŒ ь©Æ f L©€ ‹ Œ©   Œ©  F O Œ8µé•µņ}é•©Õ©õ°© Iµu•µu•čč©’  Œ 5Œ©€ ‹ Œ©   Œ©  F O Œ8µé•µé•©Õ©õ°© Iµu•µu•čč©’  Œ 5Œņ‚}©} x Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©€ ‹ Œ 8Œ8„‚é…‚„ƒé…ƒ ’& 8Œ©} x Œ©ž ’ ‚©  Œ 8Œ8„‚é…‚„ƒé…ƒ ˜' 8Œ©} x ņƒ}Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©€ ‹ Œ 8Œ8„‚é…‚„ƒé…ƒ f& 8Œ©ž ’ ‚©{ x Œ O 8Œ -+©x x Œ”•©• 錩A  Œ ĖŒ©Bņ„}  Œ ĖŒ ь©ö f L©ž ’ ‚©  F O 8Œ I_© LkŒ©  hŒ ©‘‚ e"©ž ’ ‚©  Œ 8Œ ķ%©ž ’ ‚©š  Œ 8Œ©ž ’ ‚©  Œ 8Œ @#©ž ’ņ…} ‚©R  Œ 8Œ©ž ’ ‚©  Œ 8Œ @#©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ h#©ž ’ ‚©  Œ 8Œ©ž ’ ‚©   Œ 8Œ©ž ’ņ†} ‚©  Œ 8Œ h#©ž ’ ‚©  Œ 8Œ©ž ’ ‚©   Œ 8Œ©ž ’ ‚©  Œ 8Œ h# š'© h ŒL@hDiese Programm ist in Kyan Pascal ge-©’ »ņ‡} Œ "©&  Œ©&  }Œ tŒ©e h ŒLohschrieben.©’ » Œ "©   Œ©   }Œ tŒ©” h ŒL³hAuf einer Speedy 1050 wird die©’ » Œ "© ņˆ} Œ©  }Œ tŒ©Ų h ŒLžhDisk I/O in Ultra Speed durchgefuehrt.©’ » Œ "©&  Œ©&  }Œ tŒ©# i ŒLJiACHTUNG! Range und Input Eņ‰}rrors werden©’ » Œ "©'  Œ©'  }Œ tŒ©o i ŒL–inicht abgefangen. Also erst Denken dann©’ » Œ "©'  Œ©'  }Œ tŒ©» i ŒLŪiņŠ}Aendern. Grenzen: 255 oder 32767©’ » Œ "©   Œ©   }Œ tŒ© j ŒL(jBitte legen sie ihre Altenate Reality,©’ » Œ "©(  ņ‹}Œ©(  }Œ tŒ©M j ŒLpjThe Dungeon, Character Disk ein und©’ » Œ "©#  Œ©#  }Œ tŒ©• j ŒL©jdruecken sieÓōįņō.©’ » Œ "©ņŒ}  Œ©  }Œ tŒ8„‚é…‚„ƒé…ƒ /"©  Œ s©Ä j L©} x Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©  Œ 8Œ©ž ’ ‚©€ ‹ Œ 8Œ8„‚é…‚„ƒé…ƒ f& 8Œņ}8„‚é…‚„ƒé…ƒ ä)©ģ m L š'©  Œ©  ŒµÕµI€…”µI€å”°ččččL½kµuxµvxččµ{xµ|xčč©ž ’ ‚©{ x Œ O 8Œ -+­{xĶuxŠ­|xĶvņŽ}xš ī{xŠī|xL‹k©Ē k ŒLčkWelchen Character modifizieren?©’ » Œ "©!  Œ©!  }Œ tŒ©  l ŒLl0 fuer Keinen!©’ » Œ "©  Œņ}©  }Œ tŒ©x x Œ©’ ’ ‚8„‚é…‚„ƒé…ƒ ¬" 5Œ8„‚é…‚„ƒé…ƒ ö" 5Œ©x x Œ”•©•©0  Œ ©x x Œ”•©•©4  Œ 7 R©6 l L©y ņ}x Œ©x x Œ”•©•©0  Œ Œ 8Œ©y x Œ O©  Œ s©€ ‹ Œ©  Œ©y x Œ O Œ8µé•µé•©Õ©õ°© Iµu•µu•č蔕ņ‘}©•©  Œ s R©é m L©€ ‹ Œ©  Œ©y x Œ O Œ8µé•µé•©Õ©õ°© Iµu•µu•č蔕©•©  Œ nŒ©Å m L©ž ’ ņ’}‚©y x Œ O©  Œ Œ 8Œ *c š'Lém©ž ’ ‚©y x Œ O©  Œ Œ 8Œ I_ š'L+n š'©ł m ŒLnKeine Character Disk!©’ » Œ "©  ņ“}Œ©  }Œ tŒ©5 n ŒLCnWuenschen Sie:©’ » Œ "©  Œ©  }Œ tŒ©h n ŒL€nĪeustart des Programms©’ » Œ "©  Œ©  }Œ tŒ©„ņ”} n ŒLµnĀoot einer Disk©’ » Œ "©  Œ©  }Œ tŒ©Ś n ŒLånDeine Wahl©’ » Œ "©   Œ©   }Œ tŒ©x x Œ©’ ’ ‚8„‚é…‚„ƒé…ņ•}ƒ ¬" 5Œ8„‚é…‚„ƒé…ƒ ö" 5Œ©x x Œ”•©•©B  Œ nŒ©  h L© LkŒne Wahl©’ » Œ "©   Œ©   }Œ tŒ©x x Œ©’ ’ ‚8„‚é…‚„ƒé…šAprocedure textmode;›› begin›#a› TXA› PHA›› LDX #$60› LDA #$0C› STA $342,X› JSR $E456›› LDA #>$C000› ö—}STA $2E5› LDA #<$C000› STA $2E6› sta $6a ;Hier war mal ein Fehler› LDA #>$2000› STA $E› LDA #<$2000› ö˜}STA $F›› LDX #$60› LDA #$03 ;OPEN› STA $342,X› LDA #>tfn› STA $344,X› LDA #