CLS DEF SEG = 0 LOCATE 4 PRINT " ÉÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍ»" PRINT " º 128³Insert º" PRINT " º 64³Caps Lock º" PRINT " º 32³Num Lock º" PRINT " º 16³Scroll Lock º" PRINT " º 8³Alt º" PRINT " º 4³Ctrl º" PRINT " º 2³Left Shift º" PRINT " º 1³Right Shift º" PRINT " ÇÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄĽ" PRINT " º ³ TOTAL" PRINT " ÈÍÍÍÍ;" PRINT "Press enter to quit." DO check$ = INKEY$ a = PEEK(1047) LOCATE 1, 6: PRINT check$ LOCATE 14, 6: PRINT USING "###"; a IF a >= 128 THEN a.flag = 1 a = a - 128 ELSE a.flag = 0 END IF IF a >= 64 THEN b.flag = 1 a = a - 64 ELSE b.flag = 0 END IF IF a >= 32 THEN c.flag = 1 a = a - 32 ELSE c.flag = 0 END IF IF a >= 16 THEN d.flag = 1 a = a - 16 ELSE d.flag = 0 END IF IF a >= 8 THEN e.flag = 1 a = a - 8 ELSE e.flag = 0 END IF IF a >= 4 THEN f.flag = 1 a = a - 4 ELSE f.flag = 0 END IF IF a >= 2 THEN g.flag = 1 a = a - 2 ELSE g.flag = 0 END IF IF a >= 1 THEN h.flag = 1 a = a - 1 ELSE h.flag = 0 END IF SELECT CASE a.flag CASE 1 LOCATE 5, 5: PRINT "û" CASE 0 LOCATE 5, 5: PRINT " " END SELECT SELECT CASE b.flag CASE 1 LOCATE 6, 5: PRINT "û" CASE 0 LOCATE 6, 5: PRINT " " END SELECT SELECT CASE c.flag CASE 1 LOCATE 7, 5: PRINT "û" CASE 0 LOCATE 7, 5: PRINT " " END SELECT SELECT CASE d.flag CASE 1 LOCATE 8, 5: PRINT "û" CASE 0 LOCATE 8, 5: PRINT " " END SELECT SELECT CASE e.flag CASE 1 LOCATE 9, 5: PRINT "û" CASE 0 LOCATE 9, 5: PRINT " " END SELECT SELECT CASE f.flag CASE 1 LOCATE 10, 5: PRINT "û" CASE 0 LOCATE 10, 5: PRINT " " END SELECT SELECT CASE g.flag CASE 1 LOCATE 11, 5: PRINT "û" CASE 0 LOCATE 11, 5: PRINT " " END SELECT SELECT CASE h.flag CASE 1 LOCATE 12, 5: PRINT "û" CASE 0 LOCATE 12, 5: PRINT " " END SELECT LOOP UNTIL check$ = CHR$(13)