Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

Source Code

   1 REM \F5\E6\F0 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"F itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"F itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"F itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"F\C6 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"C\D7\F1\E6



Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
F\C6 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"C\D7\C9DDEFF

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
AD

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
A\A7\ED itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"FC\CDD\CD\AF\D7E\CD\CB\AF\D7E\D7E\D7\DB\CF

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
A\CB\F4\EDBE\C6\ED\E5

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
A\ED\E1\ED\E1\C9

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
A\EDB\A7\EDD\C9

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
A

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
\EB

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
A\EDB\ED\B0\C9

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
A

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
\EDB\EDB\ED\B0\C9

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
AE\CB\CB

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
\CF\C5

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
A\EDB\A7\EDD\E1\EDB\EB\ED\B8\CD\CD\C9

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
A\EDB\D5\A7\EDD\E1\EDB\ED\B0 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"B\ED\CF\D2

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
AC\CDD\CD\C9D\F5\CBFE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"D

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"C\D7\F1\CB\EF\F5\F1\C9\D7\F1\C9DDDDDDDDDDDDDDDDDDDDDDDDDDDD 2 REM \A9

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
A

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
EEB\D7C\CD\FFED\CD\FFE\AF\D7

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
E

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
E\FE\DD\FE\FD\CD\FFE

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
C\F0\FE\ED\CD\FFEE\E5\E6\C3\FE

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"\E1

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
BE\CD\FFE\F9

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
E\B8\E5\CBF\F5\C6FFE\F1E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"F itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"F itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"F itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"F

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
D

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"F itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"F\E6\E1

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
BE\CD\FFE\F9

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
E\C3

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
EDDDDDDDDDDDDF\A5\A5\AF\A5\A5\A5\AF\F5\A5\A5\F5\A5\AF\F5\E5\A5\F5\A5\FF\F5\A5\FE\FF\A5\FA\F5\A5\FA\F5\A5\F5\F5\A5\F5\FA\A5\F5\F5\A5\F5\F5\A5\F5\E6\F0 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"F itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"F itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"F itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"F\C6 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"C\D7\F1\E6

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
F\C6 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"C\D7\C9 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"B itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-57437 wp-custom-logo wp-theme-astra wp-child-theme-astra-child ast-desktop ast-separate-container ast-left-sidebar astra-4.10.0 group-blog ast-blog-single-style-1 ast-custom-post-type ast-single-post ast-inherit-site-logo-transparent ast-hfb-header ast-full-width-primary-header ast-box-layout ast-normal-title-enabled astra-addon-4.10.0"

Keyboard List

Date: 198x
Type: Program
Platform(s): TS 1000

Content

Appears On

Assembled by Tim Ward from many sources. Contains programs 10211 – 10251.

Related Products

Related Articles

Related Content

Image Gallery

Keyboard List

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

People

No people associated with this content.

Scroll to Top
E\C2\ED\B0\C9DDDDDDDDDDDDDDDDDDDDDDDDDDDDDD 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

People

No people associated with this content.

Scroll to Top