MV - CPCEMU Disk-File Disk-Info CPCD2DSK 1.2 (Track-Info  NTITEL12 BIN "2OPQRSUVWXnBUSTOUT 3D BUSTOUT PGMSCREENS BUS TITEL12 BINoMC-GRAF BAS? PR-DEMO2BASHPR-TEIL7BAS- !DIGIDEMOBASpqSPS-EDITASCx#$%&'()*+,-./01PR-TEIL7BAK BUSTOUT BAS<3456789:BUSTOUT SCN;<=>?@ABCDEFGHIJBUSTOUT SCNKBUSTOUT SPRLMNCPCDATABBAS   )))   <<<<)<)<<)))<    <<<<<<<<<<<<<<<<<<<<<<<<B <<<<<<<<<<<<<<<<<<<<<<<<<<<B H<<<<<<<<<<<<<<<<<<<<<<<) H<<<<<-<<<<<<<) H<<MERGE-MEBASTDIGITED MC PR-DEMO1BAS3YZ[\]^_PR-LOAD BAS `aSCREENS BAKbSPS-MIAUBASQcdefghijklmBUSTOUT BAKBILDSCH PICrstuvwxyz{|}~BILDSCH PICDIGITED BASMBUSTOUT SCODIGITEXTRSX PR-TEIL7BAK DEMO2 DIGIDEMO4 DIG PR-TEIL7BIN <<<<<<<<<<B H<<<<- H<<<<<<<) <)B B  DEMO1 DIGIDEMO3 DIGCPCDATABBAKCPCDATABBAK  KÇKKÇKKKÇK          DATA   DATAU[[ , <<<<<<<)    <<<<<<<<<)<<) TITEL12 BIN@@ TITEL12 $$$`@ <<<<<<    <<<)<<<)<<<B Track-Info  N   ))))    <<))<<)   <<<<<<<<<<-<<<<<<<<<<<<<<<<<<<<<<) <<<<<<<<-<--         H<<<<<<<<<<<<<<<<<<<<<<<<<<<B H<<<<<-<<<<<<< <<[=((?S=?!mEDͻB:==2=!=AxE-B!(BU?!B*>K>G4=!TED*>}.o:=ڤ?:>oҤ?:=8ک?ɯ2=:= := 2>ny@:=>2=:=?:=z2=?:=G2=>2=>:=2(>22=:=2=2=ɯ2=!KxU!U Sw@~##4=ү *w@P& .@4>4>4:=O> 4> 4Ow:> 9y2>   /*>}2=|G>C2=yG!I "=ͭ>#"=ͭ>>2 >> G*=L4=:==(T&&&2=,BUSTOUT 3D ttf*ڽ"R!"ڽ>2ٽ:(Q>޻xUɻ *ڽ"R!"ڽ>2ٽ:(Q>޻xUɻ 8>͟Q>͟D !E!RREAD a$A"=[=4=: >:=:=GG*>}/!>:>iB2=2=2>2 >AE>22E2=͕A"=2=*>MR"=:=2=2*=:=)=uD[=*>MR"=:=2=I4=:>>2>D! J(G 4=!.BR~ Bw!!(B~A### w+~< 02=2>>"2=>2=!L">!"=>2>2=2E2E:E&"=:>(*=xD:E2=2=:> ̗B> 2>ͤB2=2>͔<ͱB͹<ͱB>2=;2=L4=RB*>}*2=>2=KR&"=B!(B.B#U<~#!pee':=CC: >(('(:(L(RuDͻBC:E(>2=2=C:E(>ÖC>2=2=C*>>cC.a">> 2>CAC2=ͨDC:= C<2=!=AC:= C<2=!A2=:>:==2=CuDͻB>2>>2=*=uD)):===pD2="=2=:=2=>=+2=><2=>*=I4=:>@D2=*=L4=:= >z!-AB( G!}A!;ED2=AuDRB8B!2K<4=:e2=͂DC@:(>2E< E2E~OE#~#G :EBUSTOUT PGM;e e ~Z#ÙE-GET READY-!84=!84=!e w#!?>2=2=2E2!.B+w2=>2=C!B!.B! B>CxE4B͹DzAͬA>2=*>L4=*>K>> G <M4=:E+<:E<2E E2E2E:=:=dA<:=̨D: >< 2 >:>@FC2=Eg:>̔<:>̹<: >C:>A:>ĬA;*>>2=-->2Բ<:>">G#">.22=*>>2=,,:>G>n<">++î<>no2=:>uD*=[=D=j="=:> *2=:=̐=ı=>2=D>2=y@>2= F D! u!E͙E!,ED!rK; 4=~Z#ÙE-GET READY-!84=!84=!e w# !J E>22,2B,77,10,FC 40 DATA 32,*=uD)):===pD2="=2=:=2=>=+2=><2=>*=I4=:>@D2=*=L4=:= >z!-AB( G!}A!;ED2=AuDRB8B!2K<4=:e2=͂DC@:(>2E< E2E~OE#~#G :EI"=:> 4=zAͬA&C>2=:=<0?2=>?:=2=&C>2=:==?2=>?:=2=)>2=:=<>?2=>=:=2=#>2=:==?2=>=:=2=+:=2=?%i G  X GE:=d%>Ҙ>â>:=!=>Z :=!=>!TS>:= := â>S=B ~(8:= wÇ>~>=wAy@̭>>â>:=({?ɯwͭ>Ó>:==2= >2=A[>!( BP&Z L4=y@͜@Ó>ؐ>:=(?>2=?Track-Info  NSCREENS BUSe"" ` c6 0` c6&0bc603333,66,01,wPfwPfwPfwPfwPfwPfwPf@330@@@ @b@%f Ufb%U00000uWvgvg0vg00uW000`ff00DF`0DD`2UD`#2UT@#2uT@#0wU0P3333333f30V0003330033330@3@C@3333333333QQUQQQQQQQQQQUQUQQQQQQQQQQ"" ( ) (( )) w(, ) / ( )  "": ( )"???"  Hauptauswahl drucken: - , "MC-Graf V1.0 von J. Stroiczek"- , "-----------------------------" ,P,,"(1) Balkendiagramm""(2) Tortendiagramm""(3) Kurvendarstellung""(4) Punktdarstellung"5""(5) Saulendiagramm" f , , ,"(6) Legen"" ` c6 0` c6&0bc603333,66,01,10,77,05,50,66,01,10,77 30 DATA 05,50,66,01,10,77,05,50,66,01,10 40wPfwPfwPfwPfwPfwPfwPf@330@@@ @b@%f Ufb%U00000uWvgvg0vg00uW000`ff00DF`0DD`2UD`#2UT@#2uT@#0wU0P3333333f30V0003330033330@3@C@3333333333QQUQQQQQQQQQQUQUQQQQQQQQQQ"" de definieren"6"(7) Directory anzeigen"#@"(8) Ausgabe-Datei festlegen"J"(9) MiniCalc aufrufen" T ,#^ , "Ausgabe-Datei:";h , "Titel:";r| Hauptauswahl:  G t("123456789",) ,X,,,, ,,,,  2 Eingabe eines Zeichens und auf "J" testen:@"" ""C() ("J")0 Minimum und Maximum der Daten ermitteln: m <<<<<<<<<) <<<<-B <<<<<<B     mQ   mw( m, ( )) mv( m, ( ))  ,( m m)! Bildueberschrift drucken:& 0 ((), ;: D Balkendiagramm zeichnen:N*X  Minimum und Maximum ermitteln.b 0 o( ) o ol  gv o( )  o o( ) ow(, ( )) ov(, ( ))H  m ( ( ) m)             ( ( ))  o,  o,  X  o, m  o, m  o,( ( ) m) D o,( ( ) m)  o, m  U  oZ o , ( o m)  o , ( o m)  S  o,( o m)  o o, o( o m) w o o, o( o m)  o o, o( o m)  MC-GRAF BASpr o , o o o o , m   MC-Graf V1.0. Eine Grafikerweiterung fuer "MiniCalc"( von 2 Joachim Stroiczek<*F ( ),( ), ( ), ( )P  ""Z(d Daten in eigenes Format bringen:nx  () (( )) u(,)"'" ( )y(,())   Track-Info  N o,( o m) M o,( o m)  o o, o( o m) " o, (A );  +  Rand mit einer Skalierung versehen:5  o( mw(, m)) o (( o))** o o o o *-4 ( m o) ( m o)+> ,( o m)  ,H , ( ); R \ ,  ,hf  , "x"; o;pz Legende drucken: )( )( )( ) cn tru   Punkt-Darstellung: tru  Kurve darstellen: fals*  Minimum und Maximum ermitteln 0 Titel drucken  A" o(( )  o( ( ) m) 7, o, o , , , , ,6 , JH@  (( )( ),( ( ) m)    <, P (A );") ";u(( )" ",);":"; "#####.##"; ( )  / "" <, " = Bild sichern"$ <, "

= Bild drucken";-  <, () <, ();$ t("SP",) ,,H" Tortendiagramm darstellen: 0 Titel drucken;    ( ( )) V$   ( )D( ( )) ( )( 'J o, o ( A); T "^   Skalierung & Legende h"r Erklaerungstexte eingeben:|% "*** Legende definieren ***"(  ,  , "Titel:",  , ;(();   ,  ( ) ,  ( A);? ") ", "" ( )u(" ",)$ ,  ( );(();   MiniCalc aufrufen   N  ) . x Daten sortieren8  LB o( ()) o( ()) o oL  V    d( od ( )),d( od ( )) ( )    N`  o o  o o   o o  o o 'j    ,  , 7t o( od), o( od)  , Q~ o(( o ( ))d), o((     ,  ( );" "; & 00   ,  ( >) /:    , ; D ,, , N bX cn "MINICALC",.b "MiniCalc kann nicht geladen werden!"l  Fv) Name der Ausgabe-Datei festlegen:0 "*** Ausgabe-Datei festlegen ***"  , ;# , "Ausgabe-Datei:", "" 2 t(,".") o ( ))d)  , S ( od ( )),( od ( )) ( A);/ o o ( ) o o      ,^   o ( ) ( ) ( ) ( ) o D   Legende druckeni  ( )( ) o ( ) ( ) ( ) ( ) o 8 Unterroutine zum Zeichnen eines "Tortenstuecks":2 Mitt".PIC" Bild abspeichern: ""   , ,,@ D "Das Bild kann nicht als Datei '";;"' abgelegt werden!"    *4 Bild ausdrucken:>CH "*** Ein Druckertreiber ist noch nicht implementiert! ***" R \f An dieser Stelle istp ein Hardcopy-Programmz fuer den jeweiligen Druckertyp einzusetzen.------------------------6 Inhaltsverzeicelpunkt (o1,o2), Drehung o3, Radius o5 B o, o o( od) o( od) ,  o= #{(  ( );2 o o , < 2F , o( od), o( od)PZd Die Daten sortieren:nx cn tru cn cn fals   ( ) ( ) o ( ) ( ) ( ) ( ) o(Track-Info  Nhnis der Datendiskette anzeigen:* "*** Directory ***"   ; "Der Disketten-Katalog kann nicht gelesen werden!"    Saeulendiagramm:     0$  _. o( ) o( ) o o(v(, ( )) m) +8 o, o ( A); UB   &L o((  )D) o8V o o, o  o o, o ,,,,,,,,,,,,,=@|SPRIT,,,,,,,,,,,,,,,,,,,,,/J|SPRIT,,,,,,,,,,,,,*T|SPRIT,,,,,,,, ,,,2^|SPRIT,,,,,,,,,,,,,,,Gh|SPRIT,,,,,,,,,,,,,,,,,,,,,,,,,,;r|SPRIT,,,,,,,,,,,,,,,,,,,,G||SPRIT,,,,,,,,,,,,,,,,,,,,,,,,,,,;|SPRIT,,,,,,,,,,,,,,,,,,,,,C|SPRIT,,, ,, ` Lj  o o o o( ( ) m)  o ot  D#~  o( )! o( oD) @ o , o o o , m oL o o , o o o o , m o !   Skalierung & LegendeA); UB   &L o((  )D) o8V o o, o  o o, o ,,,,,,,,,,,,,,,,,,,:|SPRIT,,, ,,,,,,,,,,,,,,,,?|SPRIT,,, ,,,,,,,,,,,,,,,,,,,D|SPRIT,,, ,,,,,,,,,,,,,,,,,,,,,,C|SPRIT,,, ,,,,,,,,,,,,,,,,,,,,,J|SPRIT,,, ,,,,,,,,,,,,,,,,,,,,,,,,,2|SPRIT,,, ,,,,,,,,,,,,*|SPRIT,,,,,,,,,,,*|SPRIT,,,,,,,,,,&,,|PR-DEMO2BASp## |SP.I.OFp,);u(p,)/|R ---------------------------------------------------------------------------L DAS TITELLOGO VON PC SCHNEIDER INTERNATIONAL ALS PROFI RSX-ICON(:2 (c) 6/1987 by Klaus Kremer<RF---------------------------------------------------------------------------PEZ _|SP.MEMOR,m,`MEMORY &5FFF:SP.MEMORY,&SPRIT,,,,,,,,,,,&,8|SPRIT,,,,,,,,,,,,,,,,,,:|SPRIT,,,,,,,,,,,,,,,,,,0|SPRIT,,,,,",,,,,,,,,/|SP.O,,@fehleICON einschalten&0  , , ,:)D|SP.PU,,,ICON darstellenNFX , " Mode ";;"!"" Bitte druecken Sie eine Taste!"b C"" bl9v|SP.GE,ICON wieder vom Bildschirm entfernen7|6FFF,&6000JdBitte laden und initalisieren Sie zuerst Profi RSX (Sprite-Befehle)Fnund reservieren Sie dann einen Speicherbereich (mit SP.MEMORY),)xbevor Sie dieses Programm starten. ICON-Nr. festlegenMode festlegenMfehle|SP.DE,,4,,,@fehleICON-Groesse festlegen fehle D|SPRIT,,,,,,,,,,,,,ICON loeschenICON definieren?|SPRIT,,,,,,,,,,,SP.OF,,@fehleICON wieder ausschalten'    ELSE ENDR///////////////////////////////////////////////////////////////////////////RDemo fuer die Folge 6 von Profi RSX --------------------------------------/R(c) 1987 by Klaus Kremer -------(f. Schneider/ Amstrad CPC 464/ 664/ 6128)/R///////////////////////////////////////////////////////////////////////////kVor dem Start dieses Programmes muessen die Teile 5 & 6 von Profi RSX gelade,,,,,,,,,,,A|SPRIT,,,,,,,,,,,,,,,,,,,,,,?|SPRIT,,,,,,,,,,,,,,,,,,,,,,E|SPRIT,,,,,,,,,,,,,,,,,,,,,,,,,?|SPRIT,,,,,,,,,,,,,,,,,,,,,,@|SPRIT,,,,,,,,,,,,,,,,,,,,,,,?"|SPRIT,,,,,,,,,,,,,,,,,,,,,,,;,|SPRIT,,,,,,,,,,,,,,,,,,,,E6|SPRIT,,,,,,,,,,,,Track-Info  Nn und initalisiert sein!\ U|SP.MEMOR,m,VMEMORY &5FFF:SP.MEMORY,&6FFF,&6000'Speicherbereich setzen! , , , , A   |SP.I.PRI,,Sprites auf Prioritaet 0 Sprites definieren*.4    T(Lokomotiven) >"Ball"0H   R .Sprite-Nummer4R|SP.DE,,,,,@  9\|SPRIT,,,,,,,,,Sprite loeschenf|SPRIT,,,,, terrupt-Routine fertig ist/|SP.I.KANA,,@  "Z,|SP.I.K.OF,|SP.I.K.OF,|SP.I.K.OF,|SP.I.K.OF,|SP.I.K.OF,|SP.I.OF6@JLokomotiven definieren4T|SP.DE,,,,,@  6^|SP.DE,,,,,@  6h|SP.DE,,,,,@  6r|SP.DE,,,,,@  |1. Einzelbild |SPRIT,,,,,,,|SPRIT,,,p|SPRIT,,,,,, ,$z|SPRIT,,,,,,,,,&|SPRIT,,,,,,,,,,-|SPRIT,,,,,,,,,,,,,)|SPRIT,,,,,,,,,,,#|SPRIT,,,,,,, ,,|SPRIT,,,,,,,,,,,,#|SPRIT,,,, ,,,,(|SPRIT,,,,,,,,,,,.|SPRIT,,, ,,,,,,,,,,'|SPRIT,,, ,,,,,,,'|SPRIT,,, ,,,,,,,|SPRIT,,, ,,&Sp,,%|SPRIT,,,,,,,,,%|SPRIT,,,,,,,,, ,|SPRIT,,, ,,,,,,,,,0|SPRIT,,,,,,,, ,,,,L~2. Einzelbild%|SPRIT,,,,,,,,%|SPRIT,,,,,,,,'|SPRIT,,,,,,,,,'|SPRIT,,,,,,,,, 8|SPRIT,,, ,,,,,,, ,,,,,,,0&|SPRIT,,,,,,,,,,,,,0:rite aktivieren (einschalten)+|SP.O,,@  $Systemschleife0.  n L n |SP.EDI,,8BHintergrund aufbauenL i  V  i  ` |SP.PU,,,j t~1|SP.I.OF|SP.I.SYN,,Synchronisation1Reihenfolge der Sprites je Kanal bestimmen|SP.I.FOLG,,,,,|SP.I.FOLG,,,,,|SP.I.FOLG,,,, , 3. Einzelbild)D|SPRIT,,,, ,,,, ,(N|SPRIT,,,,,,,,,X|SPRIT,,,,,b|SPRIT,,,,,l :v|SPRIT,,,,,,,,,,, ,,,,,,,#|SPRIT,,,,,,,4. Einzelbild)|SPRIT,,,,,,,,, |SPRIT,,,,,|SPRIT,,,,,'|SPRIT,,,,,,,,, %|SPRIT,,,,,,,,)|SPRIT, Ablauf je Kanal festlegen$|SP.I.ABLAU,,,J,,,,(|SP.I.ABLAU,,,J,,d,,,,#|SP.I.ABLAU,,,J,,(,,Kanaele einschalten. |SP.I.K.O,|SP.I.K.O,|SP.I.K.O,|SP.I.O3(Warten, bis die Interrupt-Routine fertig ist/2|SP.I.KANA,,@  2<2FKanaele und Interrupt-Steuerung ausschalten>P|SP.I.K.OF,|SP.I.K.OF,|SP.I.K.OF,|SP.I.OFZ3dNeue Sprites den einzelnen Kanaelen,,,,,, ,,,!Grundmatrix der Lokomotive%|SPRIT,,,,,,,,,1 |SPRIT,,,,,,,,,,,, ,,,3|SPRIT,,,,,,,,,,,, ,,,,; |SPRIT,,,,,,,,,,,,,,,,,,,,/*|SPRIT,,,,,,,,,,,,, ,-4|SPRIT,,,,,,,,,,,, ,1>|SPRIT,,, ,,,,,,,,,,,,(H|SPRIT,,, ,,,,,,,*R|SPRIT,,, ,,, ,,,,,6\|SPRIT,,, zuordnenn|SP.I.FOLG,,x|SP.I.FOLG,,|SP.I.FOLG,,|SP.I.FOLG,,y    , {((,"/") |SP.I.K.OF,|SP.I.SYN,,|SP.I.O     Ablaeufe festlegen'|SP.I.ABLAU,, ,,,,,,,'|SP.I.ABLAU,, ,,,,,,,(|SP.I.ABLAU,, ,,,2,,,,'|SP.I.ABLAU,, ,,,d,,,,<|SP.I.K.O,|SP.I.K.O,|SP.I.K.O,|SP.I.K.O,3Warten, bis die InTrack-Info  N,,,,,,, ,,,,,,,8f|SPRIT,,,,,,,,,,, ,,,,,,,-p|SPRIT,,,,,,,, ,,,,,/z|SPRIT,,,,,,,, ,,,,,&Sprite aktivieren (einschalten)+|SP.O,,@    #,,P,,2     , {((,"|")G  ,"Sprites koennen auch hinter Graphik her-schweben!"  |SP.I.OF|SP.I.K.OF,$|SP.I.PRI,,|SP.I.PRI,,|SP.I.FOLG,&43,&4C,&45,&41,&D2,&50,&4F2h &4B,&45,&31,&B6,&46,&49,&4E,&C4,&44,&49,&532r &50,&52,&CF,&44,&49,&53,&4B,&2E,&CD,&44,&492| &53,&4B,&2E,&D0,&44,&49,&53,&4B,&2E,&53,&D42 &43,&41,&4C,&4C,&B1,&43,&41,&4C,&4C,&B2,&432 &41,&4C,&4C,&B3,&50,&45,&45,&CB,&50,&45,&452 &4B,&31,&B6,&FE,&01,&C0,&3A,&37,&BD,&FE,&8D2 &C0,&DD,&7E,&00,&C3,&5B,&BD,&FE,&01,&C0,&3A2 &37,&BD,&FE,&8D,&C0,&3A,&D5,&B8,&DD,&6E,&002 &DD,&66,&01,&77,&23,&36,&00,&C9,&CD,&06,&B92 &21,&00,&00,&F3,&11,&01,&00,,,, , |SP.I.FOLG,, , ,,$|SP.I.ABLAU,,,J,,,,# |SP.I.ABLAU,,,J,,,,: |SP.I.SYN,,|SP.I.K.O,|SP.I.K.O,|SP.I.O 3$ Warten, bis die Interrupt-Routine fertig ist". #,p" * Profi RSX *"@8    #, , #,(p,);u(p,)/B |SP.I.KANA,,@  8 L V |SP.I.OFp,);u(p,)/|SP.I.KANA,,@  |SP.I.OFZFDEC H&01,&DB,&6E,&362 &00,&ED,&B0,&11,&EE,&6E,&21,&ED,&6E,&36,&002 &01,&19,&91,&ED,&B0,&C9,&FE,&01,&C0,&DD,&7E2 &00,&FE,&01,&3E,&19,&21,&4D,&01,&38,&0C,&3E2 &32,&21,&A7,&00,&28,&05,&3E,&0A,&21,&5D,&002 &C3,&68,&BC,&FE,&03,&C0,&DD,&7E,&00,&DD,&4E2 &02,&DD,&46,&03,&DD,&6E,&04,&DD,&66,&05,&772 &5D,&54,&13,&0B,&AF,&B9,&20,&02,&B8,&C8,&ED2 &B0,&C9,&FE,&02,&C0,&AF,&DD,&4E,&00,&DD,&462 &01,&DD,&6E,&02,&DD,&66,&03,&18,&E0,&FE,&022& &C0,&DD,&6E,&02,&DD,&66,&03,&DD,&5E,&00,PR-TEIL7BASp&72,&74,&2E,&00,&00,&00,&00,&0010010 FOR i=28160 TO 291O ********** BASIC-Loader fuer die Befehlserweiterung Profi RSX **********OTeil 7: Allgemeine Befehle ---------------------------------------------(O2Programm-Stand: 25.09.1987 ---------------------------------------------<OFVersionen 1.1/1.2/1.3 (fuer Schneider/ Amstrad CPC 464/664/6128) -------POZCopyright (c) 1987 by Klaus Kremer&DD20 &56,&01,&73,&23,&72,&C9,&FE,&04,&C0,&DF,&572: &6F,&C9,&5A,&6F,&FF,&AF,&F3,&DD,&6E,&00,&DD2D &66,&01,&77,&E5,&23,&77,&DD,&6E,&02,&DD,&662N &03,&7E,&B7,&20,&03,&E1,&FB,&C9,&23,&5E,&232X &56,&ED,&47,&DD,&4E,&04,&DD,&46,&05,&DD,&6E2b &06,&DD,&66,&07,&1A,&ED,&B1,&FD,&E1,&FB,&E02l &F3,&FD,&E5,&E5,&C5,&F5,&D5,&2B,&ED,&57,&3D2v &28,&09,&47,&13,&1A,&23,&BE,&20,&0D,&10,&F82 &D1,&F1,&C1,&D1,&E1,&1B,&73,&23,&72,&FB,&C92 &D1,&F1,&C1,&E1,&18,&D3,&FE,&01,&C0,&DD,&7E2 &0 -------------------------------------dNn***********************************************************************x,Initalisierung mit CALL 28160 (&6E00)>Vor der Laden des M-Codes & der Initalisierung muss der<Speicherbereich durch MEMORY &6dff geschuetzt werden! m* n q  , "Soll der M-Code (Profi RSX-Teil 7) auf Diskette/ Kassette abgespeichert werden (j/n)"; "j" "J"   0,&B7,&28,&1D,&3A,&37,&BD,&FE,&8D,&21,&2C2 &AE,&28,&03,&21,&45,&AE,&22,&E1,&6F,&11,&DF2 &6F,&21,&E4,&6F,&0E,&FC,&06,&81,&C3,&D7,&BC2 &21,&E4,&6F,&C3,&DD,&BC,&AF,&32,&00,&00,&C92 &00,&00,&00,&00,&00,&00,&00,&00,&00,&FE,&012 &C0,&DD,&7E,&00,&B7,&3E,&FF,&28,&01,&AF,&5F2 &D5,&21,&08,&70,&CD,&D4,&BC,&D1,&D0,&7B,&CD2 &1B,&00,&C9,&81,&FE,&05,&C0,&DD,&7E,&00,&212 &58,&70,&77,&2B,&DD,&7E,&02,&77,&2B,&DD,&5E2 &04,&DD,&56,&05,&72,&2B,&73,&2B,&2B,&DD,&5E2 &06,&DD,&56,&0"pr-teil7", ,n,2 &00,&01,&14,&6E,&21,&10,&6E,&CD,&D1,&BC,&3E2 &C9,&32,&00,&6E,&C9,&00,&00,&00,&00,&49,&6E2 &C3,&A8,&6E,&C3,&B7,&6E,&C3,&CE,&6E,&C3,&ED2" &6E,&C3,&0B,&6F,&C3,&2B,&6F,&C3,&3D,&6F,&C32, &50,&6F,&C3,&B3,&6F,&C3,&ED,&6F,&C3,&09,&7026 &C3,&59,&70,&C3,&84,&70,&C3,&D4,&70,&C3,&272@ &71,&C3,&38,&71,&C3,&5C,&71,&52,&41,&CD,&472J &45,&54,&52,&41,&CD,&52,&45,&53,&45,&D4,&432T &57,&52,&49,&54,&C5,&52,&41,&4D,&46,&49,&4C2^ &CC,&52,&41,&4D,Track-Info  N7,&72,&2B,&73,&2B,&DD,&5E,&082 &DD,&56,&09,&72,&2B,&73,&21,&4C,&70,&CD,&D42  &BC,&D0,&22,&4D,&70,&79,&32,&4F,&70,&21,&502 &70,&DF,&4D,&70,&C9,&82,&00,&00,&00,&00,&002  &00,&00,&AF,&00,&00,&00,&00,&FE,&02,&C0,&AF2* &DD,&6E,&00,&DD,&66,&01,&77,&E5,&23,&77,&DD24 &5E,&02,&D5,&21,&83,&70,&CD,&D4,&BC,&D1,&302> &0D,&7B,&FE,&02,&30,&08,&CD,&1B,&00,&E1,&D02H &36,&01,&C9,&E1,&C9,&88,&FE,&02,&28,&36,&FE2R &08,&C0,&DD,&7E,&0A,&DD,&77,&09,&F3,&ED,&732\ &21,&71,&DD,&7E,&0C,&DD,&5 <, <<<<<<<B    <<<<<<<<<<)<<)B E,&0E,&DD,&56,&0F2f &21,&D1,&70,&73,&23,&72,&23,&77,&DD,&22,&232p &71,&ED,&7B,&23,&71,&DD,&E1,&C1,&D1,&E1,&F12z &ED,&7B,&21,&71,&FB,&DF,&D1,&70,&C9,&DD,&7E2 &00,&DD,&5E,&02,&DD,&56,&03,&21,&D1,&70,&732 &23,&72,&23,&77,&18,&E9,&00,&00,&00,&FE,&082 &C0,&DD,&7E,&0C,&DD,&5E,&0E,&DD,&56,&0F,&212 &D1,&70,&73,&23,&72,&23,&77,&DD,&22,&25,&712 &DF,&D1,&70,&F5,&E5,&D5,&C5,&DD,&E5,&DD,&2A2 &25,&71,&06,&04,&DD,&6E,&00,&DD,&66,&01,&D12 &73,&23,&72,&DD,&23,&DD,&23,&10,&F0,&D   )))))<    )<<)   <<<<<<<<<<<-<<<<<<<<<<<<<<<<<<<<<<B <<<<<<<<<<-<----<-- J          <<<<<<<<<<<<<<<<<<<<<<<<<<) <<<<<-<<<<<<<B <0 THEN GOSUB 6760:GOTO 5410 5840 IF b$="E" AND ende<255 ngabe 5380 ' 5390 zeile=0:CALL &BB03 5400 anf=INT(zeile/20)*20:GOSUB 6670 5410 PEN 3:GOSUB 5420:PEN 0:GOTO 5470 5420 LOCATE 1,1+zeile MOD 20 5430 LOCATE#1,1,1:FOR i=0 TO 1 5440 PRINT#i,USING"###";zeile; 5450 PRINT#i," "bef$(zeile)" "opk$(zeile)opp$(zeile)" "bem$(zeile); 5460 NEXT:RETURN 5470 MID$(bef$,1,3)=bef$(zeile):MID$(opk$,1,1)=opk$(zeile):MID$(opp$,1,2)=opp$(zeile):MID$(bem$,1,13)=bem$(zeile) 5480 x=5:MID$(a$,1,1)="*":MID$(b$,1,1)="*" 5490 GOSUB 6980 5500 MID$(a$,1,1)="*":MID$(a$,1,1)=INKTHEN GOSUB 6880:MID$(bef$(zeile),1,3)="NOP":MID$(opk$(zeile),1,1)=" ":MID$(opp$(zeile),1,2)=" ":MID$(bem$(zeile),1,13)=SPACE$(13):GOTO 5410 5850 IF b$=CHR$(9) THEN 6630 5860 GOTO 5810 5870 ' 5880 CLS#1:PRINT#1,USING"###";zeile;:PRINT#1," Wirklich PE - J/N";:x=0:GOSUB 6980 5890 MID$(b$,1,1)="*":MID$(b$,1,1)=INKEY$:IF b$="*" THEN 5890 5900 IF b$="J" THEN ende=zeile:MID$(bef$,1,3)="PE ":CLS:anf=INT(zeile/20)*20:GOSUB 6670:GOTO 6030 5910 IF b$="N" THEN 5410 ELSE 5890 5920 ' 5930 MID$(b$,1,1)="*":MIDEY$:IF a$="*" THEN 5500 5510 IF ASC(a$)<58 AND ASC(a$)>47 OR a$=CHR$(242) THEN GOSUB 8130:IF b$=CHR$(127) THEN 5410 ELSE 5400 5520 IF a$=CHR$(9) THEN 6630 5530 IF a$="-" THEN MID$(a$,1,1)="=" 5540 IF a$="L" OR a$="U" OR a$="O" OR a$="S" OR a$="R" OR a$="=" THEN MID$(bef$,1,3)=a$+" ":PRINT#1,a$;:x=x+1:GOSUB 6980:GOTO 5930 5550 IF a$="X" THEN MID$(bef$,1,3)="XO ":PRINT#1,a$"O";:x=x+2:GOSUB 6980:GOTO 5930 5560 IF a$="P" AND zeile=ende THEN MID$(bef$,1,3)="PE ":GOTO 6030 5570 IF a$="P" THEN 5880 5580 I$(b$,1,1)=INKEY$:IF b$="*" THEN 5930 5940 IF b$=CHR$(9) THEN 6630 5950 IF b$=CHR$(127) THEN 5720 5960 IF b$=CHR$(13) AND bef$<>" " AND opp$<>" " AND opk$<>" " THEN 6570 5970 IF b$<>"N" THEN 6030 5980 IF b$="N" THEN PRINT#1,b$;:MID$(bef$,x-4,8-x)="N ":MID$(b$,1,1)="*":x=x+1:GOTO 6030 5990 GOTO 5930 6000 ' 6010 'Operand Kennzeichen eingeben 6020 ' 6030 PRINT#1,SPACE$(9-x);:IF bef$="N " THEN MID$(opk$,1,1)=" ":MID$(opp$,1,2)=" ":PRINT#1," ";:GOTO 6430 6040 IF bef$="PE " THEN MID$(opk$,1,1)="F a$="N" THEN PRINT#1,a$;:x=x+1:GOSUB 6980:GOTO 5680 5590 IF a$="Z" THEN PRINT#1,a$;:x=x+1:GOSUB 6980:GOTO 5810 5600 IF a$=CHR$(127) THEN MID$(bef$,1,3)="NOP":MID$(opk$,1,1)=" ":MID$(opp$,1,2)=" ":MID$(bem$,1,13)=SPACE$(13):CLS#1:PRINT#1,USING"###";zeile;:PRINT#1," "bef$;:GOTO 6430 5610 IF a$=CHR$(243) AND (bef$="N " OR bef$="NOP") THEN 6430 5620 IF a$=CHR$(243) AND bef$<>" " AND bef$<>"PE " AND bef$<>"NOP" THEN 6050 5630 IF a$=CHR$(240) AND zeile>0 THEN GOSUB 5420:zeile=zeile-1:GOTO 5410 5640 IF ":MID$(opp$,1,2)=" ":MID$(bem$,1,13)=SPACE$(13):ende=zeile:GOTO 6570 6050 x=9:MID$(a$,1,1)="*":GOSUB 6980:IF b$<>"*" THEN IF ASC(b$)<90 THEN MID$(a$,1,1)=b$:GOTO 6070 6060 MID$(a$,1,1)="*":MID$(a$,1,1)=INKEY$:IF a$="*" THEN 6060 6070 IF a$="E" AND (LEFT$(bef$,1)="S" OR LEFT$(bef$,1)="R" OR LEFT$(bef$,1)="=") THEN 6060 6080 IF a$="E" OR a$="A" OR a$="M" OR a$="T" THEN PRINT#1,a$;:MID$(opk$,1,1)=a$:GOTO 6190 6090 IF a$=CHR$(240) AND zeile>0 OR a$=CHR$(241) AND zeile" " AND opp$<>" " AND opk$<>" " OR bef$="NOP" OR bef$="N ") THEN 6570 5660 GOTO 5500 5670 ' 5680 MID$(b$,1,1)="*":MID$(b$,1,1)=INKEY$:IF b$="*" THEN 5680 5690 IF b$="O" THEN MID$(a$,1,1)=CHR$(127):GOTO 5600 5700 IF b$=CHR$(13) OR b$=" " THEN MID$(bef$,1,3)=a$+" ":GOTO 6030 5710 IF b$="E" THEN 5760 5720 IF b$=CHR$(127) THEN MID$(a$,1,1)=b$:GOTO 5600 5730 IF b$=CHR$(9) THEN 6630 5740 GOTO 5680 57Track-Info  N          THEN 5600 6110 IF a$=CHR$(9) THEN 6630 6120 IF a$=CHR$(243) AND opk$<>" " THEN 6190 6130 IF a$=CHR$(242) THEN 5480 6140 IF a$=CHR$(13) AND opk$<>" " AND opp$<>" " THEN 6570 6150 GOTO 6060 6160 ' 6170 'Operand Parameter eingeben 6180 ' 6190 x=10:GOSUB 6980 6200 MID$(a$,1,1)="*":MID$(a$,1,1)=INKEY$:IF a$="*" THEN 6200 6210 IF a$=CHR$(13) AND MID$(opp$,1,1)<>" " THEN 6570 6220 IF a$=CHR$(127) THEN 5600 6230 IF a$=CHR$(9) THEN 6630 6240 IF a$=CHR$(240) AND zeile>0 OR a$=CHR$(241) AND zeileende THEN PRINT SPACE$(25);:i=anf+19:GOTO 6720 6700 PRINT USING"###";i; 6710 PRINT " "bef$(i)" "opk$(i)opp$(i)" "bem$(i); 6720 NEXT:CALL &BB03:RETURN 6730 ' 6740 ' Befehl loeschen 6750 ' 6760 CLS#1:x=0:GOSUB 6980:PRINT#1," ZL - Bitte warten ..."; 6770 ende=ende-1:FOR i=zeile TO ende 6780 MTHEN 5630 6250 IF a$=CHR$(243) AND MID$(opp$,1,1)<>" " THEN 6280 6260 IF a$=CHR$(242) THEN MID$(b$,1,1)="*":GOTO 6050 6270 IF ASC(a$)<48 OR ASC(a$)>57 THEN 6200 ELSE PRINT#1,a$:MID$(opp$,1,1)=a$ 6280 x=11:GOSUB 6980 6290 MID$(b$,1,1)="*":MID$(b$,1,1)=INKEY$:IF b$="*" THEN 6290 6300 IF b$=CHR$(127) THEN MID$(a$,1,1)=b$:GOTO 5600 6310 IF b$=CHR$(127) THEN 5720 6320 IF b$=CHR$(9) THEN 6630 6330 IF b$=CHR$(242) THEN 6190 6340 IF b$=CHR$(243) AND MID$(opp$,2,1)<>" " THEN 6430 6350 IF b$=CHR$(240) AND ID$(bef$(i),1,3)=bef$(i+1) 6790 MID$(opk$(i),1,1)=opk$(i+1) 6800 MID$(opp$(i),1,2)=opp$(i+1) 6810 MID$(bem$(i),1,13)=bem$(i+1) 6820 NEXT:anf=INT(zeile/20)*20:GOSUB 6670 6830 IF ende0 OR b$=CHR$(241) AND zeile" " THEN 6570 6370 IF b$=CHR$(13) AND MID$(opp$,2,1)=" " THEN MID$(opp$,1,2)="0"+MID$(opp$,1,1):GOTO 6570 6380 IF b$=CHR$(243) AND MID$(opp$,2,1)=" " THEN MID$(opp$,1,2)="0"+MID$(opp$,1,1):LOCATE#1,10,1:PRINT#1,opp$;:GOTO 6430 6390 IF ASC(b$)<48 OR ASC(b$)>57 THEN 6290 ELSE PRINT#1,b$:MID$(opp$,2,1)=b$ 6400 ' 6410 'Bemerkung eingeben 6420 ' 6430 FOR x=13 TO 25 6440 GOSUB 6980 6450 MID$(a-1) 6940 NEXT:MID$(bef$(zeile),1,3)="NOP":MID$(opk$(zeile),1,1)=" ":MID$(opp$(zeile),1,2)=" ":MID$(bem$(zeile),1,13)=SPACE$(13):anf=INT(zeile/20)*20:GOSUB 6670:RETURN 6950 ' 6960 ' Cursor setzen 6970 ' 6980 IF xa<>0 THEN LOCATE#3,xa,1:PRINT#3,CHR$(131);:LOCATE#4,xa,1:PRINT#4,CHR$(140); 6990 IF x<>0 THEN LOCATE#3,x,1:PRINT#3,CHR$(254);:LOCATE#4,x,1:PRINT#4,CHR$(253);:LOCATE#1,x,1 ELSE LOCATE#1,1,1 7000 xa=x:RETURN 7010 ' 7020 ' Quellprogramm in Maschinencode uebersetzen 7030 ' 7040 xadr=xmadr:CLS$,1,1)="o":MID$(a$,1,1)=INKEY$:IF a$="o" THEN 6450 6460 IF a$=CHR$(127) THEN LOCATE#1,13,1:PRINT#1,SPACE$(13);:MID$(bem$,1,13)=SPACE$(13):GOTO 6430 6470 IF a$=CHR$(9) THEN 6630 6480 IF a$=CHR$(240) OR a$=CHR$(241) THEN 5630 6490 IF a$=CHR$(242) AND x=13 THEN IF bef$="N " OR bef$="NOP" THEN 5480 ELSE 6280 6500 IF a$=CHR$(242) THEN x=x-2:GOTO 6560 6510 IF a$=CHR$(243) THEN 6550 6520 IF a$=CHR$(13) THEN x=25:GOTO 6560 6530 IF ASC(a$)<32 OR ASC(a$)>95 THEN 6450 6540 MID$(bem$,x-12,1)=a$:LOCAT#1:x=0:GOSUB 6980:CLS:POKE xadr,&F3:xadr=xadr+1:esflag=0 7050 LOCATE 2,3:PRINT"Maschinencode-Generierung 7060 LOCATE 2,5:PRINT"Zeile: 7070 LOCATE 2,8:PRINT"Bitte warten ... 7080 FOR zl=0 TO ende:LOCATE 9,5:PRINT zl 7090 MID$(bef$,1,3)=bef$(zl):MID$(c$,1,1)=MID$(bef$,2,1):IF c$="O" THEN MID$(c$,1,1)=MID$(bef$,3,1) 7100 IF bef$=" " OR bef$="NOP" THEN 7250 ELSE MID$(b$,1,1)=MID$(bef$,1,1) 7110 s=VAL(opp$(zl)):MID$(a$,1,1)=opk$(zl) 7120 IF a$="E" THEN s=s+xe00 7130 IF a$="A" THEN s=s+xa00 7140 E#1,x,1:PRINT#1,a$; 6550 IF x=25 THEN 6450 6560 NEXT 6570 x=0:GOSUB 6980:IF MID$(opp$,2,1)=" " AND MID$(bef$,1,1)<>"N" AND bef$<>"PE " THEN MID$(opp$,2,1)=MID$(opp$,1,1):MID$(opp$,1,1)="0" 6580 MID$(bef$(zeile),1,3)=bef$:MID$(opk$(zeile),1,1)=opk$:MID$(opp$(zeile),1,2)=opp$:MID$(bem$(zeile),1,13)=bem$ 6590 GOSUB 5420:IF BEF$<>"PE " THEN GOSUB 5420:zeile=zeile+1 6600 IF zeile>255 THEN zeile=255 6610 IF zeile>ende THEN ende=zeile:MID$(bef$(zeile),1,3)=" ":MID$(opk$(zeile),1,1)=" ":MID$(opp$(zeile),1Track-Info  N          IF a$="M" THEN s=s+xm00 7150 IF a$="T" AND (b$="S" OR b$="R" OR b$="=") THEN s=s+xt00a:GOTO 7170 7160 IF a$="T" THEN s=s+xt00e 7170 hb=INT(s/256):lb=s-256*hb 7180 IF b$="L" THEN 7300 7190 IF b$="U" OR b$="O" OR b$="X" THEN 7360 7200 IF b$="N" THEN MID$(C$,1,1)="N":GOTO 7310 7210 IF b$="S" THEN 7450 7220 IF b$="R" THEN 7540 7230 IF b$="=" THEN 7630 7240 IF b$="P" THEN POKE xadr,&FB:POKE xadr+1,&C9:xadr=xadr+2 7250 IF esflag THEN RETURN 7260 NEXT:POKE xadr,&FB:POKE xadr+1,&C9:MODE 1:IN,1)=CHR$(ZEITG) 7770 SAVE daten$,b,xan,xen-xan+1 7780 RETURN 7790 ' 7800 'SPS-Programme einlesen 7810 ' 7820 MODE 1:IF ende=0 THEN 7860 ELSE PRINT"ACHTUNG !":PRINT"Das SPS-Programm im Rechner wird":PRINT"ueberschrieben. 7830 PRINT:PRINT"Wirklich einlesen J/N 7840 IF INKEY(45)=0 THEN 7860 7850 IF INKEY(46)=0 THEN RETURN ELSE 7840 7860 PRINT:CALL &BB03:GOSUB 8290:PRINT:PRINT:PRINT"Bitte warten ... 7870 PRINT:PRINT:PRINT"Bei Fehlermeldung -":PRINT"Warmstart mit GOTO 1100":PRINT:PRINT 7880 xan=@laeK 0,1:INK 1,24:INK 2,0:INK 3,26:PAPER 0:PEN 1:BORDER 0:RETURN 7270 ' 7280 'L & LN - N 7290 ' 7300 POKE xadr,&3A:POKE xadr+1,lb:POKE xadr+2,hb:xadr=xadr+3 7310 IF c$="N" THEN POKE xadr,&EE:POKE xadr+1,1:xadr=xadr+2 7320 GOTO 7250 7330 ' 7340 'U & UN - O & ON - XO & XON 7350 ' 7360 POKE xadr,&47:POKE xadr+1,&3A:POKE xadr+2,lb:POKE xadr+3,hb:xadr=xadr+4 7370 IF c$="N" THEN POKE xadr,&EE:POKE xadr+1,1:xadr=xadr+2 7380 IF b$="U" THEN POKE xadr,&A0 7390 IF b$="O" THEN POKE xadr,&B0 7400 IF b$=nge$:xan=256*PEEK(xan+2)+PEEK(xan+1) 7890 HB=PEEK(&AE7C):POKE &AE7C,100:'HIMEM herabsetzen (ohne Garbage Collection) 7900 LOAD daten$,xan 7910 POKE &AE7C,HB 7920 IF MID$(daten$,1,8)="SPS-allg" THEN FOR i=0 TO 4:z(i)=ASC(MID$(ZEIT$,I+1,1)):NEXT:EING=ASC(MID$(ZEIT$,6,1)):AUSG=ASC(MID$(ZEIT$,7,1)):ZEITG=ASC(MID$(ZEIT$,8,1)) 7930 ende=ASC(laenge$) 7940 POKE xmadr,&C9:IF ende>0 THEN 7040 ELSE RETURN 7950 ' 7960 'SPS-Programm ausdrucken 7970 ' 7980 IF (INP(&F500) AND 64)=64 THEN MODE 1:LOCATE 10,12:PRIN"X" THEN POKE xadr,&A8 7410 xadr=xadr+1:GOTO 7250 7420 ' 7430 'S & SN 7440 ' 7450 IF c$="N" THEN POKE xadr,&EE:POKE xadr+1,1:xadr=xadr+2 7460 POKE xadr,&47:POKE xadr+1,&3A:POKE xadr+2,lb:POKE xadr+3,hb:POKE xadr+4,&B0 7470 POKE xadr+5,&32:POKE xadr+6,lb:POKE xadr+7,hb:POKE xadr+8,&78 7480 xadr=xadr+9 7490 IF c$="N" THEN POKE xadr,&EE:POKE xadr+1,1:xadr=xadr+2 7500 GOTO 7250 7510 ' 7520 'R & RN 7530 ' 7540 IF c$=" " THEN POKE xadr,&EE:POKE xadr+1,1:xadr=xadr+2 7550 POKE xadr,&47:POKE xadr+1,&3T CHR$(7)"Der Drucker ist":LOCATE 10,14:PRINT"nicht betriebsbereit.":FOR i=0 TO 2000:NEXT:RETURN 7990 MODE 1:LOCATE 7,7:PRINT"Ausdruck des Quellprogramms 8000 LOCATE 1,13:PRINT"Ueberschrift:":LOCATE 1,16:LINE INPUT"",text$ 8010 IF text$="" THEN 8000 8020 PRINT#8,SPC(9)text$:PRINT#8 8030 FOR i=0 TO ende 8040 PRINT#8,SPC(9);:PRINT#8,USING"###";i;:PRINT#8," "; 8050 PRINT#8,USING"\ \";bef$(i); 8060 PRINT#8,opk$(i); 8070 PRINT#8,USING"\ \";opp$(i); 8080 PRINT#8,bem$(i) 8090 NEXT:RETURN 81A:POKE xadr+2,lb:POKE xadr+3,hb:POKE xadr+4,&A0 7560 POKE xadr+5,&32:POKE xadr+6,lb:POKE xadr+7,hb:POKE xadr+8,&78 7570 xadr=xadr+9 7580 IF c$=" " THEN POKE xadr,&EE:POKE xadr+1,1:xadr=xadr+2 7590 GOTO 7250 7600 ' 7610 '= & =N 7620 ' 7630 IF c$="N" THEN POKE xadr,&EE:POKE xadr+1,1:xadr=xadr+2 7640 POKE xadr,&32:POKE xadr+1,lb:POKE xadr+2,hb:xadr=xadr+3 7650 IF c$="N" THEN POKE xadr,&EE:POKE xadr+1,1:xadr=xadr+2 7660 GOTO 7250 7670 ' 7680 'SPS-Programme speichern 7690 ' 7700 MODE 1:PRINT"SPS-P00 ' 8110 'Neue Zeile festlegen 8120 ' 8130 CLS#1:PRINT#1," Zu Zeile: ";:MID$(nr$,1,3)=" ":IF a$=CHR$(242) THEN x=14:z=0 ELSE x=15:z=1:MID$(nr$,1,1)=a$:PRINT#1,a$; 8140 GOSUB 6980 8150 MID$(b$,1,1)="*":MID$(b$,1,1)=INKEY$:IF b$="*" THEN 8150 8160 IF b$=CHR$(13) THEN 8240 8170 IF b$=CHR$(127) THEN RETURN 8180 IF b$=CHR$(242) AND z>0 THEN z=z-1:x=x-1:GOSUB 6980:GOTO 8150 8190 IF b$=CHR$(243) AND z<2 AND MID$(nr$,z+1,1)<>" " THEN z=z+1:x=x+1:GOSUB 6980:GOTO 8150 8200 IF ASC(b$)<48 OR ASC(b$)>57 Trogramm auf Diskette/Kassette":PRINT"abspeichern. 7710 PRINT:PRINT"Bestaetigen mit J/N 7720 IF INKEY(45)=0 THEN 7740 7730 IF INKEY(46)=0 THEN RETURN ELSE 7720 7740 PRINT:CALL &BB03:GOSUB 8290:PRINT:PRINT:PRINT"Bitte warten ...":PRINT:PRINT 7750 xan=@laenge$:xan=256*PEEK(xan+2)+PEEK(xan+1):MID$(laenge$,1,1)=CHR$(ende) 7760 xen=xan+19*(ende+1):IF MID$(daten$,1,8)="SPS-allg" THEN xen=xen+290:FOR I=0 TO 4:MID$(ZEIT$,I+1,1)=CHR$(z(i)):NEXT:MID$(ZEIT$,6,1)=CHR$(EING):MID$(ZEIT$,7,1)=CHR$(AUSG):MID$(ZEIT$,8Track-Info  N         HEN 8150 8210 PRINT#1,b$;:x=x+1:GOSUB 6980 8220 z=z+1:MID$(nr$,z,1)=b$ 8230 IF z=3 THEN 8240 ELSE 8150 8240 PEN#1,1:GOSUB 5420:PEN#1,3:zeile=VAL(nr$):IF zeile>ende THEN zeile=ende 8250 x=0:GOSUB 6980:RETURN 8260 ' 8270 'Datenfile-Nr 8280 ' 8290 PRINT:PRINT 8300 INPUT"Datenfile (1 .. 999) Nr: ",nr 8310 IF nr<1 OR nr >999 THEN 8300 8320 x=LEN(STR$(nr)):MID$(daten$,10,1)="0":MID$(daten$,13-x,x)=STR$(nr):MID$(daten$,13-x,1)="0":MID$(daten$,9,1)="." 8330 RETURN ben/aendern/uebersetzen/speichern/le:C!"fil"!screens.bus" d , ,6 fa,   9@ J   wer def( ) werJ 8,9,11,10,88,32Tmain menue%^  ",,,,,  h zar ();()| ," -MAIN MENU-", ,n ,n,  ,n ,n, ) ,n ,n,  ,n ,n, 3    AU ,  AU4 1-START GAME,2-DEFINE KEYS,3-OPTIONS,4-EDITORG LEFT,&3e06,RIGHT,&3e07,UP,&A600,DOWN,&A600,FIRE,&3e08,SH<<<<<<<<<<<B <<<- H<<<<<) HB   H OT,&3e09NEIC EI"" za za za  ^  $ EI"0" EI"4" # (EI) ,l,,zSTART GAME! ( LE)   ,,, ; ,c   ,     ("GAME OVER", ,); ,d,,,,  d ,    () bEscor"" (B -Bscorscor(( )0)5   scorscor( )  X`& KÇKÇKÇKKÇK          t  scor( t)scor( t)nam( t)nam( t)40scor( )scor , "ENTER NAME:"^: >   ,"-....."  ~ , "",nam (nam) # : Dnam( )(nam)N las  H X b   ^ lKEYSv ,"-DEFINE KEYS-"7 fa,  ,"ENTER KEY FOR"  fa,        DEF, ad;#  fa,  ,  DEF; BUSTOUT BASpvvC HR"!bustout.sco" $\  #! ,"pen 11:return"( ) 4  ()  ,,,<,f,B,f,<,"!q" 0("!bustout.pgm",; 2 2< ,,, #,,,, #,,, ,#F #,,,, #,,,,P ,2, ,OZ H Achtung:Dieser Call verriegelt BREAK! Bitte erst am Ende eingebend fa)n LEe$x colo musi spe  fa, C "" - DEF( )() ad,()A t  def( t) def( )   , ,  ();( DEF( ));       -   far , far   ,"OPTIONS:"  A*C ( ) ^  "1" "3" *Q4 ()  colo colo   colo H>  musi musi  ,     ,"!bustout.scn", "!bustout.spr",G 0 0,24,14,6,1,3,17,9,10,15,18,26,2,7,4,17 . 0,24,10,6,3,3,17,9,10,15,18,26,8,7,4,17,  () "!bustout.3d",  ,"!bustout.sco"  - #,scor( ) #,nam( );   -B ,((scor(), ,))0j E E wef la;C N weJ la>C N we laAC N Track-Info  N         ,  musi ,9H  spe spe spe speR ;, spe \  f *pz jump editor    T editor   ,,,#,,,, ,"-EDITOR-"  3    ,  au au eiC ei""  ei( ) $ ei"0" ei"4" # (ei) $,(,,  e  B 1-EDIT SCREENS,2-LOAD SCREENS,3-SAVE SCREZ    ( wer wer  , wer  2 ,  $,, , $, ,2 z z z2 z    a   = x, y (); a a  a a wer U( x)((( y))  ( ) wer ,   , wer 4 wer U U ,  wer ENS,4-KILL SCREENS$ ,"-EDIT SCREENS-"%. ,"LAST LEVEL:";( le);8  e B)L , ,,  , ,,DV a , 2 wer x y adUK` , ();(); ,"GAME LEVEL"; leve; ();();j =, leve_t ar(d leve=) ar stonH E  stonG ar E ~   C  @  ,,  ,3C  ""  wed leve= we, ar we we laB N B leve( le) le, leve X  X_& wer stonG stonH ar E  stonG ar E%0 la > we ston N :  D RN h ( we) l we h la, l la, hX , b ,"FIRE - YES"l ,"SHOT - NO"vC "" vE () def() # () def() M def()  x x( be x xM def()  x x( be x xM def()  y y be y yM def()  y y be y y  be be  def()  war d  ( ,"-LOAD SCREENS-"2di"*.bus" ,  `  def()   vi # U wU ( )    leve leve levec levec , "NEXT LEVEL ?"a#   fa,  ,"1-SCREEN:";  fa,  colo "COLOR"  "GREEN"Y   fa,  , "2-SOUND :";  fa,  musi "ON"  "OFF"r   fa,  ,"3-SPEED :";  fa,  spe "LOW"  spe "MID"  "HIGH"  <|DI,@di F JP FIL"" xZfil"!"fil d En fil,e x , goto main memue 8 ( LE)    ,"-SAVE SCREENS-"di(") |DI,@di  J FIL"" fil"!"fil' fil, ,e,( LE)=  ,8 ( LE)    ,"-KILL SCREENS-"  e  leve( le) , wee leve= la;C N, fa,    ,"HI-SCORES"S   ,  las  fa,    fa,  (0 );9  LAS  fa,    fa, . " ";scor( );" ";nam( );  las fa, @* za  C ""   4 > #>  2C HR"!bustout.sco" $\  #,scor( )f#,nam( )pz01,10 40wed leve> laAC N-" wed leve= la>C N , :C6 le,( le)@J ,"-" , T ~ "",fil^ FIL"" "h (FIL)  T&r t(FIL,".")  T|FILFIL".BUS"& , ()   e ,"ENTER" ,"GAME-LEVEL:" ,  ~ "",leve leve(leve)   , leve( LE)   leve  Track-Info  N         M EEP$$ $0 ABUSTOUT SCN@@|BUSTOUT $$$r ad adv ad, EP̠000$00 ET^^^^????????????o$ $ 0 $ $ $ ^^^^^^QE????????????+$0$ $ $ $ $  $ $ $ P Mώ ώ$ 0 $ 0000000000 $ P E M M EP0$00EE  M M EP̠$  $MMMMMMTrack-Info  NM EPE000$00 ATEQ=====>>>?===?$ $ $ $  ETQ>?<>===>=$ $ $ $0$00000000$  $ $ P M M E$ 00$ $ 0 0P0 M M E MM EEP$ $0$M M MMώ M Pؠ0$00 MEMώM ώPE000000000 M P̠ 0  $ ÂTrack-Info  NT^^^^^Q?====>>>?===?$ $ $ $000000$ $ $ P MM E$ 000$ $ P M  P̠ 0 $0 0 MMMMMM  MMώώPE0$00 MMMM $   A 0000000000EÂ^^^^^Q=?===>>>?==?=000 E$ $ $ $ $ T^^^^^^E>=>>?=E$ $ $ $ $ Track-Info  N000000000$ $ PMMώώ  MP𠊊000000000eEMMMMMM M P𠊊EE000000000!MM MMM ώώAUFBAU BAS@ PROGRAMMBASI !"#$%&'(0$0E^^^^^^Q<=<>====&^ؠT*QAP"T"T^ "T^3"T9,4,2,564,612,203,187,5,3,524,624,175,161,2,11Eϊ<<<<<<<<<<) H<<<<B H<<<<<B H                 H 3"TEϊ<<(U@D̈   "T^<< "T^E(U@D T^G*GGQ ÇKÇKKÇKKÇKÇK  GAGP"GGTؠT*QAP"T"T^??33 "T^??*QAÂP33"T3"T << "T^E(U@D T^G*GGQTrack-Info  N <<< <<<<<<<<<B     <<<<<<<<<<<)<)B   <<)<)))  )<)<<<<)   <<<<<<<<<<<<<<-<<<<<<<<<<<<<<<<<<<<) <<<<<<<<<-<<<-<-<-            H<<<<<<<<<<<<<<<<<B H<<<<<<<<<) <<  <<<))))   )))<<))   <<<<<<<<<<<<<<-<<<<<<<<<<<<<<<<<<<<<B <<<<<<<<<<-<-<-<-<-           H<<<<<<<<<<<<<<<<<<<<<<<<) H<<<<<<<<<<B H<<MERGE-MEBASpBB"& "mc-graf.bas"     )( "MiniCalc V1.1 von J. Stroiczek"; xo"'+-<>M%VS*/@TG"Q (),(),(),(,), (),(),(),()S: ( )  , ,,,$ ,j , , ,x , ,, ,h , , , Grafik-Modul aufrufen:7  ( ,)( )( , )3 (( )) ( ,) p<<<<<<<<<<B H<<<<- <<<<) B                    ()( ,)( (, "Grafik ausgeben?";  (, ();'( )( )" "& "mc-graf.bas"       "mc-graf.bas"  ( $ , . =),(),()S: ( )  , ,,,$ ,j , , ,x , ,, ,h , , , Grafik-Modul aufrufen:7  ( ,)( )( , )3 (( )) ( ,) p ÇKKÇKKÇKÇKKÇKKÇKK           <<<<) <<<-B <<<                 <<<,  <<<<<<<<<)     <<<<<<<)<)<)<  Track-Info  N ÇKKÇKKÇKÇKKÇÇKK            <<<<<,    <)<<<)<<<)    <<))<  <<<<<    )<<<)<<<<B      <)<<)<)    <<<)<)<<<<))<   <<<<<<<<<<<<<<<<<<<<) <<<<<<<<<<<<<<<<<<<<<<<<<<<<) <<<<<<<<<-<-<< J           <<<<<<<<<<<<<<B H<<<<<<<) H<   )<<)<<<<)))  <<<)<)<<<<<<B <<<<<<<<<<<<<<<<<<<<<<<<<<<<<B <<<<<<<<<<-<<-<-<-<-               <<<<<<<-<<<<<<<<) <<<<<<<<<B <PR-DEMO1BASp"DEMO1$$$(p,);u(p,)/|4 /////////////////////////////////////////////4/ /4/ Demo fuer die Teile 1 bis 7 von Profi RSX /4(/ /42/ ** Copyright (c) 1987 by Klaus Kremer *** /4</ /4F/////////////////////////////////////////////PZ , <<<<B <<<< H<<)B HB                 ,   d mnversio(q)"x versio 464" versioU h664# versio 6128 "g1-6128.bin""g2-6128.bin""s-6128.bin"   "t-6128.bin"  "sp-6128.bin" " ,"sp2-6128.bin" 6 r@"pr-teil7.bin" J nT^h"g1-664.bin"r"g2-664.bin"|"s-664.bin"      "t-66 ÇKKÇKÇKÇKÇKKÇKÇK           Track-Info  N4.bin"  "sp-664.bin"  "sp2-664.bin"  r"pr-teil7.bin"  n"g1-464.bin" &"g2-464.bin" 0"s-464.bin": D  N  X bl"t-464.bin" v "sp-464.bin"  "sp2-464.bin"  r"pr-teil7.bin"  n ,MEMORY &3FFFCALL &96B0 k , "Profi RSX Profi RSX""Profi RSX Profi RSX""Profi RSX Profi RSX""Profi RSX Profi RSX"|SPIEGdardfarben ,  |A.RECHTEC, (,,,d, |RECHTEC,X (,x,,N,   |VIELEC, x,,U,U,, , Rechtecke und Vielecke zeichnen,|BOBildschirmsteuerung einschalten+|BM8-Bereiche-Version einschaltenz|MOD,,|GMOD,Bereich 1 auf Mode 1 setzen und Graphik- und Text-Ausgaben auf Mode 1 durch >GMODE< umschalten5 |MOD,,ebenso Bereich 6 auf Mode 1 setzenE,,  ,, n,|ZOO,,, ,,2,2,,|SPIEGE,,|ZOO, ,,2,2,,|SPIEGE,,|ZOO, ,,2,2,,|SPIEGE,,|ZOO, ,,2,2,,|SPIEGE,,|ZOO,,,,,2,2, ,|SPIEGE,,|ZOO,,,2,2, 2,|SPIEGE,,|ZOO,,,2,2, ,2|SPIEGE,,|ZOO,,,2,2, 2,2 COPYSCR,1 ,, P, |TCOP, ,,,, ,*   44  (  |TCOP,,, , , ,jalle anderen Bereiche bleiben auf Mode 0, entsprechend dem Grundmodus (siehe oben >MODE 0< und >RB<(O2  |GDIS, dx,X,, 3 Kreise in Mode 1 zeichnen7< , "**MODE 1**" , "^^MODE 0^^"F%P  ,"zum Beispiel: ";ZAd|GMOD,Graphik- und Text-Ausgaben auf Mode 2 umschaltenn=x  ,"* * M O D E 2 * *"  ,"* * M O D E 2 * *") ,"* * (c) by K. Kremer * *"1  ,"PROFI RSX-"()>H #,,#, ,R|WLAENG,,@.\ B |W.SE,, ,f|WINDO, p #;z #, #,,#,{(,"*") #,,#,{(,"*") #,,#,"*" #,,#,"*" #,,#,"*" #,,#,"*" #,,#,"*" #,,#,"*" #,,#,"*" #,,#,"*" #,,#,"*"& #,,#,"*" #,,#,"*"n #,,#," Die "; #,#,"Fenster"; #,#,"-Verwaltung von" #, #, ,#,"Profi RSX"5   "Befehle"()T #,,P,, #, #, # #,,#,"WEITER: Bitte Taste druecken" C"" ,|DEBildschirmsteuerung ausschalten  , Ddas war's ***************************************************6-----------------------------------------------4 Demoprogramm fuer die Folge 4 von Profi RSX"., Copyright (c) 1987 by K. Kremer66@-----------------------------------------   |WINDO,|WINDO,a      |SCREE,   |SCREE,|SCREE,E**************************************************************EDemo der Profi RSX-Befehle fuer den Bildschirm und der Graphik&Copyright (c) 1986 by K. KremerE************************************************************** , , ""RECHTECK,VIELECK,KREIS"$'.|Ralle Bereiche zurue------JT|NORMA , , |DI|SCHRIF,,|S.O |CHAR.RO,"---------------------------------------P r o f i   R S X   m a c h t   ( f a s t )"$^ ,|CHAR.RO,"Profi RSX"h|CHAR.RO, ,"unm|gliches m|glich (c) 1987 by K.Kremer"Vr|CHAR.RO, ," > cksetzen8=B|MOD,,Bereich 0 (ganz oben) auf Mode 2 umschaltenL8V|MOD,,gleiches gilt fuer den letzten Bereich`Nj|IN,,,,|IN,,, Farben fuer Tabelle 0 (Bereich 0) festlegenMt|IN,,,,|IN,,,Farben fuer Tabelle 7 (Bereich 7) festlegenL~|IN,,,|IN,,,Farben fuer Tabelle 1 (Bereich 1) festlegenK|IN,,,|IN,,,Farben fuer Tabelle 6 (Bereich 6) festlegenFalle anderen Farben der Bereiche entsprechen den StanTrack-Info  N> P r o f i  R S X  < <"||CHAR.RO,|SCHRIF,,|S.O ,"--Profi RSX--" >, |CHAR.RO, "&";"--Profi RSX--"[  , |CHAR.RO,"R S X" B,|CHAR.RO,"R" B,"S X")|CHAR.RO, , "   " |T.OF|DI|FET ,"verschiedene";|NORMA" Schriftarten:";|UNT|LIGH" light,";|FET" fett" "t-664.bin"  "sp-664.bin"  "sp2-664.bin"  r"pr-teil7.bin"  n"g1-464.bin" "g2-464.bin" "s-464.bin"& 0  :  D NX"t-464.bin" b l"sp-464.bin" v "sp2-464.bin"  r"pr-teil7.bin"  nA6,&8F,&21,&A2,&8F,r,"pr-teil7.bin" 6 n@JT"g1-664.bin"^"g2-664.bin"h"s-664.bin"r |    ;|NORMA" und das alles ";|UNT"unterstrichen!"]|NORMA , "nat}rlich mit ";|UNT|FET"deutschem";|NORMA" Zeichensatz"4 ,|UNT"{ - [ - | - \ - } - ] - ~ - @"|T.OF p "PR-DEMO2.BAS"DEMO1$$$(p,);u(p,)/|SP.I.KANA,,@  |SP.I.OFZFDEC H" |T.OF|DI|FET ,"verschiedene";|NORMA" Schriftarten:";|UNT|LIGH" light,";|FET" fett", ,J ,J ,, "TIPSI"; ()()* , "TIPSI"  ()()b , "SCORE :"; sc ,"TIPSIS"; me P,,, P,,, P, , ,"************************** !* Hauptprogramm I *!**************************C" ()   P, , ,  fla!, () (/) 6!6 () (/)  @ :J  P, ,P,  P *O<* Diamond *OF* Software *OP* *OZ************************************************************************d*n O"tipsi2.bin""tipsi1.bin",px &21,&0,&c0,&1,&50,&46,&7c,&16,&c0,&b2,&67,&3e,&0,&77,&9,&b,&78,&fe,&0,&20,&f1,&21,&0,&c0,&3e,&0,&77,&de,&0,&11,&1,&0,&ed,&5a,&30,&SCREENS BUSe330V0003330033330@3@C@3333333333,66,01,wPfwPfwPfwPfwPfwPfwPf@330@@@ @b@%f Ufb%U00000uWvgvg0vg00uW000`ff00DF`0DD`2UD`#2UT@#2uT@#0wU0P3333333f30V0003330033330@3@C@3333333333,66,01,10,77,05,50,66,01,10,77 30 DATA 05,50,66,01,10,77,05,50,66,01,10 40PR-LOAD BASp4" b l"sp-464.bin" v "sp2-464.bin"= //////////////////////////////////////////////////////=/ /=/ Ladeprogramm fuer die Folgen 1 bis 7 von Profi RSX /=(/ /=2/ ******* Copyright (c) 1987 by Klaus Kremer ******* /=</ /=F////////////10,40,00,20'x 00,40,04,00,02,62,00,04,40,00,25' 66,20,00,00,02,55,66,62,00,00,25' 55,00,00,00,00,00,00,00,00,00,00' 00,00,00,03,03,03,30,30,30,00,00' 00,00,00,00,30,30,75,57,03,03,00' 00,76,67,00,00,03,00,76,67,00,30' 00,00,76,67,00,00,30,30,75,57,03' 03,00,00,00,00,00,00,03,03,03,30' 30,30,00,00,00,00,00,00,FF,00,00' 06,60,00,00,03,00,66,66,00,30,30' 04,44,46,60,03,30,05,44,44,60,03' 32,05,55,44,60,23,32,07,55,54,40' 23,32,07,75,54,40,23,30,00//////////////////////////////////////////P Z mdversio(q)"n versio 464"x versioU T664# versio 6128"g1-6128.bin""g2-6128.bin""s-6128.bin"   "t-6128.bin" "sp-6128.bin"  "sp2-6128.bin" " r,"pr-teil7.bin" 6 n@JT"g1-664.bin"^"g2-664.bin"h"s-664.bin"r |    Track-Info  NSPS-MIAUBASp''x > e z spsad xmadre xresad,I SPS - Mischautomat - (C) W. Renziehausen V.09.87 (10187 Bytes) W"d" BZ   , "Editor wird geladen"  ,"Bitte warten ..." "sps-edit.asc", a-h,k-r,ta xmadX xe0T! xa0! xm0" xt00" xt00"A$ xmad, be(),op(),op(),be()f.  T#,#, e #,n^ ,, , , , , , }, }, , , , , ,&h()" Mischautomat "() Er ,  ()" 'TAB'-Abbruch 'Space'-Prgm.Halt "();&| , ()" Eingaenge "()"  , "Start S5 E00: ,"Abtaster B1 E01: ,"Abtaster B2 E02: ,"Abtaster B3 E03: ,"Abtaster B4 E04: , "Stop S0 E05: , "Zeitglied T00:/ ,  be( )( )op( )()op( )()be( )() 8laeng() xe xa xresad xe02 xmadre xe01 rh ( xresad) rl xresad rh xresad,be" "op" "op" "be( )" "" "" "" "n"000"()date"SPS-miau.DAT"`B , , , ,    F,, ,,0  ,,5 , ,L   HauptmenueV `  ()" Ausgaenge "()  ,"Startlampe A00: ,"Ventil Y1 A01: ,"Ventil Y2 A02: ,"Ventil Y3 A03: ,"Ventil Y4 A04: ,"Pumpe M2 A05: ,"Ruehrer M1 A06: , "Klar-Lampe A07:& , "Zeitglied T00:0 ,,,,,:  5D  0,L, ,> ,> ,> ,7N  ,  ()  , 8X  ,,  0,"Y"y(( ),);3b UPsjt Behaelter fuellen~~ zuflus ,(,, , {(,) , () zuflus x  ,, , , l 7   , , , % $ e0  e0% 4 e0  e0% D e0  e0% T e0  e0 Ueberlauf8 y y y  , y , y  Entl  , ()  , ()+l  , ()()() (v  , ()()()0  , ()" "()()()  ,"Fluessigkeit ,, , ,  , ()()() ()() H   ,  ()" "()" "()" "()F , {(,)" "{(,) , {(,)" "{(,)(  ,"M2" ,"M1" '   , (eeren(  ," " ,  ();  abroh , (); abroh ,  {(,)  {(,)12 abroh  , {(,)O<   , , r,  v, , , ,bF   , , ,   ,(,, , ()()()P  Zd Pumpe annx  , "M2 a0  a0 )  ,()()()5 ,, ", ," , , ,6   ,  (){(, )() , {( ,)1  , ", ," , , ,  7  ,   (); "B"y(( ),)*'4 !,  (){(,)()1> !, (); "Start";  ()#H !, (){(,)()1R !, (); "Klar ";  ()#\ !, (){(,)()f  a0  a0    3     ,  () , {( ,)   Pumpe aus&    ," " ,{( , )_ , {(, ) ," " zuflus x   ,, , ,3" a0 a0 a0 a0  ,!6 Schaltung - Grundstellung@?J  , , ,  ,,     yTrack-Info  N!, "Ventil" Ep  , ()()()()()()()()()9z  , ()" "()" "()" "()" "()E  , ()()()()()()()()()& !, "1 2 3 4"()()Eingabea e e0 e0 t#,, #," Weiterschalten mit der ";( e  d,  , hal )(,,)"o"(,,)C & () ,a2( xt00) e2( xt00)D2 ", a0  ()"Start"()   "Start=< &, () a0 a01 Z  a01 a0_F ,  a0 ();  ()  ()()()()()() "^P &, a0  () !,  ()"1"()   () !,"1"-Z a0 a02 x  a02 a0_d ,  a0 ();  ()  ()()()()()() "^n &,   . e hal e0 e0% "0" e0( e0)% "5" e0( e0)K "T" ( e hal)  zei   ' "D" hal    ()  s$ ,(,, ()  (   abroh ," " ,  (); abroht. xe0, e0 xe0, e0 xe0, e0 xe0, e0 xe0, e0 xe0, e08 a0  () #,  ()"2"()   () #,"2"-x a0 a03   a03 a0_ ,  a0 ();  ()  ()()()()()() "^ &, a0  () %,  ()"3"()   () %,"3"- a0 a04   a04 a0`  ,  a0 ();  ()  ()()()()()() "^ &, a0  () ',  ()"4"   ,  B ( xe0 ) L  )V "o" ( e hal) "`  () ,j e "R" resulta(( xresad)) xresad, resulta#,$, #,"#"; resulta; resal resultaLt "E" e( e) e hal#,   #,4~ e " " ( )    " " e z hal( hal)#,,  hal #,#," PRGM-HALT()   () ',"4"M &, a0  () x   () ,"M2" P &, a0 () , "M1"  () ,"M1g &,  a0  () ",  ()"Klar "()   () ","Klar "  Zeitglied    h 8 a2 e2 zei zeiF M e z hal   t t zeiF , (F zei),/ ze ";#, t  #,, #,( );  hal     SPS - Programmaufruf  e z xad xmadre spsad xad xad,: xad, rl xad, rh xad xad esfla  xad,2 xad, rl xad, rh xad,  spsad xmad; xe0, e0 xe0, e0 xe0, e0 spsad^ z e hal #,, #," 'TAB'-Abbruch 'Space'-Pi  e2 zei*" zei ,  "##"; $, a2 e2 zei"6 ,  e2   @ zei " ""J &,  a2   T  xt00, e2^ h e z #,!, #,()"R=";#,"#";( xresad);#," (";#,"#"; resal;#,")"; resal( xresad) z z?r z end z e #,, #,((); |    Hauptmenue  rgm.Halt "S z  za za ,  (); "#####"; za; ()] e z #,, #," "be( z)op( z)op( z)();h e z #,"###"; z;#," "be( z)op( z)op( z)" "be( z);   Auswertung  ,(,,( a0( xa0) a0( xa0) a0( xa0) a0( xa0) a0( xa0) a0( xa0) a0( xa0) a0( xa0) Track-Info  N   {((,);0 " "()" W. Renziehausen"( )"V.09.87 {((,)  ,"SPS - MISCHAUTOMAT, , ,, , , ,$ }, }, , ,z ,&, , a0 a0 a0 a0 a0 a0 a0 a0 za e z tR   xa0 , xm0 , spsad xmad halp   xe0 , a01 a02 a03 a04 e0 e0 e0 e0 ÇKÇKKÇKÇKKÇKKÇKÇK          # "1 Programm eingeben/aendern "2 Programm Normallauf# "3 Programm Einzelschritte "4 Programm ausdrucken & "5 Programm abspeichern0 "6 Programm einlesen : ED (,,)"o"(,,)C "o" D  ()4N () "Warmstart mit GOTO 1100"X   D gb   end  ,"KEIN PROGRAMM IM SPEICHER"()    l %v ,J, ,,,, LOCKER BAS MC-GRAF BAS? PR-DEMO2BASHPR-TEIL7BAS- !SCRSAVE BAS"SPS-EDITASCx#$%&'()*+,-./01WANZE BAS2BUSTOUT BAS<3456789:BUSTOUT SCN;<=>?@ABCDEFGHIJBUSTOUT SCNKBUSTOUT SPRLMNFIRE BAS$OPQRS > e z spsad xmadre xresad, J , ,)"0"(date,,)"." n/lerucken & "5 Programm abspeichern0 "6 Programm einlesen : ED (,,)"o"(,,)C "o" D  ()4N () "Warmstart mit GOTO 1100"X   D gb   end  ,"KEIN PROGRAMM IM SPEICHER"()    l %v ,J, ,,,,  /| TWnam ,((t, ,)) , {(K," "); , {(K," ");L , ();Zieldate;();" wird generiert. Bitte warten ..."  0  '--------------------------------" BASIC Lader: TW nach WS'-------------------------------- TWlaeng1  WSlaeng 1 TWnam1  WSnam1 $ZielDate" WORDSTAR-Datei " Wah'& , "TASWORD ---> WORDSTAR" R@RR@R@@@@@@R@R@RR@@@@@@@@@@@@@R@R@@@@@@@@@@@@@@@R<))))))))))SSSSS)S))S))SSSSSS)SSS)))SSS)S)))))S)SSS)A OooAD  @A"@@ "      , , , " ,&,, ,  6 /@"digitext.rsx" J ,BT|BUFFE,0^|DEFBLOC,,0,0)r"demo1.dig"|LOADBLOC,,@<| "Der Satz eines bekannten Radiomoderators"|PLA,,, ' "Das Ganze etwas langsamer..."|PLA,,, )"demo2.dig"|LOADBLOC,,@ "oder rueckwaerts..."|PLA,,, )"demo3.dig"|LOADBLOC,,@; "Der ideale S @ @A"$B@@"@@@  @A( }xy " "!@"   "  D   ! " B!@"  @ $   @"@@A@A@$  A@@   @@@@@""@@A@"$@A@@"@@@@ AAA   @oundeffekt fuer Actionspiele"'  |PLA,,,  )"demo4.dig"|LOADBLOC,,@ "Sie koennen nun ueber die Tasten 1-9das Wort 'SWF 3' in unter- schiedlicher Geschwindigkeit abspielen."(C "1" "9" |PLA,,(),  ,   $$$MLOADBLOC,,@ "oder rueckwaerts..."|PLA,,, )"demo3.dig"|LOADBLOC,,@; "Der ideale S800l0b 08<f8fff< f6000`lf`` 0BILDSCH PIC@@7BILDSCH $$$@00 <0<<~<00088f808`f` 01<98Y98808yxy񙁁yTrack-Info  N?Ya;9833~xcs@ @A @AD @A"@@ "@ @A"Dy1x@"@@@  @"(  $  " " "!@"  @ "     ! " B " "  @     @B@@A@A@$  A@@@  @@ @"!@@A@"$@A@@"@@@@AAA  @ @ @A"DB@@"@@@  @B(  " "!@"   "     ! " B " "  @     @B@@A@A@$  A@@   @@ @""@@A@"$@A@@"@@@@ AAA  @f<f8|<8|h|8|<ff0x0fvf~0 >< ffvff ~8|h|8|<fl0 fff|><|x8|x8<8<< f`ffff0̴|fflf0 `fvff癙󙟙癙?==@x|<8<<xf<8|x8<8<<Ù##;