1 POKE45,PEEK(174):POKE46,PEEK(175):CLR:POKE788,52:POKE657,128
2 POKE53280,1:POKE53281,1:GOTO16
3 PRINT"[147]":FORI=1TO39:PRINTC$;:NEXT:FORI=1TO22:PRINT"[157]"C$;:NEXT:PRINT"[157]";
4 FORI=1TO38:PRINT"[157]"C$"[157]";:NEXT:PRINTC$
5 FORI=1TO23:PRINT"[145]"C$"[157]";:NEXT:RETURN
7 GETA$:IFA$=""THEN7
8 PRINT:RETURN
16 Z$=CHR$(34):C$="[214]":GOSUB3:PRINT""TAB(15)"LEKTION 9"
17 PRINTTAB(12)"1. SAVE":PRINTTAB(12)"2. LOAD":GOSUB7
35 PRINT"[147]":PRINTTAB(12)"SAVE"
36 PRINT"DER COMPUTER BIETET IHNEN DIE MOEGLICH-":PRINT"KEIT, PROGRAMME AUF";
37 PRINT" EINER KASSETTE ODER":PRINT"DISKETTE ZU SPEICHERN."
38 PRINT"1. SPEICHERN AUF KASSETTE: [146]"
39 PRINT"UEBERLEGEN SIE SICH, WIE DAS PROGRAMM,"
40 PRINT"DAS SIE AUF BAND NEHMEN WOLLEN, HEISSEN":PRINT"SOLL. (ZUM BEISPIEL: JOHN)
41 [153]"NACHDEM SIE DAS ENTSPRECHENDE BAND EIN-":[153]"GELEGT HABEN,";
42 [153]"TIPPEN SIE EIN:":[153]"FOR SAVE"Z$"JOHN"Z$"":[153]"UND DRUECKEN DIE FORRETURN-TASTE"
43 [153]"DER COMPUTER WIRD SIE MIT:":[153]:[153]" FORPRESS PLAY AND RECORD ON TAPE"
44 [153]:[153]"AUFFORDERN,FOR AUFNAHME- UND PLAY-TASTE":[153]"DES RECORDERS";
45 [153]" ZU DRUECKEN.";
46 [141]7:[153]"LOAD2. SPEICHERN AUF DISKETTE: WAIT"
47 [153]"NACH EINLEGEN DER ENTSPRECHENDEN DIS-":[153]"KETTE IN DIE FLOPPY TIPPEN SIE:"
48 [153]"FOR  SAVE"Z$"JOHN"Z$",8":[153]"EIN UND DRUECKEN DIE FORRETURN-TASTE."
49 [153]"SOLLTE BEREITS EIN PROGRAMM MIT":[153]"GLEICHEM NAMEN AUF DER DISKETTE EX-"
50 [153]"ISTIEREN, SO MELDET DER CBM 64:":[153]"FOR  FILE EXISTS"
52 [153]"SIE KOENNEN DANN DIESES PROGRAMM UEBER-":[153]"SCHREIBEN MIT:"
53 [153]"FOR  SAVE"Z$"@:JOHN"Z$",8"
54 [153]"ODER DAS PROGRAMM UNTER EINEM ANDEREN":[153]"NAMEN ABSPEICHERN."
86 [141]7:[153]"LOAD"[163]15)"LOAD"
87 [153]"ANGENOMMEN, SIE WOLLEN DAS PROGRAMM
88 PRINTZ$"JOHN"Z$" VON DER KASSETTE IN DEN SPEICHER":PRINT"DES COMPUTERS EINLESEN."
89 PRINT"DAZU TIPPEN SIE, NACHDEM SIE":PRINT"GEGEBENENFALLS";
90 PRINT" DAS BAND ZURUECKGESPULT":PRINT"HABEN:
92 [153]"LOAD ";Z$;"JOHN";Z$:[153]"EIN UND DRUECKEN DIE FORRETURN-TASTE."
93 [153]"DER COMPUTER FORDERT SIE NUN MIT:":[153]:[153]"      FOR PRESS PLAY ON TAPE"
94 [153]:[153]"AUF, DIE FORPLAY-TASTE DES RECORDERS ZU":[153]"DRUECKEN. "
99 [141]7:[153]"LOAD"
100 [153]"WOLLEN SIE DAS PROGRAMM VON EINER":[153]"DISKETTE LADEN, SO TIPPEN SIE EIN:"
101 [153]"  LOAD"Z$"JOHN"Z$",8":[153]"UND DRUECKEN DIE FORRETURN-TASTE.":[141]7
800 C$[178]"(null)":[141]3:[153]"";[163]9)"ENDE VON LEKTION 9
820 PRINT"";TAB(1)"SIND SIE BEREIT FUER LEKTION 10 ?"
830 PRINTTAB(16)"(J/N)"
840 GETA$:IFA$="N"THEN900
850 IFA$<>"J"THEN840
855 PRINT"[156]ES FOLGEN DIE FORTGESCHRITTENEN":PRINT"UEBUNGEN!"
860 LOAD"10/1LEKTION",8
900 PRINT"[147]":PRINT"AB DER NAECHSTEN LEKTION BEGINNEN DIE"
910 PRINT"[156]   UEBUNGEN FUER FORTGESCHRITTENE"
930 FORZ=1TO700:NEXTZ
940 SYS64738