0010/* PSINUS
0020/* Sinus-Wave
0030/* Klaus-Peter Plog
0040/*
0050DEFINE DATA LOCAL
006001 #SCREEN(A1/22,79)
007001 REDEFINE #SCREEN
0080  02 #LINE(A79/22)
009001 #X(I1)
010001 #Y(I1)
011001 #I(I2)
012001 #J(I2)
013001 #K(I2)
014001 #CONVERT(N8.2)
015001 #HELP(N8.2)
0160END-DEFINE
0170/*
0180COMPUTE #CONVERT = 3.1415926 / 180
0190FOR #J = 0 to 1200 step 20
0200  RESET #LINE(*)
0210  FOR #K = 0 to 78
0220    COMPUTE #HELP = (#K * 8 + #J) * #CONVERT
0230    COMPUTE ROUNDED #Y = SIN(#HELP) * 10 + 11
0240    COMPUTE #X = #K + 1
0250    ASSIGN #SCREEN(11,#X) = '-'
0260    ASSIGN #SCREEN(#Y,#X) = '*'
0270  END-FOR
0280  SET CONTROL 'N'
0290  EJECT
0300  WRITE #LINE(*)
0310END-FOR
0320/*
0330END