111 DM3,50 Fur C 64 VC 20 Atari ZX Spectrum I ZX 81 TI99/4A Colour Genie Dragon | Computet Korital V ™ fgf Leserdiez, w ' fiir wenig Gf , manche mod nan scwa itschrift, die , CK ware die ischrift iiber- SPECTRUM Soft- und Hardware DAS Text verarbeitu n gs- System fur Iriren ZX Spectrum 48 K. INES DM 49.90 PROTEUS DAS erste deutschi geradezu ein Wunder, mit welch bescheider Mitteln wir zusammen mit unseren freien [ arbeitern die CK so gut hinbekommen habei und drucken fa! inell 6D Seiten zusammen und apart AuGerdem die besten Programme fur Ihren Spectrum. Fordarn Sie ULTRASOFT Kamperweg 167 4000 Diisseldorf 12 bedeutet noch a m hr « t ualitat? 5 komprimierte^ ...:.■ und alle aiis a Deshalb ringen dem kein Blatt vac den Mund. wir auch unbequeme Meinungen, :■■.'■■: ■■■■■■■ ■ ' .mr] ■:::.■? Mithilfe unserer Leser gerecht werden. Das wckclt sich und wenn wir noch ein paar sehr gute Mitarbeiter linden, sind wir bald un- schlagbar. die ab dem 26.11.84 im Handel ist . Wir prasentieren GENIE 16 B NEUM! An alls GENE ill-BKHar und d USKARTTs %t*ta4 (A/ Thomas Eberle, Chef redaftteur iLt, . Computer Kontakt 1 1 /B4 INHALTSVERZEICHNIS 4 Inhaltsverzeichnis Bei uns k mitm in nc n Sie vorwort 3 achen Ciub-Naehricnten 5 Biicher 7 wendenSiedeshathbeiEadlrH- Spiel-Reviews ■ ■■■■. i. !■■ :. :■■: cspfuhc.n, Spick 1 ''i\-..h'.-i- i-'i Tip* urn! Triiks stliii-k=n. 1. Lhr Brie! muB ein An- direirjen mil Name. AiiSL-hrilt. nthalten. Wenn SH m* ein ioai.im.ii iini mil SpeiL-lK'iei nrcken. Dei IJtUL-k nuili p-ipurrii, imlimutcRiiclBeite- Leserbriefe 16 hurt =in Listen. un.Uine kL Programmbeschreibungen 17 k c Spc hem Tips + Tricks Htmm^treimanib KsssetKn Micro-Speecb lur (ten ZX Spectrum 21 uod Disketlen k™.ie„ <.vii i.u. ZX Spectrum: Prodomo Ponor^b-eiT " Cnn ^° Ck Busplatine Br der Spectrum 24 6 Bcrichte Spidebeschrei LOAD ZX81tur den Spectrum 24 bungen und Bucbbesprediun- Bericht iiber den Spectrum -Extender 25 .^tallsmeizeilig ZX Spectrum: Spectalk 26 7 Wenn wir ein Prnrrramm Zusati-Tastaturen tur den Spectrum ■ 1 'iternlslauf 29 :::'" '*: Das Genie 16 gramm dann tbeorcNKri audi Stiftung Warentest hat zugeschlagen 33 VC 20: Bach-MeJodle 34 zramm ubcr Ka^iic -iTirci- VC 20: Kaputnlk 36 ■" - :: '||'' F " =Tn h ^|"" 1 ' ^~ Buehversend 39 dafiir cin Brtralonorar. Ftir Prolisoft-M-Coder fur den Spectrum 43 dencinrn a li ! er.AI»l.u,l 1 ..,u, ! DasWersibnard-Mu»k64- 44 schenTODMundlOOLIM Son- C 64: Sprites erstellen 45 Mip'llunur^setienaachVer- C 84: Through the Wall 45 C64:Hardoopy 48 8. Mil aer Einsendung gjbt BASIC-Erweitenjngen fiir den C 54 48 C 64: Pruisummengenerator i Indikator 50 C 64: Maze- Ball ^£ ™ S t ' i " ^ D, " C " Leserfragen 99 Bericht iiber die ATAHI-Martatel 56 9. Mit dcr EinscuduriE ei Atari: Rollydolly Atari: Morseprogramm 60 B™«i»« '-1 "id da* uncirrgc- Atari: HEX-DEZ-Umvrandlung 61 "'"dor^inseride" ZX 81 :Turme von Hanoi 62 Prwrrmmli'.HnKllkki-ll.imJ-.;- ZX Si: Hexd 62 kern Nununr^fJiTbettai to ZX St: Kaseklsle 63 er bui Abdrack dutch OH etwa- Tl: Quell programm zu Screen Utility 64 ... I...K...,. IT! Poke-Liste iu Screen Utility gen. Tl: Fassadankletterer 67 TkReaktion _6fl Die nachs "Compute erscheint sa teAusgabe Klelnanzelgen 72 r-Kontakt<< Fundgrube 76 73 CLUB-NACHRICHTEN flLjrg.:n!Mi :nch j"^i-i:>jii-;.l^ Biiro - ma Nfiihsfcsll^koufeiui'ifimQfcer mich an. Mciiic men 07! -I IA smM BuBdesrepu .. l ., l .,|„| lll einen neJifijen Oanputer* Ai.^t.nii- J;,™ L rtfa!, K ta!l, k...,,;,,!,,,, C.AD/CAM-Anle- 4?» lanruJcn-Tci. (07252)42 CLUB-NACHRICHTEN Der ZX Interface 1 User Club 2362 Leek Gcrlte: C64 und Spe deo32S Clubbekrag: 5 DM p »Mo- Mitgiicder: Inlema mm Der Club suchl weita Kim- SV Fans 1st geplanl. ' ■ .'■':■ cin'i«mi [»i-kvlltn- und /nl't- ■ ■■ ' .. ■■ .: :: : - .:■_■: ■.. d^.dnchiODSIgabcn.chtv.el UlttUtoK. HX-ltamb CBM 64 User Group Malbec Eidertilick 10 2300Mt>]fsee 1530 Clubbeilrag: Nein dublrerftn: N™ Big Computer Kontakt 1 1/84 bOcher Ibuchbesprechung •» Basic-Kurs fiir Beginner KSHKJSSS* 32SSSSS von Hva rirnst Und Die cimdnun Spratllcli'- Andreas Dripke meme vw, BASIC word t „ „ i>V Verlag Interface Age, ^ Eia ^ e V„, :,! . ',, ' I Munchcn „i„ ,,i„ im«« Pm „ smm ISBN 3-8S623-015-5 Oder ■ Spectrum Hardware Manual Verley Melbourne house LTD. Computet Kontakt 1V84 Farbspiele mi t dem Commodore 64 von Wolfgang Black und Mathias Richler \76 Seiten r 28,- DM Sybcx Vcrlag, Dusscldorf ISBN 3-88745-044-2 von Anne McDougall/ Tony Adams/ Pauline Adams 296 Scilen, 38,- DM CailHanserVerlag, Mundien JSBN3-44fi-14!21-<) Computer Koritekl 11/84 BUCHER Superspiele fiirIhreiiTI-99/4A von Ha] Renko nig Lileratui gibt. Man j und fiarci Edwards wunl > iicti. .volici bcson- iidti MhHr.-^^i^i^vL^iL Rk'kk-i- flkT- .lv Sound angcnchnj duf- ■MfcEBS" SPIELE IM TEST ■ ta^' d^&h a ™! "^T«; ffvte Spttalli^tfa. "rnthtn Caverns of Khafka SSSSSioS 2££Sr£ F0rdenC64 Cavsma of Khafka .liLTi k- "™.d |«k-i (Imiit-l-m frnqhcmnrtere J,t htireienundrlirigeg^lteOe. rinIenfiscne ' cinIUIall!11:n Street Racer DaraMiiftaneJimwrgieidic w^lT!ait^ e Zt p t c 1 ,uo 1 .Joy !t ick-l. nn ,p a( M M::-,^- '■k'ii-ldien, hel dem man einenW»gennhnEl : EifiLlldurc!i Mugsy Doppdlcbtn, (la cr Mill TOO /r,"r/a/.Ei|-v,>i:ih,r,;.:liLii,i in ^tom.'b^S&IS Jumbly KriiftL'ri.datiaymiierwuiidhai ■s, few: Py, i:ill! wj dafcd ; h.C ■-Jl0i|-i^- liin d;L|^ei:]l illir deillill- -.Jii.1 ".in Mill' li.'sliinrir .'ir.l Stimier/cn /.iijjefiit! welder. .Nji;h dniEtr Ztil trfotgl dann rinruckHiUigcrPri'iA.-M.ii'eiiiui ggjssj|g *p- "<^-'-i-^ h n "chTw die Maiycl-Ligcnik! ragend gcmadit und uni-mrc- ^EngSkem' ,■ ■'■'■ B ■■.'t^.-riiVr K!J -.K-miT rvoJ-mr^J^X ^"v-o h .Th' k H!'lk l r'.| I K!l,^ ifolgmuglich. T].;: /(!,■!:: i rap irr™r-ra IB'.rfJB If '".jm^'Llor -Version urnge- I :.i.,..-*-i ....! Unterliallungsudil. L^™" »"££* "h™. D * JJ™ B; m^DM Witchfight Psytron deKDi^LadeTOwnr'in "erne™ Si zx$, sz £mm*X£«*SX lvmmIm^,* ESI MrS. MOPP licacndi. riS,u: ir uokldF. "Mrs. Muppo hi .:■ . LI.: ■ ■,.:-.■ ... ■ ' ■ . " Computet Kant.-,:-: l ; S■ Spielpro- wirdesda Progja ', to ems Irjiari- iiilWn Jt, Fassadenkletterer " ,Snden « e,rntf ' fliegende Luflb Fur den TI 99/4A gel berithn od( Hindernislauf I co.**^^ ,,«„*< *■ »^ « «• *« g** «™^-m-*« Mil den: Dragon 32 L«chK xine KwnNtriK tei uns rr, ... „, „ „„rti n B,.i.c.^ ^rtHmLlkAcn WirsuctanO™- TOTOIIgh the Wall J™ Bildschirmraudes em rote! Ra««ll-\f ««l™li*> Dic Aufsabc Lie: iSicscm Pro- lich .:!:: itlilif-oibi '.Ji:.:.i:i uilgnht i-;r os .'in der D«tU"lTj.CHHJItT , -.-..-.. i-. i. . I - . - , . -, nv ■in-- einem Maschin* mgibteswenig befinden J^^iS^t sSS^SH I ^ lyiiyiiiiiiiiimnniT— iMBi Computer Korttakt 1 1/64 Tips + Tricks 19 Rollydolly Sprites erstellen Reaktion FMsAt, ri Computer da.Spnl^-rstril.wcrfa.Da- Ein Tl-Programm hiiitn K»v;l. wkann Roily- Prngramm selhst wird mit RUN dolly benachbarte I'cldci Lrei- lll!!;„!.,rl 1 -[. u ,MJlif!l,ullkL.r- mtippen.Daiffniysniniermi!- telt die Reaklimweii ...iBREA t: den pcrfeklcn Kupier- I'OKI- KW.inpir £5£ ic-Programm als MC-Hk > KST< 'fasten. Urn i In Basic gjbl imtiiiieo l\*re. Tips + Tricks Poke- und Peekadressen KaKK VC20 beim"n99/4A Wit "t _ ™ c SchsOYnrBreiili CALL PEEKI-31SS l->i:i!KZu^lls7iLlimsss2?5. AJB) l-.ri'ir.-.z'.ieiiiiiabrianeige DENKKN m JEDOCH CALL PEEK(-2B67 A> \=%d.h. Sp.Ti'h Synthesizer ORAUM!!! call LOAD(-3nse,:32> SchalletindenMuLticciloi-- CALL LOAD|-317J ur..i:'i, .'!.■.! [Yiii;,iL'li'il|]'.in^- ** lcetDbkcttcn-Bctiieb^rotciD ■ ■ ■ : ■. .'■•! ■ ■ ;-.- CALL LOAD[-3lfiK ,2S5) Kor^.tn' HVl£al ' fEl,ere '' negativen Zahlen ebenfalls ab- Qeninaet wird (INT(-3.5) ist -4) . CALL LOAD(-31S0 .036) 1 1 ii l.iPIEatlfalhMl CALL LOAD(-J1BO .0) Se'tp'cTN'QUrrauBer TT-99/4A CAI.I LOAD (-3 193 1,0) CALL POKE V( 1784 ,A,B) isIdi6SdrrienstlD6gBBl«*r* Im Disk Manager Modul isi wandlungDezimalinHex. cineOption zum Diskctlen wenngilt: ^ schmz eingeliant. nursielii die A=INT(Z/256) " Ci t'ZZ: , ;,:'.' M !■ , ; 'l! ■ ':,: " n : , : 'I CALL CHARPATI1 SS , , HEXS=SEGS(SS.1,4) (so lanpe ' die RVS ON-T V I ! i -i t: i : ■■■ ■ " : .v: ■.-.. ■■.- : ■ :.. ■ !.. ■■■.•!■ :,::^:\-:< :;i :. KHfJd 9B-4fe CR3&XM SiMficlirrHdlen 132 mid 133. Frogruunscbuli Da der Compuler die Varia- werden kannen. SYSTEM RE- mes zu .stiireii. Allerdiriss.irflle "■•';i'i'»"'»»«' ' - ■■■.■■■■ Spectrum issdiallen der BRLAKTa- Filil[ man die V: n a Llama .MiPOKE 5377-1.64 Dieser Code «» RETURN (EOL).so der eme Variable ste lit. in RANDOMIZE USR 3638 adit modioli, R A**DOMIZEUSR:M35 losdll den Sercen (ROM- indem der PLEK aus Adrcsse dutch; I Adiessc. 131 hinzugczlhll wird. (132) + Computer Kontakl 1 1/B4 ZX SPECTRUM DieSprachausgabe-Einheit " " " „° „ R "; ."i,™/ »»MICROSPEECH« [ FC^ W« slch blsker PEP JOYSTICK. STEUERUNG KENP5T0N -INTERFRCE 1 IF W 31=1 THEN PRINT "REC HTS" 2 IF IN 31=2 THEN PRINT "LIN KS" 3 IF IN 31=4 THEN PRINT "RUN TER" 4 IF H" 5 IF IN 31=8 THEN PRINT "HOC IN 31=16 THEN PRINT "FE UER" 6 IF IN 31=5 THEN PRINT "REC HTS'RUNTER 7 IF IN 31=6 THEN PRINT "LIN K.S.<'RUNTER" 8 IF IN 31=9 THEN PRINT "REC HT3/HQCH" 3 IF IN 31=10 THEM PRINT "LI NKS/HOCH" 16 GO IU 1 ZX SPECTRUM Promodo -=4iee; let t-ise - f.r.p B =4 37Cl lil.L HL*: = 4.;C<' i i LET il=a- LET h GO T 4fl ■ b*= »" ■ Grj TO 5 LET a* •* LET 1 *= •"■ CO TO 5? ^1 LET b*> *" ULKMkOPF sa PRIM LET FIT *l-b i INK 3, BRIG ,20 TO 5000 62 Pft!M HI 1 6;PjH I.17it 65 IF >t =■»* THEN LET Ml> LE PRINT '■ iiMM MM) ■' 4:08 PRINT '■■ .■' 4115 PRINT 4150 ■ : m ■" 1 LET c= &•?■ LET »t*-=4300. LET t-49 ':-::' r-RiH? ■ ■ ■ ■ ■ ■" *','r- ■;v;.; '■>KihJ-i ■• i^ •■" . 4300 ET M 8' LET b=lH LET c-» 4328 . ■ 1 >!.>J HMHIM^ 5 IF at* 114 THEN LET P tp .1,-58. LET att-i ■ ■ ■ ■" 439B FOR n»l TO 2 Nj" "' BEEF .02, N/18' NEXT N 4400 PRINT "■ ■ ■ ■i^H'H ■ ■ 6 120 GO TO 20 ■ ■•■ ■ ■•■■ ■■■ ■ m* m ■>■ S99S REM GRflFIKSElCHEN & ■■ ■ ■ ■■•■ ■■■■1 B M ■ '■ImE.G-ILNEIIFJIE M> •■UK ■ ■ ■■ M '■* ■ ^B ^M MM ■ ■ i^M M ■ 153i FOR b=0 TO 7- RERt> c = POKE M ■ ■ ■■■■ ■ ■■■ • ■ ■ W USft CHRS i-3>+b.-c NEXT b: NEXT a ■ ■ ■■■■■ H ■ ■ iHB ■■■ ,: POkE a,c NEXT s. ■ RETURN ■ ■ ■ ■ ■" .126,60 441 > NEXT n 126.60 4999 REM SPIELENDE 5B0e LET x-B 90S0 DfllFi 6L-, 126, i:>;, 2^3, 240,248 5010 PRINT AT cdi BRIGHT U" " ,126.60 5020 IF Kc.d)>9 OR z. GO TO SB 40 ,126.68 3B30 LET C"C-z 3B4B IF al-e P.ND bl=d THEN SO T ,118.52 5660 9090 DRTfi ti.ft. i9?.2"9. 251-255.1 504S LET x=*-l: BEEP .02.-30 26.60 5050 GO TO 5010 9100 OfiTfi 60. Ii-;, ill., 223,247,227 5060 LET JkJKl TO LEU J»-l> S07B IF **»•" THEN 60 TO 5100 5B30 LET adr=adr*> GO TO 20 5100 FOR N.0 TO 21 5110 PRINT FIT ii, Hi PRPER INT CR ND*3>j INK 9l" GRME OVER "l 5120 NEXT n 5200 FOR n-1 TO 100: NEXT fci CLS 3900 WiTh 6,2.4.0,2,4.5, 7, 12, 16. 3209 REM MENU * 3993'CLEHH " SHVt "FKiLiOMtl" LINE 5210 PRINT BT 6,6j INVERSE 1 j "' 1 " 1. PRUSE 50." GO TO 9999. i INVERSE 0i" SPIELEN">RT 9,6i INVERSE 1>"2"; INVERSE Bi* TR ftlHINC'ifiT 12. Bi INVERSE li"3"j INVERSE 0;" STOP " 5220 INPUT a Fiir den ZX Spectrum 5238 IF aXl OR a>4 THEN GO TO 5 228 5240 IF a-1 THEN GO TO 10 3250 IF a=2 THEN GO TO 5380 5260 IF a=3 THEN STOP 530S INPUT "WELCHES BILL) (1.2.3, lift did. Zeitefreiialshffekt 5310 IF a4 THEN GO TO 3 see IflOLTTmiN^GOTOlO JZTc!. dk BOHfet&rt* «* 5320 IF a=l THEN LET aar=4B00 5325 IF a=2 THEN LET adr-=4170 gdb: Tasten: 1,0. A. Caps Shift 5.J3A IF 1=3 THEM LET jdr=4300 5.J4U LET a.iri^J L,U JO 13_ . cyan: listen: 2,W,S,Z ■H(i tnv;w~i~'~rrj.t_ 2-;i4. i'ii- r HPCR ii_ :ili_: !■ BRIGHT i= CLS ' B magenta: Tasten: 3.E.D.X 5999 RE" WURMRICHTUNC SPEICHERN •,iill; If i- i\ >AV- LET z- i::Ol = Ii RETURN WIS if t)*l THEN LET KaUblS- Taalen In. 2: gelb u.cyan-griiii ■sei^iin if bit.l THEN LET z" ; HT 13.2;"SRVEn ";RT 15.2;"L0RDen";RT 17,2; "flvileitun 9 zu SPECTRLK" 133 PRINT INK 2;RT 20,2;"uritt en by;";RT 19. 14; "Mario SchUsin 9et-";RT 20, 14; ,, Schul=.tr.44";RT 2 1,14; "8992 Haa^Obb. ° 140 PRINT AT x,s; INK 5; FLRSH 145 FOR c=l TO 7 149 PRUSE 4 159 IF INKEYS="6" THEN PRINT fl T x,u;" "■■ LET x=x+2> IF x>17 TjH EN LET x=17 155 PRINT RT x.y; INK 5; FLRSH 1;": .59 PRUSE ' 160 IF INKEYS="7" THEN PRINT Fl T x.y;" "■ LET x=x-2 ■ IF x<3 THE N LET x=3 165 PRINT RT x,y, INK 5; FLASH I)">" 170 LET i*=INKEY* 130 IF iS=CHR* 13 THEN GO TO < 500 RND wVMiWI AND x=5Hn56 RND x=?)H2000 AND x=9 >-k 2503 RND x=il)+C3000 RND ^I.3.h- ^iin AND x=15>-K4000 RND x=17) 185 PRINT RT 1,12; INK c, "SPECT RLK" 190 NEXT =■■ GO TO 145 599 REM SPrache aufnehmen 519 CLS = PRINT RT 1,7; INK 5; FLRSH 1;" SPrache aufnehmen" 520 PRINT RT 3,0; "Druecken Sie bitte die Taste "ENTER-. Dana ch schalten Si^ IhrTontoaTid9*rai*t 530'rRNDOMIZE USR 32855 540 PRUSE 0; IF INKEY*=CHR* 13 THEN PRINT RT 7,0; FLRSH l;"SPr- ache wird au-fQenoinmeri" ■ E USR 32763' GO TO 560 559 GO TO 540 560 PRINT RT 9,0; "Die fluf nahn.e ist nun beendet. Dr-ueckeri Sie -ENTER", urn ins Me-nue z>jit-ij.eg*::zi.i ZX SPECTRUM 579 PHU5E 0i IF INKEYS=CHRS 13 THEN GO TO 190 9 GO TO 570 1600 REM SPrache absPielen 1019 CLS ■ PRINT FIT 1,7; INK 5; FLASH l;-SPr*Ch« abs-Pielen" 1020 PRINT RT S^i'^itte dru.ecke n Sie "ENTER", UN die Hufnahme 1039 PAUSE &■■ IF INKEY*=CHR* 13 THEN RANDOMIZE U3R 32316^ GO TO 1050 1040 GO TO 1030 1850 PRINT fn e.0;"Fer-ti9! Hit ~ ENTER" kommen Sie zui-u.eck ins M 1060'pAUSE 0, IF INKEY*=CHRS 13 THEN GO TO 100 1070 GO TO 1060 1500 REM Aenderun9 won Laen9e<- r ;.P e i --her-P 1 atz ISia CLS ; PRINT AT 1,2; INK 5; FLASH l;"Laen9e.-$Teicr 1 er-PUtz ae 1520 PRINT FIT 3*e*"l>M sifid die alten Werte ! " 1530 PRINT AT 5,S;"Start> " ; PEE K. 32769+25<— i 1535 PRINT RT 7.0; "Laen9e: ";PEE . ;;■:■- :■■■:.■: ■■■■■, :■: ■■■: ■■■ 1540 PRINT AT 9,0;"Geben Sie die ij.en Werte eim" 1550 PRINT FIT 1 1 . 0i "Start ' "; 1560 INPUT "Start bei fldresse Ui ind. 33990> ";a 1570 IF a<33000 THEN LET a=3390 PRINT a 1590 LET x=INT 1610 POKE 32769, a: POKE 32778, x= POKE 32817. a' POKE 32818, x< POK E 32856, a < POKE 32857,x 1620 PRINT FIT 13,0; "Laen9e: "; 1630 INPUT "Laen9e in Byte (bis 32024) ";a 1640 IF a>32024 THEN LET t-3202 4 1650 LET x=INT 1660 LET a=.a-(x#256> 1678 FOKE 32772, a ^ POKE 32773 ■ ;t ; POKE 32820. V2-- FOKE 32821, y./Z-- POKE 32859, y; POKE 32360,* 1680 PRINT 3 1690 PRINT AT 15,0; "Ein9abe been det! Gehen Sie wit "ENTER" ins Menue zurueck. " 1700 PAUSE 9 = IF INKEYMCHR* 13 THEN GO TO 100 1710 GO TO 1700 2000 REN Renderuri9 der Geschwi ndi9keit 2010 CLS ■■ PRINT ' INK 5; FLASH 1 j AT l,l."RbsPiel9esdwindi9keit under n " 2020 PRINT RT 3,9; "Das war die b i?.heri9e Geschwin- di9keit;" 2030 PRINT RT 6, 0; "Geschwindiske it= ";PEEK 32325 2048 PRINT AT 3,0;"Geben Sie nun 2045 PRINT AT 10, 0; "Gescr,windi9k 2058 INPUT "neue Geschwindiskeit < 1-255 > ",9 2060 IF 9>2SS THEN LET 9=255 2O70 PRINT 9 208O POKE 32829.9: poke 32341.9 2890 FRINT RT 12,0; "Die Ein9ibe at beendet. tlit "ENTER" i Mem !■■: liehe . 2520 PRINT RT 3.9;"Wenn Sie -ENT- ER" drtiecken wet-denzwe i nasch i iv ■ricode-Prciyrj.Fnme ab— 3esPsichert. Eines fij.er die fin- £teuerun9 der SPrache ijnd eines. r>ut der SPr be selbst. Mit RRND0PHZE HSR 32816 wird di*R:.ifnahme der SPracbe ab9esPielt. " 2530 PRINT RT 12.8; "Das erste Pr o9rsn.ru uird 9eSRVEd" 5540 SAVE "SPectalkl'TODE 32768. 182 2550 PRINT RT 14. O; "Ferti9 ! "> RT l£,8;"0as zweite Pro9ramrii wird 9 eSAVEd" ..-.■■:■ "SP«cta\l!E"CODE (.PEEK 3Z769+256*PEEK 32770 >.' PEEK 1:277 2+256*PEEK 32773 > 2570 PRINT AT 18. 0; "Ferti9 ! Druecken Sie ruin "ENTER", y.ra weiterzumach 25S0 IF IHKEYS=CHR* 13 THEN GO TO 2600 2590 GO TO 2580 2600 CLS i PRINT AT 1,3; INK 5; FLASH l,"SFiVEn ( f u.er ei9ene Pro9 ZX SPECTRUM 28 :. Sollte ein TRPE LORDING ERROR erfol9en, star-ten Sie d as Pi-o9ramm uieJer mit GOTO 168 u.-frd SRVEn Sie die beiden Mascbi rieno;de-Pro9raMFiie nocheiTinal. S ".en Sie die Kas- sette nun zur- 2620'pRINT RT 12,0;"Das 1. Pro9r > wird neberPrneft" 2630 VERIFY ""CODE 2640 PRINT RT 14,6; "Das 1. Pr-osr- » 9eht . " 265(3 PRINT RT 16, 0; "Das 2. Pro9r i siird ij.eber-Pnj.eft" 2660 VERIFY ""CODE 2676 PRINT AT 18,9; "Das 2. Pl~09r amm 9eht. " 26S0 PRINT ftT 20,0; "-ENTER- brin 9t Sie in das Menus." 2690 IF INKEY*=CHR* 13 THEN GO TO 100 2799 GO TO 2630 iW2 PEN SAVE-.-. (SPECTflLK) fflia CIS : PRINT RT 1-6; INK 5; FLRSH l; 1 ' SRVEn < f uer SPECTRLKJ" 3029 PRINT RT 3,0;"Es wird nun e in Hasdhinenct'de Prosr-iram u,b9e =.f- e i chert , das die auf9enoMroene SPrache enthaelt. Dieses kann n in Ver-bindu.T9 verwETidet uerden. wessen Sie die Option uaehlen. " 3030 PRINT RT 12,1 r-d nun 9e3RVEd" ;:949 3AVE "SPectalk2"C0DE 33906, 32924 3050 PRINT RT 14,9; "Ferti9! Nun wii-d es noth ueber- Pro. eft. SPul en Sie die Kassette rrurueck und laesen Sie sie laufen. " 3969 VERIFY ""CODE 3079 PRINT RT lS.e.^'Es 9eht< Urn ins Menus zurueck- zukehren "EN TER- drueken." 19 IF INKEY$=CHRS 13 THEN GO 109 |0 GO TO 3080 |0 REM LOPiDen 3510 CLS ■■ PRINT RT l,9i INK 5; FLASH l;"SPrache LOADen" 3520 PRINT RT 3.9;"Le9en Sie die 'assette mit 'ier ab9esPeichert i SPrache ein und drue'cken Sie "ENTER-." 3530 PRINT RT 8 . 0; "Prc.9ra.MM wird 9e laden" 3540 LORD "SPectalk2 ,, CQ0E wit SPECTRLK Urn es auch fu "Das Pro9r-am[ii 3550 PRINT RT 10.0; "Pr-oar-amM ist 9e laden! " 3560 PRINT RT 12,0: "Hit "ENTER" ins Menus zu.r-ueck." 3579 PRU3E 9: IF INKEY*=CHRS 13 THEN GO TO 166 3530 GO TO 357S 4009 REM Anleitun9 4010 CLS : INK 5' CLS 4020 PRINT RT 0,11; FLASH 1,"RNL EITUNG"' PRINT 4030 PRINT "Mit Hilfe dieses Pre grammes ist es moe9lich, auf dem ZX SPectru.ms* nthe tij-..-he. SPrache zu er-zeu- Sen - und das ohxu) H a.rduare Er-ijeiterun9en ! Selbs tverstaend- Uch koennen Sie auc h Geraeuscheaufnehmen. Nehmen Si e auf einem Tonband einen kurzen Text auf (die Laen9e k osi-men Sie veraen™ dem - siehe Menue) u.nd uaehlsn Sie den ersten Punkt des Menues an. Der Computer lie st dann die SPrache ein. Ist das Er9ebnis nicht bef riedi9end, aendei-n die Hoehen/Baesse-'Lau.tst aerke an demRecorder. Riles weit ere entneh- men Sie bitte den Er k.laeruri9en bei den einzelneTi Me Mue-Oftionen VIEL SPflSS BE1M 2 UHOEREM ! 4040 PPUSE 9^ IF INKEYS=CHR* 13 THEN GO TO 100 4850 GO TO 4949 S060 REM Maschinencode 6001 FOR ri=32?63 TO 32871 6010 REHD &■■ POKE |.,,s= NEXT nt< R ETURN 6020 DATA 33,0,250,17,0,4,243,21 3 . 254 ■ 254 . 255 . 40 , 250 , 52 , 2 19 ■ 254 . 254 , 255, 40 , 12 , 52 , 24 , 247 , 2 1 3 . 254 , 254 ■ 255, 32, 1 1 . 52 ■ 24 . 247, 35. 27, 12 2. 179.33,241,251 .201 603P DRTR 35,27,122.179.32,224.2 51,201,33,9.259, 17,0,2,243. 73. b2 , 16, 211, 254, e, 3, 16, 254. 13, 32, 249 ,35,78,151,211,254,6,3,1.6,254.13 ,32,249.35,27, 122, > 79, 32, 226, 25! .201,33.9,359.17,0,4,54.0.27.122 . 179. 200. 35, 24, 247,0,0 ZX SPECTRUM Zusatz-Tastaturen fur den ZX Spectrum 7 Modelle wurden geleslet BSjxsWuw*! Die* ZX SPECTRUM Spezffikationwi *w*. dklronics Li bersiclilstii belle Ricoll Profltastatur w IB) MM. Aufsatztastatur Tastananzatil 52 62 42 47 47 51 ill Tastenbeschrtflung aufgaklebt autgeklebl autgeklebl (o) linterKlar- s.TypA aufgednickt unlertranspa- dBCkungenM+l TaBtanfunktlon - t. o Plalineneinbau ja ia *» nein & ja nein Interface 1 Einbau nam fi anateekbar fiber Adapter liber Adapter ia ansLeckbat Netigerat-Einbau ja ia neii nan nein J8 nein AnschlulS iiberStBcker Liter Sleeker Liber Steckef Qber Stecker fiber Stecker ubar Stecker aufgeschraubl Zehnerblock u.gioBe Space-Taete Shift-Taste gro6e5pace- Enter-Tasle, £ Symbol- und sor-Taaten, gr. vergr. Enter- u. Preis: &L16BDM 179 DM 198 DM ca.170DM 196 DM 21 8- £49 DM 79-98 DM BNumnOc 1000 Berlin 12 EL, Stephen TrieSme sooo Hamburg 50 Egriler ££» ££» Umlaute fur den Spectrum 993] FOR K=l T'J 6 EEfHU P* • FOR NfB TO 7 ■■'?~d f'EHt' R : POKE U3R P*+H,R 9393 NEXT N< NEXT X —'■66,68, 66,86/ S2SV« 3994 [JHTFI ' ,66,0 9995 DflTR ■ ,0 9996 L'FITfl ■ 60-8 9997 [IHTFt ' 6.0 9993 DflTFI ' 0.0 3999 L'fiTR ■ .0,68,56,4,69,68,60 ".66,60,66,66,66,66, 68,56, 68, 63,63,5 ,0,66,66,66.66.6 53. 0,63, 63 .68, 56 Hindernislauf 138 CLS IE0 PfilNTSS, "HINDERNISLAUF" 170 PRINTS32. -|HH»«*»*M I WI* I ■ # ■■ »» ItlMI I W 1B0 PfHNTSI419, "COPYRIGHT BY M. HUH GEN ROTH' 1 210 S0UND5B.2 220 Z=8:PMDDE1!5 250 DRflU"CEBM0. i'S THEN G0TQS5B "i,PSET ELSE PUTtk Computet Kontakl 1 1 /B4 BERICHT 32 Das Genie 16 KompleXEyslems (GE- ck'ni .ieiitsdmi Markl nciic id.hl.rA-^um-.lfnki.™:-™.' ■ilLmjT m( Maflslabe Dieser Contputci deren PC-kompaiiWiTi \U-.,h\- .-.:■ ■ ■■ . .. ;■::■'■: triehssysiero AT-DOS 2.1 (jfral i'[*a licppull su ithiiL'M ™ tl ™°i;: weiMf.iikiiSreld.erknpni.lSI wir Jit PC-kiJTnp.iliblcn Ma- rch] lien mil dem Processor pdsi: ilijsi.- Mil-Spur Laufacrkc Pte; GENIE Id wild in ;wei FiiiKi'ittn arSirtcrt Beider.V j.-wHIs li Zi'ichiMi Irci pn> tenem rfek-Basjc. is GENIE 16 lauffahijies Syslem iiline [lis- isMiiiteincrdeutsclienTaitntiH ROM-Bask uiid dcr Spcicher- rienmaBig). n..-aiKlH t ,i „:r KsBBtte BbH QaitmiclBytrtly Zum An- Computer Kontakt 1 1/B4 Die Stiftung Waren test hat zugeschlagen ! Ohjektive Produktbeurteilung odcr Stimmungsmache ■em i rivi-Ni am iifm iji'.- = ■ ,j „7i \ v . ... j i." '* « ivsn-uidUKB ua> ai- >lemeMaTion des wcii t'r~ liTdin * i ail: ■ s - iIe " *"' lll: " « [I ""-r Hrnipliinnc n,-L. »iul ,^1,-fmi^ ijrltJ aus Fiii dun itetenCP/Mspaitllfflrlfr- 5^^^f^^£ abge,ehnt - Neuling dieser Materic Oder ComputerKontakM1/84 VC 20 34 Bach-Melodie :B2B rem bach IB3B REM 1O40 REM MELOBIE ieee rem ce> is84 1B6B REM COFYRIBHT 1130 PDK£3SS?9,S uea pRiNT-ai MSB PRINT- U T * a m isbo print- a « ■ ■ a ■ IE4B print- mm a a a a a ■ laso print- ■« ^ mi a ■ issa print- a a a • a a am a ■ a ■ ■ ■ iaan print- praesentiert 13BB FORWSMTOBBBlhEHTldS 13 IB F0RJ-SBTO127IPDKE368B5,J!NEXTJ 13EB PRIMT-LJBI BACK MELODIE 134B PRINT-aa 1984 !33B PRINT-B COPYRIOHT BY ML -SOFT 13SB PRim--«l -> MICHAEL LIEBE <- 1378 PRlNT-a-> MARKUS LINDEMB(*I (-- 1380 F0RJ=127T0e5STEP-l iPDKE3Bfl65,JifCKTJ 13SB PRINT-MB ANFHNOEN < J/M • I4B6 BETJN»r]FJN*---THEN14BB 142B PRINT-J- 144B PRINT"* BHCM MELOOIE " J IA-A* 1 : IFA-HTHEfW-1 146B REA0T:PQKE3B87B,T 147B READUiF0RLB = lTn33tU:NEXTUS:hCHrra 1S7B DATA 2,239 2 233 2 £34 2 231 3-235 2 — Computer Kontakt 11 /B4 VC 20 35 CompuierKorrtakt11/S4 VC 20 36 Computer Kontakt 1 1 /B4 HLS-SOFT Computer Kontakt 1 1 /84 COMPUTER-BUCHVERSAND 39 Assembler §=| " /■ : .--~ TZZTJi. >> ZX Spectrum, ZX«1 und Jupiter Ace COMPUTER-BUCHVERSAND KlauB-Jtirggn Schmidt; Georg-Peler Re m Main uragon 32 Dm aroe* Spieiebuch (Or Atari B I COMPUTER-BUCHVERSAN D ndDbungsbuchfO-Con.. ^t^^™' Basic CompuMrSpleleBd.l Program™ zum Le ZX-Spectrum, ZX 81 '***<* '^ m *. WTttiQ.SIagrnBr Proaran.mlar.nlr, Buic und Campw.rm-wd.rn.Mn.zXBI 8502W5CI ™id«nZXer undSpKlrani Helse 198: Hofad«f19B2.1ies., " Lcb^rtdie'^rade^^T' Bamme laufeiTbis zu ill mid ' thl ' i als dcr * tleiDe Binder.. bci, das 5 Sciten umlalit, was schncUei ab ) ' AnUitJchi is: es n,,;>i:!i,h. mi! ahci viillic amreidll. Die Ao- !;■;.:.!,■ i ■,:,!■! .■,:.■■■ y: : ..... ..:...-. ; . ... ..... ;.:■ : ,.'.., ....,,.■, [,. : . ,. :|l; . schiDcosprachc EcschriclKii. ,j cn U- Iwnlfn Compilirn urn Vurlcil de< Compilers isi'dni- tlso Echnlcr Craiipiliernirjjaris [NTEGFK-Compiki. ii ( ver- Oesi-hwindigkeiliiingenjiig. raian. Nacbdetn dei Cornp le t h hmal ,.in paaj B BEEP I/Ill.... Dii' i.-1'nij-i. NmhNi' drs M-Codas: (BASIC-Cumpikr) ■i;.i Prograaao sjnd z.T. Creisr ca.3S.-DM hi schneU. fla FOR-NKXT I) Her M-Coder hal dn,' fcii Swem: ZX Spsclnim I.V4KK blffli-n OL5iu UHix srhivlJc. aii£di.;.k- V:i- ;.;i j, rir:ilK;l= vm IriTKli-lfcr: Fronton. s BASIC, bci PRINT ?■ iOr.1 Bvtes fmfiina. Wcnn man wi™zd]L„- Computer Konlakt 11/84 Wersiboard »Musik 64« Compulennusik mit dem Wersi-Keyboard >Musik 64* Das Program iri .>Puh M- cr- il,6,:liLill i:n -. I r ^- : -. ! -.li- 1 1 j L\ [<■['.■ Ki.-VTii;i[:1 :.;.."!-. dur .link" :: DasWcrab^.M^kM.^ Waveforra boardlaslen glLrithL'Lj i".:y iv- verandern will. Da7u verschkbl ww (vorcingi;bldlr: K'ul. 1 ! >L:]nnii. auf di'm^ldHdigsiUnlli- Duly Cycle ilfiSi-iii-heri. ciii .lei MDiSyimd (Tastverhaltnis eckscnwiueutig) tggt. WiJ IE an koinpleser; Keyboard ^iim Bespielen frei- KISniK mcugL-n. sn hedk-nl dtt gill such hicr wicder, daB tLiyb.'ii D'lr^h Driickcn tfer .MmmC^.Mankartilhieraijf ;ol;e,Uc Klanj-Tparaniticr vcr- dem Keyboard n«r nratiophon Die einzeloen Parameter J**_ H , b ™ C64 « weiler daistcllt. Bcim Pr,^i,,.i-.n FurC64 undVC20 -i'ui.i W- .,r.J die ,TZ,.:!h,„ t n M.. dcm Eprom-Pmg,™- bcfriedigciKie^ ■ ;■•■ versorgungis(j]idi(m)iw:klis 11™' '"d^P™™ U ™Jc erne hochwertige Aus- SIC-Proglamme bis I6K ak ■ ausget'allun untl Jiirfle j.st die Geraltnummcr unit s £^rxr . s fTj_ „ sSHSSc =«'-"=: '"" Sprites erstcllcn ^mBUPRIMT-r.'WRtdEBJ.TdB^B^^SBJi^T r-|T"E^c RFi ' 70e3:Pf " NTCHR * 6622THENPRINT"DATA-FEHLER"iEND 310 DATA 240,006,032,121, 320 DATA 008,173,032,135, , 330 DATA 249,178,002, 208,242, 076, 00B, 003, 140, 009, 003, 096, 032, 115, 000, 201, 033 076,231,167,032,113,000,201,146,240,003,076 ,002,162,090,160,200,136,208,253,202,206 C64 X=1THEN:!WA1T(Y). THEN-Abfiage direkt zu Prufsummen- Generator + Indikator ;«taettnitJMP(776|de lerikiuiAcrt. crlordertich. D, 1B0 REM COMMODORE S4 S"*-siS>E: \ll REM ****"*""**""*""*"' ***« ^t^",^^ k^"'B 130 REM III PRUEFSUMMENSENERftTOR 140 REM *** m '^^mmm B 130 REM **> (C> 6/1384 BY 1G0 REM **» STEFAN MflRKOWIT? 170 REM *1* VON-KETTELER-STR. IS 180 REM If* G100 DARMSTADT J;: v ; ™,! ;: ; 220 PR1NTCHR*(147>:REM 41 230 PRINT"PRUEFSUMMENGENERATOR":R M 193 REM S36 330 IFLEN(N*:>>14THENPR1NT"NAME ZU LANG !-:END:REM 2 IB 2S0 aPENl,8,2,N*+",P,R"!REM 2G 270 OPEN£,B,3,N«+"/R,P.W":REM 175 280 BOSUB430:PRINTIt2,G*;:REM 19 mitSlMON'sBASIC Die An- 290 GOSUB430IPRINTH2,G*>" :REM 23 den mit: POKH 770. 300 GOSUB430:PR1NT*2,G*; :Z=GiREM 310 eOSUB430:PRINTtt2,G*; :Z=Z*G: IF ^0THEN4B0:REM 4 ri'KN>. Bcidt POK1:* '««•■ :l-is in diu't A'ilc cin^^clx^ 330 GOSUB430: 1=1+1: REM 200 340 1FG=0ANOI >3THEN400:REM 33 350 PRINTtt2,G«! :REM 251 DATASETI'E: DasProgramm 3G0 IFG=34THENQ=-Q=REM 250 »iB wit KaseltenupcmlioiBti 370 IFG=32flNDQ=lTHEN330:REM 124 330 1FG=143THENR'1:REM 117 390 S=StGiGOTO330:REM 41 410 IFR=1THENPRINT#2,G*; SGOTO300: REM 244 Eysy,^. 430 BETttl,G*:REM 59 G*; :GOTO30B!REM 185 RufenSkinI 448 IFG*=°"THENG*^CHR*<0):REM 177 430 0=flSC !^nth n ' t t-*5D IT 40 forze = itto0stBD-1:printgl$:cnr 1750 *=peekljy):ifa>2i9tbensysigiU *.n*st».*t ,157);- -chrSUIII iJao 1 f"-ii9tn Br " r -i° 1830 KpeektsploSZthenlOao I860 ifpeeklv + 31)OOthenl*BO 1090 ifpeeklsp)MO2then1»70 Computer Konlakl 11 /B4 I,?55:fort=15a5to160l ^53?*B:pokev.2B.!55:poKev07.5:pofc OOke!0(0.n:ookeJ011,U:pokev31,0 Die grofte Commodore-Show Einige Besucler liefltB il<* das ElnQitte£dd wleder zi- rOckgebcD, »til in der Ctbt- rlulllen Halle ki'ln Weiterkon- mi-n mtlir war: 25.0UO BesiKber draiiutrn sicli wahrcnd d.r drvitaRiuen .rini™iudor<-Snnei^Sliim« In Fraiikfurl ■■■■■■■■■■ ■■■■■■■■■a LESERFRAGEN ■■■■■■■■■■ mil gruBcr Freude LESERFORUM , CP/Mlur Atari? Oriel ORIC ATMQS fif die Vteiltr- tuinwktwtmitvOltH limiinii! BASIC 0.a.) |,,&iltL' !.i: :.:, verbessenimdemif.- ::,-<■■!,:,■..,:■; Raw ant ,im nmnlm t!andse- ilini .-1 IMO's wid t„n=0 THEN GOSUB 4003 1130 SOUNC C,O,-::,0i30'JNr j,25.--4*Y,3,i:50!JNL l.A-3,10,4 111(1 POSITION 1,0:? #6:";.:";J-U_-T:" i'!Jr."7E: " ;3Ci" " 1115 POSITION 1,23:? #6;"LEBFN: ";LEB 1130 if x=ia and y=2 then gut=i 1130 IF X=2 ANT) Y=21 AND SUT=1 THEN 3000 1140 LUFT^LUFT-1 1150 IF LUFT=0 THEN 2610 1160 POKE 756, PAGE 1170 3ET3GL0E 1,5,14:SET00L0R 4,9,3 1175 SETCQLOR 0,1,1:SETCCLQH 2 . 12 , li : SETCOLOH 3,1,1 1200 ?0R N=l TO 30-WT:NEXT N 1210 COLOR 2*CHA*161:FL0T X.Y:SET00L0R 3,12,5 1220 IF CHA=1 OR SHflKf THEN CHA= NOT 0HA:GOTC 1250 1230 IF CHA=4 THEN CHA=4.5:G0TO 1250 1240 CHA"4 1250 REM J30C GOTO 1000 2000 LOCATE X+RICH,Y,Q1:L0CATE X+RICK. Y-l , Q2:LOCATE X+RICH,Y-2,q3 2010 LOCATE X.Y-1.Q4: LOCATE X,Y-2,Q5 2020 y*—3,5»RIG^fe?.5 2030 COLOR YY:PLCT X,Y:G0SUi? «K»SlS 04=14 THEN RETURN 2040 C01CH YYiPLOT X, Y-l: COLOR OiPLOT X.Y:GOSUB 3000 2050 IF 9fi<>14 AND 1)1=14 THEN COLOR YYiPLOT X+RICH,Y-l:COLQR 0:PLOT X,Y-1:Y=Y-1: ;■;■■=;. . i,i ■ .! ■ n;:00: RETURN 2OB0 IF 05=14 THEN COLOR OiPLOT X.Y-1: COLOR YY:PL0T K ,Y: 2CSUB 9033:RETURN .--70 ,'ui.oa YYiPLOT X,Y-2:C0L0R 0:iLC: X,Y-I:C03UB 9000. 2030 IF Q3014 AND Q2=14 THEN COLOR YY:PLOT X+RICH.Y-2: COLOR 0:PLOT X,Y-2:G0SU3 t H PETURN 2090 COLOR 0:PLOT X,Y-2:COLOR YY:PLOT X,Y-l:QOSUB 9000:PLOT X,Y:COLOR 0:FLOT X,Y -1: GOSUB 90O0:RETURN . 2500 LOCATE X*RICH,Y,gi 2501 LOCATE X+RICH.Y+1,02 ibO; LOCATE X+P.ICH,Y+2,Q3 2503 IF Y<21 THEN LOCATE X+RICH.Y+3.04 2505 IF RICH— 1 THEN CHA-4 2507 IF RICH=1 THEN CHA=0 2510 YY=(-3.5-RICH+167.5) 25-0 1*> 01=11 THEN COLOR (167.5-S::iI/.-:.:l-'LCT X,Y:G03UiS 9000 ! RETURN 2530 COLOR YY+llPLOT X,Y;CCI.OR YY+2:PL0T X^ltlCH, YiGOSUB 9000 2535 COLOR 0:PLOT X,Y: COLOR 2-CKA+16 i : PLOT XtRICH.Y 2540 IF Q2=1J OR 02=2 THiS X=»RIOH:RETURN 2550 COLOR 0:PLOT X+RICH.Y: COLOR YYiPLOT X+RICH,Y+1:G0SU3 9000 2555 X=X-*RICH:Y=Y+1 2560 IF Q3=l-'- €■■! S3=E THEN RETURN 2570 COLOR 0;=T.O! X,Y:COL0R YYiPLOT X,Y+1:G0SUB 3000 2590 IF Q4=14 OR 04=2 THEN RETURN 2-,-r- "(yi ' ti=-' TO :1;-OLOR 0: L 'LOT X.K-1: COLOR. YY:PLOT X,N 2005 FOR K-5-N TO 5*N+4:F0R KLO TO 3 i SOUND KL,K+KL,10,10:NEXT KL:NEXT K: GOSUB 9 00O:KI;XT NiPOP ■ 2610 LEB=LEB-l:S3-{ABStABS(Y-lG)-9)*A3S(A3F(X-lB)-B))«(GUT+l) ?6?0 GRAPHICS :7:P0KE 7 5-5 , PAG K : ? #-3; SS ;"<<.<<". "PLTNKTE" 2625 ? #5, E 1 ' + T!:";1EB,, 2S27 POSITION 9,5:? #6:"' ' """ " 2630 SC=3C+S3 2B40 POSITION 0,10:? fr::":.'IK blsibt IK ":FOSITION 0,12 2650 POSITION 0,14:? #5; ;Ju-3C"33HWiLj?T;"< einhoiten 2900 GOSUB 510:IF LEB=0 THEN 300 Computer Kontakt 11/84 "*_ ATARI 2910 GOTO 310 3500 LOCATE X-1,Y,Q1:L0CATE X+1.Y.Q2 3510 IF 01=47 THE!.' SC=SC+50: 10L0R ' : PLOT X-l ¥ 3520 rr 02=47 THEN SC=SC*S0: COLOR 0:PLOT X+l 'y 3530 IF x>2 THEN COLOR 0:PLOT X-l Y 3540 IF X<18 THEN COLOR 0:PL0T X+l.Y 4000 BR=X+RICH:N=10O 4010 LOCATE ER,Y+1.Q1 4015 SOUND 1,0,0,0 4020 IF 0.1=15 OR Ql=a OR Ql=14 THEN RETURN 4025 SOUND l,N,10,5:f*=N-4 4030 COLOR 2: PLOT Bfi,Y+l:4K^3= +a T«H;-30TO 4010 7000 REM ANFANG 7010 GRAPHICS 2+1B:? #6;"BITTE WARTEN SIE EIN WENTG " 7011 ? #6, ,"r 1 1 y d o 1 1 y" 7012 ? #6., "by Clemens, meier",,, "(0)1984 " 7020 SOUND 0.0,0,0:SOUND 0,A,10,10:GOTO 7040 7030 SOUND 1,0,0,0:SOUND 1,B,10,10 7040 IF AA=0 THEN READ A,AA:IF AAOO THEN 7020 7045 IF AA=0 THEN RETURN 7050 IF BB=0 THEN READ B,3E:IF BBOO THEN 7030 7055 IF BE=0 THEN RETURN 7060 AA=AA-1:B3=BB-1:(J0T0 7040 7070 DATA 251.25.60,25,132,150,45,25,45,25,40,25,35,25,45,25 35 25 40 ?5 7200. TATA 0,0,0,0 8000 SOUND 0,120, 10, 10:GOSUB 9010:SOUND 1 ,96,10, 10:G0SUB 9010:5GUND 2 81 10 10 OSUB 9010 8010 FOR [1=1 TO 30:30UND 3,60,10,12:G0SUB 90O0:S0UND 3,O,0,0:NEXT N 3020 FOR N=0 TO 2:S0UND N,0,O,0:NEXT N 8030 GRAPHICS 17:POKE 75o.PA.ir;:? *o;:.:.;hw."i. ?j+LUFT,"PUNK?E" , , ."GEKCEF.EN EI?" 8040 SC=SC+SCHW'30+2C+LUFT 8050? #6i, T "GESAMT:%&«&"iSCi"-,-,",,"LEBEN: ",LEB, , ."START" 8060 SCH1£*SCH1H-1 - 8070 POSITION 0,10:? #6;"DIR bleibt IM "rPOSITION 0,12:? #6i"na8chBten SPIEL":] 6060 POSITION 0,14:? #6;.iJ3-.;;;-f;:fr*i-LUFT;"< einheiten LUFT" 8090 POSITION 7,5:7 *fi:" """ """"" " 8200 GOSUB 510:GOTO 310 8800 7 #6,SC:FOR N=l TO 400:NEXT N:GOT0 310 8999 GOTO 8999 9000 FOR M=0 TO 15/SCHW:NEXT M:lirr=lirr+15/SCHW: RETURN 9010 FOR M=0 TO 15iNEXT H:flETURN 9130 REM **» ' *.. 9140 REM '" ROLLYDOLLY — 9150 REM *** 9160 REM •** by CLEMEN'S MEIER *** 9170 REM »•» «.* 9180 REM *«" KIRCHMATTENWEG 8 **" 9190 REM "* **> 9200 REM **" 7833 RHEINFELDEN/5*" 9210 REM *** i i 9220 REM "* TEL.:(07623)/40931"* 9230 REM *** **» 9240 REM *** 155 AND (A<65 OR A>91) THEN 90 110 PRINT CHHS(A)I 120 LET A$=CHR$(A) 130 IF A=32 OR A=155 THEN 90 140 LET C$=STR$(V(AJ) 150 FOR l*=l TO LEN(C$}- 160 LET D$-C$(N,H) 170 LET C-VAL(DS) 1B0 FOR L-l TO CIO 190 SOUND 0,50,10,15 200 NEXT L 210 SOUND 0,0,0,0 220 FOR M=l TO 5:NEXT M 230 NEXT N 240 GOTO 90 250 DATA A,13,B,3111,C,3131,D,311,E,1 250 DATA F,1131,G,331,ti,llll,I,ll,J,1333,K,313 270 DATA L,1311,M,33 1 N,31,0,333,P, 1331. Q, 3313, R, 131, S. Ill, T, 3, U, 113,7,1113 280 DATA W, 133, X,3113,Y, 3133, Z, 3311 300 PRINT "W1RSEPR0GRAM BY TT64: SCHREIBEN SIEI " 310 POKE 16,113 320 FOR N=l TO 26 330 READ A3, 3 340 LET V(64+N)=B 350 NEXT N 360 RETURN .000 REM «•««•*•»*•«*"*"*»•*"***" 010 REM * Morseproeramm * 020 REM ••*»******»**«»***»***•»•••* 030 REM * ATARI-Club Kleinheubach • 040 REM * Thomas Taussnd * .050 REM * Am FelEenkoller 15 » .060 REM " B764 Kleinheubach * .070 REM * Tal.: (093713/4647 REM ..**«•••**#*****•****.»•**** REM • (o) 1934 hy TT64 * 100 REM *****•«"**«**«********•">•'« C„put.,K.naMIVB4 ATARI .1 HEX-DEZ-Umwandlnng KSSSU^ SiS 1 """"- 10 DIM M$(120) 20 MS(l,''5)="CLB:DIMHSC1):»-l/16:? _ HEX' i :I.#0!yj:FORN=LEKCH$)T01ETEP-l:A-AE N , N ) )-48 30 M$(76,ll7)=":A-A-(A>16)"7tM=16'M:D=I>i-M*A:N.N:'>'DEZ "-D" 40 OPEN #1,9,0,"D:DEZER" 50 FOR N=l TO LEN(MS) 60 2-ASC(M$(N,N)) 70 IF Z*=39 THEN Z-34 30 PUT -#1,Z 90 NEXT N 100 PUT #1,155:END ) REM • HEX- DEZ-Umwand lung " ) HEM •«••»••*••.».....«.-..»»., 140 REM « ATARI-Club Kleinheubach * 160 REM « Am Feleankeller 15 * 170 REM * S764 Kleinheubach « ] REM • Tel.: (09371J/4647 * 200 REM * ( c ) 1984 by TT94 * 10 DIM H${150) 20 «SCl,4e)="aE:DIHH$(4),A$(16)iA$=-0ia34567a9AfiCDEF*:M-4096 M ■JlmeKrHEX ^i ,I - #0,D " 0BWT04,a - D,T ^ ,, J ! H*(».M>«( W i.8n) lD . D . z . K 40 OPEN #1,8,0,"D:HEXER" 50 FOH M-l TO LEN(B$) 60 Z=ASC(M$(N,N)} 70 IF Z=39 THEN Z=34 80 IF Z=37 THEN Z=15E 100 NEXT N 110 PUT #1,155:END 120 REM *.*«.,.,-,..•..*.*..»«..,„ 130 REM * DEZ-HEX-Umwa rid lung 140 rem **»*■ >■ ■ « ■ ■ n mw Mwimm 150 REM * ATARI-Cluh Kleinheubach 160 REM * Thomas Taueend 170 REM • Am FelBenkeller 15 1B0 REM * B764 Kleinheubach 190 HEM > Tel.: C09371J/4647 DEZ-HEX- Umwandlung Computer Konlekt 11/84 ZX81 62 Tiirme von Hanoi 411 T f i 7^7y^-1"'J" 260 LET D-URL INKEVJ 20 PRINT 'TUERHE UON HONOI SIS IF oil OR e p«3 C THFH i LET F-3. .:.-.(■■ ■■:?:■■ :■ . :■ - :■ :■; /,.-■. •■;■ : : ■.■;■. 333 IF R ' ' ■■■ - ■: : - ?flTG 3SB .. |SbIGOFT E g£ | ,*Hi^ ■""'■' ■ ■. ■ ' 503 LET R IF, R ir ,S) +1J =H l£,fi IE, 3 S2E LET R -± .■MS .■'■•»• 40 InpUt Nt 54.0 RETURN <3-N THEN GOTO 67« 120 let |ll,« ■? 680 ir INKEVJ=;" THEN GOTO 60S 63o ir inhev*i>"j' then eoto se ISO LET tI(5>." .HV.' 193 LET T*C6)-" Mj^h" 708 PRINT "5PEICHERN E>ES SPIELS aOB J.ET T* (71 =" .^^B^K aie let t* ="flBI^B " ifkl MlhJf Af 14,3; ''l S 3 BBO PRINT RT 17.. 7., "NICHT ERLOUB d B e 7";rt ai,S; "i-3 i-3 111 IF INKEy|T>"" T THEN G GOTCl*sfs 2=B FOR N.i TO 7 I.TBB 1S,T( tH f2,Nl il5 ;TBB sl,T*f 900 SRUE "TUB" 243 PRINT RT 6,6; "|S";TflB i«; "K" ;tsb as; "»■■ 98B GQT ° 1B Hexd Computer Kontakt 11/84 Kasekiste ZX81 =*« ae PRINT "ERHRELT EINEN PUNKT . NT ERV2I)] &ER SEUIN- HE: ■ ■>-■ V^a T - isl bis n *^-s)=''iiP J5S JE 5? =312 THEN GOTO 5B0a ill Is £ ™" N °°™ " ■IP Js'ss'liri ' •rtSMsgoE? 203B FOR N-l TO Z 5040 PRINT JJ; " . ■■; 7HB 4: 506O PRINT N«IN);TRB SljCfiR* Its an gj Bf (ST C^ 8 *)Mk SP*» *F71 ! 1 c„„p„„K«.,™ TI99/4A H Liebe Tl-Freunde! un K. Hagrnhuchncr "'..rife- lich dtr Ucfchlsvortat umfi Be- giht es noch dar. Oucil-l iMin»° i'it,-;iiL uLn-[ das Asscmblerli- rafcr fiber das Poke-Programm. '4 °" Quell-Listing -"■•-*' %t"> ™ "»■*»" ».-"-•"■= | ZllllSSt 1 _ i«- C(i =ip.„,£pp =;; ^ TI99/4A t^iS^ ',,,,„, «. |&c * '" Eg' KfSiiK . ■■ ■.. WBfc :.■!■'; .:';■; ;- \ .'-'-: ,;-:.".'.; !'.., mik j^S™ W&m*m :•-?*- !li iikr tSI*'!™ jT-'T-'.; ■■"■■" : h,.™ mwmm s^p 5W " jHlffli MB&ggS**" IBSnSF™" !•„■«*■■» s~: :- : ■■■■;-■■ ™.,„ IS £&£rarcs Poke-Liste POKE LISTE FUER SCREEN EBSTELLT TOM H-P SCHHWRNECK KONFIGURRTIQN EXBflS: Din cHaeej s;e TI99/4A ee 470 DATR 15,14,6, 168.49, 130,6,7-22-252.4- 224, 131.124,2. 224 480 DATA 131'22*'*-96,0. 112,2-0-30,0-4.32,32, 52, 6.1BU 490 DflTH 49.'- « .S'l im i4l 1 W 50O DATA 19,246.i6,233,194,139,2,l,12B,B,192,4.1J.:.lJ4,*,,ji 310 DflTH 32,32, = -123-6,2,22,251,6-160,^,230,19S,4,l||.I34 328 DATA 2. 3,48. 10, 208,115,4,32. 32. 32. 3, 123,6,2,22, -2=B 330 DRTA 6,160,49,238,4,90,2.6^ _-S 540 DATA 3,63,2, 224, 49, 10, 200, 32. 49,240,30.70,4, 192,4, 1SJ 338 DATA 2,2,0,3.2.3,49, 13,6. 160. 49,42, 6'16B-43,bb 560 DATA 3, 137. 2, 137. 3,239, 21,191,194.137, 2,42,23^.1^, IB. 36 570 DRTR 2,42,4,0, 192,4.3,0.8,8,4,32,32.40.239.63 600 DATA 3.138-6.2.22.243.192.4,192,73,6,193.4,32,32,^ 610 DATA 5. 132, 6, 6, 22, 213. 4, 96, 49, 138, 2, 224, 49, 10, £,* 623 DATA 0.3.-1 2, i . l«-a-a 2, 8,2.2.3,8,28.4.32 630 DATA 32,32,3,128,6.2,22.251.4,96,49,139,16.0,2,224 640 DATA 49,18,200.32,30,143,53,70,4,192,4.193,2,2,0.3 630 DflTH £'3,49, 18,6, ISO, 49, 42, 6. 160.49, 66,194^13^, =,1JB 670 DATA l^fsfli^ie^^, 0^29^6, 7, 6^13, 199 ' CM DATA 187135,162.7,283,72,4,32,32.32,4.96,58,16,4,96 693 DflTR * 9 ' 13Bj2 ' 22 *'^'' a ',i; 2 ^ j ^ e ^|;|y;l ^lUyi^ai 710 DATA 2 Us* ■" ~ " 8 ' 8 ..,, 72B DOTH 208.242,9.131.2,131,8,28,21.2.200,3,51,70,183, 60 DATA 0.2 22,233 750 DATA 2,1,48,11,2,2,3,23,4,32.32,36 7S0 OATA 9,139,6,2. 133 IS? ,3 l'f! -iSj. 1 7TJ8 DflTH 19,2.4,96,49,138,2,- '15,324 790 DATA 4,192,2,1,0,1-2.2.48,10.200,32-48,7,43,7 388 DflTH 19,3,212,168,43,6,16,2,212,168,43,4.4,32,32.20 010 DflTH 233, 210, 3, 131, 168, 131,3- : 134,32,48.2 028 DflTH If, ■..?. 10.7,32,43,7,6, 160,31,128 038 DflTH 288,224,48,18,9.131,193,3.168.194,212,213,6,3,212,224 840 DATA 48,3,6,3,6,2,6.4,22,248,268,210.9,131,10,147 858 DflTH 212,131, 4,96, ZHI.231 ■ '.'je. I.Z 23?. 216.20,5,7,96,47, 196 860 DflTH 22, 19,6. 12, 21, 169, 4, 224,47, 1B8, 192, 168, 47, 170, 2,34 870 DATA 76,65,35,70,33.' SS.S2 BS,32,51,10B 880 DATA 67,79,76,83,69,84,30,142.67,76,82,73,73,86,38,106 390 DATA 73,78,86,69.82,83,49,242,66,76,73.78,73,32,49,76 918 ! FRUEFSUMI1EN DER QBIGEN ZEILEN M0DHTH 1973,1237,1323,792,1113,1298,968,1473,1214,1320,1733,1137,1131,1468,880 gio^ATA 1379, 1432, 1672, 1296, 1402, 1 189- 1062,733,733, 1303, 1321, 1424-885, 1288, 1338 958*DATA 399,966. 1339,617, 1338,629,682,733. 1178,967,322, 1007- 1083, 1884,699,329 960 DATA 961,1246,968,1096, 1445,1232,873,390,1512,1339,976,604,978,1673.377,2047 970 DATA 1063,1712,1317,1293,1268.1287 998 I PRUEFEN flUF KORREKTE EINGRBE DER DflTRZEILEN 101O CRLL CLEHR i i PRINT 'ICM UEBERPRUEFE DIE DATA- ZEILEN. BITTE 1 MIH. WRRTE FOR 1-1 TO 70 ■• REHD CKD-' NEXT I SUFK>CH" STOP 1 040 NEXT Z 1058 PRINT "EINGflBE KQRREKT, JET2T WIRD CEPOKED" 1068 CALL INIT 1078 I 1088 I XMLLNK ROUTINE IN RAM POKEN 1188 RESTORE 288 " FOR 1-9266 TO 9311 '■ REHD fl I' CALL LORD" NEXT I 1028 RESTORE 938 '■ FOR 1-1 TO 70 ■• REHD CH(I>" NEXT 1038 RESTORE 208 ■« FOR Z-l TO 70 ■ i SUM-0 ■ :_FOR_I-' imputar Kontakt 1 1/8 J 1120 t HAUPTPROGftRNM IN RAM POKEN 1158 f EBT0RE 23B " F0R I * !a2Ba T0 >«Wi '■ READ A u CRLL LQAKI,P tlfiB I B6F1>EF TABLE ERSTELLEN 1178 I 1190 HE8T0RE fi7B ' ' F0R *"MS°* T0 1S3S3 ' ' READ ft i : CALL LOADO.fi ! POINTER AUF REF'DEF TABLE Fassadenkletterer 110 REM *m COPYRIGHT 6V 120 REM m» H-P SCHWANECK 130 REM «■*** BRAUNSCWEIG * 140 HEM **•** 27.12.83 »** .100,lDO,-2a+RND»40,-20+RND-4D):: NEXT 1B0 Z^IO :: M*= '■FASSADENKLETTERER " :: SOSUB 750 170 DISPLAY AT<17.1) : "WN H-P SCHWANEC* BR AUNSCHUEIG TEL. 0531/324303" ^f^AY^.U-ANLEITUNG? U/M) " >J " !! «CEPT AT(23.20>giZE 1 -l> U ALlDATE- JIMJn JlfiNTt i: IF ANT*="J" OR ANT*="j" THEN 210 ELSE RETURN 210 CALL CLEAR :: CALL DELSPRITE(ALL) 220 DISPLAY ATd^li-BPIELREGELW £ 30 «™ P ^ fiT(3 - 1):,,, :"D1E GEGENSTAENDE HERABW1RFT. WIR ^n^ I ^c, E ^^ ,V SETfi0FFEN0DER BERUEHRT ES DIE GESTALTODER DIE VORBEIFLIEGEWDEN" 250 DISPLAY ATC12.1 1 : "V0E6EL ODER LUFTBALLONS . " SO STliERZT DAS MAENNCHEN AB BEUOR DAS MAENNCHEN LEBER 260 DISPLAY ATtl^Ds-'DEN OBEREN RAND KLETTERN KANN, MUSS ES EINEN SC HLUES5EL FINDEN. DER AUF EINER FENSTERBANK LIEGT." 270 DISPLAY AT<20,1 ) : "DIESER 1ST NACH DER 4. RUNDEUN5ICHTBAR. gr STEUERT WIRD MIT JOYSTICK NR.l. ALPHA LOCK L0E9EN jND EINE TASTE DRUECKEN" 280 CALL KEY:: IF B=0 THEN 260 ELSE RETURN 2TO DATA 2111OF0303D303030707a'.040C3B0OD0eOa0FDCB«C0C0C0E0EO202D2020203B OlOlOfl ■ 0060DFFFFFDFBB1 0200101 0000O030C0E070FCF4FCFF70E0C080OD0D00 300 DATA O101OF-i323G3O3030707O40<.O40404-iCB48aF0COC0CDC0CDEOE02O20301COi]00 □FOFQFOF0F0FO7O3O103O000ODC0EDFOFDFDF0707QFDE0CDB0C0B44038 310 DATA D00O00D00OnOO00D21110FD7O7D707D7ODO00OOOO000OOOOB488FOEOEDEOEOEO EOC0C0COC0C0CCC0E0F09F9CFFFCFEOFQ7D3030303D303Q3O70FF939FF , ' 320 DATA 1F3F7EFCFEEFC 76301 OOOOOOODOOOOOODQOOOQOOOOa 080 C0Et)F07B3ClE0F0■y0■ D31109OD07D3010F0F070703O32O4a4O902060CDB0O0D0F0FOE0EOr0CD 330 DATA 0l0l0l0lOl0lDl01OI0lDlOJ070a0S07F8E0C0F0a08Oa0aOBOa08OBDEOlDinF! 10B8402GG704Q6545770505000400705074444404Q700004021 108442^ 340 FOR 1=1 TO 10 I! READ A. :! CALL CHAR<92 + (1-1 ) *4.A*) ■ 1 NEXT i 360 ™ LL CHARI91 '" FFalaiFFFFlaiaFF, ' )!: ^LL CHAR E CtE CCC CCC LLC tree : B*-SEG*IE*,2,27)B"i;" 400 -DISPLAY ATil.D^LEBEN; PUNKTE: RUNDE: " :: CALL S CREEN12):: CALL COLOR CI ,4,4,8,12,9) : : CALL MAGNIFY (3) 410 DATA 4. 4, 9. 14, 19, 24, 10, 3. 8. 13. IB. 23, 16. 7, 12. 17. 22. 27, 22, 6.1 1.16,21, 26 420 RESTORE 410 :: FOR 1=1 TO 4 tl READ ZE:: N EXT J : : NEXT I 430 C0L»2 :: SH-92 :: L=3 : s P=0 :: 0=0 :: DISPLAY ATC1 .1) ^'LEBENi-'sL: 1 ' PUNKTE: ,, ;P,"RJNOE! ,, lU*l 440 CALL SOUND! 300. 698,0,680.0) 450 CALL 50UNDC300, 688,0,1047,0) 460 CALL SOUND 1300, 698, D.BBO, 0,10*7,0) 470 CALL SOUNDI300, 696,0,831, 0,1047.0) 480 CALL 50UNOC600, 967. 0,764, 0.988,0) 490 ZV-INT(RND»5)H :: ZU=INT(RND>4)+1 : -. CALL SPRITEdH .BH, 2, 176, 104, #7, 124, 2, ( ZECZU)-l)*6,(SP(ZU,ZV)-l>i>S):: K=VH=HH=0 500 CALL JOYSTCl,X.Y):t CALL POSITIONOH .Z.3) : : Z=Z-2*Y :: S=S+2*X :: IF ZMB4 T HEN Z=164 ELSE IF Z(16 AND K=0 THEN Z=16 ELSE IF Z<16 AND K-l THEN Z=184 :: Q05U B 660 ELSE IF S>232 THEN 5=232 ELSE IF S416 THEN S-16 510 IF K+YOO AND SH-92 THEN SH=100 ELSE SH=92 520 CALL PATTERNCS1.SH):: CALL LOCATEt#l ,Z,S) 530 IF VH-0 AND RND+2M THEM. IU=KM)'15_ :; 6E=MT(PM»a) :i. CALL _SPR1TE'.&2-.S6. INT. RNDtl5+2).lNT,2,D,SE-4.IH0.104.1NTCRND*15+2) ,INTCZU*2+160),2SD,0.-(GE+4)> 550 CALL 5PRITE(*3,lG4.INTCRN0*15+2),INTlZU*2+B0).25O.D.-1 THEN ZU=1NT<4*HND>+1 i: ZV=INT:! CALL 5PRlTEt#4 .106,2,ELSE 580 570 CALL 5PRITEt#5,ll2+INT-l)*S.CSPCZU,ZV)-l)*e,I NTiRND*10>+2.0):: W-l 5SD CALL C0INC«H,»t2.14,Cl>:: CALL C0INCC*1.#3.14.C2> : : CALL C0INCHH,«*,1A,C3) t : CALL C0INC240 OR X2<20 THEN CALL DEL SPRlTE<#2,tt3,#9,#lC):: W=0 610 IF Y3>200 THEN CALL DELSPRITE(*4,t5) : : W=0 620 GOTO 500 630 CALL MOTION:: ZV=INT«B, CSP (ZU,ZV))*8):: K=0 :: U-U+l :: P=P+SO»U II IF U>2 THEN C0L=1 ELSE COL =2 670 CALL S0UNDC60O, 440. 0.860. 0,660,0) 680 DISPLAY ATC1.1):"LEBEN:";L;" PUNKTE: "i P. "RUNDE: ";U+1 n RETURN 690 CALL M0TI0NC#2,O.0,#3,O,O.#5.O.O.»9.0,O,*10.0.0)j: FOR 1=1 TO B :: CALL SOUN Dl-100, 200,0):! CALL C0LORCtt7,2) 700 CALL SOUNDH0O.6O0.0):: CALL COLOR<#7,1> : : NEXT I 710 P-P+U*10 :: K=l :: CALL DELSPRITEC*7) : : CALL MOTION(«2.0,10,#3,0,-10.#5,10.0 ,*9,0,10,*10.0,~10):: RETURN 720 CALL DELSPRITE(ALL):: CALL CLEAR !■- DISPLAY ATUO.l) : "PUNKTZAHLT'iP :: IF P> HSC THEN HSOP 730 DISPLAY ATCIl.D^'HOECSTERSEBNIS^^HSC :: DISPLAY ATilS.l) :"NOCHMAL SPIELEN7 J" :: ACCEPT AT(15,26)SIZEC-l)VALI0ATEl"JNJn ,, ) :At 740 IF M»"J" OR A*=".i ,: THEN 370 ELSE END 750 REIt 760 CALL SCREENI2):: FOR N=0 TO 14 :: CALL CQL0RCN,16,1> : i NEXT N 770 FOR N=l TO LENChtt) 7BD CALL SPRITEC»l,32,16.1,N»6+9,100.0):l 11=1*9,-1 Computer Kontakt11/84 Tl 99/4 A 69 790 C=ASC(SEG*:: IF C=32 THEN 830 800 CALL PATTERN 8&G RETURN □ )!: IF 15--.ll THEN 810 Reaktion REM REAKTIONSSPIEL AUS DEI REIT ICM964 MARTIN OTTO REM E6AL SOFTWARE CALL SCREEN 18) D HC=99E99 □ CALL CLEAR □ PRINT " D PRINT ! :" 3 PRINT : : : 3 PRINT : i"DA5 PROGRAM!-! ZEIS! O PRINT i'^DAS SPIEL HAT II ■Q CALL KEVtO.K.S) IF 5=0 THEN 230 FOR 5=1 TO 10 □ CALL CLEAR □ TJ-STRi(S) □ F0R-L=1 TO LENIT*) CALL HCHAR(-1,15*L,ASC(3I D NEXT L □ FOR J-l TO 200 □ NEXT J D CALL HCHAR(1,10,32,10) 3 CALL C0LQR<3 " a CALL COLOR (1 3 FOR 1=1 TO 1 D RANDOMIZE 3 X-2+INTIRND* 3 V=INT+ ] V=INT(RND*23t-t-l GEH:SM..u;GGIKG"-P 1 Wl<-iHAriMPAKET VERSCHIECiENEN BILUECHIRfl- STELLEN 11 DUCHRGAENGE. < TASTE >" :-32 i r(RN0»iui+ WO CALL HCHARIV 500 CALL COLOR'S, 2. E 510 CALL C £20 2=0 530 JMt+1 540 CALL KEV(3,t*,S> 550 IF S=0 THEN 530 56D IF K=0 THEN 570 570 CALL SOUND (1 t 480 ELSE 440 Computer KuntaWt 1 1 /S4 SflD GOTO 530 590 CALL SOUND 11 DO ,1000,0) Wir danken alien 610 PRINT ■'»»»»» ■';SEGKSTRS(i/17.£l,l,5)!" «<«««" 620 FOR K-l TO 100 tin se ren freien MHarbellem fur 630 NEXT K 640 NEXT G 650 CALL CLEAR 660 R=1NUR/17.5) 670 PRINT "SIE HAEEN INSGESAMT" 6S0 PRINT R^'SEKUNDEN IUM UEBERLEGEN" 690 PRINT "GEBRAUCHT!" 700 IF R^ HEXEN S5sS KUCHE lia (Legend) Speclrum n (Beyond 1 Spectrum ATARI |«» Marklin Digital HO FUNDGRUBE mMarliltn Digital HO- f" m LOAD ZX81-Program into SPECTRUM] | MICHAEL sH££ NAIUOKS S^ I Monitorausgang spezial- «ir den Spectrum ? hassette «r oibt es ^,ncQ M,mit orai ,,- Homecomputer last but not least... -ate: Laser 210. VZ20I? bbeitrag; ncin Program mtcreii .■:■ Dicse wichtigen Fakten - Id 60 Minuten omputenvissen n Lew Hollerbach ■jSciten.21.S0DM a Verlag. Puchheim IN 3- 88793-01 1-8 :n ■i.i'l-'.lLj'^i. :irr mlIi ..isch nfrrrtnicren mrjchte. i i heps i Lira - ■ ■ ■ : ■ ■ ... :■■■': :: . UMBmmmm Computerwissen FUNDGRUBE Die Gen inner des Preisausschreibens olkcr ROckschloss, i--^^H Mitglieder fur Apple gesucht ! - Hier der glikkliche Gcwinne hat.cn ie«i.s Bii- ^J™'™^ MiWer'in &lct n V.'El 5(1.- DM S l- ^.^ hneider, BritadlihangsuaOe US, CH-9435 Heerbrujg Sdiwsii ur.d SiiddeutschlaD Begerow S. 79 B-H-KEIektrani S.73 Egeter S.74 Glitsch S.78 Hahn S. 3 HLS-Sofl S.38 Hueber-Verlag S. 2 S.77 Omikron S.BO Rels S.78 Siren S.75 S.73 S.72 3. 3 30 LET t=t+n 48 NEXT n 50 LET »=101 60 LET i-l+Z 70 LET d-c+2 86 IF c=t THEM GO TO 160 30 IF c>t THEN GO TO 130 100 LET c-c+d 116 LET d=d*2 126 GO TO 80 130 LET t=t+a 140 LET 3=i+Z 150 GO TO 6B 16B PRINT "Ho lows'* f1dr«»e^ " 170 PRIKT '"Istzte Hausnunmer ■ inch MHtdMl, tal ii liri ai vtel Wtthm ISumr, ImmUoi. tdmH. kmhrtiM. wwnini «J J ml liil « *«W Uwh irtttai town Inuri wrateitM *1r «1 kMm mm* ihikIm taiWFikm (HHiiimiirSiButarBlWICH GBASIC 64 Das sag! die Presse: -GB»iSIC ffwffla sich als die blsher IBalijragaHhlgste Basiajrivell Rung . Bnfaohe Handhetnma - Modul rain. Computer an -, das ungewOtirracn gula, iWMilich galbe Hi!n.jL«j'+ i.".rt ■■'. .:.:: --n . ^.i-tf. nets Basicoelelile (RUN 9AM) COUPON ii/e 4 E::--=-r;r:ider.an:OMIKRON Jnterschritt ain/Soheckllegtbei rniBtita affih nur sctiner water ran ihr Irennan." iCompirta Praxis -Angeslchts ttet groBen Zahl von Sparial-GralikerwBitBnjngeii erwartet Um bo positive aenasdn he GBASIfl: Bine gro&e Aniahl wSSWW- dadiler BefehlB, drei Grafikscnirme, node AusturmingBgeschwinaig- keh.-(HCF4AM) -Die Betehle und Moglichkeilen. die GBASIC 64 tiler blelel, gflWen mlf 50 ausaezelcJiiBtdaBicnrnlr tieiitedasArtWlBnohr.es''! S&N [Ml uorstellen *snn.. IZum Thema Toolkit m Computer Kariakt B-9/84)