Исправить код лабиринта - QBasic


textual

Код к задаче: «Исправить код лабиринта - QBasic»

SCREEN 13
RANDOMIZE TIMER
LINE (5, 5)-(225, 145), 1, B
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (25, 5)-(25, 25), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (45, 5)-(45, 25), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (65, 5)-(65, 25), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (85, 5)-(85, 25), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (105, 5)-(105, 25), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (125, 5)-(125, 25), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (145, 5)-(145, 25), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (165, 5)-(165, 25), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (185, 5)-(185, 25), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (205, 5)-(205, 25), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (225, 5)-(225, 25), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (5, 25)-(25, 25), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (25, 25)-(45, 25), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (45, 25)-(65, 25), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (65, 25)-(85, 25), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (85, 25)-(105, 25), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (105, 25)-(125, 25), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (125, 25)-(145, 25), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (145, 25)-(165, 25), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (165, 25)-(185, 25), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (185, 25)-(205, 25), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (205, 25)-(225, 25), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (25, 25)-(25, 45), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (45, 25)-(45, 45), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (65, 25)-(65, 45), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (85, 25)-(85, 45), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (105, 25)-(105, 45), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (125, 25)-(125, 45), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (145, 25)-(145, 45), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (165, 25)-(165, 45), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (185, 25)-(185, 45), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (205, 25)-(205, 45), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (5, 45)-(25, 45), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (25, 45)-(45, 45), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (45, 45)-(65, 45), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (65, 45)-(85, 45), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (85, 45)-(105, 45), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (105, 45)-(125, 45), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (125, 45)-(145, 45), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (145, 45)-(165, 45), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (165, 45)-(185, 45), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (185, 45)-(205, 45), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (205, 45)-(225, 45), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (25, 45)-(25, 65), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (45, 45)-(45, 65), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (65, 45)-(65, 65), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (85, 45)-(85, 65), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (105, 45)-(105, 65), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (125, 45)-(125, 65), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (145, 45)-(145, 65), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (165, 45)-(165, 65), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (185, 45)-(185, 65), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (205, 45)-(205, 65), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (5, 65)-(25, 65), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (25, 65)-(45, 65), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (45, 65)-(65, 65), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (65, 65)-(85, 65), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (85, 65)-(105, 65), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (105, 65)-(125, 65), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (125, 65)-(145, 65), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (145, 65)-(165, 65), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (165, 65)-(185, 65), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (185, 65)-(205, 65), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (205, 65)-(225, 65), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (25, 65)-(25, 85), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (45, 65)-(45, 85), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (65, 65)-(65, 85), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (85, 65)-(85, 85), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (105, 65)-(105, 85), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (125, 65)-(125, 85), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (145, 65)-(145, 85), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (165, 65)-(165, 85), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (185, 65)-(185, 85), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (205, 65)-(205, 85), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (5, 85)-(25, 85), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (25, 85)-(45, 85), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (45, 85)-(65, 85), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (65, 85)-(85, 85), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (85, 85)-(105, 85), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (105, 85)-(125, 85), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (125, 85)-(145, 85), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (145, 85)-(165, 85), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (165, 85)-(185, 85), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (185, 85)-(205, 85), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (205, 85)-(225, 85), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (25, 85)-(25, 105), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (45, 85)-(45, 105), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (65, 85)-(65, 105), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (85, 85)-(85, 105), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (105, 85)-(105, 105), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (125, 85)-(125, 105), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (145, 85)-(145, 105), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (165, 85)-(165, 105), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (185, 85)-(185, 105), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (205, 85)-(205, 105), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (5, 105)-(25, 105), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (25, 105)-(45, 105), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (45, 105)-(65, 105), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (65, 105)-(85, 105), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (85, 105)-(105, 105), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (105, 105)-(125, 105), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (125, 105)-(145, 105), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (145, 105)-(165, 105), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (165, 105)-(185, 105), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (185, 105)-(205, 105), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (205, 105)-(225, 105), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (25, 105)-(25, 125), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (45, 105)-(45, 125), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (65, 105)-(65, 125), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (85, 105)-(85, 125), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (105, 105)-(105, 125), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (125, 105)-(125, 125), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (145, 105)-(145, 125), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (165, 105)-(165, 125), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (185, 105)-(185, 125), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (205, 105)-(205, 125), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (5, 125)-(25, 125), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (25, 125)-(45, 125), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (45, 125)-(65, 125), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (65, 125)-(85, 125), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (85, 125)-(105, 125), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (105, 125)-(125, 125), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (125, 125)-(145, 125), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (145, 125)-(165, 125), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (165, 125)-(185, 125), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (185, 125)-(205, 125), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (205, 125)-(225, 125), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (25, 125)-(25, 145), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (45, 125)-(45, 145), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (65, 125)-(65, 145), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (85, 125)-(85, 145), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (105, 125)-(105, 145), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (125, 125)-(125, 145), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (145, 125)-(145, 145), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (165, 125)-(165, 145), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (185, 125)-(185, 145), 1
A = INT(RND(1) * 2)
IF A = 1 THEN LINE (205, 125)-(205, 145), 1

СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 3.889 из 5



Похожие ответы
  1. Задача Написать программу, которая распечатывает 20 членов случайной последовательности, обладающей следующими свойствами 1. последовательность состоит из чисел 1, 2, 3, 4 2. числа 1 и 3 не могут стоять рядом 3. числа 2 и 4 тоже не могут стоять рядом 4. каждое число может стоять в последовательности не более трёх раз подряд пример 1, 1, 1, 2, 3, 4, 4, 3, 3, 2, 1, 1, 4, 4, 4, 1, 4, 1, 2, 2 программа работает не совсем верно: она может выдать и 4 числа подряд. Проблему не решает даже второй счётчик (k, k2 - счётчики призванные контролировать повторение чисел)... подумал: может поставить счётчики на каждое число? нет, глупо, но где-то прокол?

  1. Здравствуйте. Подскажите пожалуйста с переводом кода из Fortran.Fortran1 2 3 4 5 6        DO 5 I=1,N 5      Y1(I)=Z(I)*H        IF (E_1) 6, 7, 6 6      IF (E_2) 8, 9, 8 8      IF (E_3) 10, 11, 10 10     IF (E_4) 12, 13, 12 тд. Если перевести в QBasic то тогда это будет так?PureBasic1 2 3 4 5 6 7 8 9             Do while 5                For I=1 to N 5           Y1(I)=Z(I)*H             IF (E_1) Then GOTO 6             IF (E_1) Then GOTO 7             IF (E_1) Then GOTO 6 ...............и тд............................                 Next I             LoopИли нужно делать оператор Do без While?

  1. Помогите разобрать код ниже. Что в нем происходит? Хочу переписать программу с qBasic на VB. Кликните здесь для просмотра всего текста PureBasic1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 70 REM        //         Ввод исxодныx данныx         // 80 S1$="BaSO4":S2$="CaCl2":S3$="CaSO4":   REM // Формулы соединений // 110 T1=1853:T2=1045:T3=1723   :   REM // Темперaтуры плaвления соединений // 120 N1=6:N2=3:N3=6:EEE=.0001  :   REM // Число aтомов в молекуле // 127 REM       //  Haчaло рaсчетa   Тэ12, Тэ13, Тэ23        // 130 TT1=T1:TT2=T2:NN1=N1:NN2=N2:GOSUB 1010:TE12=TE1:X112=X1:X212=X2 140 TT1=T1:TT2=T3:NN1=N1:NN2=N3:GOSUB 1010:TE13=TE1:X113=X1:X313=X2 150 TT1=T2:TT2=T3:NN1=N2:NN2=N3:GOSUB 1010:TE23=TE1:X223=X1:X323=X2 160 GOSUB 2010:REM   // рaсчет Тэ123 // 170 GOSUB 3010:REM   // Построение конц. треугольникa и погрaн. кривыx // 180 GOSUB 3300:REM   // Вывод дaнныx нa экрaн // 200 END 1010 REM Опред. состaвa и темп. плaвления эвтектики в 2-х комп.сист. 1205 X2=0:PP=1:EEE=.0001 1215 PP=PP/10 1220 X2=X2+PP 1245 X1=EXP(NN1*(1-TT1*(1-LOG(X2)/NN2)/TT2)) 1250 Y=X1+X2-1 1260 IF ABS(Y)

  1. помогите, пожалуйста, вставить нужные данные вместо "?"

  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 Program z1; Var   S:String;   k,p:integer; BEGIN   Write ('введите исходную строку:'); Readln(S);   While Pos('i',S)>0 Do   Begin     p:=pos('i',s);    Delete (S,Pos('i',S),1);     Insert ('info',S,p);   End;   Writeln('Получилась строка ',S); End.

  1. Всем привет. Ребята нужна помощь .я никогда не работала в бейсике. Перепечатала программу с методички - не работает .

  1. Ниже расположено условие задачи. Даны натуральное число m, целые числа и целочисленная квадратная матрица порядка m. Строку с номером матрицы i назовем отмеченной, если , и неотмеченной в противном случае. а) Нужно все элементы, расположенные в отмеченных строках матрицы, преобразовать по правилу: отрицательные элементы заменить на -1, положительные — на +1, а нулевые оставить без изменения. б) Подсчитать число отрицательных элементов матрицы, расположенных в отмеченных строках.Далее код программы который написан на паскале. Кликните здесь для просмотра всего текста Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 program Project2;   Const m=3; Var a:array [1..m] of integer; b:array [1..m,1..m] of integer; i,j:integer; count:integer; begin count:=0; // Условие 2 // Ввод данных Writeln('Введите ',m,' цифры'); For i:=1 to m do Readln(a[i]); Writeln('Введите матрицу порядка ',m,'x',m,' построчно'); For i:=1 to m do For j:=1 to m do Begin Readln(b[i,j]); {// Замена элементов по условию 1 If a>0 Then Begin If b[i,j]>0 then b[i,j]:=1; If b[i,j]<0 then b[i,j]:=-1; End;} // Замена элементов по условию 2 If a[i]>0 Then Begin If b[i,j]<0 then count:=count+1; End; End; // Вывод ответа по условию 1 Writeln; Writeln('Полученая матрица: '); For i:=1 to m do Begin For j:=1 to m do Write(b[i,j]:4); Writeln; End; // Вывод ответа по условию 2 Writeln('В матрице содаржится ',count,' отрицательных элементов'); Readln; end. Переведите код с паскаля на QBasic и проверьте работоспособность кода. Отредактируйте так, что-бы обе матрицы заполнялись рандомными числами. И что-бы на экран выводилась матрица по условию задачи ( то есть состоящая из 1, -1, и 0). Если в коде допущены ошибки то исправьте их и укажете на ошибки. Заранее спасибо и с меня плюсики тем кто поможет))

  1. PureBasic1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 DECLARE SUB zadacha () DECLARE SUB zastavka () DECLARE SUB menu () CLS CALL menu SUB menu CLS DO CLS PRINT "заставка Z" PRINT "задача K" PRINT "выход ESC" DO a$ = INKEY$ LOOP WHILE a$ = "" IF ASC(UCASE$(a$)) = 90 THEN CALL zastavka IF ASC(UCASE$(a$)) = 75 THEN CALL zadacha LOOP UNTIL ASC(UCASE$(RIGHT$(a$, 1))) = 27 END END SUB CLS SCREEN 12 SUB zadacha PRINT "столица Франции?” PRINT "1)Париж 2)Москва 3)Банкок" input "Ответ",a1 IF a1= 1 THEN s=s+1 LINE (530,10) - (560,40),2,BF ELSE r=r+1 LINE (530,10) -(560,40),4,bf END IF PRINT "самое большое море?” PRINT "1)Аравийское 2)Каралловое 3)Тасманово" input "Ответ",a2 IF a2= 1 THEN s=s+1 LINE (530,40) - (560,70),2,BF ELSE r=r+1 LINE (530,40) -(560,70),4,bf END IF PRINT "самое большое озеро?” PRINT "1)Каспийское 2)Виктория 3)Верхнее" input "Ответ",a3 IF a3= 1 THEN s=s+1 LINE (530,70) - (560,100),2,BF ELSE r=r+1 LINE (530,70) -(560,100),4,bf END IF PRINT "самый маленький водопад?” PRINT "1)Японский 2)Китайский 3)Индийский" input "Ответ",a4 IF a4= 1 THEN s=s+1 LINE (530,100) - (560,130),2,BF ELSE r=r+1 LINE (530,100) -(560,130),4,bf END IF PRINT "самая длинная река?” PRINT "1)Амазонка 2)Волга 3)Нил" input "Ответ",a5 IF a5= 1 THEN s=s+1 LINE (530,130) - (560,170),2,BF ELSE r=r+1 LINE (530,130) -(560,170),4,bf END IF PRINT "Кол - во правильных:" PRINT s PRINT "Кол - во неправильных:" PRINT r IF a1<> 1 THEN PRINT "Ответ в первом вопросе: " PRINT "1)Париж" END IF IF a2<>1 THEN PRINT "Ответ во втором вопросе:" PRINT "1)Аравийское" END IF IF a3<>1 THEN PRINT "Ответ в третьем вопросе:" PRINT "1)Каспийское " END IF IF a4<>1 THEN PRINT "Ответ в четвертом вопросе:" PRINT "1)Японский” END IF IF a5<>1 THEN PRINT "Ответ в пятом вопросе:" PRINT "1)Амазонка" END IF END SUB SUB zastavka LINE (640,0)-(0,480),6,bf LINE (10,50)-(620,50),0 LINE (620,50)-(620,200),0 LINE (620,260)-(620,440),0 LINE (320,440)-(10,440),0 LINE (10,440)-(10,50),0 PSET (620,170),0 DRAW " l300 d100 l 100 u150 r200" PSET (220,150),0 DRAW " l100 d 170 r 200" PSET (440,170),0 DRAW "d50 r50 d50 l100 d50 r100" PSET (440,320),0 DRAW "d60 r100 l300 r20 d20 l200 u300 r100" CIRCLE (35,80),15 PSET (35,81) PAINT (35,80) DIM box% (2000) GET (12,55)-(60,98), box% FOR i-1 TO 500 PUT (12+i,55), box%, PSET