home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8607.d64 / gamma (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.