TEIL2 |UB$ô"A3A3D4A3F4G3B6"C$ô"A3A3D4A3F4G3B6"D$ô"A3A3D4A3F4G3B6" þ£„þ¢C$;B$;D$›:þ [‚@]† ,„p,"BASIC-",ƒ ,ƒ ,:þ [‚@]† ,ˆ ,"LEHRER",ƒ ,ƒ ,+ þ¤„ ,„:"E¦° MZ-800-P·—¡³³" þ¤…,„:"«·°"" þ¤„p,„ :"I°—· K°·¸¸" þ¤…,„0:" 1986"/ þ¤„P,„P:"*** TEIL 2 ***":þ‚@5þ¤ƒ ,„p:"*** ¡¸¸—’³. BASIC-B’ª’˜¸’ ***" ó: ý  0þ¤,‚:" ZEILENNUMMERN":þ¤,ƒ@:"U³ ’¦° ¸¡¥ªª»˜¦—’¤ P·—¡³³ ¢¥ ’-"<þ¤,ƒ`:"˜¡¸–’° ¦¤– ’¤ °·–£’°œ¦—, œ¦’ ’¦°¢’¸-";þ¤,„:"°’° B’ª’˜¸¤¢’¦¸’° ³¦– ª·–¸¡¥ª’°œ’°";þ¤,„:"Z’¦¸’°°¥³³’ ¢¥ «’¤’˜’°. F­ œ¦’¤’"9þ¤,„ :"N¥³³’° ¤–’˜’° œ¦’ G¡°¢¢¡˜¸’° «·°"þ¤,„0:"¢.B.:"2þ¤,„0:"1 š¦¤ 65555 ¢¥ V’ª­—¥°—."<þ¤,„@:"U³ œ¡¤ P·—¡³³ ­š’¤¦Ÿ˜–¸¦Ÿ˜ ¢¥ —’-"9þ¤,„P:"¤–¡¸–’°, ¤·¸¸–’ ’¦°’ N¥³³’¦’¥°—";þ¤,„`:"³¦– —¸’¦Ÿ˜’° Aš¤–»°œ’° —’£»˜¸– £’-"<þ¤,„p:"œ’°; ’¦° °¡Ÿ˜–»—¸¦Ÿ˜’¤ E¦°ª­—’° «·°"<þ¤,…:"£’¦–’’° B’ª’˜¸¤¢’¦¸’° ¦¤– ¤· ¯’œ’-"<þ¤,…:"¢’¦– ³º—¸¦Ÿ˜. A¥®’œ’³ —’£¦°°– ¤·¸Ÿ˜":þ¤,…:"’¦° P·—¡³³ ¡° ²š’¤¦Ÿ˜–¸¦Ÿ˜©’¦–."7 þ¤,… :"B’œ¦’°’˜¡°œš¥Ÿ˜ S’¦–’: 3-9 ªª." ! ý "€ > # !$þ¤,‚:"B’¦¤ž¦’¸:" %þ‚ &þ¤,ƒ:"10 A = 0""'þ¤,ƒ :"20 PRINT A"$(þ¤,ƒ@:"30 A = A + 1"0)þ¤,ƒ`:"40 IF A <10 THEN GOTO 20"*þ¤,„:"50 END +þ‚@<,þ¤,„ :"Z¥ ¤Ÿ˜¦––£’¦¤’° Aš¡š’¦–¥°— œ¦’¤’¤"=-þ¤,„0:"P·—¡³³¤ ¯’£’¦¸¤ ’¦°’ T¡¤–’ œ­Ÿ©’°." . ý\/þ‚@:þ¤,ƒ:"10 A = 0":þ‚: ý:þ¤,ƒ:"10 A = 0":þ‚@N0þ¤,ƒ :"20 PRINT A":þ¤…,ƒ :A:AôA÷:þ‚: ýP1þ¤,ƒ :"20 PRINT A":þ‚@:þ¤,ƒ@:"30 A = A + 1": ýb2þ‚:þ¤,ƒ@:"30 A = A + 1":þ‚@:þ¤,ƒ`:"40 IF A <10 THEN GOTO 20">3 ý:þ‚:þ¤,ƒ`:"40 IF A <10 THEN GOTO 20"4þ‚@:“Aö„ â 05Iôàƒ`96þ‚@:þ¤…,ƒ :" ":þ¤„ ,ƒ`:" "7Dôà‰z:ŽL8þ‚@:þ¤…,ƒ :"10":þ¤„ ,ƒ`:"10":Dôà‰z:Ž9ŽIX:Aô:þ¤,„:"50 END": ý:þ‚:þ¤,„:"50 END":þ‚@ ; <“A$ô"-"â N =€ c > ,?þ¤,‚:" GOTO":@þ¤,ƒ@:"M¦– œ¦’¤’³ B’ª’˜¸ ¦¤– ’¤ ³º—¸¦Ÿ˜, "<Aþ¤,ƒ`:"œ¦’ ¤Ÿ˜¦––£’¦¤’, ¡° œ’° Z’¦¸’°°¥³- ";Bþ¤,„:"³’° ·¦’°–¦’–’ P·—¡³³¡¥¤ª­˜¥°—"<Cþ¤,„:"¢¥ š’’¦°ª¸¥¤¤’°. B’¦ A¥ª–’–’° ’¦°’"9Dþ¤,„ :"GOTO-A°£’¦¤¥°— «’¢£’¦—– œ¡¤ P·-";Eþ¤,„0:"—¡³³ ¢¥ ¡°—’—’š’°’° Z’¦¸’°°¥³³’.":Fþ¤,„@:"B’¦ œ’ P·—¡³³’°–£¦Ÿ©¸¥°— ¦¤– ¢¥"9Gþ¤,„P:"š’¡Ÿ˜–’°, œ¡® ’¦°’ V’¢£’¦—¥°— ¦°"7Hþ¤,„`:"’¦°’ FOR-NEXT-SŸ˜¸’¦ª’ ¢¥ ’¦°’"=Iþ¤,„p:"F’˜¸’³’¸œ¥°— ª­˜– ¥°œ œ¦’ P·—¡³³-"4Jþ¤,…:"¡¥¤ª­˜¥°— ¡š—’š·Ÿ˜’° £¦œ."4Kþ¤,… :"B’œ¦’°’˜¡°œš¥Ÿ˜ S’¦–’: 6-18" L M“A$ô"-"â  N 3Oþ¤,‚:" IF ... THEN ...:ELSE":Pþ¤,ƒ:"¹˜°¸¦Ÿ˜ £¦’ š’¦³ GOTO-B’ª’˜¸ £¦œ "<Qþ¤,ƒ :"¡¥Ÿ˜ ³¦– œ¦’¤’ A°£’¦¤¥°— ’¦°’ V’- "<Rþ¤,ƒ@:"¢£’¦—¥°— š’£¦©–. W»˜’°œ ’¦°’ GOTO-":Sþ¤,ƒ`:"A°£’¦¤¥°— ’¦°’ ¥°š’œ¦°—–’ V’¢£’¦-"8Tþ¤,„:"—¥°— ¡¥¤¸º¤–, ¤· £¦œ š’¦ œ¦’¤’"9Uþ¤,„:"A°£’¦¤¥°— œ¦’ V’¢£’¦—¥°— ¡° ’¦°’"9Vþ¤,„ :"B’œ¦°—¥°— —’š¥°œ’°. N¥ £’°° (IF)"7Wþ¤,„0:"œ¦’ B’œ¦°—¥°— ’ª­¸¸– ¦¤–, œ¡°°".Xþ¤,„@:"(THEN) £¦œ «’¢£’¦—–."=Yþ¤,„P:"A°œ’°ª¡¸¸¤ £¦œ °¦Ÿ˜– «’¢£’¦—–, ¥°œ"=Zþ¤,„`:"œ¡¤ P·—¡³³ £¦œ —’³»® Z’¦¸’°°¥³³’-";[þ¤,„p:"¦’¥°— £’¦–’ ¡¥¤—’ª­˜–. W¦œ œ¦’";\þ¤,…:"A°£’¦¤¥°— ELSE ˜¦°¢¥—’ª­—–, ¤· ¸»®–":]þ¤,…:"¤¦Ÿ˜ ¡¥Ÿ˜ š’¦ N¦Ÿ˜–’ª­¸¸¥°— œ’"5^þ¤,…:"B’œ¦°—¥°— —’¢¦’¸– «’¢£’¦—’°."4_þ¤,… :"B’œ¦’°’˜¡°œš¥Ÿ˜ S’¦–’: 6-22" ` a“A$ô"-"â > b€ # c /dþ¤,‚:" FOR ... NEXT"7eþ¤,ƒ:"U³ š’¤–¦³³–’ P·—¡³³¡š¤Ÿ˜°¦––’":fþ¤,ƒ :"³’˜ª¡Ÿ˜ ¡š¢¥¡š’¦–’° ©¡°° ³¡° ³¦–"<gþ¤,ƒ@:"œ’ GOTO- ¥°œ/·œ’ œ’ IF...THEN-A°-"<hþ¤,ƒ`:"£’¦¤¥°— ¡š’¦–’°. E¦°ª¡Ÿ˜’ ¥°œ ’¸’-"7iþ¤,„:"—¡°–’ ¸»®– ¤¦Ÿ˜ œ¦’¤’¤ P·š¸’³":jþ¤,„:"¡š’ ³¦– ’¦°’ FOR...NEXT-SŸ˜¸’¦ª’"9kþ¤,„ :"¸º¤’°. M¦– H¦¸ª’ ’¦°’ Z»˜¸«¡¦¡-"9lþ¤,„0:"š¸’° (¢.B. X) £’œ’° œ¦’ ¢£¦¤Ÿ˜’°"5mþ¤,„@:"FOR ¥°œ NEXT ’¦°—’¤Ÿ˜¸·¤¤’°’°"<nþ¤,„P:"P·—¡³³–’¦¸’ ¤·¸¡°—’ £¦’œ’˜·¸– ¡š-":oþ¤,„`:"¡š’¦– š¦¤ œ¦’ V¡¦¡š¸’ ¦˜’° E°œ-"9pþ¤,„p:"£’– ’’¦Ÿ˜– ˜¡–. D’ V¡¦¡š¸’°-";qþ¤,…:"£’– £¦œ š’¦ ¯’œ’³ D¥Ÿ˜¸¡¥ª ¡¥–·-":rþ¤,…:"³¡–¦¤Ÿ˜ ¥³ 1 ’˜º˜–. D¥Ÿ˜ œ¦’ ¢¥-"5sþ¤,…:"¤»–¢¸¦Ÿ˜’ A°£’¦¤¥°— STEP ©¡°°"9tþ¤,…:"œ¦’ SŸ˜¦––£’¦–’ š’¤–¦³³– £’œ’°."4uþ¤,…(:"B’œ¦’°’˜¡°œš¥Ÿ˜ S’¦–’: 6-15" v w“A$ô"-"â # x 0yþ¤,‚:" GOSUB ... RETURN"7zþ¤,ƒ:"U³ š’¦ œ’ P·—¡³³¦’¥°— °¦Ÿ˜–":{þ¤,ƒ :"¥°°º–¦— Sž’¦Ÿ˜’ž¸¡–¢ ¢¥ «’—’¥œ’°"8|þ¤,ƒ@:"¦¤– ’¤ ¤¦°°«·¸¸ š’¤–¦³³–’, ¦³³’"<}þ¤,ƒ`:"£¦’œ’ š’°º–¦—–’ R·¥–¦°’° ¡¸¤ U°–’-"6~þ¤,„:"ž·—¡³³ ¡°¢¥¸’—’°. D’ A¥ª¥ª"8þ¤,„:"’¦°’¤ U°–’ž·—¡³³¤ ’ª·¸—– ³¦–"7€þ¤,„ :"œ’ A°£’¦¤¥°— GOSUB. E¦° U°–’-"7þ¤,„0:"ž·—¡³³ ³¥® ³¦– RETURN š’’°œ’–"4‚þ¤,„@:"£’œ’°. O˜°’ œ¦’¤’ A°£’¦¤¥°—":ƒþ¤,„P:"£¦œ ’¦°’ F’˜¸’³’¸œ¥°— ¡¥¤—’—’š’°"7„þ¤,„`:"¥°œ œ¡¤ P·—¡³³ £¦œ °¦Ÿ˜– ³¦–"7…þ¤,„p:"œ’ œ’ Aš¤ž¥°—¢’¦¸’ ª·¸—’°œ’°"*†þ¤,…:"Z’¦¸’ ª·–—’¤’–¢–."4‡þ¤,… :"B’œ¦’°’˜¡°œš¥Ÿ˜ S’¦–’: 6-20" ˆ ‰“A$ô"-"â c Š +‹þ¤,‚:" END"7Œþ¤,ƒ:"N¡Ÿ˜ œ’ A°£’¦¤¥°— END £¦œ œ¦’":þ¤,ƒ :"P·—¡³³¡¥¤ª­˜¥°— š’’°œ’– ¥°œ œ’"7Žþ¤,ƒ@:"BASIC-I°–’ž’–’ š’ª¦°œ’– ¤¦Ÿ˜"=þ¤,ƒ`:"£¦’œ’ ¦³ D¦’©–-M·œ¥¤. N·³¡¸’£’¦¤’"6þ¤,„:"¦¤– œ¦’ A°£’¦¤¥°— °¦Ÿ˜– °º–¦—;"8‘þ¤,„:"°¡Ÿ˜ Aš¡š’¦–¥°— œ’ ¸’–¢–’° B’-"8’þ¤,„ :"ª’˜¸¤¢’¦¸’ ©’˜– œ’ I°–’ž’–’"8“þ¤,„0:"¡¥–·³¡–¦¤Ÿ˜ ¦° œ’° D¦’©–-M·œ¥¤"8”þ¤,„@:"¢¥­Ÿ©. U³ ¯’œ·Ÿ˜ U°–’ž·—¡³³’"7•þ¤,„P:"«·³ ­š¦—’° P·—¡³³ ¢¥ –’°°’°"6–þ¤,„`:"¦¤– œ¦’ A°£’¦¤¥°— END ¢£¦°—’°œ"3—þ¤,„p:"°·–£’°œ¦—. A°œ’°ª¡¸¸¤ £¦œ"6˜þ¤,…:"’¦°’ F’˜¸’³’¸œ¥°— ¡¥¤—’—’š’°." ™ š“A$ô"-"â x› :Xô!œþ¤,‚:"B’¦¤ž¦’¸:" þ‚*žþ¤,ƒ@:"10 FOR X = 1 TO 10""Ÿþ¤,ƒ`:"20 PRINT X" þ¤,„:"30 NEXT"$¡þ¤,„:"40 GOSUB 100""¢þ¤,„ :"50 PRINT B"£þ¤,„0:"60 END".¤þ¤,„@:"100 B = INT(RND(1)*10)""¥þ¤,„P:"120 RETURN"F¦þ‚@:þ¤,…:"Z¥ ¤Ÿ˜¦––£’¦¤’° Aš¡š’¦–¥°— ¯’£’¦¸¤"+§þ¤,…:"’¦°’ T¡¤–’ œ­Ÿ©’°!" ¨ ý©XôX÷8ªþ‚@:þ¤,ƒ@:"10 FOR X = 1 TO 10": ý3«þ‚:þ¤,ƒ@:"10 FOR X = 1 TO 10"C¬þ‚@:þ¤,ƒ`:"20 PRINT X":þ¤…8,ƒ`:X: ý+­þ‚:þ¤,ƒ`:"20 PRINT X"Q®þ‚@:þ¤,„:"30 NEXT": ý:þ‚:þ¤,„:"30 NEXT"¯“Xö„ â © °Xô2±þ‚@:þ¤,„:"40 GOSUB 100": ý-²þ‚:þ¤,„:"40 GOSUB 100"T³þ‚@:þ¤,„@:"100 B = INT(RND(1)*10)":Bôÿ€(ÿˆ()ü„ ): ý7´þ‚:þ¤,„@:"100 B = INT(RND(1)*10)"0µþ‚@:þ¤,„P:"110 RETURN": ý+¶þ‚:þ¤,„P:"110 RETURN"C·þ‚@:þ¤,„ :"50 PRINT B":þ¤…@,„ :B: ý+¸þ‚:þ¤,„ :"50 PRINT B",¹þ‚@:þ¤,„0:"60 END": ý º »“A$ô"-"â Š ¼ ,½þ¤,‚:" INPUT"6¾þ¤,ƒ:"U³ £»˜’°œ œ’ P·—¡³³¡¥¤ª­˜-":¿þ¤,ƒ :"¥°— D¡–’° ³¦– œ’ T¡¤–¡–¥ ’¦°¢¥-"6Àþ¤,ƒ@:"—’š’° ©¡°° œ¦’ INPUT-¡°£’¦¤¥°—"<Áþ¤,ƒ`:"—’š¡¥Ÿ˜– £’œ’°. B’¦ A¥ª–’–’° œ’"6Âþ¤,„:"A°£’¦¤¥°— ˜»¸– œ¡¤ P·—¡³³ ¡°"9Ãþ¤,„:"¥°œ ’¦° F¡—’¢’¦Ÿ˜’° £¦œ ¡¥ª œ’³"9Äþ¤,„ :"B¦¸œ¤Ÿ˜¦³ ¡°—’¢’¦—–. A° œ’ CUR-":Åþ¤,„0:"SOR-P·¤¦–¦·° ’£¡–’– œ’ R’Ÿ˜°’";Æþ¤,„@:"°¥° œ¦’ E¦°—¡š’ «·° D¡–’°. D¦’ E¦°-";Çþ¤,„P:"—¡š’ £¦œ ³¦– œ’ CR-T¡¤–’ š’’°œ’–.":Èþ¤,„`:"D¦’ D¡–’° £’œ’° œ’ ¦° œ’ INPUT-":Éþ¤,„p:"A°£’¦¤¥°— ¤ž’¢¦ª¦¢¦’–’° V¡¦¡š¸’°":Êþ¤,…:"¢¥—’£¦’¤’°. M¦– ’¦°’ INPUT-A°£’¦-"6Ëþ¤,…:"¤¥°— ©º°°’° ¡¥Ÿ˜ ³’˜’’ œ¥Ÿ˜"7Ìþ¤,…:"K·³³¡–¡ —’–’°°–’ V¡¦¡š¸’° š’-"&Íþ¤,…:"¤–¦³³– £’œ’°."4Îþ¤,…(:"B’œ¦’°’˜¡°œš¥Ÿ˜ S’¦–’: 6-31" Ï ГA$ô"-"â Š Ñ +Òþ¤,‚:" GET"8Óþ¤,ƒ:"I³ G’—’°¤¡–¢ ¢¥ INPUT-A°£’¦¤¥°—"9Ôþ¤,ƒ :"£¦œ ³¦– GET °¥ ’¦° Z’¦Ÿ˜’° ’¦°-":Õþ¤,ƒ@:"—’¸’¤’°. D’ R’Ÿ˜°’ ­š’ž­ª– š’¦";Öþ¤,ƒ`:"A¥ª–’–’° «·° GET ·š ’¦°’ T¡¤–’ —’-"8×þ¤,„:"œ­Ÿ©– ¦¤– ¥°œ £’¦¤– œ’ ¡°—’—’-"9Øþ¤,„:"š’°’° V¡¦¡š¸’° œ¡¤ T¡¤–’°¢’¦Ÿ˜’°";Ùþ¤,„ :"š¢£. œ’° Z¡˜¸’°£’– ¢¥. W¥œ’ ©’¦°’":Úþ¤,„0:"T¡¤–’ š’–»–¦—–, ¤· £¦œ œ’ V¡¦¡-"6Ûþ¤,„@:"š¸’° œ’ W’– 0 š¢£. š’¦ ’¦°’":Üþ¤,„P:"S–¦°—«¡¦¡š¸’° ’¦° L’’¤–¦°— ¢¥-"8Ýþ¤,„`:"—’£¦’¤’°. W»˜’°œ š’¦ œ’ INPUT-"7Þþ¤,„p:"A°£’¦¤¥°— °·Ÿ˜ ’©¸»’°œ’ T’›–"8ßþ¤,…:"¡°—’¢’¦—– £’œ’° ©¡°° (³¥® œ¥Ÿ˜"7àþ¤,…:"’¦° S’³¦©·¸·° «·° œ’ ª·¸—’°œ’°"8áþ¤,…:"V¡¦¡š¸’° —’–’°°– £’œ’°!), ¦¤–"3âþ¤,…:"œ¦’¤ š’¦ GET °¦Ÿ˜– ³º—¸¦Ÿ˜."4ãþ¤,…(:"B’œ¦’°’˜¡°œš¥Ÿ˜ S’¦–’: 6-32" ä å“A$ô"-"â ¼ æ /çþ¤,‚:" READ ... DATA":èþ¤,ƒ:"A¥Ÿ˜ ³¦– œ’ READ-A°£’¦¤¥°— £’œ’°":éþ¤,ƒ :"œ’³ R’Ÿ˜°’ D¡–’° ­š’³¦––’¸–. N¥"8êþ¤,ƒ@:"¤¦°œ œ¦’¤’ D¡–’° š’’¦–¤ ¦³ P·-";ëþ¤,ƒ`:"—¡³³ ’°–˜¡¸–’°. D¦’¤’ D¡–’° £’œ’°"8ìþ¤,„:"³¦– ’¦°’ DATA-A°£’¦¤¥°— —’©’°°-";íþ¤,„:"¢’¦Ÿ˜°’–. T¦–– ’¦°’ READ-A°£’¦¤¥°—"<îþ¤,„ :"¡¥ª, ¤· £’¦¤– œ’ R’Ÿ˜°’ œ’ ¦° œ’";ïþ¤,„0:"READ-A°£’¦¤¥°— š’¤–¦³³–’° V¡¦¡š¸’°"9ðþ¤,„@:"œ¦’ ’°–¤ž’Ÿ˜’°œ’° W’–’/Z’¦Ÿ˜’°";ñþ¤,„P:"¢¥. D¦’ D¡–’° ¦° œ’ DATA-A°£’¦¤¥°—"=òþ¤,„`:"³­¤¤’° œ¥Ÿ˜ K·³³¡–¡ —’–’°°– £’œ’°.":óþ¤,„p:"D’ R’Ÿ˜°’ š’°¥–¢– ’¦°’° ¦°–’°’°"=ôþ¤,…:"Z’¦—’, œ’ °¡Ÿ˜ ¯’œ’ READ-A°£’¦¤¥°—"9õþ¤,…:"¡¥ª œ’° °»Ÿ˜¤–’° D¡–’°¤¡–¢ ¢’¦—–."=öþ¤,…:"D¡¡¥¤ ª·¸—’–, œ¡® ¦³ P·—¡³³ ’š’°-":÷þ¤,…:"¤·«¦’¸’ D¡–’°¤»–¢’ £¦’ READ-A°£’¦-"5øþ¤,… :"¤¥°—’° «·˜¡°œ’° ¤’¦° ³­¤¤’°."4ùþ¤,…0:"B’œ¦’°’˜¡°œš¥Ÿ˜ S’¦–’: 6-34" ú û“A$ô"-"â Ñ ü -ýþ¤,‚:" RESTORE"<þþ¤,ƒ:"M¦– œ¦’¤’ A°£’¦¤¥°— ¦¤– ’¤ ³º—¸¦Ÿ˜,";ÿþ¤,ƒ :"œ’° Z’¦—’, œ’ °¡Ÿ˜ ’¦°’ READ-A°-":þ¤,ƒ@:"£’¦¤¥°— ¡¥ª œ’° °»Ÿ˜¤–’° D¡–’°¤¡–¢"/þ¤,ƒ`:"¢’¦—–, ¢¥ š’’¦°ª¸¥¤¤’°."=þ¤,„:"W¦œ œ¦’ RESTORE-A°£’¦¤¥°— ¦³ D¦’©–-"<þ¤,„:"M·œ¥¤ ’¦°—’—’š’°, ¤· £¦œ œ’ D¡–’°-"<þ¤,„ :"¢’¦—’ £¦’œ’ ¡¥ª œ’° A°ª¡°— ¢¥­Ÿ©-";þ¤,„0:"—’¤’–¢–. D¦’¤’ Eªª’©– £¦œ ¡¥Ÿ˜ ¦³";þ¤,„@:"P·—¡³³ ’’¦Ÿ˜–; RESTORE 0 ¸¡¥–’–":þ¤,„P:"œ¡°° œ¦’ ©·’©–’ A°£’¦¤¥°—. "=þ¤,„`:"D¦’ A°—¡š’ ’¦°’ ˜º˜’’° Z’¦¸’°°¥³³’"< þ¤,„p:"š’£¦©–, œ¡® œ’ D¡–’°¢’¦—’ ¡¥ª œ’°"8 þ¤,…:"’¤–’° DATA-S¡–¢ ¦° œ¦’¤’ Z’¦¸’"; þ¤,…:"·œ’, ª¡¸¸¤ œ¦’¤’ Z’¦¸’ ©’¦°’ DATA-"9 þ¤,…:"A°£’¦¤¥°— ’°–˜»¸–, ¡¥ª œ’° ’¤–’°"2 þ¤,…:"ª·¸—’°œ’° DATA-S¡–¢ ¢’¦—–."3þ¤,…(:"B’œ¦’°’˜¡°œš¥Ÿ˜ S’¦–’ 6-36"  “A$ô"-"â æ  T$ô"GUTEN TAG"B$ô"":AN$ô"":N$ô""!þ¤,‚:"B’¦¤ž¦’¸:"Mþ¤,ƒ:þ‚:"10 RESTORE 0:T$=";ÿ (");"GUTEN TAG";ÿ (")Rþ¤,ƒ :þ‚:"20 INPUT ";ÿ (");"N¡³’ ’¦°—’š’° :";ÿ (");";N$"Hþ¤,ƒ`:"30 IF LEN(N$)>12 THEN N$=";ÿ (");ÿ (");":RUN"Fþ¤,„:"40 PRINT ";ÿ (");"H’/F¡¥ (T¡¤–’ H ·œ’ F)"Bþ¤,„ :"50 GET B$:IF B$=";ÿ (");ÿ (");"THEN 50"`þ¤,„0:"60 IF B$<>";ÿ (");"H";ÿ (");" AND B$<>";ÿ (");"F";ÿ (");"THEN 50"#þ¤,„@:"70 READ AN$"Eþ¤,„P:"80 IF B$=";ÿ (");"F";ÿ (");"THEN READ AN$"*þ¤,„`:"90 PRINT T$,AN$,N$"þ¤,…:"100 END"*þ¤,…:"200 DATA HERR,FRAU"E þ‚@:þ¤,…:"Z¥ E¦°¢’¸¤Ÿ˜¦––-S¦³¥¸¡–¦·° ¯’£’¦¸¤"+!þ¤,… :"’¦°’ T¡¤–’ œ­Ÿ©’°!" " ý2#þ‚@:þ¤,ƒ:"10 RESTORE 0": ý-$þ‚:þ¤,ƒ:"10 RESTORE 0"E%þ‚@:þ¤„`,ƒ:"T$=";ÿ (");"GUTEN TAG";ÿ ("): ý@&þ‚:þ¤„`,ƒ:"T$=";ÿ (");"GUTEN TAG";ÿ (")W'þ‚@:þ¤,ƒ :"20 INPUT ";ÿ (");"N¡³’ ’¦°—’š’° :";ÿ (");";N$": ýR(þ‚:þ¤,ƒ :"20 INPUT ";ÿ (");"N¡³’ ’¦°—’š’° :";ÿ (");";N$"4)þ‚@::þ¤ƒ,ƒ@:‘"N¡³’ ’¦°—’š’° :";N$F*þ¤,ƒ`:"30 IF LEN(N$)>12 THEN N$=";ÿ (");ÿ ("): ýJ+þ¤,ƒ`:þ‚:"30 IF LEN(N$)>12 THEN N$=";ÿ (");ÿ (")8,“ÿ¬(N$)õ„@âþ‚@:þ¤…h,ƒ`:"RUN": ý8-“ÿ¬(N$)õ„@âþ‚@:þ¤…h,ƒ`:"RUN":€ T.þ‚@:þ¤,„:"40 PRINT ";ÿ (");"H’/F¡¥ (T¡¤–’ H ·œ’ F)": ýO/þ‚:þ¤,„:"40 PRINT ";ÿ (");"H’/F¡¥ (T¡¤–’ H ·œ’ F)";0þ‚@:þ¤ƒ,„:"H’/F¡¥ (T¡¤–’ H ·œ’ F)"21þ‚@:þ¤,„ :"50 GET B$":¾‡ 22þ‚:þ¤,„ :"50 GET B$":¾‡ I3þ‚@:þ¤„0,„ :"IF B$=";ÿ (");ÿ (");"THEN 50":¾‡ I4þ‚:þ¤„0,„ :"IF B$=";ÿ (");ÿ (");"THEN 50":¾‡ 5­B$16þ‚@:þ¤†,…0:"B$ :";B$:þ‚77“B$ô""âþ‚@:þ¤†,…0:"B$ : ":þ‚8“B$ô""â 1K9þ‚:þ¤,„ :"50 GET B$:IF B$=";ÿ (");ÿ (");"THEN 50"h:þ‚@:þ¤,„0:"60 IF B$<>";ÿ (");"H";ÿ (");" AND B$<>";ÿ (");"F";ÿ (");"THEN 50 ; ýh<þ‚:þ¤,„0:"60 IF B$<>";ÿ (");"H";ÿ (");" AND B$<>";ÿ (");"F";ÿ (");"THEN 50=“B$ï"H" ì B$ï"F"â 1>“B$ô"H"âAN$ô"HERR"?“B$ô"F"âAN$ô"FRAU"1@þ‚@:þ¤,„@:"70 READ AN$": ý,Aþ‚:þ¤,„@:"70 READ AN$"*Bþ‚@:þ¤„ ,…:"HERR": ý%Cþ‚:þ¤„ ,…:"HERR"SDþ‚@:þ¤,„P:"80 IF B$=";ÿ (");"F";ÿ (");"THEN READ AN$": ýNEþ‚:þ¤,„P:"80 IF B$=";ÿ (");"F";ÿ (");"THEN READ AN$"F“B$ï"F"â I*Gþ‚@:þ¤„p,…:"FRAU": ý%Hþ‚:þ¤„p,…:"FRAU"8Iþ‚@:þ¤,„`:"90 PRINT T$,AN$,N$": ý3Jþ‚:þ¤,„`:"90 PRINT T$,AN$,N$"(Kþ‚@:þ¤ƒ,„p:T$,AN$,N$-Lþ‚@:þ¤,…:"100 END": ý(Mþ‚:þ¤,…:"100 END"NT$ô"":AN$ô"":N$ô""&Oþ‚@:þ¤†,…0:" " P Q“A$ô"-"â ü R -Sþ¤,‚:" CONSOLE"<Tþ¤,ƒ:"D¦’¤’ A°£’¦¤¥°— ’¸¡¥š– ’¤ ª’¤–¢¥¸’-";Uþ¤,ƒ :"—’°, £¦’ —·® œ’ B¦¸œ¤Ÿ˜¦³š’’¦Ÿ˜"8Vþ¤,ƒ@:"¦¤–, œ’ ¢.B. š’¦ A¥¤ª­˜¥°— œ’¤"4Wþ¤,ƒ`:"LIST-B’ª’˜¸¤ —’¤Ÿ·¸¸– £¦œ.":Xþ¤,„:"A¥ª œ’³ 40-Z’¦Ÿ˜’°š¦¸œ¤Ÿ˜¦³ ¤¦°œ "=Yþ¤,„:"25 Z’¦¸’° œ¡¤–’¸¸š¡ (Z’¦¸’ 0 - 24).":Zþ¤,„ :"D’ «·’¦°—’¤–’¸¸–’ SŸ·¸¸-B’’¦Ÿ˜"7[þ¤,„0:"¥³ª¡®– Z’¦¸’ 0 š¦¤ Z’¦¸’ 24. U³":\þ¤,„@:"œ¦’¤’° B’’¦Ÿ˜ ¢.B. ¡¥ª œ¦’ Z’¦¸’°":]þ¤,„P:"6 - 18 ¢¥ š’—’°¢’° ³­®–’ œ¦’ ª·¸-":^þ¤,„`:"—’°œ’ A°£’¦¤¥°— ’¦°—’—’š’° £’œ’°:"1_þ¤,„p:" > CONSOLE 6,18 <":`þ¤,…:"A¥Ÿ˜ š’¦ œ’ A°£’¦¤¥°— ¢¥³ Lº¤Ÿ˜’°";aþ¤,…:"œ’¤ B¦¸œ¤Ÿ˜¦³¤ £¦œ °¥° °¥ œ’ ¦°";bþ¤,…:"œ’ CONSOLE-A°£’¦¤¥°— š’¤–¦³³–’ B’-"'cþ¤,…:"’¦Ÿ˜ —’¸º¤Ÿ˜–."4dþ¤,…(:"B’œ¦’°’˜¡°œš¥Ÿ˜ S’¦–’: 6-10" e f“A$ô"-"â g›:¸hIôà…0i" ";jDôàƒ@k"TEST ";lŽ:mŽ(nþ¤„P,„ :" "(oþ¤„P,„0:" CONSOLE 0,24 "(pþ¤„P,„@:" " q ýr¸ƒ@,… sþ‚tIôƒ@à…u" ";vDôàƒ@w"TEST "; xŽ::Žyþ‚@:þ¤,„:(zþ¤„P,„0:" "({þ¤„P,„@:" CONSOLE 6,18 "(|þ¤„P,„P:" "&}þ¤„`,…:"T¡¤–’ œ­Ÿ©’°!"~­A$:“A$ô""â ~¸ € ;þ [‚@]†8,‡ ,"CONSOLE",ƒ,ƒ,;‚þ [‚@]†8,‡>,"",ƒ,ƒ, ƒ „“A$ô"-"â R … -†þ¤,‚:" CURSOR"<‡þ¤,ƒ:"D’ MZ-800 š¦’–’– ’¦°’ ’Ÿ˜– ©·³ª·-";ˆþ¤,ƒ :"–¡š¸’ CURSOR-S–’¥’¥°—. S–¡–– ³¦– ";‰þ¤,ƒ@:"PRINT- ¥°œ TAB-A°£’¦¤¥°—’° ¥³¤–»°œ-"<Šþ¤,ƒ`:"¸¦Ÿ˜ ¥°œ ¢’¦–¡¥ª£’°œ¦— ¢¥ ¡š’¦–’°,":‹þ¤,„:"—’¤–¡––’– œ¦’ CURSOR-A°£’¦¤¥°— ’¦°"<Œþ¤,„:"’¦°ª¡Ÿ˜’¤ A°¤ž’Ÿ˜’° ¯’œ’ ³º—¸¦Ÿ˜’°".þ¤,„ :"B¦¸œ¤Ÿ˜¦³-K··œ¦°¡–’."7Žþ¤,„0:"D¦’ ©·’©–’ A°£’¦¤¥°— ¸¡¥–’–: "2þ¤,„@:" > CURSOR X,Y <":þ¤,„P:"B’¦³ 40-Z’¦Ÿ˜’°-B¦¸œ¤Ÿ˜¦³ ¦¤– œ’";‘þ¤,„`:"—º®–³º—¸¦Ÿ˜’ X-W’– 39; œ’ —º®–’";’þ¤,„p:"Y-W’– ©¡°° 24 š’–¡—’°. A¸¤ ©¸’¦°-"<“þ¤,…:"¤–’ Gº®’ ©¡°° ª­ š’¦œ’ K··œ¦°¡–’°"2”þ¤,…:"œ’ W’– 0 —’£»˜¸– £’œ’°."4•þ¤,… :"B’œ¦’°’˜¡°œš¥Ÿ˜ S’¦–’: 6-11" –  — :˜þ [‚@]†`,‡ ,"CURSOR",ƒ,ƒ,:™þ [‚@]†`,‡>,"",ƒ,ƒ, š ý › "œþ”,†(,†H,†("þ”†H,†(,†H,žþ¤ƒ@,ƒ :"Y=5"Ÿþ¤ƒ@,:"X=6"= þ [‚@]„ ,‡ ,"CURSOR6,5",ƒ,ƒ,=¡þ [‚@]„ ,‡>,"",ƒ,ƒ, ¢ ý £ "¤þ”,‡,ˆ,‡"¥þ”ˆ,‡,ˆ,¦þ¤…,„:"Y=8"§þ¤…,:"X=16">¨þ [‚@]…p,‡H,"CURSOR16,8",‚@,ƒ,>©þ [‚@]…p,‡\,"",‚@,ƒ, ª «“A$ô"-"â — ¬ ;­þ¤‚,„ :"B’«· S¦’ ¤¦Ÿ˜ œ’ °»Ÿ˜¤–’° L’©–¦·°":®þ¤‚,„0:"¢¥£’°œ’° ¸º¤’° S¦’ š¦––’ œ¦’ °¡Ÿ˜-"+¯þ¤‚,„@:"ª·¸—’°œ’° A¥ª—¡š’°!" ° ±“A$ô"-"â £ ² 9³þ¤,„:"W’¸Ÿ˜’ œ’ ª·¸—’°œ’° A¥¤¤¡—’° ¦¤–"´þ¤,„ :"ª¡¸¤Ÿ˜?"?µþ‚:þ¤,„@:"A. IF...THEN ¦¤– ’¦°’ š’œ¦°—–’"$¶þ¤ƒ,„P:"V’¢£’¦—¥°—."<·þ¤,„p:"B. D¦’ CURSOR-A°£’¦¤¥°— š’¤–¦³³– œ’°"'¸þ¤ƒ,…:"SŸ·¸¸-B’’¦Ÿ˜."4¹þ¤,…:"C. FOR...NEXT š’°º–¦—– ’¦°’°"(ºþ¤ƒ,…:"SŸ˜¸’¦ª’°¢»˜¸’."»þ‚@: ý¼“A$ô""â »½“A$ô"A"â â:€ ²¾“A$ô"B"â ã:€ Á¿“A$ô"C"â â:€ ² À€ » Á “A$ô"-"â ¬ à 8Äþ¤,„:"W’¸Ÿ˜’ œ’ ª·¸—’°œ’° A°£’¦¤¥°—’°"#Åþ¤,„ :"¦¤– ª¡¸¤Ÿ˜?"GÆþ‚:þ¤,„@:"A. INPUT";ÿ (");"N¡³’ :";ÿ (");";N"!Çþ¤,„`:"B. GET N$">Èþ¤,…:"C. PRINT";ÿ (");"N¡³’ :";ÿ (");"N$"Éþ‚@: ýÊ“A$ô""â ÉË“A$ô"A"â ã:€ ÏÌ“A$ô"B"â â:€ ÃÍ“A$ô"C"â â:€ à ΀ É Ï Ð“A$ô"-"â ² Ñ 9Òþ¤,„:"W’¸Ÿ˜’ œ’ ª·¸—’°œ’° A¥¤¤¡—’° ¦¤–"Óþ¤,„ :"ª¡¸¤Ÿ˜?"FÔþ‚:þ¤,„@:"A. RESTORE š’’°œ’– ’¦° U°–’ž·—¡³³."3Õþ¤,„`:"B. END š’’°œ’– ’¦° P·—¡³³"2Öþ¤,…:"C. DATA-D¡–’° £’œ’° œ¥Ÿ˜")×þ¤ƒ,…:"K·³³¡–¡ —’–’°°–."Øþ‚@: ýÙ“A$ô""â ØÚ“A$ô"A"â ã:€ ÞÛ“A$ô"B"â â:€ ÑÜ“A$ô"C"â â:€ Ñ Ý€ Ø Þ ß“A$ô"-"â Ã à€ äá˜>â :þ¤ƒ`,„0:"D¡¤ ¦¤– °¦Ÿ˜– ¦Ÿ˜–¦—!":¾Šz:„Bã :þ¤„0,„0:"D¡¤ ¦¤– ¦Ÿ˜–¦—!":Iôà‹z:Ž:„ ä &åþ¤„@,ƒ :"E°œ’ L’©–¦·° 2"Fæþ¤„,„:"L’©–¦·° £¦’œ’˜·¸’° =";:þ‚:" R":þ‚@Fçþ¤„,„@:"T’¦¸ 3 ¸¡œ’° =";:þ‚:" L":þ‚@0èþ¤„P,…8:þ‚@:"T¡¤–’ œ­Ÿ©’° !"é­A$:“A$ô""â éê“A$ô"R"âƒë“A$ô"L"â ì“A$ô"L"âHBô:: € é7íþ¤ƒ,„:"HABEN SIE DIE PROGRAMM-KASSETTE"0îþ¤ƒ,„ :" EINGELEGT (J/N) ?"ï­A$:“A$ô""â ïð“A$ô"J"â ñ:: € ï.ñþ¤…,„P:"PLAY ";ÿ ():ƒ"TEIL3"ò˜óYôà…8-ô“Yõ ì Yö…8âVô::ÂVô!õ“VôâXô:X1ô†ö“Vôâþ¤X,Y:"*"÷“Vôâþ¤X1,Y:"*"ø“Vô†üùXôà†:5ú“Xõ ì Yõ ì Xö† ì Y ö…8†üûþ¤X,Y:"*" üŽ:Ž:„'ýþ¤„P,…8:"T¡¤–’ œ­Ÿ©’° !"þ­A$:“A$ô""â ýÿ„/þ¤„,…8:" - / + T¡¤–’ œ­Ÿ©’° ! "­A$:“A$ô""â „=›:þ˜[‚,],,,‰@€,ˆ>,‚:„6›:þ˜[‚,],,,‰,ˆ>:„IôàŒ;€:Ž:„