Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)
20000! BASIC-ANALYSE-PROGRAMM
20001! PROGRAMM-NAME:K+BAANAL
20002! VERFASSER:KITTELMANN,MKD/1EKG
20003! VERSION 1.0 DATUM 22.09.1984
20004 I=1025
20005 IF DEEK(I+2)=20000 THEN PRINT I;" 0 PROGRAMM-ENDE":PRINT I+1;" 0":GOTO 20017
20006 A=DEEK(I):PRINT I;STR$(PEEK(I));TAB(12);"NEUE ADRESSE:";A:PRINT I+1;STR$(PEEK(I+1))
20007 B=DEEK(I+2):PRINT I+2;STR$(PEEK(I+2));TAB(12);"ZEILENNUMMER:";B:C=I+4
20008 PRINT I+3;STR$(PEEK(I+3))
20009 K=0:FOR I=C TO A-1
20010 D=PEEK(I):E$=CHR$(D):F$=STR$(D):IF D=0 THEN PRINT I;" 0 ENDE DER ZEILE"
20011 IF D=0 THEN PRINT:GOTO 20015
20012 IF D<32 THEN PRINT I;" ";F$;" FEHLER !!":PAUSE:POKE I,32:GOTO 20015
20013 IF D=34 THEN K=K-(K=0)+(K=1)
20014 PRINT I;F$;TAB(12);:IF D>127 AND D<226 AND K=0 THEN GOSUB 20018:ELSE PRINT E$
20015 NEXT I:IF A<>I THEN PRINT " FEHLER !!":STOP
20016 GOTO 20005
20017 DELETE 20000,20116
20018 IF D=128 THEN PRINT "END":RETURN
20019 IF D=129 THEN PRINT "FOR":RETURN
20020 IF D=130 THEN PRINT "NEXT":RETURN
20021 IF D=131 THEN PRINT "DATA":RETURN
20022 IF D=132 THEN PRINT "INPUT":RETURN
20023 IF D=133 THEN PRINT "DIM":RETURN
20024 IF D=134 THEN PRINT "READ":RETURN
20025 IF D=135 THEN PRINT "LET":RETURN
20026 IF D=136 THEN PRINT "GOTO":RETURN
20027 IF D=137 THEN PRINT "RUN":RETURN
20028 IF D=138 THEN PRINT "IF":RETURN
20029 IF D=139 THEN PRINT "RESTORE":RETURN
20030 IF D=140 THEN PRINT "GOSUB":RETURN
20031 IF D=141 THEN PRINT "RETURN":RETURN
20032 IF D=142 THEN PRINT "REM":RETURN
20033 IF D=143 THEN PRINT "STOP":RETURN
20034 IF D=144 THEN PRINT "OUT":RETURN
20035 IF D=145 THEN PRINT "ON":RETURN
20036 IF D=146 THEN PRINT "NULL":RETURN
20037 IF D=147 THEN PRINT "WAIT":RETURN
20038 IF D=148 THEN PRINT "DEF":RETURN
20039 IF D=149 THEN PRINT "POKE":RETURN
20040 IF D=150 THEN PRINT "DOKE":RETURN
20041 IF D=151 THEN PRINT "AUTO":RETURN
20042 IF D=152 THEN PRINT "LINES":RETURN
20043 IF D=153 THEN PRINT "CLS":RETURN
20044 IF D=154 THEN PRINT "WIDTH":RETURN
20045 IF D=155 THEN PRINT "BYE":RETURN
20046 IF D=156 THEN PRINT "!":RETURN
20047 IF D=157 THEN PRINT "CALL":RETURN
20048 IF D=158 THEN PRINT "PRINT":RETURN
20049 IF D=159 THEN PRINT "CONT":RETURN
20050 IF D=160 THEN PRINT "LIST":RETURN
20051 IF D=161 THEN PRINT "CLEAR":RETURN
20052 IF D=162 THEN PRINT "CLOAD":RETURN
20053 IF D=163 THEN PRINT "CSAVE":RETURN
20054 IF D=164 THEN PRINT "NEW":RETURN
20055 IF D=165 THEN PRINT "TAB(":RETURN
20056 IF D=166 THEN PRINT "TO":RETURN
20057 IF D=167 THEN PRINT "FN":RETURN
20058 IF D=168 THEN PRINT "SPC(":RETURN
20059 IF D=169 THEN PRINT "THEN":RETURN
20060 IF D=170 THEN PRINT "NOT":RETURN
20061 IF D=171 THEN PRINT "STEP":RETURN
20062 IF D=172 THEN PRINT "+":RETURN
20063 IF D=173 THEN PRINT "-":RETURN
20064 IF D=174 THEN PRINT "*":RETURN
20065 IF D=175 THEN PRINT "/":RETURN
20066 IF D=176 THEN PRINT "^":RETURN
20067 IF D=177 THEN PRINT "AND":RETURN
20068 IF D=178 THEN PRINT "OR":RETURN
20069 IF D=179 THEN PRINT ">":RETURN
20070 IF D=180 THEN PRINT "=":RETURN
20071 IF D=181 THEN PRINT "<":RETURN
20072 IF D=182 THEN PRINT "SGN":RETURN
20073 IF D=183 THEN PRINT "INT":RETURN
20074 IF D=184 THEN PRINT "ABS":RETURN
20075 IF D=185 THEN PRINT "USR":RETURN
20076 IF D=186 THEN PRINT "FRE":RETURN
20077 IF D=187 THEN PRINT "INP":RETURN
20078 IF D=188 THEN PRINT "POS":RETURN
20079 IF D=189 THEN PRINT "SQR":RETURN
20080 IF D=190 THEN PRINT "RND":RETURN
20081 IF D=191 THEN PRINT "LN":RETURN
20082 IF D=192 THEN PRINT "EXP":RETURN
20083 IF D=193 THEN PRINT "COS":RETURN
20084 IF D=194 THEN PRINT "SIN":RETURN
20085 IF D=195 THEN PRINT "TAN":RETURN
20086 IF D=196 THEN PRINT "ATN":RETURN
20087 IF D=197 THEN PRINT "PEEK":RETURN
20088 IF D=198 THEN PRINT "DEEK":RETURN
20089 IF D=199 THEN PRINT "PI":RETURN
20090 IF D=200 THEN PRINT "LEN":RETURN
20091 IF D=201 THEN PRINT "STR$":RETURN
20092 IF D=202 THEN PRINT "VAL":RETURN
20093 IF D=203 THEN PRINT "ASC":RETURN
20094 IF D=204 THEN PRINT "CHR$":RETURN
20095 IF D=205 THEN PRINT "LEFT$":RETURN
20096 IF D=206 THEN PRINT "RIGHT$":RETURN
20097 IF D=207 THEN PRINT "MID$":RETURN
20098 IF D=208 THEN PRINT "LOAD":RETURN
20099 IF D=209 THEN PRINT "TRON":RETURN
20100 IF D=210 THEN PRINT "TROFF":RETURN
20101 IF D=211 THEN PRINT "EDIT":RETURN
20102 IF D=212 THEN PRINT "ELSE":RETURN
20103 IF D=213 THEN PRINT "INKEY$":RETURN
20104 IF D=214 THEN PRINT "JOYST":RETURN
20105 IF D=215 THEN PRINT "STRING$":RETURN
20106 IF D=216 THEN PRINT "INSTR":RETURN
20107 IF D=217 THEN PRINT "RENUMBER":RETURN
20108 IF D=218 THEN PRINT "DELETE":RETURN
20109 IF D=219 THEN PRINT "PAUSE":RETURN
20110 IF D=220 THEN PRINT "BEEP":RETURN
20111 IF D=221 THEN PRINT "WINDOW":RETURN
20112 IF D=222 THEN PRINT "BORDER":RETURN
20113 IF D=223 THEN PRINT "INK":RETURN
20114 IF D=224 THEN PRINT "PAPER":RETURN
20115 IF D=225 THEN PRINT "AT":RETURN
20116 PRINT "FEHLER IN TOKEN":RETURN