10 REM GAMMA
20 OPEN 1,8,2,"SEQ-GAMMA,S,W"
23 WR$=CHR$(13)
24 PRINT#1,"[203]LEINBUCHSTABEN:";WR$
25 FOR I=1 TO 10
30 FOR J=1 TO 3
34 IF J=2 OR J=3 THEN 40
36 IF I=8 THEN PRINT#1,WR$;"[199]ROSSBUCHSTABEN:";WR$
38 IF I=10 THEN PRINT#1,WR$;"[212]EMPERATUREINHEITEN:";WR$
40 READ A$,Z
50 PRINT#1,A$;CHR$(Z);"   ";
60 NEXT J:PRINT#1,WR$:NEXT I:CLOSE1
70 DATA "[193]LFA   - ",35,"[194]ETA   - ",36,"[199]AMMA  - ",38,"[196]ELTA  - ",64
80 DATA "[197]PSILON- ",192,"[218]ETA   - ",222,"[197]TA    - ",223,"[212]HETA  - ",161
90 DATA "[203]APPA  - ",162,"[204]AMBDA - ",166,"[205]Y     - ",167,"[206]Y     - ",168
100 DATA "[203]SI    - ",169,"[208]I     - ",170,"[210]HO    - ",171,"[211]IGMA  - ",172
110 DATA "[212]AU    - ",173,"[208]HI    - ",174,"[195]HI    - ",175,"[208]SI    - ",176
120 DATA "[207]MEGA  - ",177,"[196]ELTA  - ",178,"[212]HETA  - ",179,"[211]IGMA  - ",189
130 DATA "[208]HI    - ",190,"[207]MEGA  - ",191,         ,32
140 DATA "[195]ELSIUS- ",180,"[198]AHRENHEIT- ",181,"      ",32