PROC ascii: rem 951111 local n at 46,3 :print "Tryck tangent," at 47,5 :print "ESC avbryter" at 5,1 print "1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 ASCII ver. 1.1" do if n/20=(intf(n/20)) print :print num$(n+1,-3), endif if n>5 and n<13 print "x "; else print chr$(n+1);" "; endif n=n+1 until n=255 at 46,11 :print "ASC IBM ISO QL" at 44,12 :print "† 125 134 229 130" at 44,13 :print "„ 123 132 228 128" at 44,14 :print "” 124 148 246 132" at 44,15 :print "] 93 143 197 162" at 44,16 :print "Ž[ 91 142 196 160" at 44,17 :print "™\ 92 153 214 164" do n=get at 50,8 :print " " at 50,8 :print n,chr$(n) until n=27 ENDP