' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~ Lӌu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-( ˠ-@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` # d ֠Ġz# u`!l AZIMUTHSTEUERUNG'!v D(EY)AS;! D1ČM1,RECHTSO! D1ČM1,LINKS[! D(D)r! D2ČM1,AUS:3270! DGA3190! M1,AUS! 3190! AAAS! !TI^M1,AUS(#I1D62#M2,LINKS:M3,LINKS=<#IQF#M2,AUS:M3,AUS\P#I1EjZ#M2,LINKSqd#I}n#M2,AUSx#(E5)0ČM3,AUS:MC02(E3)0ČM2,AUS:MB0L(E1)0ČM1,AUS:MA0fMAMBMCMD0ī5050lp{XM3,RECHTSbM2,RECHTSlMC1:MB1v(E5)0ČM3,AUS:MC0(E3)0ČM2,AUS:MB0MCMB0ī7030@I1CJM1,LINKS(E7)1ī2250M4,AUSF"ROBOTER FAEHRT IN GRUNDSTELLUNG "M9W5000e I11000o INITv I$ 1000M4,RECHTSM3,RECHTSM2,RECHTS(E1)1ČM1,RECHTSMA1:MB1:MC1:MD1(E7)0ČM4,AUS:MD0BGEHOLT "b9l8000'vI1B5M4,LINKS<IHM4,AUSq"WERKSTUECK WIRD ZURUECKGEBRACHT "x970004M1,RECHTS>(E1)1ī2100HM1,AUSI1AM2,LINKS:M3,LINKSIM2,AUS:M3,AUSM4,RECHTS M4,AUS4"WERKSTUECK WIRD UMGESETZT ";9E7000Ox8000^@M4,RECHTSqJ(E7)1ī1610T"ROBOTER FAEHRT IN GRUNDSTELLUNG "^9hM4,AUS70005000:I11000DINITNI X"WERKSTUECK WIRD WIEDER A "470,385,900,615,3201A,B,C,D,E89_"ROBOTER FAEHRT IN GRUNDSTELLUNG"f9p5000"WERKSTUECK WIRD GEGRIFFEN "9LI1AVM3,LINKS:M2,LINKS`IjM2,AUS:M3,AUSI1BM4,LINKSI COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1985107XWb"FISCHERTECHNIK COMPUTING"]lv"DREIACHSIGER TRAININGSROBOTER,ART. NR.30572,GESTEUERT MIT EINEM APPLE IIE""UEBER EIN FISCHERTECHNIK COMPUTING INTERFACE APPLE II,ART.NR.30563"ECHTS,EIN,M2,M3,M4+10,M2:11,M3:12,M4cM1M1EXEYAUSLINKSRECHTSEIN(10)(11)(12)M4:M1M4ĺ"DATAFEHLER IN ZEILE 320":M1INIT4:M2M14:M3M24:M4M34INIT FISCHERTECHNIK COMPUTING ROBOTER+&INIT TM3020:M2072 ^M4:INITM38M2,M4B hM1M1M4:v rM4:M1M4ĺ"DATAFEHLER IN ZEILE ";10010M3:| | E1,E2,E3,E4,E5,E6,E7,E8 M1M1E1E2E3E4E5E6E7E8 M4:M1M4ĺ"DATAFEHLER IN ZEILE 310":EX,EY,AUS,LINKS,R4,95,192,202,208,15563=  239,45,167,3,168,240,2,160,16587`  1,32,1,227,88,96,44,94,17170 " 192,44,95,192,138,41,1,170,18043 , 32,30,251,76,145,3,0,0,18580 6 1,2,4,8,16,32,64,128,18835 @ 7,6,255,170,85,85,76,89,3,19611 JINIT:M144,89,95611 192,44,88,192,140,166,3,88,10474Z 96,120,32,12,225,166,161,224,11510 6,240,51,224,7,240,47,142,12467 167,3,44,94,192,44,91,192,13294 44,95,192,44,90,192,162,8,14121 10,44,97,192,16,2,9,1,14492  44,94,192,4442* 32,192,222,173,166,3,13,167,4410P 3,141,166,3,32,248,230,138,5371v 45,167,3,141,167,3,173,166,6236 3,77,167,3,141,166,3,168,6964 162,8,44,94,192,44,92,192,7792 14,166,3,144,3,44,93,192,8451 44,95,192,202,208,236,SR(E8) , USR(EX) , USR(EY)B F M1 BIS M4 SIND MOTORANSTEUERUNGENh P E1 BIS E8 SIND DIGITALEINGAENGE Z EX UND EY SIND ANALOGEINGAENGE d 768,169,0,240,48,169,3,208,10,1615 n 169,12,208,6,169,48,208,2,2437 x 169,192,120,141,167,3,169,44,3 )"GRUNDPROGRAMM WIRD GELADEN"P INTERFACE PROGRAMM FUER APPLE II COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1984 AUFRUF DES PROGRAMMS MIT( CALL M1,EIN CALL M1,AUS2 CALL M1,RECHTS CALL M1,LINKS < USR(E1)...U         ECHTS,EIN,M2,M3,M4+10,M2:11,M3:12,M4cM1M1EXEYAUSLINKSRECHTSEIN(10)(11)(12)M4:M1M4ĺ"DATAFEHLER IN ZEILE 320":M1INIT4:M2M14:M3M24:M4M34INITIINIT TM3020:M2072 ^M4:INITM38M2,M4B hM1M1M4:v rM4:M1M4ĺ"DATAFEHLER IN ZEILE ";10010M3:| | E1,E2,E3,E4,E5,E6,E7,E8 M1M1E1E2E3E4E5E6E7E8 M4:M1M4ĺ"DATAFEHLER IN ZEILE 310":EX,EY,AUS,LINKS,R4,95,192,202,208,15563=  239,45,167,3,168,240,2,160,16587`  1,32,1,227,88,96,44,94,17170 " 192,44,95,192,138,41,1,170,18043 , 32,30,251,76,145,3,0,0,18580 6 1,2,4,8,16,32,64,128,18835 @ 7,6,255,170,85,85,76,89,3,19611 JINIT:M144,89,95611 192,44,88,192,140,166,3,88,10474Z 96,120,32,12,225,166,161,224,11510 6,240,51,224,7,240,47,142,12467 167,3,44,94,192,44,91,192,13294 44,95,192,44,90,192,162,8,14121 10,44,97,192,16,2,9,1,14492  44,94,192,4442* 32,192,222,173,166,3,13,167,4410P 3,141,166,3,32,248,230,138,5371v 45,167,3,141,167,3,173,166,6236 3,77,167,3,141,166,3,168,6964 162,8,44,94,192,44,92,192,7792 14,166,3,144,3,44,93,192,8451 44,95,192,202,208,236,SR(E8) , USR(EX) , USR(EY)B F M1 BIS M4 SIND MOTORANSTEUERUNGENh P E1 BIS E8 SIND DIGITALEINGAENGE Z EX UND EY SIND ANALOGEINGAENGE d 768,169,0,240,48,169,3,208,10,1615 n 169,12,208,6,169,48,208,2,2437 x 169,192,120,141,167,3,169,44,3)"GRUNDPROGRAMM WIRD GELADEN"P INTERFACE PROGRAMM FUER APPLE II COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1984 AUFRUF DES PROGRAMMS MIT( CALL M1,EIN CALL M1,AUS2 CALL M1,RECHTS CALL M1,LINKS < USR(E1)...U     KSD(D)!D2ČM2,AUS:1D20ī1400=M2,AUSG14000# LAGEREGELUNGSROUTINE DREHUNG9D(EY)SOLLWERTM(D1ČM1,RECHTSa2D1ČM1,LINKSm<D(D)FD2ČM1,AUS:PD5ī1310ZM1,AUSd1310x LAGEREGELUNGSROUTINE ARMD(EX)SOLLWERTD1ČM2,RECHTSD1ČM2,LINREH(1)j1300%tSOLLWERTARM(1)/~1400@ MAGNET EINMI0100YM3,EIN`IuSOLLWERTARM(2)1400SOLLWERTDREH(2)1300SOLLWERTARM(1)1400M3,AUS: MAGNET AUSSOLLWERTARM(2)1400 1060EH(1)128DREH(2)35)ARM(1)1208ARM(2)30>T"FISCHERTECHNIK"e"COMPUTING"k}"PICK&PLACE"$"BITTE STARTTASTE BETAETIGEN". START8(E2)0ī1080BM4,EINL(E1)0ī1100VM4,AUS`SOLLWERTD M4=FOERDERBAND(  FUNKTIONL* WENN STARTTASTE GEDRUECKT ISTq4 BEFOERDERT DAS FOERDERBAND DAS> GELDSTUECK ZUM ROBOTARM,WELCHERH ES ZUR RUTSCHE TRANSPORTIERT. DREHPOSITION (EMPIRISCH ERMITTELT)DREH(2),ARM(2) DR&40 COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1985::XD BELEGUNG DES INTERFACES^NmX EINGABENb E1=FOTOZELLEl E2=STARTv EX=ARMPOSITION EY=WINKELPOSITION AUSGABEN M1=DREHEN M2=ARM M3=MAGNETECHTS,EIN,M2,M3,M4+10,M2:11,M3:12,M4cM1M1EXEYAUSLINKSRECHTSEIN(10)(11)(12)M4:M1M4ĺ"DATAFEHLER IN ZEILE 320":M1INIT4:M2M14:M3M24:M4M34INIT FISCHERTECHNIK COMPUTING PICK&PLACEINIT TM3020:M2072 ^M4:INITM38M2,M4B hM1M1M4:v rM4:M1M4ĺ"DATAFEHLER IN ZEILE ";10010M3:| | E1,E2,E3,E4,E5,E6,E7,E8 M1M1E1E2E3E4E5E6E7E8 M4:M1M4ĺ"DATAFEHLER IN ZEILE 310":EX,EY,AUS,LINKS,R4,95,192,202,208,15563=  239,45,167,3,168,240,2,160,16587`  1,32,1,227,88,96,44,94,17170 " 192,44,95,192,138,41,1,170,18043 , 32,30,251,76,145,3,0,0,18580 6 1,2,4,8,16,32,64,128,18835 @ 7,6,255,170,85,85,76,89,3,19611 JINIT:M144,89,95611 192,44,88,192,140,166,3,88,10474Z 96,120,32,12,225,166,161,224,11510 6,240,51,224,7,240,47,142,12467 167,3,44,94,192,44,91,192,13294 44,95,192,44,90,192,162,8,14121 10,44,97,192,16,2,9,1,14492  44,94,192,4442* 32,192,222,173,166,3,13,167,4410P 3,141,166,3,32,248,230,138,5371v 45,167,3,141,167,3,173,166,6236 3,77,167,3,141,166,3,168,6964 162,8,44,94,192,44,92,192,7792 14,166,3,144,3,44,93,192,8451 44,95,192,202,208,236,SR(E8) , USR(EX) , USR(EY)B F M1 BIS M4 SIND MOTORANSTEUERUNGENh P E1 BIS E8 SIND DIGITALEINGAENGE Z EX UND EY SIND ANALOGEINGAENGE d 768,169,0,240,48,169,3,208,10,1615 n 169,12,208,6,169,48,208,2,2437 x 169,192,120,141,167,3,169,44,3I )"GRUNDPROGRAMM WIRD GELADEN"P INTERFACE PROGRAMM FUER APPLE II COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1984 AUFRUF DES PROGRAMMS MIT( CALL M1,EIN CALL M1,AUS2 CALL M1,RECHTS CALL M1,LINKS < USR(E1)...U     D0ıD(D)%D20ī14001M2,AUS;1400AI# LAGEREGELUNGSROUTINE DREHUNG9D(EY)SOLLWERTM(D0ČM1,RECHTS`2D0ČM1,LINKSk<D0ıwFD(D)PD3ī1310ZM1,AUSd1310nx LAGEREGELUNGSROUTINE ARMD(EX)SOLLWERTD0ČM2,RECHTSD0ČM2,LINKS REH(1)j1300%tSOLLWERTARM(1)/~1400@ MAGNET EINMI0100YM3,EIN`IuSOLLWERTARM(2)1400SOLLWERTDREH(2)1300SOLLWERTARM(1)1400M3,AUS: MAGNET AUSSOLLWERTARM(2)1400 1060EH(1)128DREH(2)35)ARM(1)1208ARM(2)30>T"FISCHERTECHNIK"e"COMPUTING"k}"PICK&PLACE"$"BITTE STARTTASTE BETAETIGEN". START8(E2)0ī1080BM4,EINL(E1)0ī1100VM4,AUS`SOLLWERTD M4=FOERDERBAND(  FUNKTIONL* WENN STARTTASTE GEDRUECKT ISTq4 BEFOERDERT DAS FOERDERBAND DAS> GELDSTUECK ZUM ROBOTARM,WELCHERH ES ZUR RUTSCHE TRANSPORTIERT. DREHPOSITION (EMPIRISCH ERMITTELT)DREH(2),ARM(2) DR&40 COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1985::XD BELEGUNG DES INTERFACES^NmX EINGABENb E1=FOTOZELLEl E2=STARTv EX=ARMPOSITION EY=WINKELPOSITION AUSGABEN M1=DREHEN M2=ARM M3=MAGNETECHTS,EIN,M2,M3,M4+10,M2:11,M3:12,M4cM1M1EXEYAUSLINKSRECHTSEIN(10)(11)(12)M4:M1M4ĺ"DATAFEHLER IN ZEILE 320":M1INIT4:M2M14:M3M24:M4M34INIT FISCHERTECHNIK COMPUTING PICK&PLACEINIT TM3020:M2072 ^M4:INITM38M2,M4B hM1M1M4:v rM4:M1M4ĺ"DATAFEHLER IN ZEILE ";10010M3:| | E1,E2,E3,E4,E5,E6,E7,E8 M1M1E1E2E3E4E5E6E7E8 M4:M1M4ĺ"DATAFEHLER IN ZEILE 310":EX,EY,AUS,LINKS,R4,95,192,202,208,15563=  239,45,167,3,168,240,2,160,16587`  1,32,1,227,88,96,44,94,17170 " 192,44,95,192,138,41,1,170,18043 , 32,30,251,76,145,3,0,0,18580 6 1,2,4,8,16,32,64,128,18835 @ 7,6,255,170,85,85,76,89,3,19611 JINIT:M144,89,95611 192,44,88,192,140,166,3,88,10474Z 96,120,32,12,225,166,161,224,11510 6,240,51,224,7,240,47,142,12467 167,3,44,94,192,44,91,192,13294 44,95,192,44,90,192,162,8,14121 10,44,97,192,16,2,9,1,14492  44,94,192,4442* 32,192,222,173,166,3,13,167,4410P 3,141,166,3,32,248,230,138,5371v 45,167,3,141,167,3,173,166,6236 3,77,167,3,141,166,3,168,6964 162,8,44,94,192,44,92,192,7792 14,166,3,144,3,44,93,192,8451 44,95,192,202,208,236,SR(E8) , USR(EX) , USR(EY)B F M1 BIS M4 SIND MOTORANSTEUERUNGENh P E1 BIS E8 SIND DIGITALEINGAENGE Z EX UND EY SIND ANALOGEINGAENGE d 768,169,0,240,48,169,3,208,10,1615 n 169,12,208,6,169,48,208,2,2437 x 169,192,120,141,167,3,169,44,3C )"GRUNDPROGRAMM WIRD GELADEN"P INTERFACE PROGRAMM FUER APPLE II COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1984 AUFRUF DES PROGRAMMS MIT( CALL M1,EIN CALL M1,AUS2 CALL M1,RECHTS CALL M1,LINKS < USR(E1)...U     z #?    ҮɠҠ  ֠͠ɮɠȠԮɠԮɠҮɠ Ůɠ"Ůɠ˦Ůɠˠˮ̮ɠ Ǯ̮ɠ ͮɠ ǮɠҮɠ Ůɠ ENTE.VIELE WEITERE MODELLE"C "-AUCH MIT ANDEREN FISCHERTECHNIK"c "SYSTEM BAUKASTEN GEBAUT-"x "SIND DENKBAR."~ "DISKETTENINHALTSVERZEICHNIS" "BITTE >RETURN< DRUECKEN" KEY$ KEY$(13)ī260 : "(4);"CATALOG",ELT DER COMPUTER", "UND FISCHERTECHNIK!"P "DIESE DISKETTE ZEIGT,WIE SIE"{ "MIT HILFE DES INTERFACE MODELLE AUS" "FISCHERTECHNIK COMPUTING STEUERN "KOENNEN. DIE PROGRAMME SEHEN SIE" "BITTE ALS STARTPUNKT FUER EIGENE" "EXPERIM EINFUEHRUNGSPROGRAMM# B FISCHERTECHNIK COMPUTINGH(y2 COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1984< 26/02/86FP"FISCHERTECHNIK"Z"COMPUTING"dn"LIEBER FISCHERTECHNIK FREUND!"x "WILLKOMMEN IN DER W  HLEIFEZ0ZEITM1,RO*M2,GE5M3,GN<ZB I ROT PHASE GNAUS,GEAUS8ROEINGZEIT1000N7e"ROT-PHASE "o2000v ROT-GELB PHASEGNAUSGEEINROEIN ZEIT2007"ROT-GELB PHASE"2000( 21020ZEITSC"VERKEHRSAMPEL"$ 5GRUEN PHASEAGNEINMGEAUSYROAUShZEIT1000o7$"GRUEN-PHASE ".20008BGELB PHASELGNAUSVGEEIN`ROAUSjZEIT200o7t"GELB-PHASE "~2000 5COPYRIGHT(C) ARTUR FISCHER FORSCHUNG 1984< XBELEGUNG DES INTERFACE_ kROT=M1xGELB=M2GRUEN=M3   FUNKTION*EINFACHE AMPEL MIT ZYKLISCHEM DURCHLAUF4 "FISCHERTECHNIK""COMPUTING"ECHTS,EIN,M2,M3,M4+10,M2:11,M3:12,M4cM1M1EXEYAUSLINKSRECHTSEIN(10)(11)(12)M4:M1M4ĺ"DATAFEHLER IN ZEILE 320":M1INIT4:M2M14:M3M24:M4M34INITX bFISCHERTECHNIK COMPUTINGl vAMPELANLAGEINIT TM3020:M2072 ^M4:INITM38M2,M4B hM1M1M4:v rM4:M1M4ĺ"DATAFEHLER IN ZEILE ";10010M3:| | E1,E2,E3,E4,E5,E6,E7,E8 M1M1E1E2E3E4E5E6E7E8 M4:M1M4ĺ"DATAFEHLER IN ZEILE 310":EX,EY,AUS,LINKS,R4,95,192,202,208,15563=  239,45,167,3,168,240,2,160,16587`  1,32,1,227,88,96,44,94,17170 " 192,44,95,192,138,41,1,170,18043 , 32,30,251,76,145,3,0,0,18580 6 1,2,4,8,16,32,64,128,18835 @ 7,6,255,170,85,85,76,89,3,19611 JINIT:M144,89,95611 192,44,88,192,140,166,3,88,10474Z 96,120,32,12,225,166,161,224,11510 6,240,51,224,7,240,47,142,12467 167,3,44,94,192,44,91,192,13294 44,95,192,44,90,192,162,8,14121 10,44,97,192,16,2,9,1,14492  44,94,192,4442* 32,192,222,173,166,3,13,167,4410P 3,141,166,3,32,248,230,138,5371v 45,167,3,141,167,3,173,166,6236 3,77,167,3,141,166,3,168,6964 162,8,44,94,192,44,92,192,7792 14,166,3,144,3,44,93,192,8451 44,95,192,202,208,236,SR(E8) , USR(EX) , USR(EY)B F M1 BIS M4 SIND MOTORANSTEUERUNGENh P E1 BIS E8 SIND DIGITALEINGAENGE Z EX UND EY SIND ANALOGEINGAENGE d 768,169,0,240,48,169,3,208,10,1615 n 169,12,208,6,169,48,208,2,2437 x 169,192,120,141,167,3,169,44,3C )"GRUNDPROGRAMM WIRD GELADEN"P INTERFACE PROGRAMM FUER APPLE II COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1984 AUFRUF DES PROGRAMMS MIT( CALL M1,EIN CALL M1,AUS2 CALL M1,RECHTS CALL M1,LINKS < USR(E1)...U     PHASE"2000( !210203ZEITSCHLEIFEAZ0ZEITLM1,ROWM2,GEbM3,GNw(GNEIN)ī2090 FALLS NICHT GRUEN, TASTE NICHT ABFRAGEN(E8)1ĪZZEIT50 FALLS TASTE GEDRUECKT, GRUEN PHASE KUERZEN*Z4I200 o7!t"GELB PHASE "+~20002 AROT PHASEMGNAUSYGEAUSeROEINtZEIT1000{7"ROT PHASE "2000 ROT-GELB PHASEGNAUSGEEINROEIN ZEIT2007"ROT-GELB "FISCHERTECHNIK"$"COMPUTING"*B"FUSSGAENGERAMPEL"HO `GRUEN PHASElGNEINxGEAUSROAUSZEIT10007$"GRUEN PHASE ".20008 BGELB PHASELGNAUSVGEEIN`ROAUSjZEITERAMPEL >COPYRIGHT(C) ARTUR FISCHER FORSCHUNG 1984F bBELEGUNG DES INTERFACEj xGRUEN=M1GELB=M2ROT=M3  E8=FUSSGAENGERTASTE *FUNKTION4FUSSGAENGERAMPEL MIT FUSSGAENGERTASTE>ECHTS,EIN,M2,M3,M4+10,M2:11,M3:12,M4cM1M1EXEYAUSLINKSRECHTSEIN(10)(11)(12)M4:M1M4ĺ"DATAFEHLER IN ZEILE 320":M1INIT4:M2M14:M3M24:M4M34INITX bFISCHERTECHNIK COMPUTINGl vFUSSGAENGINIT TM3020:M2072 ^M4:INITM38M2,M4B hM1M1M4:v rM4:M1M4ĺ"DATAFEHLER IN ZEILE ";10010M3:| | E1,E2,E3,E4,E5,E6,E7,E8 M1M1E1E2E3E4E5E6E7E8 M4:M1M4ĺ"DATAFEHLER IN ZEILE 310":EX,EY,AUS,LINKS,R4,95,192,202,208,15563=  239,45,167,3,168,240,2,160,16587`  1,32,1,227,88,96,44,94,17170 " 192,44,95,192,138,41,1,170,18043 , 32,30,251,76,145,3,0,0,18580 6 1,2,4,8,16,32,64,128,18835 @ 7,6,255,170,85,85,76,89,3,19611 JINIT:M144,89,95611 192,44,88,192,140,166,3,88,10474Z 96,120,32,12,225,166,161,224,11510 6,240,51,224,7,240,47,142,12467 167,3,44,94,192,44,91,192,13294 44,95,192,44,90,192,162,8,14121 10,44,97,192,16,2,9,1,14492  44,94,192,4442* 32,192,222,173,166,3,13,167,4410P 3,141,166,3,32,248,230,138,5371v 45,167,3,141,167,3,173,166,6236 3,77,167,3,141,166,3,168,6964 162,8,44,94,192,44,92,192,7792 14,166,3,144,3,44,93,192,8451 44,95,192,202,208,236,SR(E8) , USR(EX) , USR(EY)B F M1 BIS M4 SIND MOTORANSTEUERUNGENh P E1 BIS E8 SIND DIGITALEINGAENGE Z EX UND EY SIND ANALOGEINGAENGE d 768,169,0,240,48,169,3,208,10,1615 n 169,12,208,6,169,48,208,2,2437 x 169,192,120,141,167,3,169,44,3 )"GRUNDPROGRAMM WIRD GELADEN"P INTERFACE PROGRAMM FUER APPLE II COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1984 AUFRUF DES PROGRAMMS MIT( CALL M1,EIN CALL M1,AUS2 CALL M1,RECHTS CALL M1,LINKS < USR(E1)...U     EITUNGSLAMPE EIN~I;M3,AUS: BEARBEITUNGSLAMPE AUSD980I8M1,AUS: DREHTELLERMOTOR ABSCHALTEN-:7I="BOHRER NACH UNTEN "kBM2,LINKS: BOHRER NACH UNTEN~L(E4)0ī1100VM2,AUS: BOHRER AUSSCHALTEN` PAUSE FUER BEARBEITUNGb7e"BEARBEITEN "jI1500tM3,EIN: BEARB "'M2,RECHTS: BOHRER NACH OBENL(E5)0ī1010: BOHRERPOS. OBENmM2,AUS: BOHRER AUSSCHALTENt7"NAECHSTES WERKSTUECK" ZEITSCHLEIFE DREHTELLERI1200M1,RECHTS$I.(E3)0ī1070: DREHTELLERPOS. ABFRAGE&* M1= DREHTELLERMOTOR64 M2= BOHRMASCHINENMOTOR<>KH FUNKTIONiR ZYKLISCHE STEUERUNG VON\ DREHTELLER UND BOHRMASCHINEfpz"FISCHERTECHNIK""COMPUTING""WERKZEUGMASCHINE"7"BOHRER NACH OBENCHINE  = COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1984D a BELEGUNG DES INTERFACEh w EINGABEN E3= DREHTELLERPOSITIONSTASTER E4= ENDTASTER BOHRMASCHINE UNTEN  E5= ENDTASTER BOHRMASCHINE OBEN   AUSGABENECHTS,EIN,M2,M3,M4+10,M2:11,M3:12,M4cM1M1EXEYAUSLINKSRECHTSEIN(10)(11)(12)M4:M1M4ĺ"DATAFEHLER IN ZEILE 320":M1INIT4:M2M14:M3M24:M4M34INITX b FISCHERTECHNIK COMPUTINGl v WERKZEUGMASINIT TM3020:M2072 ^M4:INITM38M2,M4B hM1M1M4:v rM4:M1M4ĺ"DATAFEHLER IN ZEILE ";10010M3:| | E1,E2,E3,E4,E5,E6,E7,E8 M1M1E1E2E3E4E5E6E7E8 M4:M1M4ĺ"DATAFEHLER IN ZEILE 310":EX,EY,AUS,LINKS,R4,95,192,202,208,15563=  239,45,167,3,168,240,2,160,16587`  1,32,1,227,88,96,44,94,17170 " 192,44,95,192,138,41,1,170,18043 , 32,30,251,76,145,3,0,0,18580 6 1,2,4,8,16,32,64,128,18835 @ 7,6,255,170,85,85,76,89,3,19611 JINIT:M144,89,95611 192,44,88,192,140,166,3,88,10474Z 96,120,32,12,225,166,161,224,11510 6,240,51,224,7,240,47,142,12467 167,3,44,94,192,44,91,192,13294 44,95,192,44,90,192,162,8,14121 10,44,97,192,16,2,9,1,14492  44,94,192,4442* 32,192,222,173,166,3,13,167,4410P 3,141,166,3,32,248,230,138,5371v 45,167,3,141,167,3,173,166,6236 3,77,167,3,141,166,3,168,6964 162,8,44,94,192,44,92,192,7792 14,166,3,144,3,44,93,192,8451 44,95,192,202,208,236,SR(E8) , USR(EX) , USR(EY)B F M1 BIS M4 SIND MOTORANSTEUERUNGENh P E1 BIS E8 SIND DIGITALEINGAENGE Z EX UND EY SIND ANALOGEINGAENGE d 768,169,0,240,48,169,3,208,10,1615 n 169,12,208,6,169,48,208,2,2437 x 169,192,120,141,167,3,169,44,3E )"GRUNDPROGRAMM WIRD GELADEN"P INTERFACE PROGRAMM FUER APPLE II COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1984 AUFRUF DES PROGRAMMS MIT( CALL M1,EIN CALL M1,AUS2 CALL M1,RECHTS CALL M1,LINKS < USR(E1)...U     E ABWAERTS EINAZ0"1140DM1,RECHTS: AUFZUG NACH OBENfM3,EIN: LAMPE AUFWAERTS EINpAZ0z1140"2: AUFZUG STEHT IM 2.STOCKH~(E4)1IP1: AUFZUG STEHT IM 1.STOCKx(E5)1IP0: AUFZUG STEHT IM ERDGESCHOSSSPIPī1200: AUFZUG NACH UNTENSPIPī1240: AUFZUG NACH OBEN1050M1,LINKS: AUFZUG NACH UNTENM2,EIN: LAMPSCHALTEN$AZ1ī1110)7;.IP0ĺ"ERDGESCHOSS "W8IP1ĺ"1.OBERGESCHOSS"sBIP2ĺ"2.OBERGESCHOSS"}LAZ1V(E6)1SP2: 2.STOCK ANFAHREN`(E7)1SP1: 1.STOCK ANFAHRENj(E8)1SP0: ERDGESCHOSS ANFAHRENt(E3)1IPNIERT \!f"FISCHERTECHNIK"2p"COMPUTING"8zF"AUFZUG"LRkSP0: SOLLPOS. = 0IP0: ISTPOS. = 0AZ0: STOCKWERKSANZEIGEM1,LINKS: AUFZUG NACH UNTEN(E5)0ī1030: IST AUFZUG UNTEN?INIT: ALLES ABRUFTASTE UNTEN# AUSGABEN9  M1= AUFZUGMOTOR[ M2= AUFZUG FAEHRT NACH OBEN~  M3= AUFZUG FAEHRT NACH UNTEN*4 FUNKTION> AUFZUG MIT 3 STOCKWERKENH DURCH TASTENDRUCK IM JEWEILIGEN STOCKWERKR WIRD DER AUFZUG POSITIO0 COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 19846S BELEGUNG DES INTERFACEYh EINGABEN E3= POSITIONSTASTE OBEN E4= POSITIONSTASTE MITTE E5= POSITIONSTASTE UNTEN E6= RUFTASTE OBEN E7= RUFTASTE MITTE E8= ECHTS,EIN,M2,M3,M4+10,M2:11,M3:12,M4cM1M1EXEYAUSLINKSRECHTSEIN(10)(11)(12)M4:M1M4ĺ"DATAFEHLER IN ZEILE 320":M1INIT4:M2M14:M3M24:M4M34INITXb FISCHERTECHNIK COMPUTINGlv AUFZUGINIT TM3020:M2072 ^M4:INITM38M2,M4B hM1M1M4:v rM4:M1M4ĺ"DATAFEHLER IN ZEILE ";10010M3:| | E1,E2,E3,E4,E5,E6,E7,E8 M1M1E1E2E3E4E5E6E7E8 M4:M1M4ĺ"DATAFEHLER IN ZEILE 310":EX,EY,AUS,LINKS,R4,95,192,202,208,15563=  239,45,167,3,168,240,2,160,16587`  1,32,1,227,88,96,44,94,17170 " 192,44,95,192,138,41,1,170,18043 , 32,30,251,76,145,3,0,0,18580 6 1,2,4,8,16,32,64,128,18835 @ 7,6,255,170,85,85,76,89,3,19611 JINIT:M144,89,95611 192,44,88,192,140,166,3,88,10474Z 96,120,32,12,225,166,161,224,11510 6,240,51,224,7,240,47,142,12467 167,3,44,94,192,44,91,192,13294 44,95,192,44,90,192,162,8,14121 10,44,97,192,16,2,9,1,14492  44,94,192,4442* 32,192,222,173,166,3,13,167,4410P 3,141,166,3,32,248,230,138,5371v 45,167,3,141,167,3,173,166,6236 3,77,167,3,141,166,3,168,6964 162,8,44,94,192,44,92,192,7792 14,166,3,144,3,44,93,192,8451 44,95,192,202,208,236,SR(E8) , USR(EX) , USR(EY)B F M1 BIS M4 SIND MOTORANSTEUERUNGENh P E1 BIS E8 SIND DIGITALEINGAENGE Z EX UND EY SIND ANALOGEINGAENGE d 768,169,0,240,48,169,3,208,10,1615 n 169,12,208,6,169,48,208,2,2437 x 169,192,120,141,167,3,169,44,3{ )"GRUNDPROGRAMM WIRD GELADEN"P INTERFACE PROGRAMM FUER APPLE II COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1984 AUFRUF DES PROGRAMMS MIT( CALL M1,EIN CALL M1,AUS2 CALL M1,RECHTS CALL M1,LINKS < USR(E1)...U     M1,RECHTSYXČM1,LINKS-$D10ī10008.I0D?8IKBM1,AUSUL1000SCH DER VORGABE AM DREHRAD POSITIONIERT,H2H"FISCHERTECHNIK"Y"COMPUTING"_t"ANTENNENROTOR"zX(EX): POTISTELLUNG GEBERY(EY): POTISTELLUNG ROTOR7"SOLL=";X;" IST=";Y;" "D(XY) YX7 COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1984=Z BELEGUNG DES INTERFACEa p EINGABEN EX= POTENTIOMETER GEBER EY= POTENTIOMETER ROTOR   AUSGABEN  M1= ROTORMOTOR*4 FUNKTION&> ROTOR WIRD NAECHTS,EIN,M2,M3,M4+10,M2:11,M3:12,M4cM1M1EXEYAUSLINKSRECHTSEIN(10)(11)(12)M4:M1M4ĺ"DATAFEHLER IN ZEILE 320":M1INIT4:M2M14:M3M24:M4M34INITXb FISCHERTECHNIK COMPUTINGlv ANTENNENROTORINIT TM3020:M2072 ^M4:INITM38M2,M4B hM1M1M4:v rM4:M1M4ĺ"DATAFEHLER IN ZEILE ";10010M3:| | E1,E2,E3,E4,E5,E6,E7,E8 M1M1E1E2E3E4E5E6E7E8 M4:M1M4ĺ"DATAFEHLER IN ZEILE 310":EX,EY,AUS,LINKS,R4,95,192,202,208,15563=  239,45,167,3,168,240,2,160,16587`  1,32,1,227,88,96,44,94,17170 " 192,44,95,192,138,41,1,170,18043 , 32,30,251,76,145,3,0,0,18580 6 1,2,4,8,16,32,64,128,18835 @ 7,6,255,170,85,85,76,89,3,19611 JINIT:M144,89,95611 192,44,88,192,140,166,3,88,10474Z 96,120,32,12,225,166,161,224,11510 6,240,51,224,7,240,47,142,12467 167,3,44,94,192,44,91,192,13294 44,95,192,44,90,192,162,8,14121 10,44,97,192,16,2,9,1,14492  44,94,192,4442* 32,192,222,173,166,3,13,167,4410P 3,141,166,3,32,248,230,138,5371v 45,167,3,141,167,3,173,166,6236 3,77,167,3,141,166,3,168,6964 162,8,44,94,192,44,92,192,7792 14,166,3,144,3,44,93,192,8451 44,95,192,202,208,236,SR(E8) , USR(EX) , USR(EY)B F M1 BIS M4 SIND MOTORANSTEUERUNGENh P E1 BIS E8 SIND DIGITALEINGAENGE Z EX UND EY SIND ANALOGEINGAENGE d 768,169,0,240,48,169,3,208,10,1615 n 169,12,208,6,169,48,208,2,2437 x 169,192,120,141,167,3,169,44,3V )"GRUNDPROGRAMM WIRD GELADEN"P INTERFACE PROGRAMM FUER APPLE II COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1984 AUFRUF DES PROGRAMMS MIT( CALL M1,EIN CALL M1,AUS2 CALL M1,RECHTS CALL M1,LINKS < USR(E1)...U     0 M1,LINKS: WAGENRUECKLAUF3(E4)0ī1200=1000ITEIN81060%B"KURZER BAUSTEIN"GLM2,EIN: KONTROLLAMPE 'KURZ'ZV(E3)0ī1110z`M1,RECHTS: WAGENRUECKLAUFj(E4)0ī1130t1000~"LANGER BAUSTEIN"M1,RECHTS: AUSSORTIERENM3,EIN: KONTROLLAMPE 'LANG'(E5)0ī118"MASCHINE BEREIT""INITL(E1)1ī1010: WARTE AUF STARTTASTE` WARTESCHLEIFEmI1500tIM1,LINKS: BAUSTEINE ZUR MESSUNG$(E1)0(E2)0ī1150: MESSUNG LANGER BAUSTEIN.(E1)1(E2)1ī1090: MESSUNG KURZER BAUS AUSGABEN4 M1= WAGEN:> M2= LAMPE KURZER BAUSTEINZH M3= LAMPE LANGER BAUSTEIN`Ro\ FUNKTIONp ANLAGE SORTIERT NACH KURZEN UND LANGEN BAUSTEINENz"FISCHERTECHNIK""COMPUTING""SORTIERANLAGE"7 COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1984=Z BELEGUNG DES INTERFACEa p EINGABEN E1= STARTTASTE E2= MESSTASTE E3= AUSWURF KURZER BAUSTEIN  E4= STARTPOSITION E5= AUSWURF LANGER BAUSTEIN  *ECHTS,EIN,M2,M3,M4+10,M2:11,M3:12,M4cM1M1EXEYAUSLINKSRECHTSEIN(10)(11)(12)M4:M1M4ĺ"DATAFEHLER IN ZEILE 320":M1INIT4:M2M14:M3M24:M4M34INITXb FISCHERTECHNIK COMPUTINGlv SORTIERANLAGEINIT TM3020:M2072 ^M4:INITM38M2,M4B hM1M1M4:v rM4:M1M4ĺ"DATAFEHLER IN ZEILE ";10010M3:| | E1,E2,E3,E4,E5,E6,E7,E8 M1M1E1E2E3E4E5E6E7E8 M4:M1M4ĺ"DATAFEHLER IN ZEILE 310":EX,EY,AUS,LINKS,R4,95,192,202,208,15563=  239,45,167,3,168,240,2,160,16587`  1,32,1,227,88,96,44,94,17170 " 192,44,95,192,138,41,1,170,18043 , 32,30,251,76,145,3,0,0,18580 6 1,2,4,8,16,32,64,128,18835 @ 7,6,255,170,85,85,76,89,3,19611 JINIT:M144,89,95611 192,44,88,192,140,166,3,88,10474Z 96,120,32,12,225,166,161,224,11510 6,240,51,224,7,240,47,142,12467 167,3,44,94,192,44,91,192,13294 44,95,192,44,90,192,162,8,14121 10,44,97,192,16,2,9,1,14492  44,94,192,4442* 32,192,222,173,166,3,13,167,4410P 3,141,166,3,32,248,230,138,5371v 45,167,3,141,167,3,173,166,6236 3,77,167,3,141,166,3,168,6964 162,8,44,94,192,44,92,192,7792 14,166,3,144,3,44,93,192,8451 44,95,192,202,208,236,SR(E8) , USR(EX) , USR(EY)B F M1 BIS M4 SIND MOTORANSTEUERUNGENh P E1 BIS E8 SIND DIGITALEINGAENGE Z EX UND EY SIND ANALOGEINGAENGE d 768,169,0,240,48,169,3,208,10,1615 n 169,12,208,6,169,48,208,2,2437 x 169,192,120,141,167,3,169,44,3> )"GRUNDPROGRAMM WIRD GELADEN"P INTERFACE PROGRAMM FUER APPLE II COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1984 AUFRUF DES PROGRAMMS MIT( CALL M1,EIN CALL M1,AUS2 CALL M1,RECHTS CALL M1,LINKS < USR(E1)...U     ,AUS:D5ī2210 I0D'I3M1,AUS=2210Z M2,LINKS: ARM ABSENKENm (E1)0ī2310y M2,AUS$ . M2,RECHTS: ARM ANHEBEN8 (E2)0ī2360B M2,AUSL 2350: HEBE ARM>.H MAGNET AUS ROUTINEdRM3,LINKS: MAGNET UMGEPOLT ZUR ENTMAGNETISIERUNG\M3,AUS: MAGNET AUSGESCHALTETf LAGEREGELUNGS ROUTINED(EY)SOLLWERTD1ČM1,RECHTSD1ČM1,LINKSD(D)D2ČM11: ROBOTER ROUTINE8SOLLWERTSAEULE(Y(M))O2210: DREHE TURMe2310: SENKE ARMM3,EIN: MAGNET EINSCHALTEN2350: HEBE ARM SOLLWERTSAEULE(Z(M))2210: DREHE TURM 2310: SENKE ARM*2130: MAGNET AUS4M)6Y(M1)Z(M1)-1700: REKURSIVAUFRUF8MM1v"SCHEIBE ";X(M);" VON SAEULE ";Y(M);" NACH SAEULE ";Z(M)2000: ROBOTER ROUTINEMM1X(M)X(M1)1Y(M)6Y(M1)Z(M1)Z(M)Z(M1)&1700: REKURSIVAUFRUF0MM"TURM VON HANOI""K@"WIEVIELE SCHEIBEN HAT DER TURM ";NVJN1Ā_TM0{^X(M)N:Y(M)1:Z(M)3h1700r PSEUDOREKURSIVE ROUTINEX(M)0ıMM1: REKURSIONSTIEFEX(M)X(M1)1Y(M)Y(M1)Z(N&\ SORTIERUNG DES SCHEIBENSTAPELSOf NACH BUDDHISTISCHER UEBERLIEFERUNGVp mX(31),Y(31),Z(31) SAEULENPOSITIONEN (EMPIRISCH ERMITTELT)SAEULE(1)85SAEULE(2)110SAEULE(3)135"FISCHERTECHNIK""COMPUTING"OI9 COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1984?\ BELEGUNG DES INTERFACEbq EINGABEN E1= UNTEN E2= OBEN  EY= WINKELSTELLUNG  AUSGABEN* M1= TURM4 M2= ARM> M3= MAGNETHR FUNKTIOECHTS,EIN,M2,M3,M4+10,M2:11,M3:12,M4cM1M1EXEYAUSLINKSRECHTSEIN(10)(11)(12)M4:M1M4ĺ"DATAFEHLER IN ZEILE 320":M1INIT4:M2M14:M3M24:M4M34INITXb FISCHERTECHNIK COMPUTINGl v TURM VON HANINIT TM3020:M2072 ^M4:INITM38M2,M4B hM1M1M4:v rM4:M1M4ĺ"DATAFEHLER IN ZEILE ";10010M3:| | E1,E2,E3,E4,E5,E6,E7,E8 M1M1E1E2E3E4E5E6E7E8 M4:M1M4ĺ"DATAFEHLER IN ZEILE 310":EX,EY,AUS,LINKS,R4,95,192,202,208,15563=  239,45,167,3,168,240,2,160,16587`  1,32,1,227,88,96,44,94,17170 " 192,44,95,192,138,41,1,170,18043 , 32,30,251,76,145,3,0,0,18580 6 1,2,4,8,16,32,64,128,18835 @ 7,6,255,170,85,85,76,89,3,19611 JINIT:M144,89,95611 192,44,88,192,140,166,3,88,10474Z 96,120,32,12,225,166,161,224,11510 6,240,51,224,7,240,47,142,12467 167,3,44,94,192,44,91,192,13294 44,95,192,44,90,192,162,8,14121 10,44,97,192,16,2,9,1,14492  44,94,192,4442* 32,192,222,173,166,3,13,167,4410P 3,141,166,3,32,248,230,138,5371v 45,167,3,141,167,3,173,166,6236 3,77,167,3,141,166,3,168,6964 162,8,44,94,192,44,92,192,7792 14,166,3,144,3,44,93,192,8451 44,95,192,202,208,236,SR(E8) , USR(EX) , USR(EY)B F M1 BIS M4 SIND MOTORANSTEUERUNGENh P E1 BIS E8 SIND DIGITALEINGAENGE Z EX UND EY SIND ANALOGEINGAENGE d 768,169,0,240,48,169,3,208,10,1615 n 169,12,208,6,169,48,208,2,2437 x 169,192,120,141,167,3,169,44,3 )"GRUNDPROGRAMM WIRD GELADEN"P INTERFACE PROGRAMM FUER APPLE II COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1984 AUFRUF DES PROGRAMMS MIT( CALL M1,EIN CALL M1,AUS2 CALL M1,RECHTS CALL M1,LINKS < USR(E1)...U     NKEL(ID);" ";MAGNET$(ID)1HHOEHE(ID)1ī2010Df(E8)1ī4010[D(EX)HOEHE(ID)oD1ČM2,RECHTSD1ČM2,LINKSD(D)D2ČM2,AUS:2410DGXī2150M2,AUS 2150` WINKEL EINSTELLENj (E8)1ī4010t D)rMAGNET$(ID)MG$N|ID;" ";HOEHE(ID);" ";WINKEL(ID);" ";MAGNET$(ID)_ AUSFUEHRENr(E8)0ī1110|2910(E8)1ī1700IDID1HOEHE(ID)1 AUSFUEHRUNGSSCHLEIFEID14IDID1>ID;" ";HOEHE(ID);" ";WI(E5)0ī1550M3,EIN)MG$"EIN"@ TASTE MAGNET AUSS(E6)0ī1590_M3,AUSn"MG$"AUS", TASTE LERNEN6(E7)0ī1680@ WARTE BIS TASTE LOSGELASSENJ(E7)1ī1610TIDID1^HOEHE(ID)(EX)hWINKEL(ID)(EYtM2,AUS TASTE AB,(E2)0ī1240:M2,LINKSD1210PM2,AUSc TASTE RECHTSv(E3)0ī1340(M1,RECHTS21310<M1,AUSx TASTE LINKS(E4)0ī1440M1,LINKS1410M1,AUS TASTE MAGNET EINBGESPEICHERT.B MIT E8 WIRD DER AUTOMATISCHE ABLAUF GESTARTET.m DER ABLAUF WIRD ZYKLISCH WIEDERHOLT, BIS DIE TASTE E8 WIEDER GEDRUECKT WIRD.2900 ABFRAGE SCHLEIFEL TASTE AUFV(E1)0ī1140`M2,RECHTSj1110 N*4 AUSGABEN'> M1= DREHEN8H M2= AUF/ABIR M3= MAGNETO\^f FUNKTIONp DAS PROGRAMM BEFINDET SICH ZUNAECHST IN DER LERNPHASE.z DER ROBOTER WIRD UEBER DIE TASTEN E1-E6 GESTEUERT.  MIT E7 WIRD DER STATUS DES ROBOTERS A: START MIT MAGNET AUS4 BELEGUNG DES INTERFACE:I EINGABENW E1= AUFd E2= ABu E3= RECHTS E4= LINKS E5= MAGNET EIN E6= MAGNET AUS E7= LERNEN  E8= STARTEN EX= ARMPOSITION  EY= WINKELPOSITIOTER N:X COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1984@bTl TEACH TABELLE}vHOEHE(100),WINKEL(100),MAGNET$(100) KONSTANTENGX30: BREMSPHASE ARMGY4: BREMSPHASE WINKELID1: ZEIGER IN DIE TEACH TABELLEMG$"AUS"ECHTS,EIN,M2,M3,M4+10,M2:11,M3:12,M4cM1M1EXEYAUSLINKSRECHTSEIN(10)(11)(12)M4:M1M4ĺ"DATAFEHLER IN ZEILE 320":M1INIT4:M2M14:M3M24:M4M34INIT&0 FISCHERTECHNIK COMPUTING:D TEACH IN ROBOINIT TM3020:M2072 ^M4:INITM38M2,M4B hM1M1M4:v rM4:M1M4ĺ"DATAFEHLER IN ZEILE ";10010M3:| | E1,E2,E3,E4,E5,E6,E7,E8 M1M1E1E2E3E4E5E6E7E8 M4:M1M4ĺ"DATAFEHLER IN ZEILE 310":EX,EY,AUS,LINKS,R4,95,192,202,208,15563=  239,45,167,3,168,240,2,160,16587`  1,32,1,227,88,96,44,94,17170 " 192,44,95,192,138,41,1,170,18043 , 32,30,251,76,145,3,0,0,18580 6 1,2,4,8,16,32,64,128,18835 @ 7,6,255,170,85,85,76,89,3,19611 JINIT:M144,89,95611 192,44,88,192,140,166,3,88,10474Z 96,120,32,12,225,166,161,224,11510 6,240,51,224,7,240,47,142,12467 167,3,44,94,192,44,91,192,13294 44,95,192,44,90,192,162,8,14121 10,44,97,192,16,2,9,1,14492  44,94,192,4442* 32,192,222,173,166,3,13,167,4410P 3,141,166,3,32,248,230,138,5371v 45,167,3,141,167,3,173,166,6236 3,77,167,3,141,166,3,168,6964 162,8,44,94,192,44,92,192,7792 14,166,3,144,3,44,93,192,8451 44,95,192,202,208,236,SR(E8) , USR(EX) , USR(EY)B F M1 BIS M4 SIND MOTORANSTEUERUNGENh P E1 BIS E8 SIND DIGITALEINGAENGE Z EX UND EY SIND ANALOGEINGAENGE d 768,169,0,240,48,169,3,208,10,1615 n 169,12,208,6,169,48,208,2,2437 x 169,192,120,141,167,3,169,44,3G)"GRUNDPROGRAMM WIRD GELADEN"P INTERFACE PROGRAMM FUER APPLE II COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1984 AUFRUF DES PROGRAMMS MIT( CALL M1,EIN CALL M1,AUS2 CALL M1,RECHTS CALL M1,LINKS < USR(E1)...U      "NR. HOEHE WINKEL MAGNET"$ < ROBOTER ABSTELLENFINIT100 MAGNET AUS ROUTINER M3,LINKS: MAGNET UMGEPOLT ZUR ENTMAGNETISIERUNGu M3,AUS: MAGNET AUSGESCHALTET{ T TITELMELDUNG^ h "FISCHERTECHNIK"r "COMPUTING"|  "TEACH IN ROBOTER"  "TEACH IN TABELLE" (EY)WINKEL(ID)#~ D1ČM1,RECHTS7 D1ČM1,LINKSC D(D)Z D2ČM1,AUS:2610j DGYī2410v M1,AUS 2410( MAGNET SCHALTEN2 MAGNET$(ID)"EIN"ČM3,EIN< I0100F (E8)1ī4010P IZ MAGNET$(ID)"AUS"İ2810 2INATEN <X,Y: PUNKT ZEICHNEN*F1200BP3010: KOORDINATENLZX1XddY1Y: UMSPEICHERNnn3010xX1,Y1X,Y: STRECKE ZEICHNEN12005010: DREIECK ZEICHNEN12003010: KOORDINATENX1XY1Y: UMSPEICHERN EJ2I (EJ)0ī1280-SSI1II7: SCHLEIFE BEENDENPIg (S0)(S7)ī1220M2,AUS: BEREITANZEIGE AUSM1,EIN: AKTIVANZEIGE EIN(S1330,1360,1420,1440,1520,1190,1200,1330,1600,1670,1720,1780,181023010: KOORD: GRIFFELPOSITIONC(E1)1ī1160: WARTE BIS TASTE LOSGELASSEN[AF2.12058(A2A1)sBF1.02102(B2B1)|:3M1,AUS: AKTIVANZEIGE AUSM2,EIN: BEREITANZEIGE EINI27: SCHLEIFE KOMMANDOTASTENS(E2)7: SHIFTTASTE AUF POS.TASTE$A1(EY);.B1(EX): GRIFFELPOSITIONm8(E1)1ī1080: WARTE, BIS TASTE LOSGELASSENsBL"GRIFFEL IN RECHTE"V"UNTERE ECKE!"`"POS.TASTE DRUECKEN!"j(E1)0ī1130: WARTE AUF POS.TASTEtA2(EY)~B2(EX)LDPUNKTE/MM3z7500: PAINT FUNKTION INSTALLIEREN9O"FISCHERTECHNIK"`"COMPUTING"f{"GRAFIKTABLETT""BITTE EINEICHEN""GRIFFEL IN LINKE""OBERE ECKE!""POS.TASTE DRUECKEN!" (E1)0ī1050: WARTE RISCHE DATEN74WA0.68068: WINKEL ALPHA LINKS OBEN`>WB0.93724: WINKEL BETA LINKS OBENwHA166: ARMLAENGERX0137: POSITION DREHKRANZ\Y061fSX1.0853: SKALENFAKTOR X-ACHSE BILDPUNKTE/MM pSY1.0267: SKALENFAKTOR Y-ACHSE BI= SCHIRM LOESCHEN/AUSMALEN) EX= BETA9 EY= ALPHA?N AUSGABENe M1= GRAFIK AKTIV~ M2= EINGABE BEREIT FUNKTION UEBERTRAGUNG EINER GRAFISCHEN  VORLAGE IN DEN BILDSPEICHER DES COMPUTERS  * GEOMET& 30 COPYRIGHT (C) ARTUR FISCHER FORSCHUNG9:VD BELEGUNG DES INTERFACE\NkX EINGABENb E1= POSITIONSTASTEl E2= SHIFT-TASTEv E3= PUNKT E4= STRECKE/LINIE E5= DREIECK E6= RECHTECK E7= KREIS E8ECHTS,EIN,M2,M3,M4+10,M2:11,M3:12,M4cM1M1EXEYAUSLINKSRECHTSEIN(10)(11)(12)M4:M1M4ĺ"DATAFEHLER IN ZEILE 320":M1INIT4:M2M14:M3M24:M4M34INIT FISCHERTECHNIK COMPUTING GRAFIKTABLETTINIT TM3020:M2072 ^M4:INITM38M2,M4B hM1M1M4:v rM4:M1M4ĺ"DATAFEHLER IN ZEILE ";10010M3:| | E1,E2,E3,E4,E5,E6,E7,E8 M1M1E1E2E3E4E5E6E7E8 M4:M1M4ĺ"DATAFEHLER IN ZEILE 310":EX,EY,AUS,LINKS,R4,95,192,202,208,15563=  239,45,167,3,168,240,2,160,16587`  1,32,1,227,88,96,44,94,17170 " 192,44,95,192,138,41,1,170,18043 , 32,30,251,76,145,3,0,0,18580 6 1,2,4,8,16,32,64,128,18835 @ 7,6,255,170,85,85,76,89,3,19611 JINIT:M144,89,95611 192,44,88,192,140,166,3,88,10474Z 96,120,32,12,225,166,161,224,11510 6,240,51,224,7,240,47,142,12467 167,3,44,94,192,44,91,192,13294 44,95,192,44,90,192,162,8,14121 10,44,97,192,16,2,9,1,14492  44,94,192,4442* 32,192,222,173,166,3,13,167,4410P 3,141,166,3,32,248,230,138,5371v 45,167,3,141,167,3,173,166,6236 3,77,167,3,141,166,3,168,6964 162,8,44,94,192,44,92,192,7792 14,166,3,144,3,44,93,192,8451 44,95,192,202,208,236,SR(E8) , USR(EX) , USR(EY)B F M1 BIS M4 SIND MOTORANSTEUERUNGENh P E1 BIS E8 SIND DIGITALEINGAENGE Z EX UND EY SIND ANALOGEINGAENGE d 768,169,0,240,48,169,3,208,10,1615 n 169,12,208,6,169,48,208,2,2437 x 169,192,120,141,167,3,169,44,3X)"GRUNDPROGRAMM WIRD GELADEN"P INTERFACE PROGRAMM FUER APPLE II COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1984 AUFRUF DES PROGRAMMS MIT( CALL M1,EIN CALL M1,AUS2 CALL M1,RECHTS CALL M1,LINKS < USR(E1)...U          P2,P4#jP1P1P4:K#tP4:P1P4ĺ"DATAFEHLER IN ZEILE ";710010P3:Q#~W#I00,165,48,145,26,200,20995A"132,26,208,12,230,27,165,27,21822h"201,128,208,4,169,96,133,27,22788"96,0,208,64,95,192,129,39,23611"0,0,0,0,0,0,0,0,23611"LPNT:P1PNT: STARTADR. FUER PAINT-FUNKTION"VP3026:P207#`P4:PNTP380,4,14737.!\32,4,245,96,32,213,244,96,15699T!f160,0,177,24,72,200,177,24,16533|!p133,38,200,177,24,133,39,200,17477!z177,24,133,48,104,168,96,152,18379!164,26,162,0,134,26,145,26,19062!200,165,38,145,26,200,165,39,20040"145,26,2' 200,165,27,197,25,208,194,96,8787O 138,74,170,144,25,152,221,239,9950s *2,208,8,165,48,221,237,2,10841 4208,1,96,138,240,4,32,103,11663 >244,96,32,138,244,96,165,39,12717 H221,235,2,208,8,165,38,221,13815 !R233,2,208,1,96,138,24!2,162,3,32,168,2,138,72,2807E32,112,2,177,38,41,127,37,3373i48,208,6,32,90,244,32,191,42242,104,170,202,16,229,165,24,513624,105,4,133,24,208,12,230,587625,165,25,201,128,208,4,169,6801 96,133,25,165,26,197,24,208,7675SSE $220=544? WIRD ZERSTOERT, FALLS STRINGS MIT MEHRg ALS 31 ZEICHEN EINGELESEN WERDEN.m AUFRUF: HPLOT X,Y: CALL PNT . (FUELLT FLAECHE UM X,Y)544,169,0,133,24,133,26,169,96,1294133,25,133,27,164,229,32,191,2228Y)2)ZWEIPI6.283185319WINKEL0ZWEIPI1(R1)`XX1R(WINKEL):YY1R(WINKEL)(X0)(X279)(Y0)(Y191)ēX,YWINKELX PAINT-FUNKTION INSTALLIERENbl MASCHINENPGM. LAEUFT IM EINGABEPUFFER v STARTADRE010: KOORDINATENX2X3Y2Y: UMSPEICHERNK3010: KOORDINATENoX1,Y1X2,Y2: DREIECK ZEICHNENyX,YX1,Y1p UNTERPROGRAMM KREISz3010: KOORDINATENX1XY1Y: UMSPEICHERN3010R((X1X)2(Y11(SX(X0A(ALPHA)A(BETAALPHA)))UY1(SY(A(ALPHA)A(BETAALPHA)Y0))eX10ĪX10yX1279ĪX1279Y10ĪY10Y1191ĪY1191 UNTERPROGRAMM DREIECK3010: KOORDINATENX1XY1Y: UMSPEICHERN3 Y(SY(A(ALPHA)A(BETAALPHA)Y0))7 X0ĪX0I X279ĪX279W Y0ĪY0i Y191ĪY191|& (E1)1ī31100  KOORDINATEN EINLESEN OHNE ZU WARTENALPHA((EY)A1)AFWABETA((EX)B1)BFWB WINKEL EINLESEN'XUSMALEN1200)3010: KOORDINATENJX,Y:PNT: FLAECHE AUSMALENT&1200o KOORDINATEN EINLESEN (E1)0ī3010 ALPHA((EY)A1)AFWA BETA((EX)B1)BFWB WINKEL EINLESEN X(SX(X0A(ALPHA)A(BETAALPHA))))1Y2Y)3,XM,YM:PNT: FLAECHE AUSMALEN61200N3010: KOORDINATENXX1XpY1Y: UMSPEICHERN3010: KOORDINATENX2X1X2(XX1)1:X2,Y1X2,Y:X2: BLOCK ZEICHNEN12006010: KREIS ZEICHNENX1,Y1:PNT: KREIS A3010: KOORDINATENFX1,Y1X1,YX,YX,Y1X1,Y1: RECHTECK ZEICHNENP1200k6010: KREIS ZEICHNENu1200@3010: STARTSIGNALEX,YJ(E1)1ī1200T4010: KOORDINATEN^X1,Y1|16105010XM(X1X2X)3 YM(YT4010: R-BEWEGUNG^S&h1140,rJ UEBERNAHME DER POSITIONg INIT: ALLE MOTOREN AUSz (E4)0ī3045 M1,RECHTS 3020 M1,AUS (E5)0ī3080 M1,LINKS 3050 M1,AUS (E6)0ī3120 M2,RECHTS& 3010: STIFT EIN%4010: R-BEWEGUNGE 2. SEGMENTGRENZEN PLOTTENOSS0]S1SG1qSSSSSEG(S1)AA0((AMA0)SS.5)PENAUS5010: A-BEWEGUNG"RRM,6010: STIFT EIN64010: R-BEWEGUNG@RR0JPENAUS 2PENAUS$<4010: R-BEWEGUNG.FAA0;PPENAUSRZ5010: A-BEWEGUNG\dAAMrn6010: STIFT EINx5010: A-BEWEGUNGRRMPENEIN4010: R-BEWEGUNGAA06010: STIFT EIN5010: A-BEWEGUNGRR0600S1SG#"ANTEIL NR.";S;1SEG(S1)ESSSSSEG(S1)LS\ NORMIERENhS1SGSEG(S1)SEG(S1)SSS"BITTE PAPIER EINLEGEN!""TASTE E3, WENN FERTIG!" (E3)0ī1290 PLOTTEN 1. RAHMEN(RR0A$"PLOTTER BITTE UEBER DIE TASTER NACH"08A$U"RECHTS AUSSEN STEUERN"_3010i$RMRs.AMA{8A$B"LINKS INNEN STEUERN"L3010VR0R`A0Aj DATENEINGABEt~"ANZAHL DER SEGMENTE ";SGSG0ĀSSEISSEGMENT-I* GRAFIK AUSGIBT. NACH DEM PROGRAMMSTART WIRD DER PLOTTER4 ZUNAECHST EINGEEICHT. DANACH WERDEN DIE ZEHLENWERTE> EINGEGEBEN UND DIE GRAFIK ERSTELLT.HR\"FISCHERTECHNIK"f"COMPUTING"pz"PLOTTER" *LINKS E6= VORWAERTS/ E7= RUECKWAERTSH EX= RADIALPOSITIONa EY= WINKELPOSITIONgv AUSGABEN M1= DREHBEWEGUNG M2= RADIALBEWEGUNG M3= MAGNET  FUNKTION   DAS PROGRAMM STEUERT DEN PLOTTER, DER EINE KR10 COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 19847:MD SEGMENT TABELLEYNSEG(9)jX KONSTANTENbBR30: BREMSPHASE RlBA5: BREMSPHASE Av BELEGUNG DES INTERFACE EINGABEN E3= UEBERNAHME E4= RECHTS E5= ECHTS,EIN,M2,M3,M4+10,M2:11,M3:12,M4cM1M1EXEYAUSLINKSRECHTSEIN(10)(11)(12)M4:M1M4ĺ"DATAFEHLER IN ZEILE 320":M1INIT4:M2M14:M3M24:M4M34INIT FISCHERTECHNIK COMPUTING PLOTTER&INIT TM3020:M2072 ^M4:INITM38M2,M4B hM1M1M4:v rM4:M1M4ĺ"DATAFEHLER IN ZEILE ";10010M3:| | E1,E2,E3,E4,E5,E6,E7,E8 M1M1E1E2E3E4E5E6E7E8 M4:M1M4ĺ"DATAFEHLER IN ZEILE 310":EX,EY,AUS,LINKS,R4,95,192,202,208,15563=  239,45,167,3,168,240,2,160,16587`  1,32,1,227,88,96,44,94,17170 " 192,44,95,192,138,41,1,170,18043 , 32,30,251,76,145,3,0,0,18580 6 1,2,4,8,16,32,64,128,18835 @ 7,6,255,170,85,85,76,89,3,19611 JINIT:M144,89,95611 192,44,88,192,140,166,3,88,10474Z 96,120,32,12,225,166,161,224,11510 6,240,51,224,7,240,47,142,12467 167,3,44,94,192,44,91,192,13294 44,95,192,44,90,192,162,8,14121 10,44,97,192,16,2,9,1,14492  44,94,192,4442* 32,192,222,173,166,3,13,167,4410P 3,141,166,3,32,248,230,138,5371v 45,167,3,141,167,3,173,166,6236 3,77,167,3,141,166,3,168,6964 162,8,44,94,192,44,92,192,7792 14,166,3,144,3,44,93,192,8451 44,95,192,202,208,236,SR(E8) , USR(EX) , USR(EY)B F M1 BIS M4 SIND MOTORANSTEUERUNGENh P E1 BIS E8 SIND DIGITALEINGAENGE Z EX UND EY SIND ANALOGEINGAENGE d 768,169,0,240,48,169,3,208,10,1615 n 169,12,208,6,169,48,208,2,2437 x 169,192,120,141,167,3,169,44,3e)"GRUNDPROGRAMM WIRD GELADEN"P INTERFACE PROGRAMM FUER APPLE II COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1984 AUFRUF DES PROGRAMMS MIT( CALL M1,EIN CALL M1,AUS2 CALL M1,RECHTS CALL M1,LINKS < USR(E1)...U      10p STIFT EINSCHALTEN'zPENEIN4I0100XM3,PEN: VERZOEGERUNGSSCHLEIFE^dIKSD(D)!D2ČM2,AUS:0DBR4020;I0DBINM2,AUSX4020i A-BEWEGUNGuM3,PEND(EY)AD1ČM1,RECHTSD1ČM1,LINKSD(D)D2ČM1,AUS:DBA5010I0DIM1,AUS50900 M2,AUS!: (E7)0ī3160/D M2,LINKS9N 3130EX M2,AUSXb (E3)0ī3010el R(EX)rv A(EY) (E3)1ī3200 WARTE, BIS TASTE LOSGELASSEN  R-BEWEGUNGM3,PEND(EX)RD1ČM2,RECHTSD1ČM2,LINITE~"LAENGE ";LAENGE' JUSTAGEL"SOLARZELLE BITTE EINJUSTIEREN"mA$"SOLARZELLE EXAKT NACH "}A$"OSTEN""BLICKRICHTUNG AUF DIE HORIZONTLINIE"2010Y0YE0XA$"WESTEN""BLICKRICHTUNG SENKRECHT NACH OBEN"2 ODER BEI NICHTVORHANDENSEIN DER FUNKTION TI$O GERAFFT DURCHGEFUEHRT.Uk"FISCHERTECHNIK"|$"COMPUTING".8"SOLARZELLEN"B"NACHFUEHRUNG"LV"JAHR ";JAHR`"TAG IM JAHR ";TAGj"ZEITZONE ";ZZt"BREITE ";BREEM20: GRENZWERT POTENTIOMETER E LINKSWER200: GRENZWERT POTENTIOMETER E RECHTSvGA5: BREMSPHASE AZIMUTHEAEMAAAL DAS PROGRAMM BENOETIGT EINE ZEITFUNKTION TI$. DER ABLAUF WIRD BEI EINGABE EINER STARTZEIT VON 0.00 UHRp -z FUNKTIONSDEFINITION ARCUS SINUSGAS(X)(X(1XX))N u ZAHLENKONSTANTEN 2*PI UND PI/1806.2831853,0.017453293ZWEIPI,RDAL20: GRENZWERT POTENTIOMETER A LINKSAR200: GRENZWERT POTENTIOMETER A RECHTS(RSAL34 TIME. DABEI WIRD NACH WESTEN POSITIV UNDV> NACH OSTEN NEGATIV GEZAEHLT.H DIE LOKALE BREITE (NACH NORDEN POSITIV)R DIE LOKALE LAENGE IN GRAD WESTLICH GREENWICH\ QUELLE: R.WALRAVEN IN SOLAR ENERGY, VOL.20f (1978), S.393-397 WERDEN VERLANGT:& DIE JAHRESZAHLZ DER TAG IM JAHR, BEGINNEND MIT 1 AM 1. JANUAR  AUSNAHME: IN SCHALTJAHREN BEGINNT DIE ZAEHLUNG BEI 0.  STUNDE, MINUTE UND SEKUNDE DER LOKALEN ZEITZONE* DIE ZEITZONE RELATIV ZU GREENWICH UNIVENTHOEHE EY= AZIMUTH  / AUSGABENG M1= AZIMUTH-MOTORc M2= HOEHENEINSTELLUNGj y FUNKTION DAS NACHFOLGENDE PROGRAMM ERRECHNET DEN SONNENSTAND UND STEUERT DIE SOLARZELLENNACHFUEHRANLAGE. ALS EINGABEPARAMETERNACHFUEHRUNG& ?0 COPYRIGHT (C) ARTUR FISCHER FORSCHUNGF: cD BELEGUNG DES INTERFACEjN yX EINGABENb E3= HANDSTEUERUNG AUF/RECHTSl E4= HANDSTEUERUNG AB/LINKSv E5= MOTORAUSWAHL E6= UEBERNAHMESIGNAL EX= HORIZOECHTS,EIN,M2,M3,M4+10,M2:11,M3:12,M4cM1M1EXEYAUSLINKSRECHTSEIN(10)(11)(12)M4:M1M4ĺ"DATAFEHLER IN ZEILE 320":M1INIT4:M2M14:M3M24:M4M34INIT  FISCHERTECHNIK COMPUTING  SOLARZELLENINIT TM3020:M2072 ^M4:INITM38M2,M4B hM1M1M4:v rM4:M1M4ĺ"DATAFEHLER IN ZEILE ";10010M3:| | E1,E2,E3,E4,E5,E6,E7,E8 M1M1E1E2E3E4E5E6E7E8 M4:M1M4ĺ"DATAFEHLER IN ZEILE 310":EX,EY,AUS,LINKS,R4,95,192,202,208,15563=  239,45,167,3,168,240,2,160,16587`  1,32,1,227,88,96,44,94,17170 " 192,44,95,192,138,41,1,170,18043 , 32,30,251,76,145,3,0,0,18580 6 1,2,4,8,16,32,64,128,18835 @ 7,6,255,170,85,85,76,89,3,19611 JINIT:M144,89,95611 192,44,88,192,140,166,3,88,10474Z 96,120,32,12,225,166,161,224,11510 6,240,51,224,7,240,47,142,12467 167,3,44,94,192,44,91,192,13294 44,95,192,44,90,192,162,8,14121 10,44,97,192,16,2,9,1,14492  44,94,192,4442* 32,192,222,173,166,3,13,167,4410P 3,141,166,3,32,248,230,138,5371v 45,167,3,141,167,3,173,166,6236 3,77,167,3,141,166,3,168,6964 162,8,44,94,192,44,92,192,7792 14,166,3,144,3,44,93,192,8451 44,95,192,202,208,236,SR(E8) , USR(EX) , USR(EY)B F M1 BIS M4 SIND MOTORANSTEUERUNGENh P E1 BIS E8 SIND DIGITALEINGAENGE Z EX UND EY SIND ANALOGEINGAENGE d 768,169,0,240,48,169,3,208,10,1615 n 169,12,208,6,169,48,208,2,2437 x 169,192,120,141,167,3,169,44,3)"GRUNDPROGRAMM WIRD GELADEN"P INTERFACE PROGRAMM FUER APPLE II COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1984 AUFRUF DES PROGRAMMS MIT( CALL M1,EIN CALL M1,AUS2 CALL M1,RECHTS CALL M1,LINKS < USR(E1)...U          !!! ! ! ! ! !!! (EFEE00.5) ASALĪASAL2 ASARĪASARD ESAMĪESEMV ESERĪESERf ESEA3160|  HOEHENSTEUERUNG  D(EX)ES  D1ČM2,RECHTS 0 D1ČM2,LINKS : D(D) D D2ī3160 I M2,AUS N 3090 X EAES!b ASAA3270AUS*M2,AUS"4(E4)0ī2130:>M,LINKS: AB/LINKSDH2100PRM1,AUS\\M2,AUSof(E6)0ī2030pX(EX): NEIGUNGSWINKELzY(EY): AZIMUTH(E6)1ī2180 STEUERUNGSROUTINE E0ı AS(AFAA00.5) ES)ZR1ī1500*T100(MIN100UHR)>(TI$)Tī1960H1500d EICHWERTE UEBERNEHMEN"WENN DIE AUSRICHTUNG STIMMT""TASTE E6 BETAETIGEN"MM1(E5)1ĪMM2(E3)0ī2080 M,RECHTS: AUF/RECHTS2050 M1,A0ĪAA360A180A%EERD;H$;":";M$;":";S$]&"A=";A;" GRAD E=";E;" GRAD"{03010: STEUERUNGSROUTINE:MINMIN10DMIN60ī1890NMIN0XUHRUHR1bUHR24ī1920lUHR0vTAGTAG1M$(MIN)H$(UHRZEIT$SSID(TZEIT15LAENGE)RD?SZWEIPIĪSSZWEIPIW LOKALE SONNENZEITcHRASw STUNDENWINKELPHIBREITERDEAS((PHI)(DEKL)(PHI)(DEKL)(H))AAS((DEKL)(H)(E))RD(E)(DEKL)(PHI)ī1810 0ĪRLRLZWEIPI4&dRHRLZWEIPI4GfRARLĪRARAZWEIPI4:1638hhRARHĪRARAZWEIPI4:1640rDEKLAS(SEL(EPS))| DEKLINATIONSID1.759335ZWEIPI(ZEIT365.25DF)(3.694E7)ZEITSIDZWEIPIĪSIDSIDZWEIPI SIDERIALE (2.3E9)ZEIT)(G)5,ELEL(3.49E4)(2G)THETAL6 LAENGE DER SONNE[@SEL(EL)iECL(EL)JEPS0.40914(6.2149E9)ZEITT EKLIPTIK CA. 23.5 GRADYCP(EPS)^RA(SELCPCL)`RL0bSELCP0ĪRLZWEIPI2cSELCPCL60ZZ0ZEITDF365SCHALTJAHRTAG1TZEIT24RDF4SCHALTJAHRĪZEITZEIT1~(DF0)(DF4SCHALTJAHR)ĪZEITZEIT1THETA(ZWEIPIZEIT365.25)G0.031271(4.53963E7)ZEITTHETAEL4.900968(3.67474E7)ZEIT"ELEL(0.03343400000"ĪZR1xI02000> WARTE MINDESTENS EINE SEKUNDEEI]TI$H$M$S$ĪZR1 WENN TI$ UNVERAENDERT, EXISTIERT KEINE UHRDFJAHR1980SCHALTJAHR(DF4)UHR(H$)MIN(M$)SK(S$)TZEITUHR(MINSK60) 2010A0(YY0)2.FA(Y0Y)180@ FE(XE0)90b"BITTE DIE UHRZEIT EINGEBEN"t"STUNDE ";H$(H$("00"H$,2)2"MINUTE ";M$<M$("00"M$,2)F"SEKUNDE ";S$PS$("00"S$,2)ZTI$H$M$S$dZR0 nTI$"0M(I),STA(I)IMĞ+20:5I3A"M";I;(8);(8);I22WSTA$(I);] dIn1240 ISTE GEDRUECKT16368,0MK("C")āI14:STA(I)AUS:STA$(I)"AUS":IuK("A")ĪSTA(M)AUS:STA$(M)"AUS"K("L")ĪSTA(M)LINKS:STA$(M)"LI."K("R")ĪSTA(M)RECHTS:STA$(M)"RE."K("X")Ģ23:K48K53ĪMK48I14172:CLR$;(E1);+5:CLR$;(E2);?8:CLR$;(E3);T11:CLR$;(E4);i 14:CLR$;(E5);~17:CLR$;(E6);20:CLR$;(E7);(23:CLR$;(E8);228:CLR$;(EX);<32:CLR$;(EY);xK(16384)128 K02000: KEINE TA" C : ALLE MOTOREN AUS"4t" A : AKT. MOTOR AUS"Q~" L : AKT. MOTOR LINKS"o" R : AKT. MOTOR RECHTS"" X : PROGRAMMENDE""1-4: MOTORNR. WAEHLEN":" E1 E2 E3 E4 E5 E6 E7 E8 EX EY"CLR$" "(8)(8)(8)""DIAGNOSE"HSTA(4),STA$(4): STATUS DER 4 MOTORENSI14qSTA(I)AUS:STA$(I)"AUS"xIM(4): MPGM.-ADRESSEN FUER MOTOR 1-4$M(1)M1:M(2)M2:M(3)M3:M(4)M4.M1: AKT. MOTORV"K O M M A N D O S"`jAMM  ; COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1984AP  FUNKTION}* DAS PROGRAMM UEBERPRUEFT ALLE MODELLE.4 DIE EINGAENGE WERDEN ANGEZEIGT> DIE AUSGAENGE WERDEN PER KOMMANDO GESTEUERT"FISCHERTECHNIK""COMPUTINGECHTS,EIN,M2,M3,M4+10,M2:11,M3:12,M4cM1M1EXEYAUSLINKSRECHTSEIN(10)(11)(12)M4:M1M4ĺ"DATAFEHLER IN ZEILE 320":M1INIT4:M2M14:M3M24:M4M34INITXb FISCHERTECHNIK COMPUTINGlv DIAGNOSEPROGRINIT TM3020:M2072 ^M4:INITM38M2,M4B hM1M1M4:v rM4:M1M4ĺ"DATAFEHLER IN ZEILE ";10010M3:| | E1,E2,E3,E4,E5,E6,E7,E8 M1M1E1E2E3E4E5E6E7E8 M4:M1M4ĺ"DATAFEHLER IN ZEILE 310":EX,EY,AUS,LINKS,R4,95,192,202,208,15563=  239,45,167,3,168,240,2,160,16587`  1,32,1,227,88,96,44,94,17170 " 192,44,95,192,138,41,1,170,18043 , 32,30,251,76,145,3,0,0,18580 6 1,2,4,8,16,32,64,128,18835 @ 7,6,255,170,85,85,76,89,3,19611 JINIT:M144,89,95611 192,44,88,192,140,166,3,88,10474Z 96,120,32,12,225,166,161,224,11510 6,240,51,224,7,240,47,142,12467 167,3,44,94,192,44,91,192,13294 44,95,192,44,90,192,162,8,14121 10,44,97,192,16,2,9,1,14492  44,94,192,4442* 32,192,222,173,166,3,13,167,4410P 3,141,166,3,32,248,230,138,5371v 45,167,3,141,167,3,173,166,6236 3,77,167,3,141,166,3,168,6964 162,8,44,94,192,44,92,192,7792 14,166,3,144,3,44,93,192,8451 44,95,192,202,208,236,SR(E8) , USR(EX) , USR(EY)B F M1 BIS M4 SIND MOTORANSTEUERUNGENh P E1 BIS E8 SIND DIGITALEINGAENGE Z EX UND EY SIND ANALOGEINGAENGE d 768,169,0,240,48,169,3,208,10,1615 n 169,12,208,6,169,48,208,2,2437 x 169,192,120,141,167,3,169,44,3p )"GRUNDPROGRAMM WIRD GELADEN"P INTERFACE PROGRAMM FUER APPLE II COPYRIGHT (C) ARTUR FISCHER FORSCHUNG 1984 AUFRUF DES PROGRAMMS MIT( CALL M1,EIN CALL M1,AUS2 CALL M1,RECHTS CALL M1,LINKS < USR(E1)...U"" " " " " """""""