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 >
Commodore BASIC  |  2023-02-26  |  2KB  |  51 lines
  1. 1 poke45,peek(174):poke46,peek(175):clr:poke788,52:poke657,128
  2. 2 poke53280,1:poke53281,1:goto16
  3. 3 print"[147]":fori=1to39:printc$;:next:fori=1to22:print"[157]"c$;:next:print"[157]";
  4. 4 fori=1to38:print"[157]"c$"[157]";:next:printc$
  5. 5 fori=1to23:print"[145]"c$"[157]";:next:return
  6. 7 geta$:ifa$=""then7
  7. 8 print:return
  8. 16 z$=chr$(34):c$="[214]":gosub3:print""tab(15)"lektion 9"
  9. 17 printtab(12)"1. save":printtab(12)"2. load":gosub7
  10. 35 print"[147]":printtab(12)"save"
  11. 36 print"der computer bietet ihnen die moeglich-":print"keit, programme auf";
  12. 37 print" einer kassette oder":print"diskette zu speichern."
  13. 38 print"1. speichern auf kassette: [146]"
  14. 39 print"ueberlegen sie sich, wie das programm,"
  15. 40 print"das sie auf band nehmen wollen, heissen":print"soll. (zum beispiel: john)
  16. 41 [153]"nachdem sie das entsprechende band ein-":[153]"gelegt haben,";
  17. 42 [153]"tippen sie ein:":[153]"for save"z$"john"z$"":[153]"und druecken die forreturn-taste"
  18. 43 [153]"der computer wird sie mit:":[153]:[153]" forpress play and record on tape"
  19. 44 [153]:[153]"auffordern,for aufnahme- und play-taste":[153]"des recorders";
  20. 45 [153]" zu druecken.";
  21. 46 [141]7:[153]"load2. speichern auf diskette: wait"
  22. 47 [153]"nach einlegen der entsprechenden dis-":[153]"kette in die floppy tippen sie:"
  23. 48 [153]"for  save"z$"john"z$",8":[153]"ein und druecken die forreturn-taste."
  24. 49 [153]"sollte bereits ein programm mit":[153]"gleichem namen auf der diskette ex-"
  25. 50 [153]"istieren, so meldet der cbm 64:":[153]"for  file exists"
  26. 52 [153]"sie koennen dann dieses programm ueber-":[153]"schreiben mit:"
  27. 53 [153]"for  save"z$"@:john"z$",8"
  28. 54 [153]"oder das programm unter einem anderen":[153]"namen abspeichern."
  29. 86 [141]7:[153]"load"[163]15)"load"
  30. 87 [153]"angenommen, sie wollen das programm
  31. 88 printz$"john"z$" von der kassette in den speicher":print"des computers einlesen."
  32. 89 print"dazu tippen sie, nachdem sie":print"gegebenenfalls";
  33. 90 print" das band zurueckgespult":print"haben:
  34. 92 [153]"load ";z$;"john";z$:[153]"ein und druecken die forreturn-taste."
  35. 93 [153]"der computer fordert sie nun mit:":[153]:[153]"      for press play on tape"
  36. 94 [153]:[153]"auf, die forplay-taste des recorders zu":[153]"druecken. "
  37. 99 [141]7:[153]"load"
  38. 100 [153]"wollen sie das programm von einer":[153]"diskette laden, so tippen sie ein:"
  39. 101 [153]"  load"z$"john"z$",8":[153]"und druecken die forreturn-taste.":[141]7
  40. 800 c$[178]"(NULL)":[141]3:[153]"";[163]9)"ende von lektion 9
  41. 820 print"";tab(1)"sind sie bereit fuer lektion 10 ?"
  42. 830 printtab(16)"(j/n)"
  43. 840 geta$:ifa$="n"then900
  44. 850 ifa$<>"j"then840
  45. 855 print"[156]es folgen die fortgeschrittenen":print"uebungen!"
  46. 860 load"10/1lektion",8
  47. 900 print"[147]":print"ab der naechsten lektion beginnen die"
  48. 910 print"[156]   uebungen fuer fortgeschrittene"
  49. 930 forz=1to700:nextz
  50. 940 sys64738
  51.