Related Articles
And now, here are a few more words about the last contest. First, we would like to thank all of the contributors who donated prizes for this contest. I’m sure that all of you will agree that this is indeed a formidable list of prizes for a TS based contest and we would like to
Gallery
Source Code
9967 STOP 9968 PRINT AT 7,4;"PEEK PROGRAM RJV 4/25/85" 9969 PRINT ,,"A TO INPUT NEW ADDRESS" 9970 PRINT "B TO RETURN TO BASIC" 9971 PRINT "M TO PAUSE " 9972 PRINT "P TO RETURN MAIN PROGRAM MENU" 9973 PRINT "S TO SAVE " 9974 PRINT ,,"AFTER PAUSE PRESS ANY KEY EXCEPT A/B/M/P OR S TO CONT " 9975 SLOW 9976 PRINT AT 18,0;" INPUT START ADDRESS " 9977 PRINT AT 20,0;"ADDRESS DEC","CHR$ " 9978 INPUT P 9979 IF P>65535 THEN GOTO 9978 9980 PRINT P;TAB 9;PEEK P,CHR$ PEEK P 9981 SCROLL 9982 LET P=P+1 9983 IF INKEY$="A" THEN GOTO 9978 9984 IF INKEY$="B" THEN GOTO 9989 9985 IF INKEY$="M" THEN PAUSE 4E4 9986 IF INKEY$="P" THEN GOTO MENU 9987 IF INKEY$="S" THEN GOTO 9992 9988 GOTO 9980 9989 CLS 9990 LIST 9967 9991 STOP 9992 CLS 9993 PRINT TAB 9;"START RECORDER"," INPUT FILE NAME",TAB 15;" OR ","ENTER TO SAVE PEEK" 9994 INPUT S$ 9995 IF S$="" THEN LET S$="PEEK" 9996 SAVE S$ 9997 PRINT USR 8297;" BYTES OF MEMORY LEFT" 9998 IF S$="PEE%K" THEN GOTO 9968 9999 GOTO MENU