Keyboard List

Gallery

Source Code

   1 REM \F5\E6\F0\1F\1F\1F\1F\C6\1C\D7\F1\E6\0F\C6\1C\D7\C9\3D\3D\13\7E\39\7F\39\7F\2A\99\40\22\97\40\54\5D\2A\95\40\A7\ED\52\19\30\1F\7C\CD\82\40\7D\CD\82\40\AF\D7\7E\CD\82\40\CB\76\20\04\AF\D7\7E\D7\3E\76\D7\23\22\95\40\18\DB\CF\00\2A\10\40\23\46\23\CB\28\28\F4\ED\5B\95\40\23\7E\87\87\87\87\23\86\C6\24\12\13\ED\53\95\40\E5\2A\99\40\ED\52\E1\30\04\ED\53\99\40\10\E1\C9\2A\99\40\ED\5B\93\40\A7\ED\52\22\97\40\44\4D\C9\2A\10\40\11\06\00\19\EB\2A\93\40\ED\4B\97\40\ED\B0\C9\2A\10\40\11\06\00\19\ED\5B\93\40\ED\4B\97\40\ED\B0\C9\2A\10\40\23\4E\23\46\CB\28\CB\19\20\02\CF\08\C5\2A\99\40\ED\5B\95\40\A7\ED\52\23\44\4D\E1\ED\5B\99\40\19\22\99\40\EB\ED\B8\CD\CD\40\C9\2A\99\40\ED\5B\97\40\D5\A7\ED\52\44\4D\E1\23\ED\5B\95\40\ED\B0\1B\ED\53\99\40\CF\08\D2\42\2A\78\41\7C\CD\82\40\7D\CD\82\40\C9\3D\06\08\F5\CB\7F\28\04\3E\1D\18\02\3E\1C\D7\F1\CB\07\10\EF\F5\F1\C9\D7\F1\C9\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D
   2 REM \A9\40\2A\00\7E\3E\3B\87\D7\7C\CD\FF\7E\7D\CD\FF\7E\AF\D7\0E\00\7E\FE\DD\28\04\FE\FD\20\07\CD\FF\7E\23\0C\18\F0\FE\ED\20\21\CD\FF\7E\23\7E\E5\E6\C3\FE\43\20\04\06\03\18\02\06\01\E1\2B\23\7E\CD\FF\7E\10\F9\23\22\00\7E\18\B8\E5\CB\3F\F5\C6\7F\6F\26\7E\F1\7E\38\04\1F\1F\1F\1F\0D\20\02\1F\1F\E6\03\47\E1\2B\23\7E\CD\FF\7E\10\F9\23\22\00\7E\C3\02\7E\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\5F\55\55\A5\55\55\55\A5\AF\55\55\A5\A5\55\55\A5\AF\F5\55\A5\A5\F5\55\A5\AF\F5\99\E5\A5\F5\55\A5\55\55\55\95\55\55\55\95\55\55\55\95\55\55\55\95\55\55\55\95\55\55\55\95\99\99\99\95\55\55\55\95\55\55\55\95\55\55\55\95\55\55\55\95\55\55\55\95\55\55\55\95\55\55\55\95\55\55\55\95\55\55\55\95\55\FF\F5\A5\55\FE\FF\A5\55\FA\F5\A5\55\FA\F5\A5\55\F5\F5\A5\55\F5\FA\A5\55\F5\F5\A5\55\F5\F5\A5\F5\E6\F0\1F\1F\1F\1F\C6\1C\D7\F1\E6\0F\C6\1C\D7\C9\01\3B\01\11\00\7E\21\C2\41\ED\B0\C9\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D\3D
   4 POKE 16388,0
   5 POKE 16389,126
   6 RAND USR 17106
   7 PRINT AT 5,5;PEEK 16388+256*PEEK 16389
   8 STOP 
  10 PRINT "KEYBOARD LIST "
  20 GOSUB 600
  30 RAND USR 16539
  40 LET A=32256
  45 PRINT 
  50 INPUT A$
  55 PRINT A$
  60 POKE A+1,16*CODE A$+CODE A$(2)-476
  65 POKE A,16*CODE A$(3)+CODE A$(4)-476
  70 RAND USR 32258
  80 STOP 
 100 PRINT "WRITE"
 110 GOSUB 600
 120 INPUT A$
 130 PRINT A$;"  ";
 140 RAND USR 16589
 150 GOTO 120
 200 PRINT "INSERT"
 210 GOSUB 600
 220 INPUT A$
 230 PRINT A$;"  ";
 240 RAND USR 16687
 250 GOTO 220
 300 PRINT "DELETE"
 310 GOSUB 600
 320 LET A=16535
 330 GOSUB 610
 340 RUN USR 16732
 400 DIM O$(USR 16635)
 410 RAND USR 16651
 420 SAVE "HEXLD3"
 422 NEW 
 500 RAND USR 16669
 510 CLEAR 
 520 STOP 
 600 LET A=16533
 610 PRINT "ADDRESS "
 620 INPUT A$
 630 PRINT A$
 640 POKE A+1,16*CODE A$+CODE A$(2)-476
 650 POKE A,16*CODE A$(3)+CODE A$(4)-476
 660 CLEAR 
 670 RETURN 
 700 INPUT A$
 710 LET A=4096*CODE A$+256*CODE A$(2)+16*CODE A$(3)+CODE A$(4)-122332
 711 LET B=INT (A/256)
 712 LET C=A-((INT (A/256))*256)
 713 PRINT 
 714 PRINT A$
 715 PRINT A
 716 PRINT "HIGH=";B
 717 PRINT "LOW=";C
 722 STOP 
 740 LET V=16760
 750 INPUT X
 760 LET B=INT (X/256)
 790 LET C=X-((INT (X/256))*256)
 797 POKE V,C
 799 POKE V+1,B
 800 PRINT 
 802 PRINT X
 805 PRINT "LOW= ";C
 806 PRINT "HIGH= ";B
 810 RAND USR 16762
 820 STOP 
 830 SAVE "1023%8"
 840 LIST 4