@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREIE SEKT.! G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSBENUTZE MEM.SAV UM ZU LADEN!! D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSFEHLER-SAVE IN MEM.SAV AUF DISK TIPP Y FUE&}R DOS-START B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu } 3E:`}ABBUC e.V. DOS 2.5FarbeŠΠ㩠 . DISK INHALT . FORMAT 1040. ZUM BASIC *} . DUPLIZIER DISK. KOPIERE FILE . BINAER SAVE. LOESCHE FILE(S) . BINAER LOAD. NAME AENDERN . START AB ADRE+}S. SICHERE FILE . MEM.SAV ANLEG.. ENTSICHERE FILE . DUPLIZIER FILE. DOS NEU ANLEGEN . FORMAT 720SecL !N',}#"&))9(&*)/h)''-&؆莟R'S  v L/ˢ L }LEGE-->DOS 2.0s, TIPP Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!FALSCHE WAHLWAEHLE.} FUNKTION-->νś! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DISK INHALT-->AUSGABE,FILE NAME ?[# 0 0 &|D3" 1L!NICHT AUF DISK N !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TIPP "" ZUM LOESCHENWAS LOESCHEN ? 2}KOPIE-VON,NACH?WAHL NICHT ERLAUBT412 FREIE SEKT.! KOPIERE---D2:DISKKOPY.NEUl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!ABKUERZUNGEN SIN6}D JETZT NICHT ERLAUBT 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!NICHT LADBAR WELCHE DATEI LADEN ?) 0 ?}0#B 1L!SICHERE FILE NAME?) 0 0$B 1L!ENTSICHER FILE NAME?DUP DISK-QUELL,ZIEL STATION?TIPP "" FUER PROGRA@}MMGEBRAUCH :""LOESCHT MEM.SAV SPEICHERFE! +L1   `*  70 2 2A} 0.* 1 y0 0)LEGE DISK EIN ,TIPP "^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` DISK VOLL !!! LEGE QUELLDISK EIN,TIPP ΛLEGE ZIELDISK EIN ,TIPP E}`  `8 rL1`-* 1P* 1 y0Y`hhL!GEBE FILE NAME AN ? - 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`ZIEL KANNKEIN DOS.SYS J}SEIN!0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GEBE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`NUR 1 BUCHSTABE !! ,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} ZU LANG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!FEHLER- 128ɛ+,' 20*.. өr2 1``2ZU VIELE WERTE!FALSCHE HEXAQ}DEZIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1GEBE D1-->D8 ANuR} EZIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1GEBE D1-->D8 ANuL 䙣ލȎ!"` !"H h`lDD   T}LETIT:D"NUR 䙣ލȎ!"` !"H h`lDD    0?@pDFLASDISKA@d>;@@,>6.' V} DISK #3 GRAPHIKUTILITIES fS +@1AR@S6-F:A`,%AV$F:Aa,i{ W}AY'A@9A KAAp]A@)oA@H{6-n;% X}@@p+-@@&/"7%; s116,6,6,7,6,6,6,6,6,6,6,2,2,2,2,2,2,2,2,112,2xE%@'@e. Y}%@(F:A`,E%@)F:Aa,((( !(!( A-B-B - BIBLIOTHEK (* Z}*******************((********************A-@A('Die ATARI-BIT-BYTER-BIBLIOTHEK ist eine.. [}(&Zusammenfassung von selbsterstellten //('und aus Zeitschriften ausgesuchten 11((Programmen aus den Bereichen \}Spiele,An- 00((wendungen,Utilities,Grafik und Sound. 1-@ @1(Druecke fuer MenuAY@ ]}45B2y!AU5-@@P(F:B2y,"@(% D:MENUE.BAS 6-@& A ^}D:TITEL DISK #1 GRAPHIKUTI3" 1L!NICH2y,"@(% D:MENUE.BAS 6-@& A DPst ~ P6ACODFFNSAYLYF2 `}  11;A,;A,;A,;A,a}@@6-C:3hhhhhhhѠEёΦІϥ`,bb6.Xhԩ01#ɍ `pGDpppB@b}pppA΀(nn67B:,%@,.V  HH )  ԍihh@HHX  ԍc}Щhh@HH2dd67B:,%@,.LX  ԍЍhh@hԩL_H)hJJJJJ`@ `<d}m[6-?:C:9hhhhhhhѠ͑Ц҆ѥ`,67B:,%@,..>67B:,%@,.7@ <q}@,Tc APBB1AF@CAGA(UBB@d_+c%^% D:MEr}NUE.BAS'L!BJD'EJL1WELCHE STATIONEN ? TYPE "" FORMAT STATION 1D1:d_+c%^% D:MEX0AB""P6PRALC &&;At},;A,;A,^^6.Thԩ01#ɍ `pGDpppB@pppArr6u}7B:,%@,.Z  HH )  ԍihh@HHX  ԍЩhh@HH(dd67B:,%@v},.LX  ԍЍhh@hԩL_H)hJJJJJ`@ `2^^6.Thhhԥ֥נȱw}eօ֐i֐שXԥYՠ'Ԉȱ@<``67B:,%@,.Hi֐ץi(Ԑ`@, ȑԱx}i֐טeօ֐8Fm[6-?:C:9hhhhhhhѠ͑Ц҆ѥ`,:AU,-+?@@dQB7t@dcA$dU6-?:A6,$z}AR@U(,}1. Ausgabe der INFO auf dem Bildschirmn,,($2. Ausgabe der INFO auf dem Druckerx( 3. Zum M{}enue(Y( Ihre Wahl? @@@@K:R-@8@Y(PS.)@. @I)|}!@QA@2@2&@HAAA A +%D:MEN*.*,TAY}}#A*@J@@P:T A6$"4@(@$ A@;-@B:,!~}7<,4@1(@,; A@J(@7<,T (@ A*@ AY@4* A}S-(%}Den folgenden Text koennen Sie mitS(!dem Joystick nach oben bzw untenW.(&scrollen. Halten Sie dabei den }Feuer-W($knopf fest so blaettern Sie seiten-O-(%weise! Mit Hilfe der START-Taste ge-O(langen Sie wieder ins Menue}.(( Bitte druecken Sie eine Taste.:-@8@A(PSL@l@@K:y)@}@o (}6-?:A6,+A @=AI6-AW6-?:C:,<,c6-oA$6}-R:,!6-T:,6-%++@$+",%@,$+"@,,&++@$+",%@,$+"@,,} A6-A+!AI&@ +6-AI&@ /F:B2y,"@"+/%D:MEN*.*"A}&a6-?:C:,<,9'@ "P:'@ ,)O:&,"@ G6-%@HS!AUa6-&AV0 6-A$ A}**à֮󠣳**|  |**}****|Ů |**| } |**|Wie man mit einem modifizierten |**|Zeichensatz bunt malen kann. |**}**| |**|ˮ |**| } |**|So kann man Sechsecke zeichnen. |****| } |**|ɸ |**| |**|Zwar hat man in Graphics} 8 nur |**|eine Farbe@ aber man@ wie hier |**|gezeigt@ mit Schattierungen arbei-|**|ten. } |****| |**|Ů } |**| |**|Baelle sind keine starren Koerper.|**|Bei einer Programmier}ung sollte |**|man dies beruecksichtigen. Hier |**|wird gezeigt@ wie es geht. |**}**| |**|Ӯ |**| } | **|Kreise in Atari Basic schnell zu | **|zeichnen ist nicht einfach. Aber | **|es geht. } | ** **| |**|Ү } |**| |**|Ein Beispiel@ wie man veraenderte |**|Zeichensaetze gr}aphisch nutzen |**|kann. |****| } |**|خ |**| |**|Spielergebniss}e kann man schoen |**|darstellen. Hier nur eine Idee. |****| } |**|Ǯ |**| |**|Ein interess}antes Zeichenprogramm@|**|bei dem der Computer mitmalt. |** **| } |!**|̮ |"**| |#**|Durch Disp}laylistveraenderungen |$**|kann man schrift unabhaengig vom |%**|Programmablauf zum Blinken bringen|&**}'**| |(**|Ҳ |)**| } |***|Graphics 2 mit veraenderter Dis- |+**|playlist. |,**}-**| |.**|̮ |/**| } |0**|Wie man eine Kugel durch Farben |1**|zum drehen bewegt. |2**}3**| |4**|Ů |5**| } |6**|Pyramiden sollte man dreidimensi- |7**|onal zeichnen. Hier kann man sich |8**|ein}ige Perspektiven anschaeun. |9**:**| |;**|}Ү |<**| |=**|Dreidimensionale und farbige Bal- |>**|k}engraphik. |?**@**| |A**|}Ү |B**| |C**|Mit dem Joystick kann man einen |D**}|Schriftzug ueber den Bildschirm |E**|bewegen. |F**G**}| |H**|Ԯ |I**| |J*}*|Nochmals Balkengraphik. |K**L**| |M}**|Ʈ |N**| |O**|Pyramidenfoermige Moiregraphik. |P}**Q**| |R**|̮ |}S**| |T**|Mit dem Joystick kann man einen |U**|gigantischen Scroll eines Gr.1 |}V**|Bildes ausfuehren. |W**X**| }|Y**|Ȯ |Z**| |[**|...loescht Teile aus einem Bild. } |\**]**| |^**|Ů } |_**| |`**|Bewegen von Playern in Turbobasic.|a**}b**| |c**|̮ |d**| } |e**|Zeichungen mit Schraffuren fuellen|f**g**| } |h**|Ү |i**| |j**|Einen Text vom Bildschirm in} einen|k**|String laden und weiterverarbeiten|l**m**| } |n**|Ӯ |o**| |p**|...erstellt eigene Display}list. |q**r**| |s**|Ԯ } |t**| |u**|...kann wunderbar Zeichen. |v**}w**| |x**|® |y**| } |z**|...demonstriert@ wie man einen |{**|Schriftzug verschoenern kann. ||**}_ CHBADD@@2AVB@@BAV@a<<(>:A%,>:@),>:@)},>:@),>:@),00@@@0@@@ A+-}++@$@7,&@,/"=Bc%A 0,0,0,0,0,0,0,0%%170,170,170,166,169,170,170,170$$170,170},170,170,106,90,165,170$$170,170,170,170,170,170,170,85%%166,169,170,170,170,170,170,106%%170,106,150,169,169,170},170,170%%170,170,170,106,106,150,150,165%%170,169,170,170,170,170,170,170$$170,170,90,150,150,165,165,169%%1}70,170,170,170,169,165,191,149!!90,90,95,255,253,253,255,85""170,149,247,255,95,95,255,85 $$165,255,255,255,255,25}5,255,85!""170,253,245,255,87,87,255,85"$$169,169,127,255,255,255,255,85#""106,90,90,250,245,245,245,85$##170,170},170,170,170,106,86,85%%%170,170,170,169,166,154,106,170&%%165,154,106,170,170,170,170,170'%%191,151,151,167,171,169},165,165(%%255,253,253,255,255,111,106,106)""255,95,95,255,255,87,151,170*%%255,255,255,255,255,255,255,169+##255},87,87,255,255,253,253,106,$$255,255,255,255,255,93,105,169-##245,245,245,245,218,90,90,106.##85,86,106,170,170,170,}170,170/%%170,106,154,166,169,170,170,1700$$170,170,170,170,170,90,166,1661%%170,170,170,169,150,106,170,1702%%17}0,169,149,106,170,170,170,1703$$150,86,106,170,170,170,170,1704%%170,170,170,170,170,170,170,1705%%170,170,170,170,1}70,169,150,1066%%169,165,165,150,150,106,170,1707%%106,170,170,169,165,166,166,1708$$165,165,90,106,170,170,170,170}96-AV<@d=%%6-F:A`,%F:Aa,$AV>1-@-%%@@1 ?26-%}@)"6-P:'AV,26-&$AV@3%@ @%%@!3%@"F--6-F:@,%AV$F:@},%@@K-@Z-@@"_M%$@@%/%@@$%%@I%$@@%%}@$M ` d!!1,2,3,4,5,6,7,8,32,32,32,32e((32,32,9,10,11,12,13,14,15,16,17,18f))32,32,19,20,21,22,23,24,25},26,27,28g))29,30,31,32,33,34,35,36,32,32,32,32 D:BEETLE,.BAS@@Z17,18f))32,32,19,20,21,22,23,24,25X..XX@gAY SECHSECKPROGRAM))(!DIESES PROGRAM ZEICHNET SECHSECKE((##(MIT }WIRD DIE GROESSE DES 2(SECHSECKS FEST GELEGT<(A (=F +@P @Z(n!AY A}s!AY@ex6-AY ,/%$?BP%$?%/%$?BP%$?u /%/}&$?BP%$?u/&$?BP%$?% / @e ZAHL ZU GROSS,BITTE KLEINERE Z}AHL WAEHLEN (=$D2:SECHSECK.BAS ZAHL ZU GROSS,BITTE KLEINERE ZH5/F@B6&B185,170,255o +@'0@@I6-F:@,%AV }$F:@,U6-o0@@@8"(B= -%A&* 86-%A6"AU }6-%@) @,#6 @ @D2:SCHATTI8.BASBA@* 86-%A6"AU ZPLR0HIBYTLOBYTBLANKPLRHPLRVEELASTIBOTTOXPOTIMHORISNDFLAYPOFRMNFRAMEFRAMEMEMFRMSIZBUFFERFRAM$}ENUMPLRPLRFRMMEFRAMEMETEMPMBASSTARVVTOFFSEBYThABhAAA@yIhF@$} @ A @ ?u %C$@@0@@@!@!$}ARB@B&AYBh@" %%Ǡ̠͠%%$}堸(NNProgram to demonstrate Player-Missile Graphics using string manipulation288Copyright (C) 1982 by D$}avid Fox and Mitchell Waite<FK;A(, A@KThis MUST be the first variable in the programPd$}n*6-P:'AV,*Calculate High Bytex(6-&$AV(Calculate Low Byte$囖&$}&;A(,9@,9@,U67@,.>:,367A(,.>:,B67@,.UFill with blanksY +$}@AR@8 One moment please...YTurn off cursor, print message' AP'Set up memory locations$}" Ap"Set up Player area+ A+Point PLR0$ to Player 0 RAM$ B$Read frames into RAM'+,((( $}} Ǡ̠Ϡ1+66-@p6-?@0 Initial velocity: 0  Elasticity: J$}36-@6-@@'6-?P36-?u& A&Move Player off screen?$}6-@'6-&+$&@$$,'6-@%!@*!@0%6-@G 6-6-$#6-/6$}-@;!@G6-@!!!A )@A8,;$6.7+&@,$%@<$,;Se$}lect correct frame# 6.#Fill Buffer with blanks967<%&@,.9Move current frame into buffer) 6.)Mov$}e buffer into Player 0 RAM 6-%g"*+%!?P,92@AP@@E6-g2@$}&'!?P6-%?' A@036-&?!)6-@3 Ap:X$}b Al&AR&Turn on cursorv"" }Enter initial velocity:  A0J- %$}Enter the ball's elasticity (a numberJ  from 0-1 [or more]): .AR@  .Turn off cursor $}B A%%򠰠8,$$} " 6-$  6-$2;A(,;,;,$X((b:6-F:A$},&@:Set aside Player-Missile areal,BBy,Tell ANTIC where PM RAM isv(6-AV$(Find PM Base addr$}ess-@968,-%A($%A9Set addresses of Players;68,-B2H%;Horizontal Player P$}osition registers AAY@BASet PM 2 line resolution, Players enabled8%A@$@%@$}8Color ball green-B2w@-Enable Player display$(#!!Ұ򠰠͛2#B%6-F:A@$},%F:AA,$AVBStart of String Array area<#E%6-F:A4,%F:A5,$AVEStart of Variable Value TableF#E$}6-8,&Ecalculate offset from String Array to Player 0P# 6- AZ#C%@CPoke offset of string $}into Variable Value Tabled#B%@BThis points the first string (PLR0$) to PLR(0)n#$x#'$}j'-@t'"~'67<,.>:,' '$' NŠ>NHN55Number of Frames, Frame Size, Numbe$}r of PlayersRN, (Bouncing Ball)\N 3,7,1R""R Frame 1R0,60,126,126,126,60,0&R $} Frame 20R24,60,60,60,60,60,24:R Frame 3DR0,0,0,126,255,126,0 D2:BOUNCE.BASOUNCE.BAS6,126,60,0&R $o()&:XYXYPHPHIPHIXA`@@P@5@6@! @ @!(}dKREIS DEMONSTRATIONnPROGRAMM #544DIESE METHODE BRAUCHT ETWA 3 SEKUNDEN1 +@@(}10@E6-A`6-@'6-@P36-?6-E6-,'6-%%%@'6-&&(}%@J ,%%,&%T! ,%&,&&!,%%^! ,&%,%&!,&&| 6-6-%@#(}O:, O:,6-#6-&@A D2:KREIS.BAS-.&!,&&| 6-6-%@#(T0ghXYXYPHPHIPHIXFLABCCOFNUMEMTOCHBASA ,} B7 B `B@d ,}6-6-F:A,$AV6-&A H(44SPEICHER FUER NEUEN ZEICHENSATZ LOESCHEN2-%A$,}<F P NEUEN ZEICHENSATZ EINPOKENZ"d."A A.999 = DATA-ENDE FLAGn %x6-,}%@ @0,0,0,0,0,0,0,032,33,35,35,35,35,255,2550,0,0,0,0,0,0,0%%112,112,112,112,24,}8,248,248,248""248,252,254,254,86,6,255,2550,0,32,32,32,32,112,24041,38,32,32,32,32,32,320,0,0,0,0,32,3,}2,48 999, +@@AV'AVE-@ @J(@'%O-@ @T(@,}&#Y-@ @ ^(@!$h A`D2:CUSTCHAR.BAS.360!$,CHBASE/2562,48,32,320255 68,-6,}8@Y-@ @ ^(@!$h A`D2:CUSTCHAR.BAS.360!$,CHBASE/2562,48,32,320255 68,-6,!"bjNSLLNEXTL@ @#@$ **** BOX SCORE **** 1}(};@ ,;@,((SPIELER.NAME: 2<(SPIELER.PUNKTEF(Z6-B:,%B:,d6-%@1}n-@x (* ( (*  'S SCORE:  *-@ (* D2:SCORE1}BOX.BASWERNER LOE (* ( (*  'S SCORE:  *-@ (* D2:SCORE00BC XDYDPPAA`@@@@$@@ 5} +@%@,-@@,(@ PING-pong+-@@+(@(-@5}A  x A` A Ap A09@,9@,-@@"5} 68,-68,- 1,1,1,-1,1,0,0,0-1,1,-1,-1,-1,0,0,00,1,0,-1,0,0 +@AR@5}Q0@70@@ @Q0@6-@@6-@$g @,5}1/@yC/@y@9U/@9g/$"0@@@5 },%(%(* USE STICH TO DRAW WALLS,6!!(* HOLD TRIGGER TO EREASE,@""(* HIT ESC TO CLEAR SCREEN,J(* HIT SPACE T5 }O BOUNCE.T @,^6-R:,h-F:Ad,"@3*AdAU-$r>F:Ad,"@(*Ad5 }AU4 A0> A|@A' 1@&,' AP 6-8,6-8,==% @5 })%!@x)% @)%!@8APII2+A&&,$T:,@%@$T:,@5 }@$T:,, 6-%6-% @,/%2/ AP%( (5}"(* HIT SPACE TO DRAW.%(7 @,6-@+6-@76--F:Ad,"@3*AdAU5}-$c1%% @%@+,36-%;6-%E@K,Y6-%@c Aq/2$@5}%@ @@91%C1%e2q6- !@6-6 Ap5} !@6-6 A&)F:B7p,!A'6-6) A0 6-6 A: !@6-6 AD5}5 @,6-%%@+,5 AN !@6-6 AX5 @,6-%%@+,5}5 AD2:PINGPONG.BASx@( A0@@@X5 @,6-%%@+,4R $%=awDBh@'@d / +/6-F:A`,%AV$F:Aa,-@&"A9}6%( 2)%@A0)A<]]72,173,80,6,24,105,15,141,80,6,141,10,212,141,23,208,201,91,9}208,5,169,0,141,80,6,104,64F9A'A@9BBAD2:BLINKDL.BASB Mod9}ul hard 1,80,6,104,64F9A'A@9BBAD2:BLINKDL.BASB Mod8034L @ Ax +@(@wxyz(@ (@Aa(=}@Bb(@Cc(@Dd( DAS IST GR. 2 NORMAL-BEvBUF:%B'h=}, -BH@Bq" A`  -@!!A%@$%@=} "( MIT FARBWECHSEL,-@A 6AV@@..(& DAS IST DER MODIFIZIERTE CHARAKTER=}SETJ-@A T(NUN DER SPEZIALMODUS^A#A(hr A`|%%255,255,255,255,255,2=}55,255,255%%170,170,170,170,170,170,170,17085,85,85,85,85,85,85,85!!228,57,78,147,147,78,57,228-1 =}D2:NEUGR2.BASJ,iu A(* HOLD TRIGGER TO85,85,85,85,85!!228,57,78,147,147,78,57,228-1 <>34$8CLITCOEREPOKE7ECDA A@@"?(U @@@ @A }B8 @DV@ci @@@A7VA6#d Үsc9@,+@.-AA!}A2"H6-$@%@Y68&A,-_c t-.5,1,3,4,5,9,12,13vL6-@"%6-@$@'A"}16-@=6-@L9<@,x1 A-@#6-%- A1  A6-AF-A#}@@ 8,.6-%@:!AF6-A- 6-%@!!A-6-A A$}A0-@@06-P:'@&?P,3 -%6-@&'"36-@#6-A%} A #,;-@6-%# A )/7'@;1  6-%@%"@ 16-@A&}"6-%P:'@%?P,"  A.68<@,-G:,+68<@,-E:,.$T06-+@0&,$?`A'}$8<@,%@@Q6-@`$8<@,%@T$ D2:KUGEL.BASUG@$,.$T06-+@0&,$?`@^&=QRSXYZCTPPYAPTTTTTTTTTRRRRRCOLOCOPOINT2POINT10POINTSHVGLLDE)}LLLLLLLLLLSRLCAAfAA2AVAz@@ @ @E*} @ @@ AAE+} !"#$%@&'@()*E,}+@,-@./@0@912@3@4@A5 6@7A8@9:E-};<@=>?@@A?tS) B@CD""PYRAMID.3D Program version 399CopE.}yright 1980 SEBREE'S:T.HAYS :ALL RIGHTS RESERVED + +6-@+A2o-@@,(Screen RE/}ESolution?>-@@J(X , Y\-@@o(1) 80 x 40<U-@@((2) 160 x 80:-@E0}@U(3) 320 x 160 HIRESF5"@6-@9+6-@5 AP1"@6-@y'6-@E1}1 AZ6-AY6-@d?-@@;(!Field of VIEW .1 Wide--2.0 Small?n]9@,9@E2},9@,9@,9@,9@,9@,;@,q-@@u"~68,- xM-@E3}@"$68,-( <-@@@"I68,-M 990,400,400,400,400,0,0,0,0,200,200,0,200,400,400,200--0E4},0,0,0,0,0,0,0,0,400,400,0,400,0,0,400UU1000,1000,1000,1400,1400,1400,1400,1000,1000,1200,1200,1400,1200,1000,1400,1200E5}O+6-?tS) %A16-=@OAAHi A ((VIEWERS LOCATION X,Y,Z0E6}@68@,-6O68@,-_68@,-6i A e&(Heading, Pitch, & Bank (X,Y,Z).56-6?(COLORCE7}J6-6NeO:,!@A c A %$(CLEAR Screen? YES?(A7@<@,4YE+Q"@cAE8}S6-E:$,6-G:$,$6-E:$,/6-G:$,:6-E:$,E6-G:$,S6-$%$$Z6-6$%$$6-$$$6-$E9},6-$56-6$D6-6$%$$P6-$%$Z6-$$_)-@$@&@@;68@,-8,M68@E:},-8,_68@,-8, [68@,-8%@,768@,-8%@,Q68@,-8%@,[ A%E"E;}6-%@;(LINE off screen window=E A  O),8@,%+8@,%,'@O/8@,%+8@E<},%,'@*#B2y # A  n-@@@36-8,%8@,G6-8,%8@,[6-E=}8,%8@,n68,-$%$%$ -68,-$%$%$)68,-$%$%$- ( s-@@@.68,-E>}E68%@,-\68%@,-s68%@,-2 8, 68,68,-@< &8,!8,&68%@E?},-@> '8, 68,'68%@,-@? &8,!8,&68%@,-@B  H .-@@.8E@},"A&@L 8,"8%@,A&hP  U .-@@.8,"@A&uX  _ .-@EA}@.8,"@A&b  d 6-@ A(l 6-n $s %6-@6-@% A&x EB}6-@6-@ 8,"@A'% ""8%@,"@A' ""8%@,"@A'B ""8EC}%@,"@A'V A&` ))6-+8,&8,,'+8,&8,&8,%8,, M68,-$+8,&8,,%8,768,-$+8,&ED}8,,%8,C68,-8,M A& ))6-+8,%8,,'+8,&8,&8,%8,, N68,-$+8,&8,,&8,768,-$+8,&8,,%8EE},D68,-68,N A& ))6-+8,%8,,'+8,&8,&8,%8,, N68,-$+8,&8,,%8,768,-$+8,&8,,&8,D6EF}8,-68,N A& ))6-+8,&8,,'+8,&8,&8,%8,, M68,-$+8,&8,,%8,768,-$+8,&8,,%8,C68,-8EG},M A& -8@,"-68@,->" -8@,"-68@,->, (68@,-8@EH},'8@,$M68@,-8@,'8@,$r68@,-8@,'8@,$68@,-8@,'8@EI},$$D2:PYRAMIDE.BASPYA,$r68@,-8@,'8@,$68@,-8@,'8@D."#s&MATEXTED(A(  6-IK} Adm +@AR@90@@@S0@@@m0@@nIL}(xf @)-@y@5,A/@ZP:'@,"'@f/@ 6-'@wIM}-@@ 6-8, "A0:-6@@"@0 '@:@,$IN}@&@y&'/$@&@y ) @),$@%@@x&&/$@%@@w&P:IO}',&&/$@&@@w&P:',**AV@%+F:AV,"@,#AW$@&@#( IP}(100%=2"@@K/)@2%A +'0@A0@IQ}@;@@,9@,)(BALKENBESCHRIFTUNG&4)-@@$(( . EINGABEIR}$68,- !6-$ .$D2:BALKENGR.BAS OKGRPH2.BAS-@@$(( . EINGABEHL 3 H CC1CCCCLTC3C3C12C9C6C12C1CC12PKC6CHARLOLAOXSTEPYSLPIMFLFRRSTRIK@MT}@@@@A@1@2 A( @ @d A' @@A MU}A@`BsDn.A/ABG@BwD@P@@MV} @!Ai"@#BY$@@%@&@'A6(AV)@@*))JOYSTICK BANNER C 1982 BY SOL MW}GUBER +K6-@6-@'6-@36-?6-@K6-@a6-A6-@1'6-MX}@236-A(?6-@K6-@dW6-A'a6-%%;6-@6-A '6-A/6-&;6-BsDMY} &&;A `,;A,;@, 9@ ,9@ , A <67,.>:,-67A `,.>:,<6MZ}7@,.6-C:,%%""(WIE LAUTET DEINE NACHRICHT6-B:,+ A-0 +%&(@INITIALISIEM[}RUNG0 A02 -<6.7<, F 6-%$- 6-F:%,K 6-"6-P% A%6-$AM\} %+&,$%R)%%$ A)%$U %x   }%%2@ 6-C:M]},6-&&& +%''6-F:@,%AV$F:@,&6-@6-&6-R:,6-&8,&6-F:M^},  6-%8, !$%6-%8,6-%8, 6-&8,$"@*!@$6-&8,$"@M_}*!@4$6-&8,F:B2y,"@%33R:,"@*T:,"@AP 6-?:A6<%<%M`}+%,$, T:,"6-%!AU6-&AU  A6&X 6-@:,!6-&b !* Ma}6-&$l  6-%v$ "6-$* 6-6--4 6-'P:,6-%> 6-P:,6-Mb}$ $68@,-@-68@,-@B68@,-@X68@ ,-6@n68@,-6@68Mc}@,-6@B68@,--68@,-B68@,-C68@,-@.68@,-6@Md}C68@,-X68@ ,-@.68@,-6@C68@,-X68@,-@.68@Me},-6@.68@,-$%%(ROSSE ODER LEINE BUCHSTABEN 6-*4G6-@'6-@Mf}*$# 4K6-@#6-@!(ETT ODER ORMALDRUCK! 4F$6-6-@$ %-AMg}6A"!%  %%2@ ))104,104,133,199,104,133,198,104,133 ""201,104,133,20Mq}b%DOS SYSb*)DUP SYSbSAUTORUN SYSb UTITEL b_MENUE BASbFsHILFE BASbBEETLE BASbSECHSECKBASbSCHATTI8BASbBOUNCE BASbKREIS BASb CUSTCHARBASbSCOREBOXBASbPINGPONGBASbBLINKDL BASbNEUGR2 BASb KUGEL BASb"(PYRAMIDEBASb JBALKENGRBASbSBANNER BASb#tBARCHARTBASbPYRAGRAFBASb)SCROLL BASbBLOESCH BASbPMMOVE TURbFILL BASb SCRSTR BASbLDLDES BASb0]JPAINT BASb-JPAINT 2 bBUCHSTABBAS0,162,8,160,12 $$177,198,145,200,136,208,249,24 ""165,200,105,10,133,200,144,3 ((230,201,24,165,198,105,120,133,198Mr} 144,3,230,199,24,202,208 221,96,0,0,0,0,0,0,0,0,0 !!202,208,215,96,0,0,0,0,0,24 $ D2:BANNER.BASMs}08 221,96,0,0,0,0,0,0,0,0,0 !!202,208,215,96,0,0,0,0,0,24 $ D2:BANNER.BASLIJRDATTITLECNIXAAJMCPYLVHLVHVMVZBSFPXVIFDATA! BsDB@7Qu}@BxB@ B$ @ @ @@6@@@2Qv}@@@P@@@@@2@2@3 @d SAMPLE PROGRAM ANDQw} SUBROU-nTINE FOR PRODUCING A BARxCHART. WRITTEN BYTHOMAS P. NEWDOMEINITIALIZE CHARACTER SET9Qx}@2,;@0,: +6-BsD:6-+F:AB,&@,$AV9 +@-@@9(@ INIQy}TIALIZING%-@X%6-$@ 6-%6-%-@%F:%,   4 +@Qz}-@@4(@STANDBY6-%A #A'-@ '6-%$@#-Q{}@"#%   "255,255,24,24,24,24,24,24,255,255,24,24,0,0,0,06255,255,0,0,0,0,0,0@3,3,Q|}3,3,3,3,3,31J3,3,3,3,3,3,3,127T0,0,0,0,0,0,0,0^0,0,0,0,0,0,0,126h0,0,0,0,0,0,126,126r0,0,0,0,0,126,1Q}}26,126|0,0,0,0,126,126,126,1260,0,0,126,126,126,126,126!!0,0,126,126,126,126,126,126##0,126,126,126,126,12Q~}6,126,126%%126,126,126,126,126,126,126,126##126,126,126,126,126,126,126,0!!126,126,126,126,126,126,0,0126,1Q}26,126,126,126,0,0,0126,126,126,126,0,0,0,0126,126,126,0,0,0,0,0126,126,0,0,0,0,0,0126,0,0,0,0,0,0,0Q}BRANCH TO USERS PROGRAM ABAR CHART SUBROUTINEARRAY DAT() AND TITLE$SHOULD BE PREPARED BY THQ}E&USERS PROGRAM0?6-P:8@,,$6-8@,36-8@,?6-A5< @)!@9(PLOT TYPE MUQ}ST BE 1,2, OR 3<&:,6-8@,6-@6,6-%@?E ?B(.THE RANGE FOR EACH VERTICAL MARK MUST BE > Q}.01E&D"@6-@8N'"@6-@4'6-@X3 +!AV'AV3AUbQ}HORIZONTAL AXISl"-@@ "(>:@,v-@@ (>:,F:@,A-Q}@(>:@,  A@HORIZONTAL LABELS6-@!@A-@!Q} (JFMAMJJASONDJFMAMJJASOND-@"(!-@#@"!(%@ A0 -@!(+"@Q}6-%@+6-%@ +"@6-%@+6-%@*A6-&A4 F:@, @5Q}A>)$-@$&+B:,,'@@#)(HVERTICAL AXISR-@\-@ (>:@,fQ} p)6-6-)6-$@z6-@%P:',# 6-@6-#6-' 6-Q} 6- A6-%@!@A  6-& A A 06-6- Q}6-6-&@ A` 6-% A APLOT DATA$-@.6Q}-8&@,'&8 6-N:,6-O:,B*"6@*%!@*6-@&L*"@*& 6@*6-%@VQ} 6-P:,`6-+&,$@j 6-P:,t!+&,?P!6-%@~)"@6-%@)6-"Q}6@A@"A -&@ -&(>:@, &6@A Q} -&(>:@%, A  -(>:@,"A-@ -%(>:@,Q}  "A -%%@(>:@!&,( 2AdAU< F:Ad,"AUA@FQ}$PSUBROUTINE FOR RIGHTZJUSTIFICATIONd!B) 6B &n 6-O:,6-@x! 6-P:,!6-P:+&Q},$A,"A06-@&P:L:,, AP" -(.0" A`#-&@Q}#(-.0-@ (>:@,$BEGINNING OF USER PROGRAM #A -@@2Q}" 68,- 80,1,-5,2$$0,.25,.5,.75,1,1.25,1.5,1.75,20,-1,-2,-3,-4,-5%%0,4,6,8,10,12,24,32,12,10,9Q},8,6##6.PLOT TYPE 1 - HIT ANY KEY" A`,468@,-@*6. PLOT TYPE 24 A`6468@,-@Q}*6. PLOT TYPE 34 A`@ +D:BARCHART.BAS,-@*6. PLOT TYPE 24 A`6468@,-@PC IJ  WAHWHITMODAPESPACBLACHOLSPE@@@U} @6 d8 +-@ @8(*** DIE PYRAMIDE ***&( ( (&(DEINE MOEGU}LICHKEITEN:"("( (0) ZUFALLS-PARAMETER#(#( (1) ANWENDER-PARAMETER'"+@$' AU}@AP8(8(-ZEICHNE HINTERGRUND AUS VERTIKALEN LINIEN?( (0) EVEN LINES( (1) ODD LINESU}( (2) NO BACKGROUND"@A0!!*@A ( (DRAW PYRAMID IN MODE?!!( (U}0) FROM CENTER OUTWARD ( (1) FROM LEFT TO RIGHT!!*@A`"("(FOR APEX OF PYRAMID U}USE"( (0) ONE POINT,( (1) TWO POINTS6@!!*@AJ%(%(SPACING OF RAYS FROM APEU}X?T$$((USUALLY AN INTEGER: 2 TO 6)^ @APh%(%(DRAW BLACK VERTICAL LINES?r( (0) EVEN LINEU}S|( (1) ODD LINES( (2) NO LINES"@A !!*@A(( WHEN FIU}NISHED!!( (0) GOTO RANDOPRAMETERS( (1) HOLD THE PATTERN!!*@AP#"@U}+@$# A*** RANDOM PARAMETERS ***6-P:H:,$@,6-P:H:,$@,6-P:H:U},$@,%%6-@%P:H:,$@,"*"*"A6-P:H:,$@,&*@wU}*RESET ATTRACT MODEV*** PROGRAM EXECUTION ***X70@70@@l!@AU}@v @6- A" A "@ A0*** DRAWTO SIDES ***-AU}@6= @,AY%/A1,AY=/] ,AY3/A&@E,U}AYY/&@] !@A  6- A"@A "H:U}, ? "+@$ 6-6-6- A!!*** SUBROUTINE VERTICAL ***-A@,U}/A $*** sub start from center-AXY @,AY3/AY%U}AE,AYY/AY&AM ,AY-/A`%A9,AYM/AX&AU}   $ ** SUB DRAWS LEFT TO RIGHT -A % @,AY%/A : ,AYU}3/%@A7 :$D2:PYRAGRAF.BASAX@3,199,104,13%/A : ,AYT\23{INITVBLANKPAGESDLISTHIGLO_ppNNA B8@VAd Y}**************************n * SMOOTH SCROLL DEMO *x * BY KYLE PEACOCK * * A.N.A.L.O.G. COMPUTING *Y} * ISSUE 16 * * ALL RIGHTS UNRESERVED! * ************************** }!!- DIY}MENSION INIT$ & VBLANK$!!- EXACTLY AS THEY ARE HERE.;A,;A,- DIMENSIONS OF PAGES$ &Y}- DLIST$ WILL DEPEND ON- APPLICATION";A,;@x,, PHASE COMPLETE.6@- INSTAY}LL DATA.J!!- LOOP VARIABLE SHOULD BE 1T""- TO # OF PAGE BYTES DIVIDED^- BY TWO.hr-@@VY}"|1167$@&@<$@&@,.>:,%!67$@<$@,.>:,% (PHASE COMPLETE.Y}- INSTALL DATA!!- LOOP VARIABLE SHOULD BE 1- TO # OF DLIST BYTES-@@v"67Y}<,.>:, 6-P:C:,'AV,6-C:,&$AV67<,.>:,!!67%@<%@,.>:,(PHASE CY}OMPLETE.""- INSTALL VBLANK INITIALIZER&0-@A":67<,.>:, D(PHASE COMPLETY}E.NX- INSTALL VBLANK ROUTINEbl-@A"v67<,.>:, - ALL DONE...Y}(PHASE COMPLETE.- POKE A INTO MEM. LOC. - TO HALT .!!- IF ANY PARAMETERS NEED TOY}""- BE CHANGED ONCE THINGS GET - GOING, Š, THEN!!- PERFORM THE CALL WITH- THE NEW PARAMETERSY}.- FINALLY, Š A@~~6-?:C:,- RAM PAGE USAGEHY}R0,0,1,0,2,0,3,0\250,0,251,0,252,0,253,0f254,0,255,0p3,0,1,0,0,0,253,0z250,0,5,0,4,0,250,05,0,Y}2,0,0,0,4,0253,0,241,0,222,0,3,0247,0,212,0,2,0,1,03,0,5,0,252,0,253,0255,0,254,0,253,0,252,025Y}1,0,250,0,249,0,248,01,0,3,0,2,0,5,04,0,248,0,252,0,253,00,0,3,0,6,0,4,0254,0,255,0- DISPY}LAY LIST112,112,112,118,0,0118,0,0,118,0,0,118,0,0118,0,0,118,0,0,118,0,0$118,0,0,118,0,0,118,0,Y}0.118,0,0,118,0,0,118,0,08118,0,0,118,0,0,118,0,0B118,0,0,118,0,0,118,0,0L118,0,0,118,0,0,118,0,0V11Y}8,0,0,86,0,0,65@J- VBLANK INITIALIZERT^165,16,41,127,133,16,141h14,210,216,104,104,141,28r6,104Y},141,27,6,104,141|1,6,104,141,0,6,104104,141,8,6,104,104,1412,6,141,18,6,104,104141,4,6,104,104,141,3Y}6,141,19,6,104,104,1415,6,104,104,141,6,6104,104,141,7,6,104,104141,10,6,104,104,141,116,104,104Y},141,9,6,104104,141,12,6,104,104,14113,6,104,133,204,104,133203,169,1,141,16,6,14117,6,165,205,72,165Y},20672,173,0,6,133,205,173 1,6,133,206,160,0,162 0,142,15,6,142,15,6 177,205,141,26,6,41,15& 240,33,Y}173,26,6,41,640 240,26,200,200,173,26,6: 41,15,201,1,240,18,173D 26,6,41,48,240,8,152N 56,233,2,157,29,6,232Y}X 200,208,211,142,20,6,104b 133,206,104,133,205,169,7l 174,28,6,172,27,6,32v 92,228,96 * 199 BYTES(#Y}2#- VERTICAL BLANK ROUTINE<#F#173,255,6,240,3,76,98P#228,216,173,0,6,141,48Z#2,173,1,6,141,49,2d#206,1Y}6,6,208,124,173,10n#6,141,16,6,240,116,174x#9,6,189,120,2,172,12#6,208,12,41,12,201,8#240,103,201,4,240,12,Y}208#93,41,12,201,4,240,91#201,8,208,123,238,14,6#173,14,6,205,6,6,240#112,144,110,173,18,6,205#2,6,2Y}08,7,206,14,6#240,97,208,95,206,18,6#169,255,72,48,7,169,0#141,14,6,240,80,141,22#6,104,141,23,6,174,8#Y}6,202,160,0,177,203,24#109,22,6,145,203,200,177$203,109,23,6,145,203,200$202,16,236,173,22,6,48$211,16Y},34,240,38,208,36"$206,14,6,16,31,173,18,$6,205,4,6,208,7,2386$14,6,240,18,208,16,238@$18,6,169,0,72,169,1J$Y}16,182,173,6,6,141,14T$6,206,17,6,208,110,173^$11,6,141,17,6,240,102h$174,9,6,189,120,2,172r$13,6,208,12,4Y}1,3,201|$2,240,49,201,1,240,12$208,79,41,3,201,1,240$37,201,2,208,69,206,15$6,16,64,173,19,6,205$3,6,Y}208,7,238,15,6$240,51,208,49,206,19,6$173,7,6,141,15,6,240$38,208,36,238,15,6,173$15,6,205,7,6,240,25$Y}144,23,173,19,6,205,5$6,208,7,206,15,6,240$10,208,8,238,19,6,169$0,141,15,6,173,14,6$141,4,212,173,15,6Y},141%5,212,173,20,6,240,83%141,21,6,165,205,72,165%206,72,162,0,142,24,6&%173,19,6,10,141,25,60%173,48Y},2,133,205,173,49:%2,133,206,172,25,6,177D%203,72,174,24,6,189,29N%6,168,200,104,145,205,238X%25,6,172,25,6,1Y}77,203b%72,189,29,6,168,200,200l%104,145,205,238,24,6,238v%25,6,206,21,6,208,210% 104,133,206,104,133,205,76Y}% 98,228%* 408 BYTES D2:SCROLL.BAS)hhhv%25,6,206,21,6,208,210% 104,133,206,104,133,205,76XB#$dSZEILSPALTDB@@AA6AUhAv@ LOESCHEN VON BILDTEILE]}NDER AUFRUF ERFOLGT MIT##X=USR(1536,SC,ZEILEN,SPALTEN)(** VON WOLFGANGANG CZERNYZ +d A]}n%%6-F:@,%AV$F:@,x6-@6-@}6-$@@%..6-?:A6<&@%<@<@ ]}, A@UNTERPROGRAMM NACH 15366-#A--A6Au"!)6-%- $A]}Uh!( DATEN-FEHLER!$&B$L==104,104,133,177,104,133,176,104,104,170,104,104,133,178V==164,178,169,0,145,176,136,]}208,251,24,165,176,105,40,133`..176,165,177,105,0,133,177,202,208,231,96D2:BLOESCH.BAS-@45,176,136,\r>?j ~ DECLARINIPM_BAUEEINXYLOOK1PMLOOK2LOOK3LOOK4LEER:<>@a}@ dPLAYER/MISSLE STEUERUNGn. IN TURBO-BASICxa}von Wolfgang CzernyTP +@1PPE<)CC=+!@H* @S,)"@a}B)"@C)"@E)"@a'!@H* @S'6-&@H#"@B#68,-8,%@$#"@Ca}#68,-8,&@.#"@E#68,-8,&@8#"@a#68,-8,%@B!8,!AU!68,-La}!8, !68,-AUV!8,!AU!68,-`!8, !68,-AUjB2G%8,t3"a}@39C:,%A$%8@,@~3"@39C:,%A%8@,@3"@39C:,%A6a}%8@,@3"@39C:,%A%8@,@F3T'O'9@,9@,.'a};@,;@,8';@,;@,B';AV,L'A0@V'#`'-@@j'"a}67<,.>:,t' ~'-@@'"67<,.>:,' '-@@'"67<,.>:,' 'a}-@@'"67<,.>:,' ) LOOK1)!!0,1,2,4,8,144,224,224,240,0) LOOK2")!!0,240,224,224,144a},8,4,2,1,0,) LOOK36)0,128,64,32,16,9,7,7,15,0@) LOOK4J)0,15,7,7,9,16,32,64,128,0*Q*T*O+&6-F:Aa},&@@&BBy +6-$AV6-@+#AY@b#SINGLE RES. +-B2VB2Y*+a}4+ >+-AAH+AUR+ \+-A$AAVf+9C:,%AVp+ +B68@a},-@P-68@,-@PB68@,-@`+B68@,-@`-68@,-@pB68@,-@p+-a}68@,-@-68@,-@+Q+T.O.''9C:,%A$%8@,@.''9C:,%A%8@a},@.''9C:,%A5%8@,@/''9C:,%A%8@,@/-@@/B2Ga}%8,&/ 0/B2w@:/Q D:PMMOVE.TUR%A%8@,@/-@@/B2G`?$%.AMAYXALFM@@B@@@A` B!T Au e}AU @ Demoprogramm zu "FILL"***************ROLF KILIAN(Oeschwende 1127900 Ulm-Lehr<Tee}l. 0731/60591F***************POktober 1984Zd<;A3,<Das Hauptprogramm wird in MA$ gespeichertne}x: 6-C:,0F:,"A*F:%A2,"Af: A}(>:A%, BITTE WARTENFF*** Zeile 140 kann nach dem 1.fe}ehlerfreien Lauf geloescht werdenY #B!-A%"-6-%1 =BV(FEHLER IN DATAZEILENYe} #BG-A2"&C:,%* G*** Hauptprogramm einlesen #BFK-@")e}A6%- K*** Unterprogramme einlesen((*** Pyramiede aus Kreisen zeichnen!6-!+@%@6-e}@ 6-@0-@0AP@033-Au&'@AE%'@@0, @ Ae},*** Kreis zeichnen4 ,4*** Ausgangsposition fuer FillL"6-?:C:, Flaeche e}ganz ausfuellenJ),AuAe)6-?:C:,<AU,T),AEAe)6-?:C:,<AU,^6-@h @e} Ar3 ,@PA36-?:C:,<Ap,|),AA)6-?:C:,<Ap, A*** e}KREIS ZEICHNEN-A`6-%E:,$6-%G:,$", / &$0u<<104,133,e}105,104,104,133,110,72,162,3,102,92,102,91,1022u==105,202,208,247,162,4,38,105,202,208,251,165,105,133,924u>>133,98,133,1e}03,133,101,165,91,133,97,133,102,133,100,1656u8890,133,96,169,1,133,107,208,71,176,18,169,0,24,1028u==110,106,5,110,133,1e}10,230,96,165,96,201,192,208,234,104:u==133,110,165,92,133,98,133,103,133,101,165,91,133,97,133u66240,17,198,96,169,0,6,110,42,5,110,133,110,208,5@u44176,2,144,233,96,32,0,6,166,98,32,5e}4,6,133,104Bu88164,97,49,108,162,0,42,176,28,232,224,8,208,248,32Du8839,6,192,39,240,30,200,177,108,208,234,32,39,6,208Ff}u<<242,165,107,208,140,240,204,196,97,208,4,228,98,240,65Hu4432,70,6,32,41,6,134,101,132,100,166,98,32,70,6Ju;;133,104,1f}64,97,49,108,162,8,106,202,176,19,208,250,32Lu7739,6,192,0,240,16,136,177,108,208,236,32,39,6,208Nu88242,32,54,6,32,41,6,f}134,103,132,102,24,232,208,182Pu::56,176,250,144,141,224,7,240,6,42,232,144,17,176,246Ru>>196,100,176,26,192,39,240,22,20f}0,177,108,162,255,208,231Tu::196,100,208,4,228,101,176,7,132,97,134,98,24,144,214Vu77166,98,32,54,6,164,97,17,108,162,8,1f}06,202,144,16Xu>>208,250,192,0,240,190,136,196,102,144,185,177,108,56,176Zu==234,196,102,208,6,228,103,240,172,144,170,13f}2,97,134,98\u24,144,166^u88165,96,133,105,169,0,133,108,162,8,70,105,144,3,24`u>>105,40,106,102,108,202,208,243,133,1f}09,24,165,108,101,88bu==133,108,165,109,101,89,133,109,96,169,255,37,104,37,110du;;17,108,145,108,169,255,133,104,96,169,f}255,224,0,240,9fu;;134,105,24,106,202,208,251,166,105,96,169,0,224,0,240hu//249,134,105,56,106,202,208,251,166,105,96f} D2:FILL.BAShihhnHf\f[fi106,202,208,251,166,105,96,169,0,224,0,240hu//249,134,105,56,106,202,208,251,166,105,96d ()Q~SCREENSCRSTRPRUEWER[[B$6@B `-----------------------Screen to Stj }ring V 1.0von Julian F. Reschke(c) Happy Computer 1985-----------------------$String fuer Bildinj }halt.!;A `,!67A `,. 8Bild fuellenB@LRoutine definierenV;@,6-j }`-@@j"67<,.>:,t 6-% ~B$6(Fehler!dd104,104,133,215,104,133,j }214,165,88,133,212,165,89,133,213,24,165,88,105,192,133,216,165,89,105ff3,133,217,160,0,162,0,177,212,16,2,162,255,41,127j},201,64,16,5,24,105,32,208,9,201,96,16,5,56,233bb64,16,0,224,255,208,2,73,128,145,214,230,212,208,2,230,213,230,214,208,2j},230,215,165,212,197,,216,208,200,165,213,197,217,208,194,96Routine aufrufen6-?:C:,?@ABCDn}EFGHIJKLMNOPQRSn}T AP2 0,0,9993 40,8,24 20,8,65 20,16,76 10,8,87 10,4,98 20,4,109 20,2,11: n}40,2,13; 40,1,15< 40,1,15= 40,1,15> 40,1,15? 40,8,4@ 40,16,5A 20,1,12B 40,1,14E%%n}Fc-@2(%-@2@)(7-@P; MAdAU_A)@c POn} 6-%6-%'AC%AU/6-%C67<,.>:%%%,K6-%O Zn --@)@ $(*9F:Ad,"n}@3@(RAdAUdA)@%n Ad$-@)@ (  $ n{ A-@)@n}/( Adr: AA)@%O-@PS eAdAUw-@3@{xh 6-%'67<,.>:@d%n}%%%,/6-%:6-P:',R67<,.>:&$AV,Z6-%h67<,.>:,M 6-%6-%'AC%AU9-@)@n}I( M k A@-@)@/( Adr: =-@PA S-@3@W](}c6.n }k6-%l67<,.>:@e,6-%*6-P:',B67<,.>:&$AV,J6-%X67<,.>:,b ARl A@M6-@:n!}7<,,-6.68%,-P:'#,I6-&+8%,"@,$#M XQ#A2%8@,%8@,$@%8@,$@n"}%8@,$@U"X$v+AY/6-F:A`,%$F:Aa,Y6-F:@,%AV$F:@,%A d6-Pn#}:',vAdAUI %%&$%%@f-%66-C:,A6-P:',I%H%&$%@qn$}%030@EAY@bH$]-B:,%6367%@<%@,.7<,7 U67<,.>:@:7<,,%@dn%},]6-%:67<,.>:,6-%'67<,.>:,/6-%76-%:$s A@-@"9(Leerzeilen-Anzahl : n&} K-@'@"]A)@%oAdAUsA-@"/( A )!A@n'}M 6-%AC%AU'6-%I67<,.>:+&@,$@%,M $$®AYn(}$6-06-@<6-@H6-@T6-@`6-@l6-@x6-@6-@6-n)}@ 6-@6-@p6-AV6-A06-G@G;,;A0,;@,;@@,;@@n*},9,826.(86.6-@6-KB2X!A@-BByn+}9B2wKB2P@V$A-ADA%Ae3%@7 A A##Ġn,}`AAR!-;6.?$)30,!9 ,)34???`( Grafikmodus mit / bestimmen,X"(und mit SPAn-}CE eingeben !%(((4AX(GRAFIKMODI+10 SC-MEMK'(|| | |K(||012345678n.}2345|| [#(|| || SLCF( | |[( E($(LMS/Jn/}VB Automatik (J/N)(57<,4J;6-E A `7<,0NA d-@0(Interrupt Flag -I- n0}J(V-Scroll Flag -V-d(H-Scroll Flag -H-Q(oad emory can -L-7(DList Ende () -J-Q(Neue DL -N &n1} SPACE-*! (A)!Ad ##Ԡ H#%@@"&6-F:Ad,8Adn2}AUD"AUH  L -@6@H2@%&@$@L  T "-@( n3}#6-&=6-%@$+ @,I-@P(T  T "-@( #6-%=6-&@$+!@&,I-@n4}P(T  R4"@3*% AA*(+"@*%"A@,R @%A`$+"A , "@5@ Kn5}"@!6-A($+",3-@)@G(>:@2%$N:,,K  K"@!6-@2$+",3-@)@G(n6}>:@2%$N:,,K  K"@W!6-@$+",3-@)@G(>:@2%$N:,,K  11"*A*% AAn7}*"A ^ "("AA 4AdAUFA)@%^ A@%A1`$+",   #n8}#Ϡ 999 40 40 40 20 20 10 10 20 20 20 n9}40 40 40 SB2P"6-F:A,$&(6-36-P:',=6-&$C6-I(}S AA + (- An:}p'"A +  :' Ap6-%#6-P:',-6-&$7 A :$ < A3 A@*6-B:,%@26-n;}%< A3p % - Ap!"A %  % A@A3` G6-P:+,',6-&$$ A *6-26-%n<}:6-%='G A3   6-%6-% * G6-B:,%6-&*67<,.>:@e,26-%=6-P:',G6-&$4 b67:,6-%'67<,.>:,.(}@AY@4RAdAUX(}b AR> t BAY@4G("n>}Ausgabe als BASIC-Programm (J/N) :Kd7@<@,0Jj(}t A@G ##àH G (}-n?}(Wurde ein GTIA-Modus (9/10/11)C(benutzt (Nr./N) :GR +09*010*011+6. nach Bedarf\ C (}-=6.'n@}????$)30,!9 ,)34????inbasicerstelltZC-f  -'!A p '6-P:', ( 10 GRAPHICS  5 6-nA} @+( 20 DIM DL$()5 A5@ V( 20 DIM DL$()#-&V(@ %$ DL$(,%&)=>:@4nB}, 2-%&(7<,! .(>:@4,2  Y2(@ %$ DL$(,)=>:@4,:-H(7<,nC}L Y(>:@4, iF(100 FOR P=1 TO :POKE P+&@,ASC(DL$(P,P)):NEXT Pi( 110 POKE 560, :POKE 561, "nD}("(Bildspeicheradresse : 9%(Andere Ausgabeformen (J/N) :)67<,0J9##ŭӠnE}m 6.6.$)30,!9 ,)34%(}m(AAusgabe in Zahlen oder ASCII-Zeichen oder Daten SAVEn (Z/A/S):, A@((nF},7<,4ZA@07<,4SA@@7<,0AA@-(-B:,(7<,# - A@=(nG}(@:7<,,-B:,/(,@:7<,,3 = A@9C:( (9(Einladen der Daten :k(a( 100nH} DIM DL$(B:,):OPEN #1,4,0,>:@4,C:>:@4,:INPUT #1,DL$:CLOSE #1k A@##ȭӠnI}l( (6.9(%Horizontalscroll-LMS Automatik (J/N):=V7@<@,0JbAYl A3H AAnJ}(}-H6.((/2):/.4!,3#2/,, ,-3automatikZV(Bildspeicher normal :"(=(Zeilenlaenge (Bytes) :AVnK}6-F:A,$&$"Z(4((Bestimmter Bildspeicherbereich (Adr/N) :8Q7@<@,0NZ6-A:,, 6-AYnL} A36+ Ap"A !6-%+ AAP@< 6-%6-P:+,',"6-&$, A 2< AAPJ nM}A3p##̠ +@AY1A@[6-@%F:@,%AV$F:nN}@,}6-F:A`,%AV$F:Aa,A(E0@@@5-%@ %@#A@E nO}p;6-C:.H01h@H01h@,G6-W-%@E`6-F:,pA6%&c 6-% nP}A5%+((+(.(S( Maschinencode-Daten fehlerhaft :V(`APcT36-C:&.    nQ} A,D6-P:'AV,T6-&$AV776-C:*TT@,??6-C:2PTTEQTD@nR}DE@PEEAPDADQPTEQ,r-@+-@@F:%$@%,N6-%@R `6-%nS}@d r6-%@$-%@I F:%&,$ g@@'-@@g(@R.DAVID 19nT}85GINSTERWEG 13 4700 HAMM 1{ACAH0AfF:A`,EAqF:Aa,WAnU}iA@{BBA]AY@4)-AU7%@K-@O ]6-%@nV}L6-&AU$+"AV,)Av>F:B2y,@B L AP AO##ԠnW}P^ 6.B2P2(Testlauf der DL (J/N) :DAdAUHU7<,0J[(}^$Zh 6-C:,6-P:','AnX}`&$3AaW6-F:AD,%$F:AE,%Ah6-F:A,$d` 6-+!,6-&$F:B7p,9F:Ad,nY}"AU` AR %@ $+F:B2y,"@,n A$x' A D:DLDES.BAS?A?@@8nZ} A= A>6M7M67Mh7M7M7M7M08Mb8M8M8M8M*9M\9M9F9F9F$:FV:F:F:F:F;FP;F;F;F;FM>>n[}Mp>B>M>M?M8?Mj?M?M?A040pn\}@0pl,0CDARUPAD@pA0@@@d@c A% Br^}(H Bg6-F:A,&@5 y +@A1@@CA#AUA@gr_}A @yA@ @,@$@`1/@$@C/@@O6-@[6-@ r`}g6-@q A,@"@ 6-@"6-@P A 6-@6-@`% A/@;6ra}-@M,@@@`_/@E@Pq/@E@/@5@6-@06-@  A,@0rb}@ !6-@`+ A5I-@3@BU,@ a/@Pe o@{6-@,@X@rc}`/@X@E'/@f@59/@f@ K/@a@]/@Q@i6-@5u6-@Q rd}A,{6-@V6-@E% A+,76-@`A AK_-@@0k,@Vw/@re}a{  @6-@+,@A0=/@AO/@Aa/@@s/@@rf}/@6-6-A0 A !-@@-,@9/A= G@ rg}S6-@ e,@2A0w/@2@/@'@/@"@!6-@-6-@7 A=,rh}I6-A0S A]q-@A},@"/@) 3-AA0#,@ //@'ri}3  @6-@+,@@A0=/@@@O/@4@[6-@g6-@8q Aw,rj}6-A0 A @6-@+,@UA0=/@`A O/@`@a/@P@m6-rk}@Ey6-@ A,6-A0 Aq !-@3,@HAG/@H%A0rl}Y,@WAm/@R%@q  @6-@+,@rA0=/@r@O/@t@rm}a/@y@s/@e@6-@6-@e A,@p%6-@p6-A0% A rn}@,@6AI1/@1AIC/@1ATU/@6ATg/@6AYy/@1AY,@8ro}AY @,@@AI1/@@AYC,@EAIU/@EAYg,@EATy/@@ATrp},@GAYM%6-F:A`,%F:Aa,$AV9%AfACM%Ap@ 6672,169,0,141,10,212,1rq}41,26,208,141,27,208,104,64!m #@2!-@%"3Ax%7 IAAB[A@mBBrr}A#1@(1((C)1984 BY S.HANDKE( @1 #A6-2\"6@(-rs}@,"46-%N$AV%%$@R \ @P39B$+6(FEHLER IN ZEILEN 100-1509<rt}K #@e6---A6AV1"96-%E"@)K6-="@(6-&@>7  "Awru}F:AH,7AxF:AI,A==173,120,2,41,1,208,3,32,43,6,173,120,2,41,2,208,3,32,67B<<6,173,120,2,41,4,208,3,32,9rv}1,6,173,120,2,41,8,208,3,32C88106,6,76,98,228,160,13,174,255,6,202,224,27,144,13D<<142,255,6,189,0,29,157,255,28,232,13rw}6,16,246,96,160,13E>>174,255,6,232,224,211,176,245,142,255,6,189,10,29,157,11F;;29,202,136,16,246,96,174,254,6,202,224,rx}44,144,223,142GMM254,6,142,1,208,96,174,254,6,232,224,204,176,208,142,254,6,142,1,208,96K? #@v!-@7ry}%"-6-%;Ar%? Lll72,138,72,174,252,6,189,253,6,141,10,212,141,24,208,238,253,6,238,253,6,174,253,6,224,208,rz}208,5,169,16M141,253,6,104,170,104,64PS #@!-@%"-6-%;A`%? SAb&@r{}Q7Bg+4(FEHLER IN ZEILEN 60-857U++72,169,28,141,10,212,141,9,212,104,64XKAV@'Ar|}W@39AR@K( PRESS RETURNY F:Ad,@@Zl+@%@2'A@9Ar}}KA]AdAUl% D:JPAINT.2[mm104,104,104,24,105,3,162,16,157,66,3,104,157,69,3,104,15r~}7,68,3,169,17,157,72,3,169,0,157,73,3,32,86,228\VV162,16,169,80,157,68,3,169,129,157,69,3,169,0,157,72,3,169,30,157,73,3,3r}2,86,228]&&162,16,169,12,157,66,3,76,86,228_N #@!-@f%"3A%7 KAP%@N$r}d64,0,0,0,0,0,0,0,0e65,0,0,0,149,101,89,86,85f95,0,0,0,85,85,85,85,170g67,0,0,0,0,64,80,84,170h68,85,r}85,85,85,85,21,5,1i((69,170,170,170,170,170,170,170,170j70,170,0,0,0,0,0,0,0k((71,170,170,175,186,186,175,234,191r}l((72,175,250,170,190,235,171,174,250m((73,250,175,170,234,186,174,171,170n((74,170,170,250,175,170,170,170,234o((r}75,171,174,187,235,174,174,187,190p((76,234,234,171,174,186,234,170,170q((77,234,186,174,171,255,255,255,255r((78,17r}0,171,174,186,234,250,254,255s((79,254,238,254,170,187,190,191,170t((80,170,174,186,234,170,191,187,191u((81,175,186r},234,234,234,234,186,175v((82,250,174,171,171,171,171,174,250w((83,191,186,191,170,255,235,235,255x((84,254,174,254,r}170,191,187,191,170y((85,170,250,235,234,251,235,235,170z((86,170,187,187,187,187,187,187,170{ 87,0,0,250,250,250,2r}50,0,0|88,0,0,95,95,95,95,0,0}""89,0,252,192,252,204,252,0,0~""90,0,252,204,255,195,195,0,3((91,255,192,192,19r}2,192,192,192,25592,255,3,3,3,3,3,3,255""93,252,48,48,252,3,12,48,192 94,3,12,48,192,63,51,51,63-1? -r}Ae<@@S?$ D:JPAINT.BASS@@PP"_"S?$@r}@r}r}pC^pNNNNNNN1N2N3N4N5N6N9N10N10N13N15N25N37N70N18N19N55N7PPPNRLYFCFCM25v}XYXYN12M v} v} !"#$%&'()*+,v}-./01234567kkBEI 16K ZEILEN 0,421,422,42v}6,427,434 UND 501 BIS 510 EINGEBEN;ZEILE 151 IN DIM F$(N1) UMAENDERN55"v}RR1,2,3,4,5,6,10,20,30,42,50,60,90,100,102,130,150,255,375,708,182,191,559,764.6-F:%,6-&% 6-&.6-$Av}V3F:%%,&-/%F:%Ah%,3  - 6-%6-@# %) %- S2&/6-P:+Fv}:A,&@D,'$,B6-F:A,&%L2PS$' ' ''( $   @P# 6-&+!&,Av} $$ 6-%+ &,A $( 6-F:, &%+,)$*]] &%@ $+"%,&$+"&,%$+"&,%Av}$$+"&,&+&@ ,$+"%)"@,+B2I 6-$21  6-A#6-"'%'('+'1 %5v}  %%+!,6--6-$%P:',$%P:+&,'@H,$@8 %  Z T:," d/(6-%"6-6)v}&%&/6-h (T:, $p 6-F:," q &t?   %56-%+"%,$+ ,&+"%,$+!,9? v}%w D &-%#,%%5/@&%%9 A"&D$7 --#,%$&//%$%v}3 7  ( $; &,$/$%)/$%%3/$%;/$, 6-"%*'"P:',&&%,6-v}$ABBy&&B2w7-%AV%A=A  ;&,$ ;&,$6.(Hh(ʔY -v}%%A%/%A&%3 ?BBKAHYAI%?A%A+A%?v}%AA 6-= %+%+6-%A3%=%%/A&BB%% %v}/-& % %6- $! 6-& Aa!AYK &-+( - menue 1-v}K( stefan '84 ---$%$( !?????#-$%$fD( $%%>:@9%$@%$,>:v}@@%$@%$,%%P-$%$^( &&&&&&b f $0 %%&%%-%AH0$ +%v}&%6-6-B "-&#&%@:7,,' 9A#Aa?6-B$; "%-%%@:7%%,,v}) 1&; A4%@:7%+"&,,,$  6-6-7 (T:, @ ,!/'6--6-7 Av} $3  ,6-6- #,)/3 A   ,6-6-)  ,/6-6-) ABv}  6-6-,  ,/ Ab! 1,6-!6-)  6-6-)& )& Av} 1,1 1&!@$&&)&!A&A 7 ,,#-+-317v}"),%&%&  & ) A,X 6-6-1$,( 06-'E6->%O:&,$X6->%O:v}&,/%6-D:',6-P:'E:,,%6-P:,1A ,&!-ApA0' &=/%$E:,'%$G:,A 2 , $v}@  6-6-, B+ ,///!/+ A T, 1-6"1(", U% 6-%v}-1!"% VH 6-&,&-%Ae8&%S<D,&HW0 -,-&v}6&1,"0 X /% &  A@h3 6- 6-%6-3&&AcAei5 "%#Apv}"!-'"+5 Aqj,6-@:7,,6-% )67<,.>:,,$kB6-@:7%,,6-A@)6-@- ?6v}7%<%,.>:,B$mC 6--&6-@:7,,)6-&%16-&5? A2C n*67<,.>:,$+"&,# %' *v}$r%%255,16,712,12,708,13,709,14,710sW 6-$ %6-'%6-@:7,,) 767<,.>:,A$+",I6-$O %W6-'v}t  6-$wC 6-R:,26-%$+"%,$+ ,&$+"%,$+!,8?T:,C x$|= %+&%!%'-v}7(GrHi= %}O --$%?(>:%&, %%%$+",C I6-O6-? 6- '1+&,v}'+&,'@? @)!A+6-&&%$+",+6-%&@$+", Ad $  $+v}AY $C %+&%!%/6-%A7&C-&A %%%  %A(v}@AVE OAD IRECTORY; 6-F:,; A$%@w$+"&,%+()"%,%$+"%,6-%$+,6.C!v}6-%%%$+(,!F:,&%6@-"(&0 A46 $Q 6-& %67&,.>:,;Av}($7<,4CQ6-?:A<:AV,5 A@v}G-. (  6-%.AF:,"A  A A$ D:JPAINT.v}2. (  6-%.AF:,"A  A A$ D:JPAINT.t0]^ TEXTPPTEXBBF1BF2BF3BBF2INIINVX @@@ @!!!7!!z} @4 @ @ @'!!---------------------------'!!- Graphik-Buchstaben fuez}r -$'!!- Titel-Bilder -.'!!- -8'!!- Copyright 1984 by -B'!!- z} -L'!!- Burkhard Wagner -V'!!- Pestalozzistr.2 -`'!!- 4350 Recklinghausen -j'!!----------z}-----------------t'Screen vorbereiten~'!!---------------------------' +'@'"AR@z}"(>:A%,'0@@'0@'!!---------------------------'Initialisiez}ren'!!---------------------------' B`'!!---------------------------'Demo-Text ausdrucken'!!-----------z}----------------(-@@ (6-"@(6.BURKHARD(%6-@6-@% B((6.WAGNz}ER2(%6-@6-@% B<(6.PRESENTSF(%6-@6-@% BP( F:B2y,@B z}Z( d('@@'ARn((>:A%,x(!!---------------------------( Upro Ausdrucken Buchz}staben(!!---------------------------( B(-@B:,(W5-$@%+&@,$@$@&@z}W(7$@&@<$@,(u--$@%+&@,$@$@u(7$@&@<$@&@,z}7<,7$@<$@,(W5-$@%+&@,$@$@%@W(7$@&@<$@,(  z} $(!!---------------------------(Upro Text invertieren(!!---------------------------(-@B:,(!!67:@:7<,,%A(,) )$)!!---------------------------")Init-Upro Erzeugen ver-,)!!schiedener Buchstabenz}formen6)!!---------------------------@)II;@$@,;@$@,;@$@,;@,J)+-@z}@3"'67,.>:,+ T)+-@@""'67,.>:,+ ^)+-@@3"'67,.>:,+ h)$r)z}DATA BF1$|)6,160,7,20,20,20,17,18,5)8,149,10,0,0,0,19,19,19) 9,149,15,35,35,35,42,42,42)47,45,92,19,24,1z}9)DATA BF2$)160,160,20,20,124,124,25) 153,0,0,19,19,153,25,35,35)42,42,124,124,4,1)DATA BF3$)7,1z}60,6,20,20,20,26,18,3)138,21,136,0,0,0,19,19,19) 11,21,12,35,35,35,42,42,42)92,45,47,19,23,19D2:BUCHSTAz}B.BAS  ###***/-\||#) 11,21,12,35,35,35,42,42,42)92,45,47,19,23,19D2:BUCHSTAx6 D:HILFE.BASD:HIL*.*pern kann. ||**Q