1830 pokebs,11:print"[147]":syspa,1,fna(xa),"[153]"me$(xa):syspa,2,fna(xa)+1,"[155]-------------":ifan=0thensyspa,4,1,"[193]chtelfinale nicht abgeschlossen !!!"
2030 print"[147][154]":pokebs,11:syspa,1,fna(xa),"[153]"me$(xa):syspa,2,fna(xa)+1,"[155]----------":ifvf=0thenwm$="":wm=0:syspa,4,1,"[214]iertelfinale nicht abgeschlossen!"
2230 print"[147][154]":pokebs,11:syspa,1,fna(xa),"[153]"me$(xa):syspa,2,fna(xa)+1,"[155]----------------":ifhf=0thensyspa,4,1,"[200]albfinale nicht abgeschlossen !!!"
2390 print"[147][154]":pokebs,11:syspa,1,fna(xa),"[153]"me$(xa):syspa,2,fna(xa)+1,"[155]------":ifhf=0thensyspa,4,1,"[200]albfinale nicht abgeschlossen !":wm=0:wm$=""
3095 print"[147]":syspa,1,1,"[153][203]orrektur":syspa,2,1,"[155]---------":syspa,5,1,"[158][215]as soll korrigiert werden ?":syspa,7,1,"1 - [206]ame":syspa,9,1,"2 - [204]and"
3115 geta$:ifa$=""then3115
3120 ifa$<"1"ora$>"2"then3115
3125 ifa$="1"then3140
3130 ifa$="2"then3200
3140 print"[147]":syspa,1,1,"[153][203]orrektur des [206]amens":syspa,2,1,"[155]--------------------":syspa,4,1,"[158][193]lter [206]ame:":syspa,4,13,ts$(nt):syspa,6,13,"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]":syspa,6,1,"[206]euer [206]ame:":syspa,7,13,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"