1 POKE45,PEEK(174):POKE46,PEEK(175):CLR:POKE53281,1:POKE53280,1
2 POKE788,52:POKE657,128:GOTO100
7 GETA$:IFA$=""THEN7
8 PRINT:RETURN
10 FORI=1TO39:PRINTCHR$(30)C$;:NEXT:FORI=1TO22:PRINT"[157]"C$;:NEXT:PRINT"[157]";:FORI=1TO38:PRINT"[157]"C$"[157]";
12 NEXT:PRINTC$:FORI=1TO23:PRINT"[145]"C$"[157]";:NEXT:RETURN
34 )
100 PRINT"[147]"TAB(12)CHR$(156)"ZEILENNUMMER[146]":GOSUB8
900 PRINTCHR$(31)"EIN BASIC-PROGRAMM BESTEHT AUS EINER
940 [153]"LISTE VON ANWEISUNGEN, DIE NACHEIN-
950 PRINT"ANDER DER ";CHR$(156)" ZEILENNUMMER [146]";CHR$(31)" ENTSPRECHEND"
951 PRINT"AUSGEFUEHRT WERDEN.":GOSUB8
970 PRINT"JEDE ANWEISUNG MUSS EINE ";CHR$(156)" ZEILENNUMMER [146]"
971 PRINTCHR$(31)"HABEN.":GOSUB8
990 PRINT"MIT EINGABE DER ANWEISUNG IST DEREN
1000 [153]"POSITION IM PROGRAMM DURCH DIE ";[199](156)" ZEILEN-WAIT"
1001 [153]"NUMMER WAIT";[199](31)" FESTGELEGT."
1010 [141]8:[141]8
1020 [153]"AM FOLGENDEN PROGRAMM SOLL NUN DIE
1030 PRINT"BEDEUTUNG DER ";CHR$(156)" ZEILENNUMMER [146]";CHR$(31)" ILLUSTRIERT"
1040 PRINT"[145]WERDEN.":GOSUB7
1050 PRINTCHR$(30)"[147]10 PRINT"CHR$(34)"EINGABE DES ALTERS IN JAHREN"CHR$(34)
1055 PRINT"20 INPUT A
1060 [153]"30 PRINT"[199](34)"SIE SIND"[199](34)"365*A"[199](34)"TAGE ALT"[199](34)
1072 [153]:[129]I[178]1[164]39:[153][199](31)"TAB(";:[130]I:[141]8
1090 [153]"ANGENOMMEN, ES SOLL DAS ALTER SOWOHL IN
1100 PRINT"TAGEN ALS AUCH IN MONATEN BERECHNET":PRINT"WERDEN,
1110 [141]8:[153]"DANN GEBEN SIE FOLGENDE ANWEISUNG EIN:":[153]
1120 [153][199](30)"35 PRINT"[199](34)"SIE SIND"[199](34)"12*A "[199](34)"MONATE ALT
1130 PRINT:PRINTCHR$(31)"DIES ERGIBT AUTOMATISCH:"
1135 FORI=1TO38:PRINT"[164]";:NEXTI:PRINT:PRINT
1140 PRINTCHR$(30)"10 PRINT"CHR$(34)"EINGABE DES ALTERS IN JAHREN"CHR$(34)
1150 PRINT"20 INPUT A
1160 [153]"30 PRINT"[199](34)"SIE SIND"[199](34)"365*A"[199](34)"TAGE ALT"[199](34)
1170 [153]"35 PRINT"[199](34)"SIE SIND"[199](34)"12*A "[199](34)"MONATE ALT
1380 GOSUB7:PRINTCHR$(31)"[147]SEHEN SIE NUN, WAS DAS NEUE PROGRAMM"
1390 PRINT"BEWIRKT:":GOSUB8:GOSUB8
1402 PRINTCHR$(30)"[207][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][208]
1404 [153]"FNBITTE TIPPEN SIE IHR ALTER EIN."[163]38)"THEN
1406 PRINT"[204][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][186]":GOSUB8
1430 PRINT:PRINTCHR$(31)"EINGABE DES ALTERS IN JAHREN ":INPUTA
1440 PRINT"SIE SIND"365*A" TAGE ALT
1450 [153]"SIE SIND"12[172]A" MONATE ALT":[153]:[141]7
1530 [153]"LOADSICHERLICH FRAGEN SIE SICH,WARUM DIE
1540 PRINTCHR$(156)" ZEILENNUMMERN [146]";CHR$(31)" IM ORIGINALPROGRAMM
1550 [153]"IMMER EIN VIELFACHES VON 10 SIND.":[141]8
1560 [153]"DIES ERMOEGLICHT DAS EINSCHIEBEN VON
1570 PRINT"NEUEN ANWEISUNGEN, FALLS DAS PROGRAMM
1575 [153]"VERAENDERT WERDEN SOLL.":[141]8
1590 [153][199](156)" ZEILENNUMMER WAIT";[199](31)" KANN JEDE ZAHL VON 0"
1591 [153]"BIS 63999 SEIN.":[141]8
1610 [153]"DIE ";[199](156)" ZEILENNUMMER WAIT";[199](31)" ERMOEGLICHT DAS "
1620 [153]"AENDERN ODER LOESCHEN VON GEGEBENEN":[153]"ANWEISUNGEN.":[141]7
1640 [153]"LOADANGENOMMEN, DIE ZEILE 145 IM FOLGENDEN
1650 PRINT"PROGRAMM SOLL GEAENDERT WERDEN.":GOSUB8
1670 PRINTCHR$(30)"135 PRINT"CHR$(34)"EINGABE VON ZWEI ZAHLEN"CHR$(34)
1680 PRINT"140 INPUT A,B
1690 [153]"145 PRINT"[199](34)"DAS PRODUKT IST"[199](34)"A+B":[153]
1700 [129]I[178]1[164]38:[153][199](31)"TAB(";:[130]I:[153]:[141]8
1710 [153]"NUN WIRD EINGETIPPT:
1730 PRINTCHR$(30)"145 PRINT"CHR$(34)"DIE SUMME IST"CHR$(34)"A+B":GOSUB8
1750 PRINTCHR$(31)"DAS ABGEAENDERTE PROGRAMM SIEHT
1760 [153]"FOLGENDERMASSEN AUS:"
1765 [129]I[178]1[164]38:[153]"TO";:[130]I:[153]:[153]
1770 [153][199](30)"135 PRINT"[199](34)"EINGABE VON ZWEI ZAHLEN"[199](34)
1780 [153]"140 INPUT A,B
1790 PRINT"145 PRINT"CHR$(34)"DIE SUMME IST"CHR$(34)"A+B":GOSUB8
1795 PRINTCHR$(31)"(BEACHTEN SIE DIE VERAENDERUNG IN":PRINT" ZEILE 145!)":GOSUB7
1810 PRINT"[147]EINE ANWEISUNG WIRD DURCH EINGABE DER
1820 [153][199](156)" ZEILENNUMMER WAIT";[199](31)" GELOESCHT.":[141]8
1850 [153]"UM ALLE ZEILEN EINES PROGRAMMS ZU
1851 PRINT"LOESCHEN (D.H. DEN SPEICHER FUER EIN
1852 [153]"NEUES PROGRAMM FREI ZU MACHEN),
1860 GOSUB8:PRINT"TIPPEN SIE DEN BEFEHL ";CHR$(28)" N E W [146]";CHR$(31)"EIN.":GOSUB8:GOSUB8
1870 PRINTCHR$(28)"[207]";:FORI=1TO37:PRINT"[163]";:NEXT:PRINT"[208]
1880 [153]"FN"[163]38)"THEN":[153]"FN"[163]38)"THEN":[153]"(null)";:[129]I[178]1[164]37:[153]"TO";:[130]:
1885 [153]"SQRONONONON";
1890 [153]"BEM.:N E W IST EIN SYSTEMKOMMANDO
1900 PRINT"UND ERFORDERT KEINE ZEILENNUMMER":GOSUB7
2220 C$="[216]":PRINT"[147]":GOSUB10
2250 PRINT""TAB(11)"ENDE VON LEKTION 1
2255 [153][199](31)"SIND SIE BEREIT FUER LEKTION 2 ?"
2256 [153][199](28)"DRUECKEN SIE BITTE DIE TASTE"
2257 [153]"J   FUER JA"
2258 [153]"N   FUER NEIN
2259 GETA$:IFA$="J"THEN9000
2260 IFA$<>"N"THEN2259
2270 PRINTCHR$(30)"[147]AUF WIEDERSEHEN BEI"
2280 PRINTCHR$(28)"              LEKTION 2[146]"
2300 FORZ=1TO700:NEXTZ
2310 SYS64738
9000 LOAD"2/1LEKTION",8