Zeichnen - Programm unter QBASIC

Cls f = 1 Screen 12 x = 200: y = 300 Cls Print "Zeichnen sie mit den Cursor - Richtungstasten" Print "Stift hoch f10" Print "Kreis f1" Print "Linie f2" Print "Rechteck f3" Print "Farbe f4" Print "Bereich speichern f5" Print "Bereich laden f6" Line (150, 130)-(600, 300), 1, B LOCATE 24, 20 Print "Programmende mit der ESC - Taste" Do If 150 < x < 600 And 300 < y < 130 Then Select Case c Case 0: PSet (y, x), f LOCATE 24, 21 CASE 1: INPUT "Radius"; i: CIRCLE (b, a), i, f: c = 0: GOTO e e: If d3 = 1 Then Circle (b, a), i, f, , , 2: Circle (b, a), i, f, , , 0.5: Circle (b, a), i, f, , , 0.25: Circle (b, a), i, f, , , 4 End If Case 2: PSet (y, x), f: For u = 1 To 1000: Next u: PSet (y, x), 0 Case 3: PSet (y, x), f: For u = 1 To 1000: Next u: PSet (y, x), 0 Case 5: PSet (y, x), f: For u = 1 To 1000: Next u: PSet (y, x), 0 Case 12: Line (y, x)-(b, a), f: c = 0 Case 13: Line (y, x)-(b, a), f, B: c = 0: GoTo f f: If d3 = 1 Then Line (y, a)-(y + 20, a - 20), f: Line (b, a)-(b + 20, a - 20), f: Line (y + 20, a - 20)-(b + 20, a - 20), f: Line (b, x)-(b + 20, x - 20), f: Line (b + 20, x - 20)-(b + 20, a - 20), f: Line (y + 20, a - 20)-(b + 20, a - 20), f: Line (b, a)-(b + 20, a - 20), f: Line (b + 20, a - 20)-(b + 20, y - 20), f End If End Select End If Do Key$ = INKEY$ Loop Until Len(Key$) Select Case Asc(Right$(Key$, 1)) Case 72: x = x - 1 Case 80: x = x + 1 Case 77: y = y + 1 Case 75: y = y - 1 Case 59: c = 1: a = x: b = y Case 13: c = c + 10 Case 68: c = 5 Case 67: c = 0 Case 60: c = 2: a = x: b = y Case 61: c = 3: a = x: b = y CASE 62: INPUT "Farbe (1-9)"; f CASE 63: INPUT "x und y- Wert des speicherns", x, y: DIM e%(1 TO 50 * 70): GET (x, y)-(x + 50, y + 70), e% CASE 64: PUT (150, 300), e%, XOR Case 65: d3 = 1 Case 66: d1 = 0 Case 27: Exit Do End Select Loop End