' *******************************M * *s * NASA - MISSION * * * * AM 4.4.88 IN BASIC * * VON RAMSES T. PROGRAMMIERT * $ * FUER DEN C16 - PLUS/4 *1. * *W8 *******************************]BsL 0,1: 4,1: 1,2V : (14)`"ACH IHREM LETZTEN INBRUCH IN EINEN"jt"-ECHNER HABEN SIE EIN INTERESSAN-"~"TES ROGRAMM GEFUNDEN UND NATUERLICH"I"SOFORT KOPIERT.S BESTEHT AUS MEHREREN"O{"NTERPROGRAMMEN.IT DEM EFEHL ''""KOENNEN IE MANCHE STARTEN,EINIGE BRAU-""CHEN ABER ATEN AUS ANDEREN ROGRAMM-""TEILEN UND STUERZEN LEIDER AB.BEN-"G"FALLS BENOETIGEN IE 4 ODEWOERTER,UM"M }"DEN DAS AUPTPROGRAMM '' ZU STARTEN."("EIDER WISSEN IE NICHT,WAS DAS RO-"2<"BEWIRKT ..."F" ASTE"P A$:#Z"ER EFEHL '' LOESCHT EIN ROGRAMM,")dWn"DER EFEHL '' STELLT ES WIEDER HER."]x"IT ''BEKOMMEN IE EINE ISTE DER""VORHANDENEN ROGRAMME.'' LASST IE""DEN BLAUF DER ROGRAMME VERFOLGEN."&"LS FORTGESCHRITTENER ACKER FINDEN IE",V"SICH SICHER BALD ZU RECHT.ENN DAS"\"ROGRAMM DURCH EINE UMMHEIT IHRERSEITS""ABSTUERZT,HILFT DIE 'UN-TOP'-ASTE""SOWIE EIN EUSTART.'' BEENDET DAS"!""ROGRAMM.IE KOENNEN AUF EINIGE RO-"',E6"GRAMMFEHLER HOFFEN ..."r@" ATEN WERDEN GESCHAUFELT ..."J: NAME$(18),BEF$(18,32),K%(18)T 2500^ A0 18h NAME$(A):I1r:II1| BEF$(A,I) BEF$(A,I)"@" K%(A)  A9" ASTE "C A$Ie"INGABE: EFEHL ";G$} G$"RUN" 1830 G$"KILL" 2170 G$"OLD" 2250 G$"TRACE" 2300 G$"LIST" 2330 G$"END" :"NPUT-RROR !!!"3"IEDERHOLEN SIE DIE INGABE !"> 1730i&"ELCHES RG SOLL GESTARTET WERDEN "r0 A$:PAR$"0"D A0 18N A$NAME$(A) K%(A)1 PAR$"1":PRGAX Ab PAR$"1" "EHLER ! ROGRAMM NICHT VORHANDEN !!!": 1730lPAR$"0";v TRACE0 "UNNING ";A$;" ..."TI1:PAR0:R8:AW0e:II1:B3 BEF$(PRG,I)"END" AW2 BEF$(PRG,I)"BRK" "YSTEM-RROR ... ":AW1 BEF$(PRG,I)"WFK" A$: BEF$(PRG,I)"WRT" II1: 2120:& BEF$(PRG,I)"REC" 2450:k BEF$(PRG,I)"CON" PAR0 "ATA-CCESS NOT AUTHORIZED":AW1 BEF$(PRG,I)"CON" PAR1  BEF$(PRG,I)"SCF" PAR1: BEF$(PRG,I)"JMP" II1:NO$BEF$(PRG,I): 2380 B0PRGB:I1:6 BEF$(PRG,I)"JSR" II1:NO$BEF$(PRG,I): 2380] B0 RTSPRG:PRGB:VRI:I1:  BEF$(PRG,I)"RTS" PRGRTS:IVR: 2480: AW0 "SYNTAX ERROR IN ";NAME$(PRG);" !!!"  AW0* AW1 "BREAK !"4 AW2 "PROGRAM END."> 1730#HDF$BEF$(PRG,I)6R A1 (DF$)O\(((DF$,A,1))1);Wf Afp:DF$"":pz P1"ELCHES ROGRAMM SOLL GELOESCHT WERDEN " A$ A0 18 A$NAME$(A) K%(A)1 K%(A)0:P0 A# P0 "EHLER ... ROGRAMM NICHT VORHANDEN ...". 17307A1C:AA1] K%(A)0 K%(A)1:j A18u 1730" RACE ON/OFF (1/2) ";A A1 TRACE1: TRACE0 1730 "OLGENDE ROGRAMME SIND VORHANDEN :"$ A0 18. K%(A)1 NAME$(A)8 A%B 17301L RA1JV RARA1:RA18 2420p` NO$NAME$(RA)K%(RA)1 2420{j 2390t RA18 B2:~ TRACE1 "RUNNING ";NO$ BRA: CO$"":CO$:II1 CO$BEF$(PRG,I) "ATA ACCESS AUTHORIZED":+ "RROR ... AD NPUT !":II2:S TRACE1 "RUNNING ";NAME$(PRG)Y g "BEGIN" "WRT","FMDPNF!UP!UIF!.FBERVBSUFST/" "WRT","PV!BSF!PO!UIF!!!22046/" "WRT","SFTT!B!LFZ!" "WFK" "SCF" "JMP","SECRET1" "@",11  "SECRET1","CON"h  "WRT","P!ZPV!XBOU!UP!DBMM!2B!UIFO!FOUFS!(B" ( "REC","A","JMP","PROG1A" 2 "WRT","P!ZPV!XBOU!UP!DBMM!2C!UIFO!FOUFS!(C" < "REC","B","JMP","PROG1B"!F "WRT","P!ZPV!XBOU!UP!IBWF!OGPSNBUJPOT!@!UIFO!QSFTT!(J":!P "REC","I","JMP","INFO2"a!Z "WRT","DPEF!.?!FOUFSJOH!MFWFM!3"!d "REC","D-4718161","JMP","SECRET2"!n "BRK"!x "@",1! "PROG1A"! "WRT","FWFSZUIJOH(T!SJHIU/"! "JMP","PROG1A"! "@",1" "PROG1B","CON"+" "WRT","VTU!B!NPNFOU!QMFBTF"@" "JSR","PROG2A"U" "JSR","PROG2B"l" "JSR","SECRET22"" "WRT","FOUFSJOH!MFWFM!4"" "JMP","STOP"" "END"" "@",1" "HELP"" "WRT","DPEF!)TFDSFU2*!>!E.5829272"" "END"#" "@",0#, "PROG2A","CON"<#6 "WRT","JOUFSOBM!EBUB!BDDFTT"H#@ "RTS"T#J "@",1i#T "PROG2B","CON"#^ "WRT","FYUFSOBM!EBUB!BDDFTT"#h "RTS"#r "@",1#| "SECRET22","CON"# "BRK"# "END"# "@",1# "INFO2","CON"#$ "WRT","ZPV!BSF!VUJMJ[JOH!0WFSTJPO!5/6"/$ "BRK";$ "@",1Q$ "SECRET2","CON"y$ "WRT","EP!ZPV!XBOU!UP!DBMM!4"$ "WRT","UIFO!QSFTT!(JO("$ "REC","IN","JSR","INFO3"$ "WRT","EP!ZPV!XBOU!DBMM!QSPH3!QSFTT!(E6("% "REC","D5","JMP","SECRET21".% "WRT","DPOUSPM!GPS!MFWFM!4!///"V% "REC","B-8348784","JMP","SECRET3"b% "BRK"n%& "@",1%0 "SECRET21","CON"%: "WRT","DPEF!;"%D "REC","JHFYUYTF","JMP","PROG2"%N "BRK"%X "@",1%b "PROG2"%l "SCF"&v "WRT","DPEF!GPS!MFWFM!4"0& "REC","7234G","BRK","BRK"E& "JMP","SETPR3"Q& "BRK"]& "@",1p& "STOP","CON"& "WRT","ZPV!BSF!JO!MFWFM!4!PG!UIJT!QSPHSBN"& "WRT","QSFTT!(FOE(!XIFO!ZPV!XBOU!UP!FYJU"& "REC","END","END","END"' "JMP","SETPR4"' "@",1$' "INFO3","CON"J' "WRT","MPPL!JO!UIF!QSPHSBN ///"P' \' "RTS"h' "@",1~' "SECRET3","CON"' "WRT","JOQVU!DPEF!GPS!(TFUQS4("'* "REC","JHJHGSF","JMP","SETPR3"'4 "WRT","DPEF!GPS!FOUFSJOH!MFWFM!5!"(> "REC","COMPUTE MIT","JMP","SECRET4"((H "END"4(R "@",1I(\ "SETPR3","CON"~(f "WRT","DPEF!GPS!FOSFSJOH!TFDSFU!5!JT!UIF!OBNF"(p "WRT","PG!B!HSFBU!DPNQVUFS!NBHB[JOF/"(z "END"( "@",1( "SECRET4","CON"( "WRT","DPEF!GPS!TFUQS5") "REC","907856","JMP","SETPR4"G) "WRT","DPEF!GPS!TUBSUJOH!NBJO.QSPHSBN"l) "REC","HUNDEFELL","JMP","MAIN"x) "BRK") "@",1) "SETPR4","CON") "WRT","QSFTT!B!LFZ") "WFK") "WRT","OFX!DPEF!GPS!NBJO!QSPHSBN!JT!(IVOEFGFMM("* "END"* "@",1!* "MAIN","CON"S* "WRT","ZPV!IBWF!TUBSUFU!."j*$ "WRT","QSPHSBN/"z*. "WRT","!"*8 "WRT","V!IBTU!EBT!SPHSBNN!HFIBDLU!/"*B "WRT","FS[MJDIFO!MVFDLXVOTDI!/"*L "END"*V "@",1