' QBASIC BEISPIELPROGRAMM ZUR ANSTEUERUNG DES MT/GR ' ================================================= DIM Radius AS INTEGER DIM xPos AS INTEGER DIM yPos AS INTEGER Radius = 20 xPos = 30 yPos = 30 OPEN "COM1:19200,N,8,1,cs0,ds0,cd0,rs" FOR RANDOM AS 1 PRINT #1, CHR$(27); "TC" PRINT #1, "MT/GR-Ansteuerung per QBASIC" PRINT #1, CHR$(27); "GP"; STR$(xPos); ","; STR$(yPos); ";" PRINT #1, CHR$(27); "GK"; STR$(Radius); ";" END