SCHIEBE BASpÉgo|gxG>5Jʙ9v" GSљ e͘w>RO  îIEBE""ۈӈ~`ӆw>2bED........................>R<":: ESTABILISEl......lE...0SCHIEBE .....>E( -------- SCHIEBEFAX -------------KIdee und Prg.:Walter GoergenspA(4,4): Spielfeld <---(-------- Bedienungsanleitung <---20,31,0,39: 7,1:<:::F" Das bekannte Schiebefax"P:Z:" Die einzelnen Steine sind zu ordnen,"?d" zeilenweise, aufsteigend.":fn" Dazu sind die Kursortasten zu"x" benutzen. Sie koennen auch druecken:":6;" H ";7;"= HILFE - Der Rechner zeigt, wie das"" Plaettchen zu ziehen hat.":6;" A ";A7;"= AUTOMATIK - Alles laeuft alleine."R:6;" S ";}7;"= STOP - Uebergang von H oder A"" auf Handsteuerung." :::::23;" >ENTER<"A$:A$""230--------------- Grundstellung --!)Q0? 5,25,10,30:6:U 6,24,11,29:0:q(2,15);"SCHIEBEFAX":" I1 4, J1 46A(I,J)4IJ4@ J,IJDurcheinander-Nur gerade PermutationT I1 4 ^ J1 4hK1(4(1))$rL1(4(1))9| IK JL 360N K4 L4 360c I4 J3 440ZA(I,J):A(I,J)A(K,L):A(K,L)Z J,I---- Anzeige der Anfangsstellung I1 4 J1 4BA(I,J) B16 530 (B(B2)2)22$  5I1,5I4,5J6,5J9* @ (5I3,5J6);BI 540n KI:LJ: Leerfeld-Position ----x  J,I &H0: ------- Kein Hilfeersuchen 0 5K1,5K4,5L6,5L9 :-------- Eingabe Spielsteuerung DB$: B$"" 580 NIK:JL: ------- Spielsteuerung. X B$"A" 1000@ b B$"H" 970\ l B$(9) L1 LL1x v B$(8) L4 LL1  B$(11) K4 KK1  B$(10) K1 KK1  IJKL 710 ---- Bewegung unmoeglich(Rand oder unzul. Eingabe)  H0 580 A ---------------- Zugausfuehrungt QQ1: Q :QT:TT1:(28,15);"Schritt";T; BA(K,L) (B(B2)2)22 :(5I3,5J6);B A(I,J)A(K,L):A(K,L)16  5K1,5K4,5L6,5L9 0:  H0 860D Verzoegerung fuer Automatik mit UnterbrechungsabfrageS  X1 40\ *B$s 4 B$"S" H0 { > X H R---------------- Endeabfrage \ I1 4 f J1 4 p A(I,J)4IJ4 580 z J,I (2):(28,7);"Mit";Q1;"Schritten geloest !":T0E (30,5);" Noch einmal (J/N) ?" N :1W B$i  B$"J" 250~  B$ "N" 930 2420 H2: -------------- Beginn Hilfe 1020  H2 550 H1: --------- Beginn Automatik1Wo steht das erste nicht richtig eingeordnete Plaettchen:N0 H I1 4V J1 4f N0 1080$ A(I,J)4IJ4 1110.N4IJ48 A(I,J) N 1110BSJLZIV J,I`------------ Strategieauswahlj N10 N12 12605tEinmischen der letzten in die vor- letzte ZeileK~ A(4,1)13 1180TN13^1030o N11 1260 A(4,2)14 1220N141030 N12 12601720900--------------- Hier geht's los N15 1310----------- Sonderbehandlung 15!1660* 900M----------- Position Zielfeld_IZ((N3)4)o(JZN4IZ42----------- Leerfeld heranholen<U(LS)(LS)(ZK)(ZK)F U3 1440PB$(10)Z SL1 B$(9)d SL1 B$(8)n KZ1 B$(11) 2x KZ SJZ B$(11);590E1340i---------------- Zeile 1 bis 3z N12 1770 Z4 2020 JZS 149022901460 IZZ 990 IZZ1 2020 JZ4 15502020990--------- Sonderzuege Spalte 4/ ZK 1590@ KIZ 1630R" L4 1690\,1750f61690p@1750zJ1660T1660^1720h990r--------------------- UP-Links|B$(8)590-------------------- UP-RechtsB$(9) 590,--------------------- UP-Hoch9B$(11)B590f-------------------- UP-RuntersB$(10)|590---------------- Letzte Zeile SJZ2 2290 SJZ1 2290 LJZ 1660 A(IZ,JZ)N 990 LJZ1 1860& K3 1720)0 Z4 18903:1690ED K4 1750ON1660YX1720cb1690ml1690wv175016601720166017501690 169017201660990UP-Ausgewaehltes Plaettchen um eine Zeile heben' SL K1Z 22507 Z4 2070I U1 1750e 2LS 1660,1660,1690o 2250 KZ 2050  S4 2210* LS 21604 LS 2130> KZ 2170H2180R ZIZ1 2220\ KZ 1720f1660p1660 z17501750 1690*2250< SL 1690N KZ 1750X1750b1660l1720vZZ1|UP-Ausgewaehltes Plaettchen ein Feld zur SeiteD(JZS)(JZS)S KZ 2340 LD 2390 Z4 1750 Z4 1720$$ LD 2380@. 2SD 1660,1660,1690P8 LD 2380lB 2SD 1660,1660,1690L 2KZ 1720,1750,1750V 2DS 1660,1690,1690` SDj t 0,31,0,39:::(15,12);"Na dann nicht !":30:~ 1: ----- PROGRAMMENDE ---- 1 Aus:Kleinstrechner TIPS 11/897  Ruthart Riehl Gotzkowskystr.2O Leipzig 7O33  CSAVE"SCHIEBE" 3O.1O.89U1E6OUOU1E6:EX$"M":745OU1E3OUOU1E3:EX$"k":745OU1EX$" ":74