[ 53280,0:53281,0:646,(162):"":" USE LYNX TO DISSOLVE THIS FILE":10 3 *LYNX BY CBMCONVERT 2.0* 12 -3Ġ 73 P 138 -3_COM 46 P 70 -DEMO 104 P 67 NSTRUCTIONS 41 P 189 נ 45 P 93 _COM 12 P 179 Ԡ 59 P 75 _COM 35 P 111 - 5 50 P 5 - 5_COM 16 P 137 Ϡ 62 P 179 _COM 34 P 29 GEO-3D^ ,HPRG formatted GEOS file V1.0c#####C))%geo-3D V1.3@Rehwagen/D|hler z  zHHDateiname schon vergebenDemoprogramm f}r geoCom Falk RehwagenObjektkode$=GEO-3D_comLf-werk B:geo-3D V1.3(E(E`0Ts~y2@wzesuw|.`J`prt vȱp t ` '`  V¦`,,,,, , ,,hh hhoiiHH HH`'`rp``(G'xH'@'0L}AH'70Тs`G''H'X`H'X` tt cerpȥesp`pq` `t'r' ڍF'' tՍF'' wH Rh`rt(rt(`, L}L= r'pHqHtHuH hhF' t'ՍF' hhG' }LRrstrusut`pIp```,,,,,,,,, , , , , ,,,,,,,,,,F'G'L !F'G'L`T f $Z6NH?<-*WB0EQ[F:gP(xXdkq9LI⿼ ed` yL bc` _`rt`p` kLmpH  hp`rt k(`(J(`pHqHHtH hhF' G' hhG' }LR,`,`L ' ,`'L` hh`prt u `'p)?'L W''`'~'` 1  9pp'ȱp'`  9p'pȭ'pL= 1  pȱp    `  pȭp    L=pi qi `pȱpȱp`pȭpȭp` !`` |L` `pq`` ` ` `rtȱrt` p`p 0`p `,p`,P`p` kLm??' X "Ld~ f~~L ` ~ i 0H~hptph`,'0Y [ X ` D'p `8 L 8 |`` ,Ĉpƈ``8 $ Š آ`  b  H.`  EL r / ȱp`3xy  | ` z{zx`3xy  p 93 $L  | wL0  | wL3  | ` L'  | `  9L$  LLK rtȱr ?p` pL prpȱrqlp r0HHH - P . Lhhh Ee&L b8& L` pL  rpsqurL r s t P LA ` L  | ` L*  ‘p` prqshhL prqsL  L p  r 0tH u* ! L p  rH p` hhLE' $L,¢Lhh` rp` vwrx evvwx ȹvp`  rLQLL  LZ  L pL  bp EL L pL<LLL pqrp | `  ` r s pL pr t ȱr L pL pL  rL, , ,,,vpL p L` \©0`L_ pȱpr` rȱrp`  ȹrp` xH5pr'h(`,, L =K'M'ʽ'O /0 7--`Diskettenfehler: $xxDiskette vollung}ltiger TrackInhaltsverzeichnis vollDatei nicht gefundenfalsche BAMung}ltiger Datensatzzu viele Datens{tzefalsche DateistrukturPuffer}berlauf beim LadenGer{t nicht vorhandenfalscher Grafikmodusoffene Datei im Lfw.Lfw. nicht ansprechbarDatei bereits ge|ffnetDatei nicht ge|ffnetkeine Lese-Dateikeine Schreib-DateiDatens{tze ge|ffnetmax. Gr|~e }berschrittenallgemeiner Diskettenfehler  x 'L $v'0 D'v  i9* %pp q rtu  L;L zL;L L;L ! ;< * ,Ĉp ,0ƈL $i91 (-LLBitte neue Diskette in dasLaufwerk x einlegen. trJJJJ U) 0:i'pȩp` rpt`pL`  L tLarHȱr pipqhrL@ reEH %{$zhpHqHF' zhhG' }LR  L  ȱrqtp` 8 ȱrtp` rHsH hhF' t  R EeptLa r' ՍF'' t H Rhp` r' ՍF'' t HH Rhphp`hphq8pqHHqHpH` phh`hhhhHH`  p`,,L vL,,L vL} rvtrusL  L v 'L $t'0 D't  i9*) %  Lg  zLg LgL:  rH ! P 0p H< H rptLa` r pvt(pvLa L  8L  W `Lk  W iLk  _ W fLs  _ W iLs rIp`1,,Q rtp`  p`        Ip`    L ȱrp` rptȑp`,,, L  t'r'pHqH ڍF'' ՍF'' hhG' }LR , ,,,,,,, pHqHrHsH hhF' t hhG' }LR rHsH hhF' t H Rhp` rtL trpȭrp` rtȱrL rpȑp` vtrp(xp`,,,,,FDLE  NL%,,,rmvn  LaڹX`xH60h`  L p芑p` pʊp` trp` rȑp` r rH$pȱphhh( HHHr #hr` trp vp` t+r8r(p vp` ptqutpȱtL p᪽pȅqL5683e&`?I?' L  ,p`  La  La     p ippF|G}pDE 'L8H86I97 C'8lD rIp` pHȱphL ZL   |xy o   /H/' &&& 0L < e e'    L iih/`)(' ` r p` x |( `iei i(i` p'q'e ŠL/'/''  yL   yp`   yp` '' yL  pq''Ly '' yL  pq''Ly ''Ly ''L y '/ ''`  ,pqL, 8ð`ðg۰`lc``۾`ۀ L  trpvswt00 [L=0 n'' 2 vw  y` f( L   )-***evew ! @`)`ʊ@ -  c(`e!!`  7 L-  7 LP xL  B rs  YL  $  8L  B L rtpq K vw = ;¥'L  $  B rtBFvw P L   L   L  $ Z 'r L 8 ȑpp` $  L 'p0rs = Š )?Lppȭp O p U и񭗄ʎ  p芙L'' Z    p0L p0L)?   p)Fp ȱp!  qp ʊ p ȱp!ȱp p Rp U 6p p  p p Lp   s : 2 U L d)@ #$ Šp)?p $L p` L,~ z C d~ 1 *~ $rr 0$ $%֎'LL С И tЏ   r Ž'LL,,w  s  LR   s  $ _ LR !'ж d $`pȱp P # _ ! Aee !ȱr p  'LL= L   s  _ X!LR !' d _ pȱp X!L !''` p0' r iertsiutpȥp r芑rqpL prȥqrrs L p L d,P #$ )pȱpL ! tiuiprȱtLB rst p vp` rHȱp bh L ȱprtL~ tȱprL{" `  W iL  _ W iL 8xyL` L= rpqL%  # p`rt~`  # # L6# r~ȱr~L L  z D d 9- $0 + #' 'pȱp  L !L8L L   t phphqr#ȱrLtrusL p` rpȑp` ti rp`rsLI' 'L`$' ' S $b  ŠW' ' 7 pȥ p 2  W` pL¢H͉ $ G­h` $`H Jh Š`/%   ɀ`~LgeoCom V1.4 setzt einenGEOS-Kernal der Version 1.3oder h|her voraus.H?'/ f  D%]%y%L, h8BF n   )E',Ĉ p ,0ƈD'C'*x@ UxB'Xvɀ & -L& ?.߅' ;¥(B|C}@A 'L& f &l@' L,  tŠ` 8H''I'' P`~{ߠ' &'{ Š~ 7% zŠЧ|}} 7%` f / E BZEE DZE E BZ!EDZ"E BZ#E%E DZ&E(E BZ)EDZ*E BZ+E-E .E0EBZ1E BZ2E4E DZ5E7E BZ8EDZ9E BZ:EF +R?F P@F +TSAF PBF +RCF PDF +TSEF PFF +RGF PHF +TSIF PJF +RKF PLF +TSMF PNF ,ROF PPF ,TSQF PRF ",RSF PTF 2,TSUF PVF B,RWF PXF R,TSYF PZF b,R[F P\F r,TS]F P^F E E E x_FE L / `F BZaFcF DZdFfF BZgFDZhF BZiFkF # BZlF  mF BZyF{F DZ|F~F BZFDZF BZFF # BZF  Y BZFF # BZF  F BZFF DZFF BZFDZF BZFF # BZF  Y BZFF # BZF  F BZFF DZFF BZFDZF BZFF # BZF  Y BZFF # BZF  F BZFF DZFF BZFDZF BZFF # BZF  "Y BZFF # BZF  F BZFF DZFF BZFDZF BZFF # BZF  &Y BZFF # BZF  F BZFF DZFF BZFDZF BZGG # BZG  *Y BZGG # BZG  G BZGG DZGG BZGDZG BZGG # BZG &#BZP  BZ BZG G # BZ!G  "G BZ,G.G DZ/G1G BZ2GDZ3G BZ4G6G # BZ7G &#BZP  BZ R BZ8G:G DZ;G=G BZ>GDZ?G BZ@GBG # BZCG  DG BZ Y XBZ BZY XBZ BZY XBZ BZ"Y XBZ BZ&Y XBZ BZ*Y XBZ BZXNG i BZSG BZXUG TGZBZ LZGZZG QZXLZ XQZ BZX_G i BZdG BZXfG TGZBZ LZGZkG QZXLZ XQZ BZXpG i BZuG BZXwG TGZBZ LZGZ|G QZXLZ XQZ BZGG XBZ BZXX XBZ BZXX XBZ BZXX XBZ 0XG NBZX NGZX LZBZGZ XLZ 0XG NBZX ZGZX LZBZGZ CQZLZ XQZ 0XG ZBZX XBZ I1XG NBZX ZGZX LZBZGZ ZQZX ZVZX [ZQZVZ N`ZX eZ[Z`Z jZLZeZ XjZ 1XG NBZX NGZX LZBZGZ ZQZX ZVZX [ZQZVZ Z`ZX eZ[Z`Z jZLZeZ XjZ 1XG ZBZX NGZX LZBZGZ CQZLZ XQZ %2XG ZBZX ZGZX LZBZGZ NQZX ZVZX [ZQZVZ N`ZX eZ[Z`Z jZLZeZ XjZ |2XG ZBZX NGZX LZBZGZ NQZX ZVZX [ZQZVZ Z`ZX eZ[Z`Z jZLZeZ XjZ 2XG NBZX NGZX LZBZGZ XLZ BZGG DZGG BZGDZG BZGG # BZG  G XG  S3UX 3XG 3PX BZXVZ 3XG !3PX GZXVZ LZBZGZ C3XG E3QX QZBZGZ VZLZQZ XVZ 3VX w3XG y3PX BZQX 3XG 3PX GZQX LZBZGZ 3XG 3QX QZBZGZ VZLZQZ XVZ 94WX 3XG 3PX BZQX 4XG 4PX GZQX LZBZGZ )4XG +4QX QZBZGZ VZLZQZ XVZ K4VX BZBZG GZBZG i GZG XG G 4VX 4VX BZVG GZBZBZ XGZ 4UX 4UX BZPG GZXBZ LZVGZ QZXLZ XQZ 5WX 4WX CBZG GZPBZ LZXGZ QZVLZ VZXQZ XVZ 55SX BZGX GZBZX XGZ W5TX BZGX GZBZX XGZ X BZXP BZ BZGG DZGG BZGDZG XG  5RX XG 5TSX XG 5SX TBZP 5SX TGZP LZBZGZ 5TX TMZP 5TX TRZP WZMZRZ sXZLZWZ iYZXZ i YZG ,6SX {BZLZ DZBZG E6TX SFZBZ U6SX {GZT IZGZG n6TX SKZGZ DZFZIZKZ X BZXP BZ R BZGG DZGG BZGDZG BZGG # BZG  G BZXH i BZH BZHH # BZH YE BZX H i BZ H BZ HH # BZH YE BZXH i BZH BZHH # BZH YE BZXH i BZH BZHH # BZH "YE BZXH i BZH BZ!H#H # BZ$H &YE BZX%H i BZ&H BZ(H*H # BZ+H *YE 7,H XE x.H E R E L @ /HCHYH L BZnHpH DZqHsH BZtHDZuH BZvHxH DZyH{H BZ|HDZ}H BZ~HH # BZH  H BZHH # BZH  H4 BZHH # BZH  H3 BZII # BZI  I4 BZI # BZ?I  @I #\I #]I E X^I / _I BZ`IbI DZcIeI BZfIDZgI BZhIjI # BZkI  lI BZtIvI DZwIyI BZzIDZ{I BZ|I~I DZII BZIDZI BZII # BZI  I BZII # BZI I &#BZX BZ  I BZII # BZI I &#BZX BZ  I &#BZP YBZ BZII # BZI  Y BZY SGZBZ PGZ XI  BZ'I i BZI # II I &#BZX BZ  I # II I &#BZX BZ  I I # II I &#BZX BZ  I # II I &#BZX BZ  I w:RX &#BZX YBZ BZII # BZI  Y :RX BZY SGZBZ YGZ :TSX &#BZBZ YBZ BZII # BZI  Y ;TSX BZY SGZBZ YGZ BZIJ DZJJ BZJDZJ X BZXP BZ E E L XJ / J BZJ J DZ J J BZJDZJ BZJJ # BZJ  J BZJJ DZJ!J BZ"JDZ#J BZ$J&J DZ'J)J BZ*JDZ+J BZ,J.J # BZ/J  0J BZ:JJ &#BZX BZ  IJ BZNJPJ # BZQJ RJ &#BZX BZ  ]J BZbJdJ # BZeJ fJ &#BZX BZ  qJ &#BZP YBZ BZvJxJ # BZyJ  Y BZY SGZBZ PGZ XzJ  BZ'{J i BZ|J # ~JJ J &#BZX BZ  J # JJ J &#BZX BZ  J # JJ J &#BZX BZ  J J # JJ J &#BZX BZ  J # JJ J &#BZX BZ  J # JJ J &#BZX BZ  J =PX !BZX YBZ BZJJ # BZJ  Y =PX BZY YBZ =PX !BZY YBZ BZJJ # BZJ  Y >PX BZY YBZ >QX !BZY YBZ BZJJ # BZJ  Y J>QX BZY YBZ BZJJ DZJJ BZJDZJ X BZXP BZ E E L BZ9J BZ BZJ BZE BZJ BZ E BZJ BZE BZJ BZE BZJ BZE BZJ i BZJ  E BZJ CZJ vDZBZCZ i DZJ X BZXJ i BZJ XJ BZJ i BZJ X BZXJ i BZJ XJ BZJ CZJ vDZBZCZ i DZJ JJ VX R BZJ BZ | BZJJ DZJJ FZBZJDZJ i FZJ z E BZKK DZKK FZBZKDZK i FZK z E BZ K K DZ KK FZBZKDZK i FZK z BZKK DZKK BZKDZK # BZKK DZK!K BZ"KDZ#K E E BZ$K&K DZ'K)KBZ*K i DZ+K z BZ-K/K 0K2KBZ3K # BZ4K6K 7K9KBZ:K E BZ;K=K DZ>K@K FZBZAKDZBK i FZCK XEK E BZFKHK DZIKKK FZBZLKDZMK i FZNK XPK E BZQKSK DZTKVK FZBZWKDZXK i FZYK X[K E BZ\K^K DZ_KaK FZBZbKDZcK i FZdK XfK E BZgKiK DZjKlK FZBZmKDZnK i FZoK XqK E BZrKtK DZuKwK FZBZxKDZyK i FZzK X|K E z R z R 78/D;77>?(,7A6??gffgeo-3D V1.3I quitI% zeigen010100.52.00.54010870       eWinkel 1:<_#A2Winkel 2:<_(7A2FWinkel 3:<_  berechnen4/4440444J044IՈ4>  darstellenk44L͇Pg?{6>  Eingabe6A7A2<7AFd7AZ7An7Ageo-3D Version 1.31992 by Falk Rehwagen1993 by Denis D|hler:: Erl{uterungen: -geo-3D ist ein Demo-Programm f}r Zentralprojektions- *1 G9*******.****. 3* ,9 *< *<`***3 ***8 **.****q*3 ***8 `*I@**1*****A***9 l&****** ~ 8" rF ` Quelltext zur geoCOM-Demodiskette ` ` (c)94 BY DENIS D\HLER/FALK REHWAGEN` ` Die Demodiskette kann kostenlos angefordert ` P000000000` werden bei: ` ` GUSS, Denis D|hler , Gorkistr.18 , 04347 Leipzig `  NAME"GEO-3D" AUTHOR"Rehwagen//D|hler" CLASS"geo-3D V1.3" CODE$2800,$4500 : CONST$4500,$5000 : VAR$5000,$6000 : STARTFLAG $40 BYTEVAR verbindungen,punktanzahl BYTEVAR AT $84b3; selection ROW 50 REALVAR x,y,z ROW 100 BYTEVAR va,vb ROW 50 REALVAR xb,yb,xa,ya,za INTVARinputrout BYTEVARAT$39;pressflag ROW 9 REALVAR m BYTEVARi,zz,vv,g,u,z{hler,edit REALVAR w1,w2,w3,t,m0,x0,y0,x1,y1,z1 STRVAR 3;pt,vt STRVAR 3;winkel1,winkel2,winkel3,oa1,oa2,oa3,ma~stab,ox,oy FILEVARdatei LABEL inforout,verbundtabrout,darstellen,punkttabrout,verlassen,hilferout,tastatur,mausklick,anfang,winkel_zeigen LABEL eingabeende,mauskl_2,winkel_eingeb @anfang CLS : PATTERN0 H RECT(DBL258,0),0,(DBL319,1),15 : FRAME(DBL258,0),0,(DBL319,1),15 RECT0,16,(DBL103,1),199 : FRAME(DBL1,1),17,(DBL102,0),178 FRAME(DBL1,1),178,(DBL102,0),198 : SETPOS(DBL6,0),192 : PRINT"/B/Ogeo-3D V1.3/P" RECT0,0,(DBL73,0),14 : FRAME0,0,(DBL30,0),14 : SETPOS(DBL5,0),10 : PRINT"quit" FRAME(DBL30,0),0,(DBL73,0),14 : SETPOS(DBL37,0),10 : PRINT"zeigen" H  winkel1="0" : winkel2="10" : winkel3="10" oa1="0.5" : oa2="2.0" : oa3="0.5" ma~stab="40" : ox="108" : oy="70" verbindungen=12 : punktanzahl=8 (x<0>)=0 : (y<0>)=0 : (z<0>)=0 : (x<1>)=1 : (y<1>)=0 : (z<1>)=0 (x<2>)=1 : (y<2>)=1 : (z<2>)=0 : (x<3>)=0 : (y<3>)=1 : (z<3>)=0 (x<4>)=0 : (y<4>)=0 : (z<4>)=1 : (x<5>)=1 : (y<5>)=0 : (z<5>)=1 (x<6>)=1 : (y<6>)=1 : (z<6>)=1 : (x<7>)=0 : (y<7>)=1 : (z<7>)=1 (va<0>)=0 : (vb<0>)=1 : (va<1>)=1 : (vb<1>)=2 (va<2>)=2 : (vb<2>)=3 : (va<3>)=3 : (vb<3>)=0 (va<4>)=4 : (vb<4>)=5 : (va<5>)=5 : (vb<5>)=6 (va<6>)=6 : (vb<6>)=7 : (va<7>)=7 : (vb<7>)=4 (va<8>)=0 : (vb<8>)=4 : (va<9>)=1 : (vb<9>)=5 (va<10>)=2 : (vb<10>)=6 : (va<11>)=3 : (vb<11>)=7 winkel_zeigen : H darstellen MOUSEON GOSUBwinkel_eingeb : ON 1 GOTO mausklick : MAINLOOP @winkel_zeigen PATTERN0 : RECT(DBL2,0),18,(DBL101,1),176  SETPOS(DBL5,0),30:PRINT"/BWinkel 1:/P" : FRAME(DBL60,0),20,(DBL95,0),35 : SETPOS(DBL65,0),30 : PRINTwinkel1 SETPOS(DBL5,0),50:PRINT"/BWinkel 2:/P" : FRAME(DBL60,0),40,(DBL95,0),55 : SETPOS(DBL65,0),50 : PRINTwinkel2 SETPOS(DBL5,0),70:PRINT"/BWinkel 3:/P" : FRAME(DBL60,0),60,(DBL95,0),75 : SETPOS(DBL65,0),70 : PRINTwinkel3 SETPOS(DBL5,0),90 : PRINT"/BMa~H stab:/P" :  FRAME(DBL60,0),80,(DBL95,0),95 : H SETPOS(DBL65,0),90 : PRINTma ~H stab SETPOS(DBL5,0),110 : PRINT"/Bx0:/P" :  FRAME(DBL60,0),100,(DBL95,0),115 : H SETPOS(DBL65,0),110 : PRINTox SETPOS(DBL5,0),130 : PRINT"/By0:/P" :  FRAME(DBL60,0),120,(DBL95,0),135 : H SETPOS(DBL65,0),130 : PRINToy SETPOS(DBL5,0),150 : PRINT"/BPunkte:/P" :  FRAME(DBL60,0),140,(DBL95,0),155 : H SETPOS(DBL65,0),150 : PRINT(STRpunktanzahl) SETPOS(DBL5,0),170 : PRINT"/BLinien:/P" :  FRAME(DBL60,0),160,(DBL95,0),175 : H SETPOS(DBL65,0),170 : PRINT(STRverbindungen) RETURN  @H darstellen FIRSTMENU H RECT(DBL260,0),2,(DBL318,1),13 SETPOS(DBL265,0),10 : PRINT"berechnen" w1=(VALwinkel1):w2=(VALwinkel2):w3=(VALwinkel3) m0=(VALma ~H stab):x0=(VALox):y0=(VALoy)  IF (w1>=360) THEN : w1=(w1-((FLOOR(w1/360))*360)) : ENDIF IF (w2>=360) THEN : w2=(w2-((FLOOR(w2/360))*360)) : ENDIF IF (w3>=360) THEN : w3=(w3-((FLOOR(w3/360))*360)) : ENDIF  t=(3.1415927/180) w1=(w1*t):w2=(w2*t):w3=(w3*t) (mH <0>)=((COSw2)*(COSw3)) (m<3>)=(-((COSw2)*(SINw3))) (m<6>)=(SINw2) (m<1>)=(((COSw1)*(SINw3))+(((SINw1)*(SINw2))*(COSw3))) (m<4>)=(((COSw1)*(COSw3))-(((SINw1)*(SINw2))*(SINw3))) (m<7>)=(-((SINw1)*(COSw2))) (m<2>)=(((SINw1)*(SINw3))-(((COSw1)*(SINw2))*(COSw3))) (m<5>)=(((SINw1)*(COSw3))+(((COSw1)*(SINw2))*(SINw3))) (m<8>)=((COSw1)*(COSw2)) RECT(DBL260,0),2,(DBL318,1),13 SETPOS(DBL265,0),10 : PRINT"darstellen" i=0 : REPEAT (xa)=((((m<0>)*(x))+((m<3>)*(y)))+((m<6>)*(z))) (ya)=((((m<1>)*(x))+((m<4>)*(y)))+((m<7>)*(z))) (za)=((((m<2>)*(x))+((m<5>)*(y)))+((m<8>)*(z))) IF(((ya)-2)==0) THEN : t=0 : ELSE : t=((ya)/((ya)-2)) : ENDIF x1=(m0*((xa)-(t*((xa)-0.5)))):z1=(m0*((za)-(t*((za)+(-0.8)))) (xb)=((104+x0)+x1):(yb)=((16+y0)+z1) INCi UNTIL(i==punktanzahl) RECT(DBL103,0),16,(DBL319,1),199 i=0 : REPEAT vv=(va):zz=(vb) IF(NOT(((FLOOR(xb))==(FLOOR(xb)))AND((FLOOR(yb))==(FLOOR(yb))))))THEN LINE(DBL(INT(xb)),0),(BYTE(yb)),(DBL(INT(xb)),0),(BYTE(yb)) ENDIF INCi UNTIL(i==verbindungen) RETURN @winkel_eingeb RECT(DBL260,0),2,(DBL318,1),13 SETPOS(DBL265,0),10 : PRINT"Eingabe"  IF(edit==0) : SETPOS(DBL65,0),30 : SETINPwinkel1,eingabeende : ENDIF IF(edit==1) : SETPOS(DBL65,0),50 : SETINPwinkel2,eingabeende : ENDIF IF(edit==2) : SETPOS(DBL65,0),70 : SETINPwinkel3,eingabeende : ENDIF IF(edit==3) : SETPOS(DBL65,0),90 : SETINPma~stab,eingabeende : ENDIF IF(edit==4) : SETPOS(DBL65,0),110 : SETINPox,eingabeende : ENDIF IF(edit==5) : SETPOS(DBL65,0),130 : SETINPoy,eingabeende : ENDIF H inputrout=(INTAT $84a3) : ON 0 GOTO tastatur RETURN @eingabeende GOSUBwinkel_eingeb MAINLOOP  @H verlassen END  @H inforout FIRSTMENU STRNBOX"/Bgeo-3D Version 1.3","1992 by Falk Rehwagen","1993 by Denis D|hler" MAINLOOP @hilferout FIRSTMENU RECT(DBL5,0),20,(DBL314,0),190 : FRAME(DBL5,0),20,(DBL314,0),190 SETPOS(DBL10,0),30 : PRINT"/BErl{uterungen:" SETPOS(DBL10,0),45 : PRINT"geo-3D ist ein Demo-Programm f}r Zentralprojektions-" H SETPOS(DBL10,0),60 : PRINT"berechnung und -darstellung. Die Verzerrungfaktoren" SETPOS(DBL10,0),75 : PRINT"wurden aus Berechnungsgr}nden festgelegt. Sie k|nnen" SETPOS(DBL10,0),90 : PRINT"diese Werte nicht {ndern. /P" WAIT250 : WAIT 150 GOTOanfang 0 @H verbundtabrout FIRSTMENU z{hler=0 PATTERN0 : RECT(DBL260,0),2,(DBL317,0),13 SETPOS(DBL265,0),10 : PRINT"Eingabe" RECT(DBL3,0),18,(DBL101,1),71 : FRAME(DBL1,1),17,(DBL102,0),71 SETPOS(DBL5,0),30 : PRINT"/BVerbindungen:/P" SETPOS(DBL5,0),44 : PRINT"/BLinie a( "; : PRINT(STRz{hler); : PRINT" ):/P" SETPOS(DBL5,0),58 : PRINT"/BLinie b( "; : PRINT(STRz{hler); : PRINT" ):/P" vt=(STRverbindungen) SETPOS(DBL80,0),30 : INPUT vt : verbindungen=(BYTE(REALvt)) z{hler=0 : REPEAT IF(scrflag==$80)THEN SETPOS68,44 : PRINT"/B"; : PRINT(STRz{hler); : PRINT" ): /P" SETPOS68,58 : PRINT"/B"; : PRINT(STRz{hler); : PRINT" ): /P" ELSE SETPOS51,44 : PRINT"/B"; : PRINT(STRz{hler); : PRINT" ): /P" SETPOS51,58 : PRINT"/B"; : PRINT(STRz{hler); : PRINT" ): /P" ENDIF vt=(STR(va) : SETPOS(DBL80,0),44 : INPUTvt : (va)=(BYTE(REALvt)) vt=(STR(vb) : SETPOS(DBL80,0),58 : INPUTvt : (vb)=(BYTE(REALvt)) RECT(DBL54,0),52,(DBL100,0),70 : INCz{hler  UNTIL(z{hler==verbindungen) winkel_zeigen : H winkel_eingeb : MAINLOOP  @H punkttabrout FIRSTMENU z{hler=0 PATTERN0 : RECT(DBL260,0),2,(DBL317,0),13 SETPOS(DBL265,0),10 : PRINT"Eingabe" RECT(DBL3,0),19,(DBL100,1),86 : FRAME(DBL1,1),17,(DBL102,0),86 SETPOS(DBL5,0),30 : PRINT"/BPunkte:/P" SETPOS(DBL5,0),44 : PRINT"/BPunkt x( "; : PRINT(STRz{hler); : PRINT" ):/P" SETPOS(DBL5,0),58 : PRINT"/BPunkt y( "; : PRINT(STRz{hler); : PRINT" ):/P" SETPOS(DBL5,0),72 : PRINT"/BPunkt z( "; : PRINT(STRz{hler); : PRINT" ):/P" pt=(STRpunktanzahl) : SETPOS(DBL80,0),30 : INPUT pt : punktanzahl=(BYTE(REALpt)) z{hler=0 : REPEAT IF(scrflag==$80)THEN SETPOS77,44 : PRINT"/B"; : PRINT(STRz{hler); : PRINT" ): /P" SETPOS76,58 : PRINT"/B"; : PRINT(STRz{hler); : PRINT" ): /P" SETPOS76,72 : PRINT"/B"; : PRINT(STRz{hler); : PRINT" ): /P" ELSE SETPOS57,44 : PRINT"/B"; : PRINT(STRz{hler); : PRINT" ): /P" SETPOS56,58 : PRINT"/B"; : PRINT(STRz{hler); : PRINT" ): /P" SETPOS56,72 : PRINT"/B"; : PRINT(STRz{hler); : PRINT" ): /P" ENDIF pt=(STR(x) : SETPOS(DBL80,0),44 : INPUTpt : (x)=(REALpt) pt=(STR(y) : SETPOS(DBL80,0),58 : INPUTpt : (y)=(REALpt) pt=(STR(z) : SETPOS(DBL80,0),72 : INPUTpt : (z)=(REALpt) RECT(DBL54,0),52,(DBL100,0),80 : INCz{hler  UNTIL(z{hler==punktanzahl) H winkel_zeigen : winkel_eingeb : MAINLOOP  @H tastatur UNTIL(pressflag==0) IF (keydata==$e9) GOTO inforout IF (keydata==$e8) GOTO hilferout IF (keydata==$f0) GOTO punkttabrout IF (keydata==$f6) GOTO verbundtabrout IF (keydata==$f1) GOTO verlassen IF (keydata==$14) THEN : SWITCH : GOTOanfang : ENDIF IF ((keydata==13)OR(keydata==17)) : INCedit : IF(edit==6) : edit=0 : ENDIF : ENDIF IF (keydata==16) : DECedit : IF(edit==255) : edit=5 : ENDIF : ENDIF IF ((keydata==16)OR(keydata==17)) : POKE$8504,13 : ENDIF CALLinputrout RETURN  @H mausklick H UNTIL(mousedata==0) : INTERRUPT OFF IF (REGION(DBL60,0),140,(DBL95,0),155) : INTERRUPTON : GOTOpunkttabrout : ENDIF IF (REGION(DBL60,0),160,(DBL95,0),175) : INTERRUPTON : GOTOverbundtabrout : ENDIF IF (REGION(DBL 30,0),0,(DBL73,0),14 : INTERRUPTON : INVERTH (DBL 31,0),1,(DBL72,1),13 : WAITselection : INVERTH (DBL 31,0),1,(DBL72,1),13 H darstellen : GOSUBwinkel_eingeb : ENDIF IF (REGION0,1,(DBL29,0),13) : INTERRUPTON : INVERT1,1,(DBL29,1),13 : WAITselection : INVERT1,1,(DBL29,1),13 : GOTOverlassen : ENDIF  IF (REGION(DBL60,0),20,(DBL95,0),35) : edit=5 : GOTOmauskl_2 : ENDIF IF (REGION(DBL60,0),40,(DBL95,0),55) : edit=0 : GOTOmauskl_2 : ENDIF IF (REGION(DBL60,0),60,(DBL95,0),75) : edit=1 : GOTOmauskl_2 : ENDIF IF (REGION(DBL60,0),80,(DBL95,0),95) : edit=2 : GOTOmauskl_2 : ENDIFH  IF (REGION(DBL60,0),100,(DBL95,0),115) : edit=3 : GOTOmauskl_2 : ENDIFH  IF (REGION(DBL60,0),120,(DBL95,0),135) : edit=4 : GOTOmauskl_2 : ENDIFH INTERRUPT ON RETURN @mauskl_2 INTERRUPT ON QUITINP RETURN GEOCOM-demo^ gPRG formatted GEOS file V1.0@@@@@@@B!F)B=hB (GI@&%geoCom V1.4@Falk RehwagenThe alternativ programming system for GEOS64/128 (demo-version)mage V*************`**#-.? nCDrive x:geoCom V1.4P!0Ts~y2@wzesuw|.`J`prt vȱp t ` f'`  V¦`,,,,, , ,,hh hhoiiHH HH`g'`rp``(&x&@h'0L}A&70Тs`&F'&X`&X` tt cerpȥesp`pq` `tK'rP' P&' rK&' uH Ph`rt(rt(`, L{L; rK'pHqHtHuH hh& r'K& hh& {LPrstrusut`pIp```,,,,,,,,, , , , , ,,,,,,,,,,&&L&&L`T f $Z6NH?<-*WB0EQ[D8gP(xXdkq9JI⿼ ed` yL bc` ]`rt`p` iLkpH v hp`rt k(`(J(`pHqHHtH hh& & hh& {LP,`,`L h' ,`h'L` hh`prt u `i'p)?i'L Us't'`t'~s'` /  7pps'ȱpt'`  7ps'pȭt'pL; /  pȱp    `  pȭp    L;pi qi `pȱpȱp`pȭpȭp` !`` zL^ `pq`` ` ` `rtȱrt` p`p 0`p `,p`,P`p` iLk??h' V \"L~ f~~L ` ~ i 0H~hptph`,k'0W Y V ` &n `8 L 8 z`` ,Ĉpƈ``8 $ Š آ`  `  H.`  EL r - ȱp`3xy  z ^ z{zx`3xy  p 93 $L  z uL0  z uL3  z ^ L'  z ^  9L$  LLK rtȱr ?p` pL prpȱrqlp r0HHH + N , Lhhh Ee&L `8& L` pL  rpsqurL r s t N L? ` L  z ^ L*  ‘p` prqshhL prqsL  L p  r 0tH u(  L p  rH p` hhL& s$L,¢Lhh` rp` vwrx evvwx ȹvp`  rLQLL  LZ  L pL  `p EL L pL<LLL pqrp z ^  ` r s pL pr t ȱr L pL pL  rL, , ,,,tpL p L` \©0`L_ pȱpr` rȱrp`  ȹrp` xH5pr'h(`,, L Dg'Fg'ʽ{g'H -. 5++`disk error: $xxno blocksinvalid trackfull directoryfile not foundbad BAMinvalid recordout of recordsstructure mismatchbuffer overflowdevice not foundbad graphics modeopened file in drivedevice not foundfile is openfile is not openno read-fileno write-filerecords are opensize overflowgeneral disk error  x f'L i$vk'0 j&~HIv  Ti9(P $pp q rtu5  LL xLL TLL ! ;j: * ,Ĉp ,0ƈL i$i9 +LTLPlease insert a newdisk in drive x. trJJJJ ) 0:i'pȩp` rpt`pL  La tLrHȱr .pipqhrL reEH %{$zhpHqH& xhh& {LP  L  ȱrqtp` 8 ȱrtp` rHsH hh& r ~ P EeptL rK' K&' r H Php` rK' K&' r HH Phphp`hphq8pqHHqHpH` phh`hhhhHH`  p`,,L vL,,L vL{ rvtrusL  L` v f'L i$tk'0 j&~WXt  Ti9()\ $>  L  xL TLL  rH ! P 0p Hj: H rptL` r pvt(pvL L 8L  U `Li  U iLi  ] U fLq  ] U iLq rIp`1,,Q rtp`  p`        Ip`    L? ȱrp` rptȑp`,,, L  tK'rP'pHqH P&' K&' hh& {LP , ,,,,,,, pHqHrHsH hh& r hh& {LP rHsH hh& r H Php` rtL trpȭVrp` rtȱrL rpȑp` vtrp(xp`,,,,,  LL .IW,,,  L_$Y8X`xH60h`  (L( p芑p` pʊp` trp` rȑp` r rH$poȱpphhh( HHHr #hr` trp vp` t+r8r(p vp` ptqutpȱtL  p᪽pȅqL5683e&`?I?h' L  ,p`  aL_  =L_     p ippD|E}pBC &L8FG  &8lB rIp` pHȱphLz ZL   zxy m   /H/h' &&& 0L < e eh'    Lv iih/`)(h' ` r p` x z( `iei i(i` pl'qm'e ŠL/j'/n'o'  yL   yp`   yp` l'm' yL  pql'm'Ly l'm' yL  pql'm'Ly l'm'Ly l'm'L y j'/ n'o'`  pqL `33333c rL  trpvw00 L0 l'm' 0 vw  y` ( <L  4 4)-***ev/ew0 -!. @`)`ʊ@ +  c(`e!!`  5 L-  5 LP xL  @ rs  YL  i$  8L  @ L rtpq I vw ; ;¥r'L  i$  @ rt@Dvw N L   L   L  ;$ X g'r LL 8 ȑpp` i$  L i'p0rs ; Š )?L-ppȭp O p S и񭗄ʎ  p芙Ls't' X    p0L p0L1-)?   p)Fp ȱp!  qp ʊ p ȱp!ȱp p R-p S 6p p  p p Lp   q : 0 S L) b)@ # Šp)?p s$L p` LW,~ x C b~ 1 *~ )$rr # #%֎g'LL С И tЏ   r Žg'LL,,  q  L   q  ;$ ] L q!g'ж b ;$`pȱp P # ] Aee ȱr p  g'LL; L   q  ] L q!g' b ] pȱp L p'q'` p0i' r iertsiutpȥp r芑rqpL prȥqrrs L p L b,P # )pȱpL tiuiprȱtLB rst p vp` rHȱp `h L ȱprtL~ tȱprL{9" `  U iL  ] U iL 8xyL^ L; rpqL$  " p`rt~`  " " L" r~ȱr~L L  x D b 9- ;$0 + #s' t'pȱp  L L8L LT   t phphqra#ȱrL7trusL p` rpȑp` ti rp`rsLGs' t'L`$s' t' S ;$b  ŠWs' t' 7 pȥ p 0  U` pL¢H͉ s$ G­h` s$`H Jh Š`$   ɀ`~LgeoCom V1.4 requires aGEOS-kernal of version 1.3or higher.H?h'n/ d  $$$L, h8@D n   )&,Ĉ p ,0ƈ挺&&*x@ UxBF'Xtɀ b& h+LT& =,U' ;¥(@|A}>? &L% d b&l>g' L,  tŠ` 8F}&{&G~&|&  `~{U' Z&'{ Š~ $ zŠЧ|}} $`/TU mh'$ xB.x/x9x:x"*x+x >k'{ h 6k >k h@ 6kLQ&g' LR m d {oprȩvpzr0 {{  6 {i}gzf'hLRhB umЙ )ŠЋ PA"&v CmLPZ \)`Write Image{ ) DQ {{  6 V{{ wkLv {{ wkTv |k hi kw ;ŠLe h umB .m .m w .myVȹydy It~cystxz}Hy(莵ywJx  (V h i 'i T~uv@h'{|@ KU WBB)B U "Ldd(k ol  j i e $jɂ ZZ+LRɁ ( h j lhvwwNwviNw{{ w SwSL j Vwygf' i`LRhH umLehLrdLjd` k mz LSTcy lTU /LH& jhLPLwP GT{ \T|Lm S S {m mz S ŠLS Si m}t  [vtv+LR ¢~ ¥t ©H k Š: )Š,` lh~ Žg' L> hg' LRpqw m{pqw m| m  © Y hh Y`hhLRwJHx m m pq hh$ ¢ Z& >k( h 6kwh ©w` B  A y  HU`  HU V:`O"H ʽ/Ih/`&x } 5U Ldd`LmU  LmULmU VLU V. V Vs V #xB 2x> BxN |V #xD 2x@ BxP |V #xF 2x< BxR…-x 'x6x)Fxx |kLV`{{ V LE  Le U TLV ٢  W` LV"u@ ﬩䢩墠LHr r JSSWTW@條C %m  LW  )] JS m [Β< mL lLM DJEK@ mJ l> mHLl(- Ljd Hx GW Hx LwW ZL'Z' =XLwW JS C ȩC` Ck 譓"^" Ok (fdL"f/&Ljdx Y ݀깤xH OkhLlX%" I0J&&Ljd LY$G Z 莓 &&LX  j0L-YL"f𬭓.-ec "e-e ZH 5hc* x( xc g𬈑L"f  L*Y Z  Z``0: a g8')`8`䢬 Ljd 轀  Z f& `kdn (f 鉶L"f Hx`L7XH_: Sxh`No errortext created, becausegeoCom is not on disk.Ȍȱ` m)ݪm!L[ nmmȄ! i))pJJJJ ` i0  i Bi0a!0 k )F8eiЎabL [ v` 䠡 mLrdL\ j)L] ,l kLV\QyHd@ %m(LM mh g Df HxΒ fd( (f Hx i}@HI m g ȭȭ Df\\쓡 gg \ \`@ jg %me`H m9`*HH)8`C{ m h?h?ũhLjd k  l ,l mLt_U]S]i]T]L}o4*.RdR]]]]]^^^^^^^^`_^]`]e ]ȹH` Ck Rkr fK#g  Ck RkI(LjdJKI` fLV\ m Jlנ LJlJK ;^ hi mw m} h i hLjd umLjLe   ;^e^j^X^a^`iVd,Pyy gNOBH>` gPQDJ@D` gRSFL<`cy`Hy=` {m m k!,, ,Ljd Q mz h Py" ol ͠  B)Bz ¦ Z&Le i T hLj >l(ȌyLjH  ,yy#Ljdu0񮒡ʽ梙梊 uHiIiް8__B h!% %mΒ (f;3#u0ʽ@@ uHi IiްLV\)t@ e i`hLR{{LV myHx6 k` Zz {%zLjd z  mxxxyy`y~ >l A,ȱT% kHy Z|}; `y`IL筒 L\y ~z{ ,lLa lԍ䢩墮 Ljd~naz{hey `ii Hx䢬 my bLb Ck RkLbHLHMH|L}M~ m vz{ m v fLM m LLHMSLR LjdL|M}hMhL 﫥LaLM䢩hh`iLjdH} ¢i Z&Le j ! t ˠ \ m k͗Ь mL0S ' %H Ik OkhLSc Le%L^c e  (e!LQd ! mh umLe`䢬 m  ׍ ͅ ą f,,䢅墅L0S eee$t0˭JtKtt RkLSc Ik RkLSc+@ ?LNeمeuv mȘi zieuiv|{&Ldd zBzȢȢh轀ss UM LRL]RH v T+~ht ( e m{{ Le "&(g''t@ e hLR m JlP LV\L DJEK U s T ( ~ 9l{H Dfh e` kL=X fLwWH@ %m}@@h`h` *m ii` gfH lhLnP Š  Š`䢬 m gip gp(` gpqnp0)ȱpȱp8eppqr gr(!`Lk¢ m`,, &gHHXgphHqppȱpiprprLgtLjdHN JPLR ,?gHJHe~eu)͒g?((#u|ް}~|hh`pqpLjd` gP$(шΆpq m Vm k Š 6m` )Šب M򭉄pLh m Vm hp ;¥ 6m`~ Š` m WkxiiL|k m Wk < E {m |k ©>LE m{{ ${{ wk. kL|ki ~~`.{{ wkLVuiwi i  mLHi&ʥu LHi` )   A)f'` By Qy``t$ʽttߍt` Hj i k j gf j gfLw`BCHI`DEJK`B>D@F}&RF:` $j k 0 l+ fj%Lw©y  k u'Lgf` m %miUi` m)-Lj梅 0 %m}梨 - k k ڥ `JK`I#LddgL±` kLZ&d) %me!- ` m Š` Š` jLm jLm,Lg{{ $.{{` LH``` , L\V` k` Ik j m-Qy g m e`H jprqsha-bL6L#L\0,LjdDJEK  H Uh`I%LddIJK flȹHy`}} ` )Bz gz umLeLh m Ȋ` k  8Š`5ɀ v CmhhLRh'Ġw  & mLd h'` %m}`,m *i`Py,` T~`LmMm [v++`ƈ )`  ¢` {mLZ&B`,``~`eL-?ABCDEFGHILMNOPQRSTUVWabcdehijk@  nnnnnooopppqqqqrrrsttttttuuuuuuuu.2;1o7k: #FQqTc d d;BScDDd,aabc"defghij"kPPENDf0SCd,aTNcHORd! gaLOCKa  cF SYSb,i bAPACITYafHRaLASSd2LOSEf",LRCOL dLS hLSaODE OL,aST OScREATEd,d,a!DREATEd,g BRa%ECa ECbELEfELEduEVICEa IALOGgAIMXPIMYvISK"mISKN%EIO!a>!TRIVEUMMYLSE^NABLEa >NDNDIFRRORXPc "ILLb,TYPaCLASSd,kINDFd IRSTMENULOORc O g t,agREEZEahFd,d a,hJabcdLOBAD OSUBehMODa eARDCOPYa,hEXSa EXSbfIGHbOME CSg# #GOSUBe #Ge#THENkMPNCLUDEdNCavNCbCNITFfNITIO NPd;d NPd qNPd;dNSf     #~ ap a,a c NVERTEFTd,a SENd INEOGcOOPOWbPdPd; JAINLOOP ENUg,arIDd,a,a  "\WIN"ZWIN!OVEb,b,b%dOTaBJECT BJFdNaGePENd,a,d,aTPENDISK PENfiPENdVERLAYMOD -ATTERNaEEKb bd OI OKE%OS"a,rBUFhDEINITh d d;PROCESSg,a INITa  ECa!DEC h a,h#'a#1b#9c#Bd UITINP EAD   3aYb5d#ECINFOf,abECOVER ECT EAW EGI}EN%dTOd'EPEAT!`ESf[ES$a 6MENUg PURNIGHTd,a=HIGH INPd,eLOWNLQ !POS"a,gVECTORb,e"WRITEfGNcINcPRCOLa,aFPRITEaa=a>a"y^aANDaEXORa";MODaORa*b+b-b/b<=b<>b=b>b"^b"KMODb*c}+c-c/c<=c<>c=cF>c^cr+d:<=d<>d^=dL>d 璢¥ġeBOXRINTETILEb,a,b,aa,a,a,aUTYTEALLITMAPATbNTERRUPTNTEALTRONOFFROWINDOWROMPTDROUSEBLOCKf,a,a,b,aRAMEOTOLENRECb,bBLSPRFaTARTAMEErrors:Chars:Application or documentnot in drive A or BFalse computer typeInvalid text versionCompiling error: $xxPlease select option:Another source textSave programTo deskTopRun programWith text to geoWriteWithout text to geoWriteWith object to ObjectEditWithout object to ObjectEditObject Data V1.0Please enter filename:geoWriteObjectEdit w  wHHApplication on this screenmode not runable. Change?~>Q SS SSSSS(q$xxxx -$xxxx (max. $xxxx)B(@P(@P@P`B(@:PP(@nNBPIOUR/"ur /"nonegeoCom V1.4BYTEVARINTVARREALVARSTRVARLABELFILEVAROBJECTROW: Vᘁ@@@@B B B B % V1.0Falk Rehwagen y  yHHFilename already used.Overwrite file?Falk RehwagenObjectcodefilqz}ssۿۿ۸ۨs ++ sS#Å sS#˅[ۀ۠[۠,,,,,,, vww NwL`undefinedbyteintegerrealstringlabelfileobjectbyterowintrowrealrowstrrow {H HHCreate errortext?{|1{~k~=~3~} ?{ `:geoCom version 1.4 (PD-demo) - (C) 1992-93 Falk RehwagenD-04103 Leipzig, Wintergartenstra~e 2/107, ph.: (0341) 284343?>Src. text:Page:Cmd's:Obj. file:Mod.:Obj. code: none Code area: Constants area: Variables area:x! '}PATTENTION! This is only a PD-demo-version of)/geoCom. Following functions are not implemented:):* saving of programs)E* creating overlay programs)TComplete version (price: 59,- DM) available by:)_D. D|hler (GUSS), Gorkistr. 18, 04347 Lpz, GermanyyzzzMz{pz{z {z{z{*z{ /  v v hw 8v Pw 4w 8w Piw hNw+~.3~Fc~^;~C~.K~FS~^[~    ~ 0 vH{|L,,{~|~;z~D~} { `<B<}geoCom version 1.4 (PD-demo) - (C) 1992-93 Falk RehwagenD-04103 Leipzig, Wintergartenstra~e 2/107, ph.: (0341) 284343} Src. text:Page:iCmd's: Object file:Moduls:iObject code: noneCode area:Constants area:Variables area:x! -}PATTENTION! This ist only a PD-demo-version of\/geoCom. Following functions are not implemented:\:* saving programs\E* creating of overlay programs\TComplete version (price: 59,- DM) available by:\_Denis D|hler (GUSS), Gorkistra~e 18, D-04347 Leipzig, GermayyzzzMz{pz{z {z{z{*z{ /  v v hw 8v Pw 4w 8w Piw hNw<~.D~Ft~^L~T~.\~Fd~^l~    ~ 0 vHLP-L (L#(L6.r( ~`Z2g'  9(U(k(`Errortext can't be createdas a result of a diskerror.command too longpictures aren't allowed in the source textbrackets to deep (max. 7)variable not declaredtoo many variables with the command (max. 16)full constants areabinar (%) or hexadecimal ($) expectsyntax unknownfull code areafull variables areaoperator as commandcommand as operatorto many variables names (max. 127)IF/WHILE too deep (max. 40)no object file existingvariables name not declaredobject not in object filetypes aren't equal (object,program)too many object addresses (max. 128)file not found or false file classpointer buffer for direct variables overflowcode area not over $5000start address higher than the end addresscommand only in definition partcommand only in declaration partfalse text version of INCLUDE-filestringlenght only in range of 1 to 254unimplemented string-control-codeROW-area only in range of 1 to 65534global area had to defined firstINCLUDE-texts maximal 1to including text not foundrekursiv including of text not allowedcompiling through STOP breakedprogram-/block-end wiht open IF/WHILE-commandcode area not under $2800ENDIF/ELSE/LOOP only IF/WHILEerror buffer overflowDiskettenfehler aufgetretenThank you Kathleen! I love you!!!Demo-version can't save programs!HHHgY2 .j[2 Z&Kv ŠCv Š4t / 0sO Q. /tts I1 |. Q. wŠ- w©[2 8L--{oprȩ.p.rh hh`Opening errortexts3sッ GT m[2{Y2LS88rs8 Š z­<``vrrsv`AJJJJ 0/) 0/~pq) B[2 _ /[2[2 [2 8Š/ `_errr8sA )r8s8ߙ8ȩ8 `8 ,/A!8iP88 8`H |.h`[2AWrite Image V1.1geoWrite V1.10 v/t 10 v/ 21 v/p 11 v/pȱp 11 v/pȱp 1*1 v/p 141 v/vr(p v v/ȱp81 v/p |.ȘeppqiqF1Lv/Error #: Text: Page: Commands: Chars: Error $: Helptext: t91 v/t 11 v/tʩr( Lv/`Early compiling end through error $: H H ih 01ʽ1 |.h`JJJJ 2 |.) 2L|. 0:i'`p"9pl2 |.l2`ȩB )Lv/ȩl2Lv/docname iostatg'curdrivedbstatf'stylepmodescrbuf/numdrives&versionscrflagh'geocom loadflag scrcolormenunumbackwordp'backbyter'mousex:mousey<direntrydrtypeiconflagfaultmenumousedatadatebootflagňnationsysflagsysreg$appreg$keydatastringxstringyInstructions^ )(PRG formatted GEOS file V1.0AWrite Image V2.0geoWrite V2.2 ( ...***** *) *>*1 G9*******.****. 3* ,9 *< *<`***3 ***8 **.****q*3 ***8 `*I@**1*****A***9 l&****** X 888888888 @Instructions to the demo-version of geoCom and to the enclosed demo-programs and source texts.  With this disk you get the possibility to get a look in the world of programming with geoCom. The complete geoCom-system is very extensive und consist of several programs. This disk contains the importants program of the system -  @geoCom.  geoCom is a compiler, which translate source texts, whitch are written in a BASIC-like programing language, into runable maschine code. GEOWRITE is necessary for writing the source texts. Because of that we had not to program a separate text editor, and simultaneous all advantages of geoWrite can completely be used. Even the creation of an own source-text-library in text-albums is possible. Please copy now geoWrite and the geoCom-demo (in geoWrite-format) in your RAM-drive or to your work-disk. Open one of the enclosed source texts with geoWrite an take a closer look in it. You will find many BASIC-like commands and functions. All whose have already employed wiht the programing under BASIC V2.0/V7.0 or GEOBASIC, will quickly manage geoCom. Only the first part source texts is new for all. But this one is necessary for compiling! In the instructions to geoCom you will find an precise description of the first part in source texts. Because of that we won't say more about it here. If you want, you can experiment through change some commands and functions. You can't destroy anything, because all mistakes will be collected and after compiling an errortext will be created. Doubleclick now geoCom on the deskTop-icon and geoCom will be started. The file-selection-box appear. All geoWrite-documents will be schown. Please select only such text, with are really geoCom-soucre-texts. After this you will be ask, whether you want to create an errortext or not. Througt this you can set, that found errors will be show immediately or that found errors will collected and complete put out in an errortext. Please click here YES. It's better for getting to know geoCom. After this geoCom reads teh source text and starts the translation. The advantage compared with GEOBASIC is, that all commands will be transfered into the maschine program, before the progam runs first time. geoBasic isn't a compiler and had to translate the program every time it will be used. While the compiler is working you can see, which part of the source code actually will be translated. The errors will after the compiling seperatly saved in an errortext. If there is a hard error, so that the compilation can't be continued, the error will be showed immediatly. 888888888# The compilation you can break every time through the STOP-key. If the source text will be error free, like this one on this demo-disk, the main-menu will appear and you can continue with one of the opptions. In this demo-version it is not possible to save a program. You can start it only direct for the compiler. All point which are written in PLAINTEXT, you can select. All Point which are written in  italics  are not active. Now you can click in the icon with the text: "Run Program". The program will be started now. If you later quit the program you won't return to geoCom but directly to deskTop. The complete version of geoCom contains several programs: - geoCom - the compiler, it translates the source text into a runable maschine program - ObjectEdit - With this program you can create own menus, dialogue boxes, data-rows and icon tables - Linker - connect a geoCom-program with maschine code from MegaAssembler or geoProgrammer - Start geoCom - Accessory, with starts geoCom or ObjectEdit from other Application (geoWrite) - Start Editor - sets the several options of "Start geoCom" - IconEdit - a complete icon-editor for editing the icons or their own geoCom-programs - basicTOgeos - converts BASIC V2.0 in geoWrite-texts The geoCom-system contains a detailed Documentation with about 80 pages and 3 disk-pages full of source texts, demo-programs and instructions. geoCom was developed in Germany an was tested with GEOS V2.0 and GEOS 128 V2.0 (on 40 and 80 screen mode) You can order the complete system of geoCom by: GEOS USER SOFTWARE SACHSEN Denis D|hler Gorkistra~e 18 D-04347 Leipzig Germany PERFORMANCE PERIPHERALS EUROPE Michael Renz Holzweg 12 D-53332 Bornheim Germany The price is DM 59,- (price of introduction) plus DM 5,- for shipping (only in Germany) This instruction is a shorter translation of the german original text to the german demo-version of geoCom. Unfortunatly I not enought time to translate all into englisch. Only this two pages and the main-program geoCom-demo I have translated. The demo-programs an the descriptions on the two next pages are already on german. If there is someone who had time to translate the programs and the rest of the instructions, II would be very happy about it. If there are any quitions left, please write to GUSS. The address you find also on this page. This part of demo was translate into english by Falk Rehwagen.  @Sorry!!! for the very bad english, but I'm speak it only a little bit. I hope you nevertheless understand the main parts. Help GEOS 64/128 alive! 888888888#L@SHOW FONT L SHOW FONT zeigt alle auf der Disk befindlichen Fonts in allen m|glichen Stilarten und bis zu einer Punktgr|~e, die unter geoWrite verwendet wird, auch alle Punktgr|~en. Die Bedienung ist ganz einfach : Kopieren Sie SHOW FONT und einen oder mehrere Fonts auf Ihre Arbeitsdiskette und starten Sie SHOW FONT durch den }blichen Doppelklick auf das Icon. Nach dem Start erscheint eine Fileauswahlbox, wo Sie den entsprechenden Font ausw{hlen k|nnen. Er wird dann eingeladen und in der kleinsten vorhandenen Punktgr|~e angezeigt. Auf der rechten Seite sehen Sie nun verschiedenen Stilm|glichkeiten. Wenn Sie diese anklicken, wird der Font entsprechend gewandelt und neu angezeigt. Sie k|nnen auch dazu die }blichen Tastenk}rzel verwenden. Mit den Pfeilen (rechte, untere Seite) oder den CRSR-Tasten k|nnen Sie die Punktgr|~e, wenn vorhanden, {ndern. Bitte beachten Sie, da~ nur Punktgr|~en eingelesen und dargestellt werden, die auch geoWrite verkraftet. Mit "Verlassen" bzw. C=Q kommen Sie zum Desktop zur}ck. SHOW FONT demonstriert eine Programmierm|glichkeit unter Geos ohne gro~e Men}leistentechnik. SHOW FONT arbeitet im 40 & 80 Zeichen-Modus.  L@SYSTEM INFOL 8888888880 Gr 888888888SYSTEM INFO ist eine Applikation, die Ihnen alle Daten aus dem Geos-Speicher - wie Seriennummer, Bildschirmmodus - ausliest und anzeigt. Dieses Programm oder besser der Quelltext dazu dient als Anschauung, wie man an die einzelnen Daten herankommt. SYSTEM INFO wird durch einen Doppelklick auf das Icon im Desktop gestartet. Nach dem Start werden als erstes die derzeit eingestelten F}llmuster ausgelesen und angezeigt, sowie das Logo, die Men}leiste und oben rechts die Einstellung. Danach werden alle vier m|glichen Laufwerke angesprochen, der Laufwerkstyp und die eingelegte Diskette ausgelesen. Wurde alles ausgelesen, was einige Sekunden dauert, werden alle gefundenen Informationen angezeigt. Der Mauszeiger unten rechts ist eine Grafik und kann nicht bewegt werden. Mit C= I k|nnen Sie die }bliche Infobox anw{hlen. Sie k|nnen das Programm durch C=Q verlassen. SYSTEM INFO arbeitet im 40 & 80 Zeichen-Modus. 8888888883L@SID DEMO 5L Das SID DEMO 5 zeigt eine Programmierm|glichkeit zum Erzeugen von T|nen durch Ansteuerung des L@S I DL . Wichtig ist folgendes dazu : Es gibt keine spezielen Befehle zum Erzeugen von T|nen, Musik oder Ger{uschen. Stattdessen wird auf das alte Betriebssystem des Computers zugegriffen, mit den bekannten Basic-Befehlen POKE und PEEK. Sie m}ssen nur geoCom dies mitteilen, indem die Umschaltbefehle INITIO und DONEIO vor und nach dem Zugriff verwendet werden. W{hrend des Zugriffs auf das alte Betriebssystem ist der Geos-Interrupt unterbrochen, es funktionieren keine Tastatur- oder Mausabfragen oder Zeitbefehle (WAIT). Das Arbeiten mit dem SID ist genauso wie unter Basic V2.0 oder V7.0. Hier nun ein Beispiel, weitere Beispiel auf Diskette B ! Dieses Programm ist unter dem Namen "SID DEMO 5" auf Diskette B gespeichert. SID DEMO arbeitet im 40 & 80 Zeichen-Modus. L@PATTERN SHOWL Dieses Programm zeigt auf simple Weise alle GEOS-Patternmuster an. Dazu wird eine Schleifentechnik verwendet. Beim Anklicken einzelner Patternfelder wird dieses Muster einzeln dargestellt und die dazugeh|rige Nummer angezeigt. Au~erdem ist die M|glichkeit des Ausdruckens durch die Tastenkombination C= P oder Anklicken des Logo-feldes m|glich. Dazu mu~ allerdings in Grafik-Druckertreiber auf der gleichen Disk vorhanden sein. PATTERN SHOW arbeitet im 40 Zeichen-Modus. L@GEO 3DL GEO 3D zeigt erstmals unter GEOS dreidimenionale K|rper und berechnet auch diese. Sie haben dabei die M|glichkeit die Werte selbst einzugeben. Sie k|nnen dabei au~erdem die Tastenkombinationen C= I f}r die Infobox, C= H f}r einen Hilfsbildschirm und C= Q f}r Verlassen w{hlen.  PATTERN SHOW^,PRG formatted GEOS file V1.0%PatternShow V1.0Denis D|hler z  zHHDateiname schon vergebenDemoprogramm f}r geoCom Falk RehwagenObjektkode$"]Lf-werk B:PatternShow V1.0(@(@`0Ts~y2@wzesuw|.`J`prt vȱp t ` '`  V¦`,,,,, , ,,hh hhoiiHH HH`'`rp``(G'xH'@'0L}AH'70Тs`G''H'X`H'X` tt cerpȥesp`pq` `t'r' ڍF'' tՍF'' wH Rh`rt(rt(`, L}L= r'pHqHtHuH hhF' t'ՍF' hhG' }LRrstrusut`pIp```,,,,,,,,, , , , , ,,,,,,,,,,F'G'L !F'G'L`T f $Z6NH?<-*WB0EQ[F:gP(xXdkq9LI⿼ ed` yL bc` _`rt`p` kLmpH  hp`rt k(`(J(`pHqHHtH hhF' G' hhG' }LR,`,`L ' ,`'L` hh`prt u `'p)?'L W''`'~'` 1  9pp'ȱp'`  9p'pȭ'pL= 1  pȱp    `  pȭp    L=pi qi `pȱpȱp`pȭpȭp` !`` |L` `pq`` ` ` `rtȱrt` p`p 0`p `,p`,P`p` kLm??' X "Ld~ f~~L ` ~ i 0H~hptph`,'0Y [ X ` D'p `8 L 8 |`` ,Ĉpƈ``8 $ Š آ`  b  H.`  EL r / ȱp`3xy  | ` z{zx`3xy  p 93 $L  | wL0  | wL3  | ` L'  | `  9L$  LLK rtȱr ?p` pL prpȱrqlp r0HHH - P . Lhhh Ee&L b8& L` pL  rpsqurL r s t P LA ` L  | ` L*  ‘p` prqshhL prqsL  L p  r 0tH u* ! L p  rH p` hhLE' $L,¢Lhh` rp` vwrx evvwx ȹvp`  rLQLL  LZ  L pL  bp EL L pL<LLL pqrp | `  ` r s pL pr t ȱr L pL pL  rL, , ,,,vpL p L` \©0`L_ pȱpr` rȱrp`  ȹrp` xH5pr'h(`,, L =K'M'ʽ'O /0 7--`Diskettenfehler: $xxDiskette vollung}ltiger TrackInhaltsverzeichnis vollDatei nicht gefundenfalsche BAMung}ltiger Datensatzzu viele Datens{tzefalsche DateistrukturPuffer}berlauf beim LadenGer{t nicht vorhandenfalscher Grafikmodusoffene Datei im Lfw.Lfw. nicht ansprechbarDatei bereits ge|ffnetDatei nicht ge|ffnetkeine Lese-Dateikeine Schreib-DateiDatens{tze ge|ffnetmax. Gr|~e }berschrittenallgemeiner Diskettenfehler  x 'L $v'0 D'v  i9* %pp q rtu  L;L zL;L L;L ! ;< * ,Ĉp ,0ƈL $i91 (-LLBitte neue Diskette in dasLaufwerk x einlegen. trJJJJ U) 0:i'pȩp` rpt`pL`  L tLarHȱr pipqhrL@ reEH %{$zhpHqHF' zhhG' }LR  L  ȱrqtp` 8 ȱrtp` rHsH hhF' t  R EeptLa r' ՍF'' t H Rhp` r' ՍF'' t HH Rhphp`hphq8pqHHqHpH` phh`hhhhHH`  p`,,L vL,,L vL} rvtrusL  L v 'L $t'0 D't  i9*) %  Lg  zLg LgL:  rH ! P 0p H< H rptLa` r pvt(pvLa L  8L  W `Lk  W iLk  _ W fLs  _ W iLs rIp`1,,Q rtp`  p`        Ip`    L ȱrp` rptȑp`,,, L  t'r'pHqH ڍF'' ՍF'' hhG' }LR , ,,,,,,, pHqHrHsH hhF' t hhG' }LR rHsH hhF' t H Rhp` rtL trpȭrp` rtȱrL rpȑp` vtrp(xp`,,,,,FDLE  NL%,,,rmvn  LaڹX`xH60h`  L p芑p` pʊp` trp` rȑp` r rH$pȱphhh( HHHr #hr` trp vp` t+r8r(p vp` ptqutpȱtL p᪽pȅqL5683e&`?I?' L  ,p`  La  La     p ippF|G}pDE 'L8H86I97 C'8lD rIp` pHȱphL ZL   |xy o   /H/' &&& 0L < e e'    L iih/`)(' ` r p` x |( `iei i(i` p'q'e ŠL/'/''  yL   yp`   yp` '' yL  pq''Ly '' yL  pq''Ly ''Ly ''L y '/ ''`  ,pqL, 8ð`ðg۰`lc``۾`ۀ L  trpvswt00 [L=0 n'' 2 vw  y` f( L   )-***evew ! @`)`ʊ@ -  c(`e!!`  7 L-  7 LP xL  B rs  YL  $  8L  B L rtpq K vw = ;¥'L  $  B rtBFvw P L   L   L  $ Z 'r L 8 ȑpp` $  L 'p0rs = Š )?Lppȭp O p U и񭗄ʎ  p芙L'' Z    p0L p0L)?   p)Fp ȱp!  qp ʊ p ȱp!ȱp p Rp U 6p p  p p Lp   s : 2 U L d)@ #$ Šp)?p $L p` L,~ z C d~ 1 *~ $rr 0$ $%֎'LL С И tЏ   r Ž'LL,,w  s  LR   s  $ _ LR !'ж d $`pȱp P # _ ! Aee !ȱr p  'LL= L   s  _ X!LR !' d _ pȱp X!L !''` p0' r iertsiutpȥp r芑rqpL prȥqrrs L p L d,P #$ )pȱpL ! tiuiprȱtLB rst p vp` rHȱp bh L ȱprtL~ tȱprL{" `  W iL  _ W iL 8xyL` L= rpqL%  # p`rt~`  # # L6# r~ȱr~L L  z D d 9- $0 + #' 'pȱp  L !L8L L   t phphqr#ȱrLtrusL p` rpȑp` ti rp`rsLI' 'L`$' ' S $b  ŠW' ' 7 pȥ p 2  W` pL¢H͉ $ G­h` $`H Jh Š`/%   ɀ`~LgeoCom V1.4 setzt einenGEOS-Kernal der Version 1.3oder h|her voraus.H?'/ f  D%]%y%L, h8BF n   )E',Ĉ p ,0ƈD'C'*x@ UxB'Xvɀ & -L& ?.߅' ;¥(B|C}@A 'L& f &l@' L,  tŠ` 8H''I'' P`~{ߠ' &'{ Š~ 7% zŠЧ|}} 7%` f / @ @@@@ @@@@ # @@  @$ # E@G@  H@' @ xp@@ xq@@ L r@@@ R @ | RZ@ Z@ ZZ:@  PZ ;Z<@ PZ /ZP@ ZZ@ Z PZ ZZ  PZ Z@@@@ i Z@ z @ z / P @@@@ @@@@ 9@ / @ @@@@ @@@@ # @@ @ &#Z P Z  @ R Z@ i Z@ @ Z@ i Z@ @ Z@ i Z@ @ @ P@  P@ P@  P@ P@ P@ P@ @ P@ P@  PA PA PA @ PA PA  P A P A P A @ P A PA  PA PA PA @ PA PA  PA PA PA PA @ R PP  / P P PPP P PPP  P ZPA PZ ZP!A PZ P ZPP Z R #A=ASA vP RZ'TA i ZUA  R Z PZ Z PZ  WAXAYAW T h @`(@(c(?))Q(c**?z=ŌPattern V1.0 -(c) '93 Denis D|hler04347 Leipzig, Gorkistr.18, Tel.2330180Pattern Show V1.0(c)'93 by D.D|hlerDemo-Version((x?(Z2ZZ2ZZ[nZZn_fMusternummer gew{hlt !T)i)~)'' ('OP'wx''((Bitte Drucker einschaltenund Papier einlegen !*PATTERN SHOW_com^ PRG formatted GEOS file V1.0AWrite Image V2.0geoWrite V2.1 ( ...؅ ) >1 G9 .. 3 ,9 < <`3 8 . q3 8 `I@1ʎA9 l& ` Quelltext zur geoCOM-Demodiskette ` ` (c)94 BY DENIS D\HLER/FALK REHWAGEN` ` Die Demodiskette kann kostenlos angefordert ` P000000000` werden bei: ` ` GUSS, Denis D|hler , Gorkistr.18 , 04347 Leipzig ` P000000000P NAME"PATTERN SHOW" : CLASS"PatternShow V1.0" : AUTHOR"Denis D|hler" STARTFLAG $00 INTVARz{hler,anf,ende,b,d,x1 BYTEVARe,c,f,y1,x,y BYTEVARAT$39;pressflag ROW1920 BYTEVAR drucker ROW640 BYTEVAR druck LABELend,schleife,klick,taste,aufbauen,info,schleife2,drucken_1 CLS : PATTERN0 : RECT0,0,319,199 FRAME122,162,317,197 SETPOS140,179 : PRINT"/BPattern V1.0/P -(c) '93 Denis D|hler" SETPOS140,190 : PRINT"04347 Leipzig, Gorkistr.18, Tel.2330180" GOSUB aufbauen MOUSEON @schleife ON 0 GOTO taste : ON 1 GOTO klick : MAINLOOP @info STRNBOX"/BPattern Show V1.0","(c)'93 by D.D|hler","Demo-Version" RETURN @end END @klick INTERRUPT OFF IF (mousedata<>0) GOTOschleife x1=(mousex/40) : y1=(mousey/40) : e=(LOW(x1+(INT(y1*8),0))) IF (REGION120,160,319,199) : INTERRUPT ON : GOTO drucken_1 : ENDIF INTERRUPT ON PATTERNe : RECT90,50,219,90 : FRAME 90,50,219,90 pressflag=0 PATTERN0 : RECT90,91,219,110 : FRAME 90,90,219,110 SETPOS95,102 : PRINT"Musternummer "; : PRINT(STRe); : PRINT" gew{hlt !" RETURN @taste IF (keydata == $f1) : GOTO end : ENDIF IF (keydata == $e9) : GOSUB info : ENDIF IF (keydata == $f0) : GOTOdrucken_1 : ENDIF GOTO schleife @aufbauen z{hler=1 : e = 0 : b = 0 : c = 0 : d = 39 : f = 39: ende = 9 : schleife2 z{hler=1 : b = 0 : c = 40 : d = 39 : f = 79 : schleife2 z{hler=1 : b = 0 : c = 80 : d = 39 : f = 119 : schleife2 z{hler=1 : b = 0 : c = 120 : d = 39 : f = 159 : schleife2 z{hler=1 : b = 0 : c = 160 : d = 39 : f = 199 : ende=4 : schleife2 RETURN @schleife2 anf=z{hler : REPEAT : PATTERN e : RECT b,c,d,f : FRAME b,c,d,f INCe : b=(b+40) : d = (d+40) : INCz{hler UNTIL (z{hler==ende) : RETURN @drucken_1 STRNBOX"Bitte Drucker einschalten","und Papier einlegen !",""  PRINTINITdrucker IF (iostat<>0) : ERROR : RETURN : ENDIF x=(DIMX) : y=(DIMY) STARTPRINT HARDCOPY0,148,25,druck STOPPRINT : PRINTDONE GOTOschleife SHOW FONT^!:PRG formatted GEOS file V1.0 = ٚٚٻ ́%ShowFont V1.4@Falk Rehwagen z  zHHDateiname schon vergebenDemoprogramm f}r geoCom Falk RehwagenObjektkode$KSHOW FONT_comLf-werk B:ShowFont V1.4(@(@`0Ts~y2@wzesuw|.`J`prt vȱp t ` '`  V¦`,,,,, , ,,hh hhoiiHH HH`'`rp``(G'xH'@'0L}AH'70Тs`G''H'X`H'X` tt cerpȥesp`pq` `t'r' ڍF'' tՍF'' wH Rh`rt(rt(`, L}L= r'pHqHtHuH hhF' t'ՍF' hhG' }LRrstrusut`pIp```,,,,,,,,, , , , , ,,,,,,,,,,F'G'L !F'G'L`T f $Z6NH?<-*WB0EQ[F:gP(xXdkq9LI⿼ ed` yL bc` _`rt`p` kLmpH  hp`rt k(`(J(`pHqHHtH hhF' G' hhG' }LR,`,`L ' ,`'L` hh`prt u `'p)?'L W''`'~'` 1  9pp'ȱp'`  9p'pȭ'pL= 1  pȱp    `  pȭp    L=pi qi `pȱpȱp`pȭpȭp` !`` |L` `pq`` ` ` `rtȱrt` p`p 0`p `,p`,P`p` kLm?' X "Ld~ f~~L ` ~ i 0H~hptph`,'0Y [ X ` D'p `8 L 8 |`` ,Ĉpƈ``8 $ Š آ`  b  H.`  EL r / ȱp`3xy  | ` z{zx`3xy  p 93 $L  | wL0  | wL3  | ` L'  | `  9L$  LLK rtȱr ?p` pL prpȱrqlp r0HHH - P . Lhhh Ee&L b8& L` pL  rpsqurL r s t P LA ` L  | ` L*  ‘p` prqshhL prqsL  L p  r 0tH u* ! L p  rH p` hhLE' $L,¢Lhh` rp` vwrx evvwx ȹvp`  rLQLL  LZ  L pL  bp EL L pL<LLL pqrp | `  ` r s pL pr t ȱr L pL pL  rL, , ,,,vpL p L` \©0`L_ pȱpr` rȱrp`  ȹrp` xH5pr'h(`,, L =K'M'ʽ'O /0 7--`Diskettenfehler: $xxDiskette vollung}ltiger TrackInhaltsverzeichnis vollDatei nicht gefundenfalsche BAMung}ltiger Datensatzzu viele Datens{tzefalsche DateistrukturPuffer}berlauf beim LadenGer{t nicht vorhandenfalscher Grafikmodusoffene Datei im Lfw.Lfw. nicht ansprechbarDatei bereits ge|ffnetDatei nicht ge|ffnetkeine Lese-Dateikeine Schreib-DateiDatens{tze ge|ffnetmax. Gr|~e }berschrittenallgemeiner Diskettenfehler  x 'L $v'0 D'v  i9* %pp q rtu  L;L zL;L L;L ! ;< * ,Ĉp ,0ƈL $i91 (-LLBitte neue Diskette in dasLaufwerk x einlegen. trJJJJ U) 0:i'pȩp` rpt`pL`  L tLarHȱr pipqhrL@ reEH %{$zhpHqHF' zhhG' }LR  L  ȱrqtp` 8 ȱrtp` rHsH hhF' t  R EeptLa r' ՍF'' t H Rhp` r' ՍF'' t HH Rhphp`hphq8pqHHqHpH` phh`hhhhHH`  p`,,L vL,,L vL} rvtrusL  L v 'L $t'0 D't  i9*) %  Lg  zLg LgL:  rH ! P 0p H< H rptLa` r pvt(pvLa L  8L  W `Lk  W iLk  _ W fLs  _ W iLs rIp`1,,Q rtp`  p`        Ip`    L ȱrp` rptȑp`,,, L  t'r'pHqH ڍF'' ՍF'' hhG' }LR , ,,,,,,, pHqHrHsH hhF' t hhG' }LR rHsH hhF' t H Rhp` rtL trpȭrp` rtȱrL rpȑp` vtrp(xp`,,,,,FDLE  NL%,,,rmvn  LaڹX`xH60h`  L p芑p` pʊp` trp` rȑp` r rH$pȱphhh( HHHr #hr` trp vp` t+r8r(p vp` ptqutpȱtL p᪽pȅqL5683e&`?I?' L  ,p`  La  La     p ippF|G}pDE 'L8H86I97 PC'8lD rIp` pHȱphL ZL   |xy o   /H/' &&& 0L < e e'    L iih/`)(' ` r p` x |( `iei i(i` p'q'e ŠL/'/''  yL   yp`   yp` '' yL  pq''Ly '' yL  pq''Ly ''Ly ''L y '/ ''`  ,pqL, 8ð`ðg۰`lc``۾`ۀ L  trpvswt00 [L=0 n'' 2 vw  y` f( L   )-***evew ! @`)`ʊ@ -  c(`e!!`  7 L-  7 LP xL  B rs  YL  $  8L  B L rtpq K vw = ;¥'L  $  B rtBFvw P L   L   L  $ Z 'r L 8 ȑpp` $  L 'p0rs = Š )?Lppȭp O p U и񭗄ʎ  p芙L'' Z    p0L p0L)?   p)Fp ȱp!  qp ʊ p ȱp!ȱp p Rp U 6p p  p p Lp   s : 2 U L d)@ #$ Šp)?p $L p` L,~ z C d~ 1 *~ $rr 0$ $%֎'LL С И tЏ   r Ž'LL,,w  s  LR   s  $ _ LR !'ж d $`pȱp P # _ ! Aee !ȱr p  'LL= L   s  _ X!LR !' d _ pȱp X!L !''` p0' r iertsiutpȥp r芑rqpL prȥqrrs L p L d,P #$ )pȱpL ! tiuiprȱtLB rst p vp` rHȱp bh L ȱprtL~ tȱprL{" `  W iL  _ W iL 8xyL` L= rpqL%  # p`rt~`  # # L6# r~ȱr~L L  z D d 9- $0 + #' 'pȱp  L !L8L L   t phphqr#ȱrLtrusL p` rpȑp` ti rp`rsLI' 'L`$' ' S $b  ŠW' ' 7 pȥ p 2  W` pL¢H͉ $ G­h` $`H Jh Š`/%   ɀ`~LgeoCom V1.4 setzt einenGEOS-Kernal der Version 1.3oder h|her voraus.H?'/ f  D%]%y%L, h8BF n   )E',Ĉ p ,0ƈD'C'*x@ UxB'Xvɀ & -L& ?.߅' ;¥(B|C}@A 'L& f &l@' L,  tŠ` 8H''I'' E`~{ߠ' &'{ Š~ 7% zŠЧ|}} 7%` f / $@ ^'%@ i ^&@ (@*@+@-@ .@0@1@3@ # 4@6@  7@2 # j@l@  m@> @ @@@@ @@@@ # @@  @2 # @@  @> ]3A2A4A R^'5A [^]6A s^^^ i ^7A ]] @ ^9A ^;A ~^^y\ ]=A  )y]] K^]?A ^AA^ )y\^ s^y]CA ]^ ] ^]DA ^ 4)y]FA E^ EGA @ ]E @ ^ E !]^HA @ ]JA  u)y\QA R^y\RA )y\SA R^y\TA s^^^ i ^UA ]WA  ^]_A |_^`A i _cA ]eA  / mA ^nApA ^qAsA ^tA^uA ^vAxA ^yA{A ^|A^}A ^~AA ^AA ^A^A ^AA # ^A ^A]  ^ ^AA ^AA ^A^A ^AA # ^A ^A]  ^ ^AA ^AA ^A^A ^AA # ^A  A ^AA # ^A  A ^AA # ^A  A ^AA # ^A  A ^AA # ^A  A ^BB # ^B  B ^BB # ^B  B @ ^B B # ^!B  "B / 0B ^1B3B ^4B6B ^7B^8B ^9B;B ^B ^?B^@B / AB ^BBDB ^EBGB ^HB^IB ^JBLB ^MBOB ^PB^QB ^RBTB ^UBWB ^XB^YB ^ZB\B ^]B_B ^`B^aB ^'bB i ^cB # eBgB  hB # uBwB  xB B # BB  B # BB  B @ @ xB@ xB@ L @ ^'B i ^B BBB / B ^BB BB^B ] X @ R^'B i ^B  @ R B E R EB / B  @ ^]B ^]B ^E^E ^]B ^]B ^E^E E ^EB ^ ^EB i ^B EB @ B EB ;^EB E^  s^EB R^^B i ^B @ ;^EB E^ E ^EB ^ R @ ^]B ^]B ^E^E ^]B ^]B ^E^E R ]B ]B /^EC !^C^ E^ /^EC !^C^ E^ R / C ^CC ^ C C ^ C^ C ^CC ^CC ^C^C ^CC ^CC ^C^C @ ^C C ^!C#C ^$C^%C ^&C(C ^)C+C ^,C^-C ^.C0C ^1C3C ^4C^5C ^6C8C ^9C;C ^C@C ^ACCC ^DC^EC ^FCHC ^ICKC ^LC^MC R / NC ^OCQC ^RCTC ^UC^VC &#^E ]^ ]WC ^'YC i ^ZC ]\C d ^] Z^^^C ^]^ # ^`C ] R ^aC ^ | ^bCdC ^eCgC ^^hC^iC i ^jC z ^lCnC ^oCqC ^rC^sC # ^tCvC ^wCyC ^zC^{C / |C ^}CC CC^C ] X @ ^CC ^CC ^^C^C i ^C z ^CC ^CC ^C^C # ^CC ^CC ^C^C @ ^CC ^CC ^^C^C i ^C z @ ^CC ^CC ^^C^C i ^C z @ EC EC  @ ^]C ^]C ^^E^E i ^C EE EC E ^EC ^ z @ @ R^EC i ^C ^EC i ^C EC C EC  /^EC E^ E ^EC ^ y^EE E^ @ @ R ^C ^@ ^C ^@ ^C i ^C / C ^CC CC^C ] X @ ^C ^@ EC ^C ^ @ EC ^C ^ @ EC ^C ^ @ EC ^C ^ @ EC ^C ^ @ EC ^C ^ @ @ ] X @ ^ E )3^ @ / C ^CC ^CC ^C^C ^CC ^CC 5 ^C^C EC EC xC@ @  s^EC R^^C i ^C   /^CE !^^E E^ E E ^EC i ^C EC E C ^EC ^EC s^^^ ^ D X R E R ^DD ^DD ^D^ D E U4y]E ^E D ^E D v^^^ i ^ D ED 4y]E ED @ # ^DD ^DD ^D^D @ ]E @ 4 ED ^D !]^D @ @ @ ^DD ^DD ^ D^!D E ^E"D i ^#D E%D  E 35y]E R^E&D ^ J5y]E E%D @ # ^'D)D ^*D,D ^-D^.D @ ]E @ 5 E/D ^*D !]^0D @ @ @ ^2D4D ^5D7D ^8D^9D # ^:D1 G9 .. 3 ,9 < <`3 8 . q3 8 `I@1ʎA9 l& so00 ` Quelltext zur geoCOM-Demodiskette ` ` (c)94 BY DENIS D\HLER/FALK REHWAGEN` ` Die Demodiskette kann kostenlos angefordert ` P0000000000` werden bei: ` ` GUSS, Denis D|hler , Gorkistr.18 , 04347 Leipzig ` JCONST $4000,$4500:VAR $4500,$6000 00NAME"SHOW FONT" CLASS"ShowFont V1.4" AUTHOR"Falk Rehwagen" STARTFLAG $40 BYTEVAR AT $84b3; selection BYTEVAR gr|~e,stil,wait1,wait2,char,y1,y2,num,sizenum ROW 6000 BYTEVAR fontpuf : ROW 256 BYTEVAR diskblk ROW 12 BYTEVAR gr|~en BYTEVAR AT $0402; ypos BYTEVAR AT $39; pressflag INTVAR z{hler,x1,x2 STRVAR 16; name : STRVAR 5; string : STRVAR10;typ FILEVAR datei LABEL error,mausklick,cr,start,stil_rout,kreuz,stil_rout2,font,set_stil LABEL size_hoch,size_runter,show_size,taste,size_area,ende LABEL schleife,set_stil2,ende2 CLS MOUSE ON PATTERN 0 IF(scrflag==$80)THEN RECT 60,169,578,194 : FRAME 60,169,578,194 SETPOS 156,179 : PRINT"/BShowFont Version 1.4/P - (W) 1992-94 Falk Rehwagen" SETPOS 134,190 : PRINT"D-04103 Leipzig, Wintergartenstra~e 2//107, Tel.: (0341) 284343" ELSE RECT 5,169,314,194 : FRAME 5,169,314,194 SETPOS 36,179 : PRINT"/BShowFont Version 1.4/P - (W) 1992-94 Falk Rehwagen" SETPOS 27,190 : PRINT"D-04103 Leipzig, Wintergartenstra~e 2//107, Tel.: (0341) 284343" ENDIF @start OPENBOX name,8,"",0 IF((dbstat<>2)AND(name<>""))THEN OPEN datei,name : GOSUB error GETBLOCK(PEEK$8413),(PEEK$8414),diskblk z{hler=0 REPEAT 00 (gr|~en)=((diskblk<(130+(z{hler*2))>)AND%00011111) INC z{hler UNTIL(z{hler==12) gr|~e=(gr|~en<0>) : sizenum=0 00 PTREC datei,gr|~e : GOSUB error READ datei,(ADR fontpuf),6000 : GOSUB error typ="normal" IF(((diskblk<71>)<>$00)AND((diskblk<73>)<>$ff))THEN typ="LQ-Font" ENDIF IF((LEFT name,2)=="LW")THEN typ="LW-Font" ENDIF PATTERN0 : RECT(DBL9,0),9,(DBL310,1),160 FRAME(DBL8,0),8,(DBL 311,0),162 : FRAME(DBL8,0),8,(DBL310,1),161 SETPOS(DBL12,0),17 : PRINT("/P/BMuster der Schrift: /P"+name) FRAME(DBL12,0),21,(DBL240,0),157 SETPOS(DBL244,0),17 : PRINT("/BTyp: /P"+typ) FRAME(DBL244,0),24,(DBL306,0),100 SETPOS(DBL248,0),33 : PRINT"/BSchriftstil:/P" SETPOS(DBL262,0),45 : PRINT"normal" SETPOS(DBL262,0),55 : PRINT"/Okontur/P" 00J SETPOS(DBL262,0),65 : PRINT"/Ikursiv/P" SETPOS(DBL262,0),75 : PRINT"/Rinvers/P" SETPOS(DBL262,0),85 : PRINT"/Bfett/P" SETPOS(DBL262,0),95 : PRINT"/Uunterstr./P":GOSUB stil_rout SETPOS(DBL245,0),109 : PRINT"/BPunktgr|~e:/P" PATTERN 1 RECT(DBL247,0),132,(DBL305,0),143 : RECT(DBL247,0),147,(DBL305,0),158 PATTERN 0 RECT(DBL245,0),130,(DBL303,0),141 : FRAME(DBL245,0),130,(DBL303,0),141 RECT(DBL245,0),145,(DBL303,0),156 : FRAME(DBL245,0),145,(DBL303,0),156 IF(scrflag==$80)THEN SETPOS 510,138 : PRINT"anderer Font" SETPOS 522,153 : PRINT"verlassen" ELSE SETPOS 247,138 : PRINT"anderer Font" SETPOS 254,153 : PRINT"verlassen" ENDIF GOSUB size_area : GOSUB font @schleife ON 0 GOTO taste : ON 1 GOTO mausklick : MAINLOOP ENDIF END 00 Gr 00@error IF(iostat==$0b)THEN STRNBOX"/BPunktgr|~e zu gro~!/P","Kann nicht gelesen werden!","" PATTERN 2 RECT 0,0,(DBL319,0),162 : CLOSEdatei : WINDOW : GOTO start ENDIF IF(iostat<>0)THEN ERROR END ENDIF RETURN @cr PUT 13 PUT char RETURN P0 @stil_rout num=0 : PATTERN 0 REPEAT GOSUB stil_rout2 RECT(DBLx1,1),y1,(DBLx2,0),y2 : FRAME(DBLx1,1),y1,(DBLx2,0),y2 INC num UNTIL(num==6) IF(stil==0)THEN num=0 : kreuz ELSE num=1 : wait1=(stil/8) REPEAT IF((wait1AND%00000001)<>0)THEN kreuz ENDIF wait1=(wait1/2) INC num UNTIL(num==6) ENDIF RETURN @kreuz stil_rout2 : LINE(DBLx1,1),y1,(DBLx2,0),y2 : LINE(DBLx1,1),y2,(DBLx2,0),y1 RETURN @stil_rout2 x1=249 : x2=257 : y1=(38+(num*10)) : y2=(46+(num*10)) RETURN P0J @size_area PATTERN0 RECT(DBL251,0),115,(DBL298,0),125 : FRAME(DBL250,0),114,(DBL299,0),126 FRAME(DBL262,0),114,(DBL287,0),126 show_size LINE(DBL289,1),119,(DBL297,0),119 : LINE(DBL297,0),119,(DBL293,1),123 LINE(DBL293,1),123,(DBL289,1),119 : LINE(DBL252,1),121,(DBL260,0),121 LINE(DBL260,0),121,(DBL256,1),117 : LINE(DBL256,1),117,(DBL252,1),121 RETURN @show_size PATTERN 0 : RECT(DBL 263,0),115,(DBL 286,0),125 string=(STR gr|~e) x1=274 : IF(scrflag==$80)THEN x1=548 ENDIF SETPOS (x1-((PLEN string)/2)),123 : PRINT string; RETURN @mausklick UNTIL(mousedata==0) INTERRUPT OFF IF(REGION(DBL 245,0),130,(DBL 303,0),141) : INTERRUPT ON INVERT(DBL245,0),130,(DBL303,0),141 : WAITselection : INVERT(DBL245,0),130,(DBL303,0),141 PATTERN2 RECT0,0,(DBL319,0),162 : CLOSEdatei : WINDOW : GOTO start ENDIF IF(REGION(DBL245,0),145,(DBL303,0),156) : INTERRUPTON INVERT(DBL245,0),145,(DBL303,0),156 : WAITselection : INVERT(DBL245,0),145,(DBL303,0),156 END ENDIF IF(REGION(DBL250,0),114,(DBL262,0),126) : P0 Gr INTERRUPTON GOTOsize_hoch ENDIF IF(REGION(DBL287,0),114,(DBL299,0),126) : INTERRUPTON GOTOsize_runter ENDIF num=0 : wait1=255 REPEAT stil_rout2 P0 IF (REGION(DBLx1,0),y1,(DBLx2,0),y2) THEN wait1=num : num=5 ENDIF INC num UNTIL (num==6) INTERRUPT ON GOSUB set_stil2 GOTOschleife @set_stil2 IF (wait1<>255) THEN IF (wait1==0) THEN : stil=0 : ELSE wait2=%00000100 REPEAT wait2=(wait2*2) DEC wait1 UNTIL (wait1==0) stil=(stilEXORwait2) ENDIF stil_rout font ENDIF RETURN P0J @taste IF(keydata==$10) GOTO size_hoch IF(keydata==$11) GOTO size_runter IF(keydata==$e3) THEN PATTERN 2 RECT 0,0,(DBL 319,0),162 CLOSE datei WINDOW GOTO start ENDIF IF(keydata==$f1) GOTO ende wait1=0 : IF(keydata==$f0) GOTO set_stil2 wait1=1 : IF(keydata==$ef) GOTO set_stil2 wait1=2 : IF(keydata==$e9) GOTO set_stil2 wait1=3 : IF(keydata==$f2) GOTO set_stil2 wait1=4 : IF(keydata==$e2) GOTO set_stil2 wait1=5 : IF(keydata==$f5) GOTO set_stil2 GOTO schleife @ende2 CLOSE datei : WINDOW END @font FONT (OBJECT AT(ADRfontpuf)) : PATTERN0 : RECT(DBL14,0),23,(DBL238,0),155 WINDOW(DBL14,0),23,(DBL238,0),155 : wait1=1 : wait2=0 : ON 2 GOTOcr : set_stil : HOME IF((stilAND%00001000)<>0)THEN INCypos ENDIF REPEAT char=((32*wait1)+wait2) PUTchar INCwait2 IF (wait2==32) THEN wait2=0 : INC wait1 : PUT13 ENDIF UNTIL ((wait2==31) AND (wait1==3)) PRINT"/P"; SYSFONT : WINDOW RETURN @set_stil style=stil RETURN @size_hoch INVERT(DBL250,0),114,(DBL262,0),126 INCsizenum IF(((gr|~en)==0) OR (sizenum==11)) THEN sizenum=0 ENDIF gr|~e=(gr|~en) show_size WAITselection INVERT(DBL250,0),114,(DBL262,0),126 PTRECdatei,gr|~e : error READdatei,(ADR(fontpuf<0>)),6000 : error font GOTOschleife @size_runter INVERT(DBL287,0),114,(DBL299,0),126 DECsizenum IF(sizenum==255) THEN sizenum=11 REPEAT DECsizenum P0J UNTIL((gr|~en)<>0) ENDIF gr|~e=(gr|~en) show_size WAITselection INVERT(DBL287,0),114,(DBL299,0),126 PTRECdatei,gr|~e : error READdatei,(ADR(fontpuf<0>)),6000 : error font GOTO schleife @ende INVERT(DBL245,0),145,(DBL303,0),156 : WAITselection : INVERT(DBL245,0),145,(DBL303,0),156 END SID-DEMO 5^1PRG formatted GEOS file V1.0<p` <%SID-Demo 5 V1.0@Denis D|hler z  zHHDateiname schon vergebenDemoprogramm f}r geoCom Falk RehwagenObjektkode$YSID-DEMO 5_comLf-werk B:SID-Demo 5 V1.0(@(@`0Ts~y2@wzesuw|.`J`prt vȱp t ` '`  V¦`,,,,, , ,,hh hhoiiHH HH`'`rp``(G'xH'@'0L}AH'70Тs`G''H'X`H'X` tt cerpȥesp`pq` `t'r' ڍF'' tՍF'' wH Rh`rt(rt(`, L}L= r'pHqHtHuH hhF' t'ՍF' hhG' }LRrstrusut`pIp```,,,,,,,,, , , , , ,,,,,,,,,,F'G'L !F'G'L`T f $Z6NH?<-*WB0EQ[F:gP(xXdkq9LI⿼ ed` yL bc` _`rt`p` kLmpH  hp`rt k(`(J(`pHqHHtH hhF' G' hhG' }LR,`,`L ' ,`'L` hh`prt u `'p)?'L W''`'~'` 1  9pp'ȱp'`  9p'pȭ'pL= 1  pȱp    `  pȭp    L=pi qi `pȱpȱp`pȭpȭp` !`` |L` `pq`` ` ` `rtȱrt` p`p 0`p `,p`,P`p` kLm?' X "Ld~ f~~L ` ~ i 0H~hptph`,'0Y [ X ` D'p `8 L 8 |`` ,Ĉpƈ``8 $ Š آ`  b  H.`  EL r / ȱp`3xy  | ` z{zx`3xy  p 93 $L  | wL0  | wL3  | ` L'  | `  9L$  LLK rtȱr ?p` pL prpȱrqlp r0HHH - P . Lhhh Ee&L b8& L` pL  rpsqurL r s t P LA ` L  | ` L*  ‘p` prqshhL prqsL  L p  r 0tH u* ! L p  rH p` hhLE' $L,¢Lhh` rp` vwrx evvwx ȹvp`  rLQLL  LZ  L pL  bp EL L pL<LLL pqrp | `  ` r s pL pr t ȱr L pL pL  rL, , ,,,vpL p L` \©0`L_ pȱpr` rȱrp`  ȹrp` xH5pr'h(`,, L =K'M'ʽ'O /0 7--`Diskettenfehler: $xxDiskette vollung}ltiger TrackInhaltsverzeichnis vollDatei nicht gefundenfalsche BAMung}ltiger Datensatzzu viele Datens{tzefalsche DateistrukturPuffer}berlauf beim LadenGer{t nicht vorhandenfalscher Grafikmodusoffene Datei im Lfw.Lfw. nicht ansprechbarDatei bereits ge|ffnetDatei nicht ge|ffnetkeine Lese-Dateikeine Schreib-DateiDatens{tze ge|ffnetmax. Gr|~e }berschrittenallgemeiner Diskettenfehler  x 'L $v'0 D'v  i9* %pp q rtu  L;L zL;L L;L ! ;< * ,Ĉp ,0ƈL $i91 (-LLBitte neue Diskette in dasLaufwerk x einlegen. trJJJJ U) 0:i'pȩp` rpt`pL`  L tLarHȱr pipqhrL@ reEH %{$zhpHqHF' zhhG' }LR  L  ȱrqtp` 8 ȱrtp` rHsH hhF' t  R EeptLa r' ՍF'' t H Rhp` r' ՍF'' t HH Rhphp`hphq8pqHHqHpH` phh`hhhhHH`  p`,,L vL,,L vL} rvtrusL  L v 'L $t'0 D't  i9*) %  Lg  zLg LgL:  rH ! P 0p H< H rptLa` r pvt(pvLa L  8L  W `Lk  W iLk  _ W fLs  _ W iLs rIp`1,,Q rtp`  p`        Ip`    L ȱrp` rptȑp`,,, L  t'r'pHqH ڍF'' ՍF'' hhG' }LR , ,,,,,,, pHqHrHsH hhF' t hhG' }LR rHsH hhF' t H Rhp` rtL trpȭrp` rtȱrL rpȑp` vtrp(xp`,,,,,FDLE  NL%,,,rmvn  LaڹX`xH60h`  L p芑p` pʊp` trp` rȑp` r rH$pȱphhh( HHHr #hr` trp vp` t+r8r(p vp` ptqutpȱtL p᪽pȅqL5683e&`?I?' L  ,p`  La  La     p ippF|G}pDE 'L8H86I97 PC'8lD rIp` pHȱphL ZL   |xy o   /H/' &&& 0L < e e'    L iih/`)(' ` r p` x |( `iei i(i` p'q'e ŠL/'/''  yL   yp`   yp` '' yL  pq''Ly '' yL  pq''Ly ''Ly ''L y '/ ''`  ,pqL, 8ð`ðg۰`lc``۾`ۀ L  trpvswt00 [L=0 n'' 2 vw  y` f( L   )-***evew ! @`)`ʊ@ -  c(`e!!`  7 L-  7 LP xL  B rs  YL  $  8L  B L rtpq K vw = ;¥'L  $  B rtBFvw P L   L   L  $ Z 'r L 8 ȑpp` $  L 'p0rs = Š )?Lppȭp O p U и񭗄ʎ  p芙L'' Z    p0L p0L)?   p)Fp ȱp!  qp ʊ p ȱp!ȱp p Rp U 6p p  p p Lp   s : 2 U L d)@ #$ Šp)?p $L p` L,~ z C d~ 1 *~ $rr 0$ $%֎'LL С И tЏ   r Ž'LL,,w  s  LR   s  $ _ LR !'ж d $`pȱp P # _ ! Aee !ȱr p  'LL= L   s  _ X!LR !' d _ pȱp X!L !''` p0' r iertsiutpȥp r芑rqpL prȥqrrs L p L d,P #$ )pȱpL ! tiuiprȱtLB rst p vp` rHȱp bh L ȱprtL~ tȱprL{" `  W iL  _ W iL 8xyL` L= rpqL%  # p`rt~`  # # L6# r~ȱr~L L  z D d 9- $0 + #' 'pȱp  L !L8L L   t phphqr#ȱrLtrusL p` rpȑp` ti rp`rsLI' 'L`$' ' S $b  ŠW' ' 7 pȥ p 2  W` pL¢H͉ $ G­h` $`H Jh Š`/%   ɀ`~LgeoCom V1.4 setzt einenGEOS-Kernal der Version 1.3oder h|her voraus.H?'/ f  D%]%y%L, h8BF n   )E',Ĉ p ,0ƈD'C'*x@ UxB'Xvɀ & -L& ?.߅' ;¥(B|C}@A 'L& f &l@' L,  tŠ` 8H''I'' P`~{ߠ' &'{ Š~ 7% zŠЧ|}} 7%` @ f / @ P@@ P@@ P@P @ / !@ P"@$@ P%@'@ P(@P)@ P*@,@ P-@/@ P0@P1@ P2@4@ # P5@  6@" PY@[@ # P\@  ]@ P~@@ P@@ P@P@ P@@ P@@ P@P@ P@@ # P@  @; P@@ # P@  @@ PAA # PA  A9 PQASA # PTA  UA* PAA # PA  A PAA # PA  A PAA # PA  A PAA # PA  A PAA # PA  A PAA # PA  A PAA # PA  A PAB # PB  B PBB # PB  B P2B4B # P5B  6B! @  XBP ZBP %*P sP2B\B ]BP _BP aB P cB P eBP gBP iBP vPPkB lBP  PnB   P P PP P sPPpB qBP  xsB@ L @ @ PtB i PuB @ PwB i PxB @ PzB i P{B @ P}B i P~B @ PB i PB @ PB i PB @ PB i PB @ PB i PB @ PB i PB @ @  PB   PB P PB   P P PB P R @ PB PB PB PB  PB  PB PB PB PB PB PB R @ PB PB PB PB  PB  PB PB PB PB PB PB R @ PB PB PB PB  PB  PB PB PB PB PB PB R @ PB PB PB PB  PB  PB PB PB PB PB PB R @ PB PB PB PB  PB  PB PB PB PB PB PB R @ PB PB PB PB  PB  PB PB PB PB PB PB R @ PB PB PB PB  PB  PB PB PB PB PB PB R @ PB PB PB PB  PB  PB PB PB PB PB PB R ***n+++N,,,M---NFFPSID-Demo 5 -(w) '93 Denis D|hlerP04347 Leipzig Gorkistr.18== Dieses Programm zeigt die SID - Programmierung unter GEOS und geoCom ! Drehen Sie dazu bitte Ihren Lautst{rke-regler auf ! #Wenn Sie hier eine beliebige Taste dr}cken, wird der Ton -wiederholt. Es handelt sich hierbei um : FInstrumente und Ger{uscheZF1 = Gl|ckchenxZF2 = OboeZF3 = SpinettdF4 = BanjoxdF5 = FederdF6 = Schu~nF7 = Starkstrom-brummennF8 = D}senflugzeugMit Q kommen Sie zum Desktop !***++*+?+T+i+ @4d2L2 H^2 L2o # '2d 2SID-DEMO 5_com^PRG formatted GEOS file V1.0AWrite Image V2.0geoWrite V2.1 ( ...؅ ) >1 G9 .. 3 ,9 < <`3 8 . q3 8 `I@1ʎA9 l&  ` Quelltext zur geoCOM-Demodiskette ` ` (c)94 BY DENIS D\HLER/FALK REHWAGEN` ` Die Demodiskette kann kostenlos angefordert ` 000000000` werden bei: ` ` GUSS, Denis D|hler , Gorkistr.18 , 04347 Leipzig ` NAME"SID-DEMO 5" : CLASS"SID-Demo 5 V1.0" : AUTHOR"Denis D|hler" STARTFLAG$40 BYTEVARe,a,d,su,r,c,ff,fr,ml,hi,lo, INTVARz{hler,f,m,p LABELumschalten,taste,end,l|schen,gl|ck,oboe,spinett,banjo,feder,schu~,strom,flugzeug l|schen : CLS : PATTERN1 : RECT(DBL78,0),167,(DBL258,0),193 : PATTERN0 RECT(DBL70,0),159,(DBL250,0),185 : FRAME(DBL70,0),159,(DBL250,0),185 SETPOS(DBL80,0),169 : PRINT"/BSID-Demo 5/P -(w) '93 Denis D|hler" SETPOS(DBL80,0),180 : PRINT"04347 Leipzig Gorkistr.18" RECT(DBL2,0),2,(DBL317,0),139 : FRAME(DBL2,0),2,(DBL317,0),139 SETPOS(DBL10,0),15 : PRINT"/PDieses Programm zeigt die SID - Programmierung unter GEOS " SETPOS(DBL10,0),25 : PRINT"und geoCom ! Drehen Sie dazu bitte Ihren Lautst{rke-regler auf !" SETPOS(DBL10,0),35 : PRINT"Wenn Sie hier eine beliebige Taste dr}cken, wird der Ton " SETPOS(DBL10,0),45 : PRINT"wiederholt. Es handelt sich hierbei um : " SETPOS(DBL15,0),70 : PRINT"/BInstrumente und Ger{usche" SETPOS(DBL20,0),90 : PRINT"/PF1 = Gl|ckchen" : SETPOS(DBL120,0),90 : PRINT"F2 = Oboe" SETPOS(DBL220,0),90 : PRINT"F3 = Spinett" : SETPOS(DBL20,0),100 : PRINT"F4 = Banjo" SETPOS(DBL120,0),100 : PRINT"F5 = Feder" : SETPOS(DBL220,0),100 : PRINT"F6 = Schu~" SETPOS(DBL20,0),110 : PRINT"F7 = Starkstrom-brummen" : SETPOS(DBL220,0),110 : PRINT"F8 = D}senflugzeug" SETPOS(DBL20,0),130 : PRINT"/BMit /80 Q kommen Sie zum Desktop !" gl|ck @umschalten INITIO : POKE54277,a : POKE54278,su : POKE54274,((BYTEATp) AND 255) POKE54275,r : POKE54272,lo : POKE 54273,hi : POKE54294,ff POKE54295,fr : POKE54296,ml : POKE54276,(cOR1) z{hler = 0 : REPEAT : INCz{hler : UNTIL (z{hler == m) POKE54276,(cAND254) : DONEIO ON 0 GOTO taste : MAINLOOP @end l|schen : END @taste IF (keydata == $f1) : GOTO end : ENDIF IF (keydata == $01) : gl|ck : ENDIF IF (keydata == $02) : oboe: ENDIF IF (keydata == $03) : spinett : ENDIF IF (keydata == $04) : banjo : ENDIF IF (keydata==$05) : feder : ENDIF IF (keydata == $06) : schu~ : ENDIF IF (keydata==$0e) : strom : ENDIF IF (keydata == $0f) : flugzeug : ENDIF : GOTO umschalten @l|schen z{hler = 24 : REPEAT : INITIO :POKE(54272+z{hler),0 DONEIO : DECz{hler : UNTIL (z{hler ==0) RETURN @gl|ck l|schen:a=10:su=10:r=0:c=16:hi=156:lo=64:p=2100:m=100:ff=50:fr=0:ml=15:RETURN @oboe l|schen:a=135:su=168:r=0:c=16:hi=29:lo=76:p=250:m=500:ff=50:fr=0:ml=15:RETURN @spinett l|schen:a=9:su=0:r=0:c=32:hi=23:lo=72:p=250:m=350:ff=50:fr=0:ml=15:RETURN @banjo l|schen:a=8:su=8:r=0:c=32:hi=29:lo=76:p=0:m=30:ff=50:fr=241:ml=111:RETURN  @feder l|schen:a=8:su=9:r=0:c=32:hi=2:lo=238:p=0:m=35:ff=0:fr=0:ml=15:RETURN @schu~ l|schen:a=8:su=10:r=0:c=128:hi=39:lo=16:p=0:m=50:ff=0:fr=0:ml=15:RETURN @strom l|schen:a=0:su=240:r=0:c=128:hi=0:lo=100:p=0:m=2000:ff=0:fr=0:ml=15:RETURN @flugzeug  l|schen:a=0:su=253:r=13:c=128:hi=11:lo=184:p=0:m=3000:ff=50:fr=241:ml=31:RETURNSYSTEM INFO^=PRG formatted GEOS file V1.0 < f B       %System Info V1.0@Denis D|hler z  zHHDateiname schon vergebenDemoprogramm f}r geoCom Falk RehwagenObjektkode$Lf-werk B:System Info V1.0(@(@`0Ts~y2@wzesuw|.`J`prt vȱp t ` '`  V¦`,,,,, , ,,hh hhoiiHH HH`'`rp``(G'xH'@'0L}AH'70Тs`G''H'X`H'X` tt cerpȥesp`pq` `t'r' ڍF'' tՍF'' wH Rh`rt(rt(`, L}L= r'pHqHtHuH hhF' t'ՍF' hhG' }LRrstrusut`pIp```,,,,,,,,, , , , , ,,,,,,,,,,F'G'L !F'G'L`T f $Z6NH?<-*WB0EQ[F:gP(xXdkq9LI⿼ ed` yL bc` _`rt`p` kLmpH  hp`rt k(`(J(`pHqHHtH hhF' G' hhG' }LR,`,`L ' ,`'L` hh`prt u `'p)?'L W''`'~'` 1  9pp'ȱp'`  9p'pȭ'pL= 1  pȱp    `  pȭp    L=pi qi `pȱpȱp`pȭpȭp` !`` |L` `pq`` ` ` `rtȱrt` p`p 0`p `,p`,P`p` kLm??' X "Ld~ f~~L ` ~ i 0H~hptph`,'0Y [ X ` D'p `8 L 8 |`` ,Ĉpƈ``8 $ Š آ`  b  H.`  EL r / ȱp`3xy  | ` z{zx`3xy  p 93 $L  | wL0  | wL3  | ` L'  | `  9L$  LLK rtȱr ?p` pL prpȱrqlp r0HHH - P . Lhhh Ee&L b8& L` pL  rpsqurL r s t P LA ` L  | ` L*  ‘p` prqshhL prqsL  L p  r 0tH u* ! L p  rH p` hhLE' $L,¢Lhh` rp` vwrx evvwx ȹvp`  rLQLL  LZ  L pL  bp EL L pL<LLL pqrp | `  ` r s pL pr t ȱr L pL pL  rL, , ,,,vpL p L` \©0`L_ pȱpr` rȱrp`  ȹrp` xH5pr'h(`,, L =K'M'ʽ'O /0 7--`Diskettenfehler: $xxDiskette vollung}ltiger TrackInhaltsverzeichnis vollDatei nicht gefundenfalsche BAMung}ltiger Datensatzzu viele Datens{tzefalsche DateistrukturPuffer}berlauf beim LadenGer{t nicht vorhandenfalscher Grafikmodusoffene Datei im Lfw.Lfw. nicht ansprechbarDatei bereits ge|ffnetDatei nicht ge|ffnetkeine Lese-Dateikeine Schreib-DateiDatens{tze ge|ffnetmax. Gr|~e }berschrittenallgemeiner Diskettenfehler  x 'L $v'0 D'v  i9* %pp q rtu  L;L zL;L L;L ! ;< * ,Ĉp ,0ƈL $i91 (-LLBitte neue Diskette in dasLaufwerk x einlegen. trJJJJ U) 0:i'pȩp` rpt`pL`  L tLarHȱr pipqhrL@ reEH %{$zhpHqHF' zhhG' }LR  L  ȱrqtp` 8 ȱrtp` rHsH hhF' t  R EeptLa r' ՍF'' t H Rhp` r' ՍF'' t HH Rhphp`hphq8pqHHqHpH` phh`hhhhHH`  p`,,L vL,,L vL} rvtrusL  L v 'L $t'0 D't  i9*) %  Lg  zLg LgL:  rH ! P 0p H< H rptLa` r pvt(pvLa L  8L  W `Lk  W iLk  _ W fLs  _ W iLs rIp`1,,Q rtp`  p`        Ip`    L ȱrp` rptȑp`,,, L  t'r'pHqH ڍF'' ՍF'' hhG' }LR , ,,,,,,, pHqHrHsH hhF' t hhG' }LR rHsH hhF' t H Rhp` rtL trpȭrp` rtȱrL rpȑp` vtrp(xp`,,,,,FDLE  NL%,,,rmvn  LaڹX`xH60h`  L p芑p` pʊp` trp` rȑp` r rH$pȱphhh( HHHr #hr` trp vp` t+r8r(p vp` ptqutpȱtL p᪽pȅqL5683e&`?I?' L  ,p`  La  La     p ippF|G}pDE 'L8H86I97 C'8lD rIp` pHȱphL ZL   |xy o   /H/' &&& 0L < e e'    L iih/`)(' ` r p` x |( `iei i(i` p'q'e ŠL/'/''  yL   yp`   yp` '' yL  pq''Ly '' yL  pq''Ly ''Ly ''L y '/ ''`  ,pqL, 8ð`ðg۰`lc``۾`ۀ L  trpvswt00 [L=0 n'' 2 vw  y` f( L   )-***evew ! @`)`ʊ@ -  c(`e!!`  7 L-  7 LP xL  B rs  YL  $  8L  B L rtpq K vw = ;¥'L  $  B rtBFvw P L   L   L  $ Z 'r L 8 ȑpp` $  L 'p0rs = Š )?Lppȭp O p U и񭗄ʎ  p芙L'' Z    p0L p0L)?   p)Fp ȱp!  qp ʊ p ȱp!ȱp p Rp U 6p p  p p Lp   s : 2 U