#option 'g' program graphic(g); const size = 100; radius = size * 0.8; var g : text; begin reset(g); writeln(g, 'WINDOW 100, 100'); writeln(g, 'VIEW (', -size, ',', -size, ')-(', size, ',', size, ')'); writeln(g, 'CIRCLE (', -radius, ',', -radius, ')-(', radius, ',', radius, ')'); writeln(g, 'PAINT (0, 0), 4, 0'); writeln(g, 'LINE (-90, 20)-(90, 20), 5'); writeln(g, 'FONT 30, 0'); writeln(g, 'PRINT "Hello, World!", (-75, -10), 2'); end.
NOTE: グラフィックコマンドが大量になると出力量の制限を超えて ”実行時エラー”が起こる場合があります。 そのような場合は #option 'go' として制限を解除してください。