Hexload III

Gallery

Source Code

   1 REM \F5\E6\F0\1F\1F\1F\1F\C6\1C\D7\F1\E6\0F\C6\1C\D7\C9\82\40\E4\2C\37\75\37\75\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\14\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\15\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\12\3B\3C\3D\3E\26\27\28\29\2A
  10 PRINT " LIST "
  20 GOSUB 600
  30 RAND USR 16539
 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 "HEXLD%3"
 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