home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 July / 64er_Magazin_86-07_1986_Markt__Technik_de.d64 / gamma (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  802b  |  21 lines
  1. 10 rem gamma
  2. 20 open 1,8,2,"seq-gamma,s,w"
  3. 23 wr$=chr$(13)
  4. 24 print#1,"[203]leinbuchstaben:";wr$
  5. 25 for i=1 to 10
  6. 30 for j=1 to 3
  7. 34 if j=2 or j=3 then 40
  8. 36 if i=8 then print#1,wr$;"[199]rossbuchstaben:";wr$
  9. 38 if i=10 then print#1,wr$;"[212]emperatureinheiten:";wr$
  10. 40 read a$,z
  11. 50 print#1,a$;chr$(z);"   ";
  12. 60 next j:print#1,wr$:next i:close1
  13. 70 data "[193]lfa   - ",35,"[194]eta   - ",36,"[199]amma  - ",38,"[196]elta  - ",64
  14. 80 data "[197]psilon- ",192,"[218]eta   - ",222,"[197]ta    - ",223,"[212]heta  - ",161
  15. 90 data "[203]appa  - ",162,"[204]ambda - ",166,"[205]y     - ",167,"[206]y     - ",168
  16. 100 data "[203]si    - ",169,"[208]i     - ",170,"[210]ho    - ",171,"[211]igma  - ",172
  17. 110 data "[212]au    - ",173,"[208]hi    - ",174,"[195]hi    - ",175,"[208]si    - ",176
  18. 120 data "[207]mega  - ",177,"[196]elta  - ",178,"[212]heta  - ",179,"[211]igma  - ",189
  19. 130 data "[208]hi    - ",190,"[207]mega  - ",191,         ,32
  20. 140 data "[195]elsius- ",180,"[198]ahrenheit- ",181,"      ",32
  21.