. DIESES PROGRAMM WURDE 1983 ER-B STELLT VON:d( ******************2 * JAN SCHAEFER *< * IN DER LOHN 9 *F * *P * 5100 AACHEN 1 *Z * TEL.02408/3640 *4d UMSETZUNG AUF DEM C16 U. PLUS/4Yn VON ROLAND KUNZ IN 3500 KASSELgx130:200m VARIABLEN WERDEN DEFINIERTAS3152:AF2128:AM6:PMAS440:PWAS117:SW40:AAS118:BAS838:CAS80/DAS835:E0:G(1)1:G(2)1:G(3)40:G(4)40:H0:LAS373:ML13:O0N65301,113:65305,113:1,1TZ:u"":::::::::" "" @@@@@@@@@@@@@@"" " :" VON JAN SCHAEFFER"#ILM:N:U0N:I,U3T125::QIL12O40II26:OO1":1,3,17,"DRUECKEN SIE EINE BELIEBIGE TASTE": Y$," SIE SIND EIN EINBRECHER - DARGESTELLT"6" DURCH EINEN SCHWARZEN PUNKT - UND "@" WOLLEN IN EIN HAUS EINDRINGEN. VOR">J" IHNEN LIEGT EIN SCHWIERIGE AUFGABE:"nT" ZUERST MUESSEN SIE EIN GELAENDE DURCH-"^" QUEREN, IN DEM FALLEN VERSTECKT SIND."h" DAS GELAENDE WIRD DURCH BUCHSTABEN"r" DARGESTELLT, UNTER DENEN SECHS FALLEN"|" VERKOERPERN."7" DRUECKEN SIE EINE TASTE"KA$:A$"" 400}" BERTRETEN SIE EIN FELD, DAS EINER FALLE"" BENACHBART IST, ERSCHEINT DIE WARNUNG"" >VORSICHT FALLE< ! WENN SIE TROTZDEM" " IN EINE FALLE LAUFEN,IST IHR 'EINBRUCH'"6" MISSGLUECKT. SIE KOENNEN DANN IHR"e" GLUECK NOCHMAL VERSUCHEN. NACHDEM SIE"" DAS SPIELFELD UEBERQUERT HABEN, ER-"" REICHEN SIE EINEN ZAUN. IN DIESEM ZAUN"" BEFINDET SICH EIN LOCH, DURCH DAS SIE"" SCHLUEPFEN MUESSEN."8" DRUECKEN SIE EINE TASTE"LA$:A$"" 520~" ABER ACHTUNG ! HINTER DEM LOCH ERWARTET"" SIE EIN WACHPOSTEN - DURCH EIN KARO"&" DARGESTELLT. DIESER WACHPOSTEN SCHIESST" 0" AUF SIE WENN ER AUF SIE ZUGEHT! SOLLTEN"9:" SIE AUCH DIESE HUERDE UEBERWINDEN,"[D" HABEN SIE ES GESCHAFFT !"N" DRUECKEN SIE EINE TASTE"XA$:A$"" 600b" DEN EINBRECHER KOENNEN SIE PER TASTATUR"l::" U" v:" ^"*" H _> J"E" "`" V"~:" N"" ODER MIT DEM JOYSTICK STEUERN!"" DRUECKEN SIE EINE TASTE"A$:A$"" 700"WOLLEN SIE MIT DEM JOYSTICK SPIELEN(J/N)";'A$:A$""720=A$"N"Q1: 760i" STECKEN SIE DEN JOYSTICK BITTE IN"" JOYSTICKPORT 1 !""WIEVIELE VERSUCHE WOLLEN SIE RISKIEREN";AV GVAVAV9:" SIE SCHAFFEN ES AUCH MIT WENIGER VERSUCHEN!":760. AV1:" SIE BRAUCHEN MEHR !": 760A*AV(AV) 840j4:" WIE STELLEN SIE SICH DAS VOR ?">" HALBE MAENNER ODER SO WAS ?": 760H""R\ DIESE ZEILEN VERHINDERN,DASSf BEIM ERSTEN STARTEN DES PRO-p GRAMMS IMMER WIEDER DAS4z SELBE SPIELFELD ERSCHEINT.:JA$(TI$,2)VR(A$)jI1R:U(1):p DAS SPIELFELD WIRD AUFGEBAUTIAFAF920I,0:IAS40AS79I,102:IAS840AS879I,102:IAB40I,961286IAS838AA1:BB1:1030<$T.IAS116AS83640`8I,91:BPL(AS116(40(((1)18))))LPL,32VICD`IC35E40II4:EE1jF((1)26)1tI,F:AF80IC,113:~  DIE MINEN WERDEN DEFINIERT&SL((1)32)2I1AMGA(((1)26)1)RA(I)A`UI11vA(U1)A(I)1200~: DAS EIGENTLICHE PROGRAMM BEGINNT. PM,81:PMASAF,0TI$"000000"" VERSUCHE:";AV (:2/< ES WIRD FESTGESTELLT OBTF UEBER UNTER ODER NEBEN IHNENjP EINE MINE ISTpZdI1AM:U14n(PMG(U))A(I)" >VORSICHT FALLE<":1420x:" " " ZEIT :"TI$ 2  HIER WIRD UEBERPRUEFT OB DASV  MAENNCHEN IN REICHWEITE DESm  WAECHTERS IST.s  PMPLH0 PMPL1H1 H12070 I0SL PMPLIPLPW12140    BEWEGUNG DES WAECHTERS !"PWAS837PWAS117SWSW&!,PW,323!6PWPWSW>!@PW,90L!JQ11730R!Tl!^ JOYSTICKABFRAGEr!h!rP(1):P1SM40:1840!|P7SM1:1840!P5SM40:1840!P3SM1:1840!1420!! TASTATURABFRAGE!"Y$"Y$""1420."Y$"U"SM40:1840E"Y$"J"SM1:1840]"Y$"N"SM40:1840u"Y$"H"SM1:1840"1420"" HIER WIRD UEBERPRUEFT WO-" GEGEN DAS MAENNCHEN LAEUFT"&"0PM,32:(PMSM)321910 #:(PMSM)961281870!#DPMSMPL22290E#N(PMSM)26PM,81:FH,O:1420Q#XI1AMi#b(PMSM)A(I)1980o#l#vPMSM,81:PMSMASAF,0#PMPMSM:1310## HIERHIN SPRINGT DAS PROGRAMM# WENN DEM MAENNCHEN ETWAS# PASSIERT.$$PMSM,32&$PM,32:PMAS4402$AVAV1A$AV02300K$1310Q$s$ HIER WIRD UEBERPRUEFT OB$ DER WAECHTER SCHIESST.$ $PMPWSWSW2120$ 2100$*IPW40M40:I,93:K018::I,32::H0:1990%4PMPWSWSW2120%>2130D%HIPW40M40:I,93:K118::I,32::H0:1990N%R1570y%\IPW1PM1:I,67:U050:U:I,32:%fSL((1)32):1990%% HIER BEGINNT DER LETZTE% TEIL DES PROGRAMMS%&" GRATULIERE SIE HABEN ES GESCHAFFT!!":2310<&" SIE HABEN LEIDER PECH GEHABT !"F& FH,0q& " AUSWERTUNG IHRES 'EINBRUCHS' !"& " ANZAHL DER VERSUCHE :",GV&$ " ANZAHL DER GESCHEITERTEN VERSUCHE :";GZAV&. " VERBRAUCHTE ZEIT :"'8 C$(TI$,2,2):D$(TI$,2)-'B " MINUTEN :";C$W'L " SEKUNDEN:";D${'V " DRUECKEN SIE EINE TASTE"'` A$:A$""2400'j " NOCH EIN SPIEL(J/N) ?"'t A$'~ A$"J":130:760' A$"N"' 2420( 22,15,18,19,9,3,8,20,32,6,1,12,12,5