4 REMARKABLY TRANSLATED TO OS8 BASIC BY KAY R. FISHER ...DEC 5 PRINT "PROGRAM 'UGLY'"\PRINT 6 D=1\E=1\F=1\PRINT "DO YOU WANT CHANCE(1), OR SPECIAL(2)"; 7 INPUT G 8 IF G=2 THEN 17 9 RANDOMIZE 10 A=INT(40*RND(0))+15 11 B=INT(40*RND(0))+10 12 C=INT(40*RND(0))+15 13 PRINT "A=";A,"B=";B,"C=";C 14 PRINT "DO YOU STILL WANT CHANCE -- 1 FOR YES, 2 FOR NO"; 15 INPUT H 16 IF H=1 GOTO 19\IF H=2 GOTO 6 17 PRINT "WHAT ARE YOUR VALUES FOR A, B, AND C"; 18 INPUT A,B,C 19 PRINT\PRINT\PRINT TAB(20);"XXX" 20 PRINT TAB(19);"XXXXX" 25 PRINT TAB(20);"XXX" 30 PRINT TAB(21);"X" 35 PRINT TAB(15);"X"; 40 D=D+1 45 PRINT "X"; 50 IF D>=A-2 THEN 60 55 GOTO 40 60 PRINT "X" 65 PRINT TAB(15);"X"; 70 D=1 75 D=D+1 80 PRINT "X"; 85 IF D=A-1 THEN 95 90 GOTO 75 95 PRINT "X)." 100 PRINT TAB(15);"X"; 105 D=1 110 D=D+1 115 PRINT "X"; 120 IF D>=A-2 THEN 130 125 GOTO 110 130 PRINT "X" 135 PRINT TAB(15);"X"; 140 E=E+1 150 PRINT "X"; 155 IF E=B-1 THEN 165 160 GOTO 140 165 PRINT "X" 170 PRINT TAB(15);"X"; 175 E=1 180 E=E+1 185 PRINT "X"; 190 IF E=B-1 THEN 205 200 GOTO 180 205 PRINT "X" 210 PRINT TAB(15);"X"; 215 E=1 220 E=E+1 225 PRINT "X"; 230 IF E=B-1 THEN 240 235 GOTO 220 240 PRINT "X" 245 PRINT TAB(15);"X"; 250 F=F+1 255 PRINT "X"; 260 IF F>=C-2 THEN 270 265 GOTO 250 270 PRINT "X" 275 PRINT TAB(15);"X"; 280 F=1 285 F=F+1 290 PRINT "X"; 295 IF F=C-1 THEN 305 300 GOTO 285 305 PRINT "X" 310 PRINT TAB(15);"X"; 315 F=1 316 GOTO 320 317 F=F+3 320 F=F+1 325 PRINT "X"; 327 IF F=7 THEN 329 328 GOTO 331 329 PRINT "()"; 330 GOTO 317 331 IF F=C-1 THEN 340 335 GOTO 320 340 PRINT "X" 345 PRINT TAB(19);"XX XX" 350 PRINT TAB(18);"XX XX" 355 PRINT TAB(17);"XX XX" 360 PRINT TAB(16);"XX XX" 365 PRINT TAB(15);"XX XX" 370 PRINT TAB(13);"XXXX XXXX" 380 PRINT\PRINT 385 IF B