585 GET A$ : IF A$ <"0" OR A$ >"9" OR A$="" THEN 585
590 ON VAL(A$) GOTO 300,600,800,1300,1400,1100,1500,100,1220
595 STOP
600 REM
601 REM DREHUNG DER FIGUR UM OO
610 PRINT"[147]DREHUNG DER FIGUR UM OO :":PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
615 PRINT"BITTE WAEHLEN SIE AUS :"
620 PRINT"(1) = DREHUNG UM DIE Z-ACHSE.
625 [153]"(2) = DREHUNG UM DIE Y-ACHSE.
630 PRINT"(3) = DREHUNG UM DIE X-ACHSE."
635 GET A :IF A < 1 OR A >3 THEN 635
636 Z=5+2*A : d Z,3,29,1
640 PRINT TAB(7)"BITTE DEN DREHWINKEL :";:INPUT DE : DE=DE*(null)/180
1255 INPUT#1,F1,F1$,F2,F3 : IF F1 = 0 THEN RETURN : REM KEIN FEHLER
1260 PRINT "[150]FEHLER AUF DER DISK !"
1265 PRINT""F1,F1$" "F3" "F4
1270 PRINT"BITTE MIT <RETURN> BESTAETIGEN,ODER MIT"
1275 PRINT"<SPACE> DAS PROGRAMM ABBRECHEN !"
1280 GETAN$ : IF AN$ = CHR$(13) THEN RETURN
1285 IF AN$ <> CHR$(32) THEN 1280
1290 CLOSE 1 : STOP
1300 REM
1301 REM VERSCHIEBEN DER FIGUR
1302 REM
1305 PRINT"[147]VERSCHIEBEN DER FIGUR :":PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"