home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 84 / 64er_Magazin_Sonderheft_84_19xx_Markt__Technik_de_Side_B.d64 / lichtorgel (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.6 KB  |  71 lines
  1. 100 poke56,96:clr
  2. 110 ifpeek(828)=0thenpoke828,1:load"ma.lichtorgel",8,1
  3. 120 ifpeek(828)=1thenpoke828,2:sys49152:goto140
  4. 130 ifpeek(828)=2thensys49152+24
  5. 140 print"[147] optionsmenue"
  6. 150 print" [192][192][192][192][192][192][192][192][192][192][192][192]"
  7. 160 print"<f1>  speicher vorbereiten"
  8. 170 print"<f5>  laden der daten"
  9. 180 print"<f7>  speichern der daten"
  10. 190 print"<e>   zurueck zum editor"
  11. 200 poke198,0:wait198,1:getz$
  12. 210 :
  13. 220 ifz$="[133]"then270  :rem f1
  14. 230 ifz$="[135]"then510  :rem f3
  15. 240 ifz$="[136]"then600  :rem f5
  16. 250 ifz$="e"then130  :rem f7
  17. 255 goto200
  18. 260 :
  19. 270 print"[147] vorbereiten des speichers"
  20. 280 print" [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  21. 290 print"das zeitraster wird im format"
  22. 300 print"stunden,minuten,sekunden,1/60sekunden
  23. 310 [153]"    ,  ,  ,       ononon"
  24. 320 [153]">>hh,mm,ss,xx<< erwartet"
  25. 330 [133]t(3),t(2),t(1),t(0)
  26. 340 [129]i[178]0[164]3
  27. 350 [139]t(i)[179]0[167][153]"eingabefehler !":[137]320
  28. 360 [139]t(i)[177]59[167][153]"eingabefehler !":[137]320
  29. 370 [130]
  30. 380 [129]i[178]0[164]3
  31. 390 [151]50018[170]i,t(i)
  32. 400 [130]
  33. 410 [153]"loaddie abstufung erfolgt"
  34. 420 [153]"1/60 sek"t(0)
  35. 430 [153]"sekunden"t(1)
  36. 440 [153]"minuten "t(2)
  37. 450 [153]"stunden "t(3)
  38. 460 [153]"ok j/n":[151]198,0:[146]198,1:[161]z$
  39. 470 [139]z$[178]"j"[167] 490
  40. 480 [158]49152[170]24:[137]140
  41. 490 [158]49152
  42. 500 :
  43. 510 [153]"load laden von daten   $ = directory"
  44. 511 [153]" tantantantantantantantantantantantantantantan"
  45. 520 n$[178]"":[133]"datenname";n$
  46. 530 [139]n$[178]"$"[167][158]49152[170]9:[137]520
  47. 540 [139]n$[178]""[167]140
  48. 550 [139] [195](n$)[177]11[167][153]"eingabefehler nur 11 zeichen erlaubt":[137]520
  49. 560 n$[178]"dl."[170]n$
  50. 570 [147]n$,8,1
  51. 580 [137]130
  52. 590 :
  53. 600 [153]"load speichern von daten   $ = directory"
  54. 601 [153]" tantantantantantantantantantantantantantantantantantantan"
  55. 610 n$[178]"":[133]"datenname";n$
  56. 620 [139]n$[178]"$"[167][158]49152[170]9:[137]610
  57. 630 [139]n$[178]""[167]140
  58. 640 [139] [195](n$)[177]11[167][153]"eingabefehler nur 11 zeichen erlaubt":[137]610
  59. 650 n$[178]"dl."[170]n$
  60. 660 [129]i[178]1[164][195](n$)
  61. 670 [151] 52991[170]i,[198]([202](n$,i,1)):[130]
  62. 680 [151]194,96
  63. 690 [151]193,0
  64. 700 [151]175,160
  65. 710 [151]174,0
  66. 720 [151]187,0
  67. 730 [151]188,207
  68. 740 [151]183,[195](n$)
  69. 750 [151]186,8:[151]185,3:[158]62954
  70. 760 [137]130
  71.