home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 5
/
Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
9_1lektion
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
51 lines
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