This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
A itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 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"
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
C
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
E
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
D\ED\B0\EB
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
A
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
C
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
E\C5\C5 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 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"AFAC\CBAD\F2\C1\E9\C1\E2 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 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 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 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"\CD\D3AE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 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"\F5
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
\CD\D3AF
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
C
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
A
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
CAD\BE\C0
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
B\FB
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
\CD\BB
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
\CB\CBC\C8\CBC\CBD
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
E\FF\CB\CBC
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
E\CB
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
E\DF\CBC
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 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"\CB itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 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"\B7
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
A\F5\F1\FC
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
AA
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
F itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 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"AD\BE
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
AAC\BE\CCAE\CDAA\CD\CDA\C3\E5A\B7A\CD
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
F\C9A\CD
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
F\C0
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
A\CD\F5B
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
A\CD\F5B\B9E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 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"\CD
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
F\C0\BBE\FF\CD
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
F\C0A\B8E\CD
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
F\C0\BAE\DF\CD
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
F\C0\BA
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
DB\B9E itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 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"
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
E\FF\EFE\DF
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
E\F1E
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
B\E5E\CD
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
F\E1\C0\F3\C9\DF itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 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"\FF\DF\E5\C5
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
\EDB
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
C\ED itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 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"
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
\ED\F9D\C1\E1\C9\C5
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
A
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
F itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 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"\C1AD\BE\C8\E5
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
AA\E1EAF\C9\E5A
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
A
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 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"
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
EC\FE
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
\E1\C9 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 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
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
B\F2
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
A\EDB\B7\ED\C0
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
A
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 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"
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
ED
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
A\C6\CD\D0\F8\E1\FE itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 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\C8AC\C3\C4
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
A
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 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"
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
\E5\D1
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
E\E5\D5 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 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"A\BE
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
A\F6\D1\E1
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
A\C5\D5 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 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"A\C6\F9\D1\CD\D0\D5\E5 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 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"
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
\ED\B0\E1\D1\CD\D0\C1\E2
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
\D1\E1 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 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\FB\C9\C5
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
E
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
D\FD\F9\C1\C9
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
A
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
C itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 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"
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
Skip to content
Gulp
This is a quickload program. It is comprised of a short speedloader in normal ZX81/TS1000 format followed by the actual program in a format similar to the Spectrum and TS2068 tape format.
- Gulp.wav is the file directly from the tape with fades and dropouts corrected.
- Gulp1.wav has been edited to remove any noise and provide more of a square wave signal.
Content
Image Gallery
Source Code
1 REM \2A\10\40\01\06\00\09\11\3C\40\0E\0D\ED\B0\EB\2A\0C\40\0E\43\09\06\16\C5\06\04\C5\06\08\1A\4F\3A\3C\40\CB\21\30\03\3A\3D\40\77\23\10\F2\13\C1\10\E9\23\C1\10\E2\01\7C\01\CD\D3\40\3A\3E\40\77\22\50\40\01\F5\02\CD\D3\40\3A\3F\40\77\22\52\40\18\0C\2A\0C\40\09\3A\3D\40\BE\C0\2B\18\FB\00\00\00\00\00\00\CD\BB\02\97\CB\65\20\03\CB\4C\C8\CB\6C\20\06\CB\5D\20\02\3E\FF\CB\65\20\06\CB\6C\20\02\3E\21\CB\64\20\02\3E\DF\CB\5C\20\02\3E\01\CB\54\20\01\97\B7\28\00\32\44\40\3A\40\40\47\F5\F1\10\FC\21\45\40\35\20\29\36\20\2A\50\40\3A\44\40\36\00\06\00\4F\17\30\01\05\09\3A\3D\40\BE\20\03\2A\50\40\3A\3C\40\BE\CC\36\42\3A\3E\40\77\22\50\40\CD\5A\42\21\43\40\35\20\09\3A\41\40\77\CD\68\41\CD\5A\42\C3\E5\40\3A\46\40\B7\28\14\3A\55\40\CD\0F\42\28\05\97\32\46\40\C9\3A\46\40\CD\0F\42\C0\2A\50\40\CD\F5\41\42\4B\2A\52\40\CD\F5\41\97\32\46\40\7B\B9\30\06\3E\01\CD\0F\42\C0\79\BB\30\06\3E\FF\CD\0F\42\C0\7A\B8\30\06\3E\21\CD\0F\42\C0\78\BA\30\06\3E\DF\CD\0F\42\C0\78\BA\20\0D\7B\B9\3E\01\38\02\3E\FF\21\EF\41\18\09\3E\DF\38\02\3E\21\21\F1\41\56\23\5E\72\2B\73\32\55\40\06\04\E5\7E\32\46\40\CD\0F\42\E1\C0\23\10\F3\C9\21\DF\01\FF\21\DF\E5\C5\16\00\ED\4B\0C\40\37\ED\42\01\21\00\ED\42\38\03\14\18\F9\09\5D\C1\E1\C9\C5\2A\52\40\06\00\4F\17\30\01\05\09\C1\3A\3D\40\BE\C8\E5\2A\52\40\3A\56\40\77\E1\7E\32\56\40\3A\3F\40\77\22\52\40\C9\E5\21\48\40\35\20\08\3A\47\40\77\21\41\40\35\2A\0C\40\01\40\00\09\7E\3C\77\FE\26\30\02\E1\C9\36\1C\2B\18\F2\2A\50\40\ED\4B\52\40\B7\ED\42\C0\2A\0C\40\01\34\00\09\7E\3D\06\0A\C6\80\77\CD\D0\42\10\F8\E1\FE\1C\C8\3A\3C\40\32\56\40\C3\C4\40\40\2A\0C\40\01\27\00\09\E5\D1\0E\16\09\E5\D5\06\05\1A\BE\38\08\20\2A\23\13\10\F6\18\24\D1\E1\06\0A\C5\06\05\D5\1A\C6\80\12\13\10\F9\D1\CD\D0\42\D5\E5\01\05\00\ED\B0\E1\D1\CD\D0\42\C1\10\E2\18\02\D1\E1\06\05\36\1C\23\10\FB\C9\C5\06\20\0E\00\0D\20\FD\10\F9\C1\C9\2A\0C\40\01\43\00\09\16\16\06\20\36\00\23\10\FB\23\15\20\F5\C9\1B\1B\1B
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO \7B CLEAR %4 \: %J TO \7F PRINT %C\50RND\: %F*\5FSTR$ % \50RND)%F\57\5FSTR$ %CRND +%F\5F TO VAL %C \: %5\5F\7D\55%H\50\: \55\;;\55\55\51%F\55\55\55%C)\54+%JNOT \77 PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY \7F CLEAR %4 \: %J COPY \7F PRINT %C +%F COPY \7FSTR$ %E \55%E COPY \7F\55%E% \' \55% Z UNPLOT \' %E%Z CLEAR \55%E% \' \55%E COPY \7F\55%E \55%F COPY \7FSTR$ %C +%J COPY \7F PRINT %4 \: %Z COPY \7F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% \57 REM \.:%Z\50\~~ CLEAR \.:\5F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4\55%=\ '%Z\55%* REM \.:\51%(\~~ CLEAR \5D%3 REM \' INKEY$% F CLEAR \7D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N\60 CLEAR %Z%N\60 CLEAR %L%N\60LN %L%N\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %KN\60LN %N%N\60<>%N%N\60<>%L%N\60AT %L%N\60AT %L%N\60AT %L%N\60AT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
1000 RAND USR 17116
1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
1060 INPUT K$
1061 RAND USR 17116
1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
1070 PRINT "USE THE MENU TO CONTROL THUS..."
1080 PRINT """A"" TO PLAY A GAME"
1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
1120 PRINT " THE CHASER ACCELERATION."
1130 PRINT """E"" RESETS ""BEST"" TO 00000."
1140 PRINT """F"" SAVES GULP GAME ON TAPE."
1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
1165 INPUT K$
1170 GOTO ME
People
No people associated with this content.
\FB\F5\C9 itemtype='https://schema.org/Blog' itemscope='itemscope' class="wp-singular computer_media-template-default single single-computer_media postid-58383 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-58383 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-58383 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
10 REM %G%U%L%P% % %C%A%M%P%B%E%L%L% %S%Y%S%T%E%M%S
15 DIM M$(101)
20 LET O=PI/PI
30 LET Z=O-O
40 LET X=10
50 LET ME=500
60 LET SE=900
70 LET MK=14
80 LET RN=860
310 PRINT "%>%G%U%L%P%<% % %M%A%Z%E%= % %S%P%E%E%D%=5% %G%R%A%D%E%=5% % BEST=00000 LIVES=5 SCORE=00000"
340 LET M$=".\##O%XBH \ ' E0 "
350 LET S$=" "
500 RAND USR 17116
510 PRINT AT 3,Z;S$;" MENU",,,,S$;"A...PLAY",,,S$;"B...MAZE",,,S$;"C...SPEED",,,S$;"D...GRADE",,,S$;"E...RESET",,,S$;"F...SAVE"
515 PRINT ,," PRESS G...INSTRUCTIONS"
520 LET K$=INKEY$
530 IF K$<"A" OR K$>"G" THEN GOTO 520
540 GOTO 550+20*(CODE K$-38)
550 IF M$(MK+O)=" " THEN GOTO 570
552 RAND USR 16514
553 PRINT AT O+O,X;"% %G%A%M%E% %O%V%E%R% "
555 IF INKEY$<>CHR$ 118 THEN GOTO 555
560 RAND USR 17030
565 PRINT AT 1,18;"5"
567 GOTO ME
570 GOSUB SE
571 PRINT "MAZE 1 TO 5"
572 GOSUB RN
573 PRINT AT Z,MK-O;K$
574 IF K$="1" THEN LET M$(MK TO )=" COPY COPY COPY COPY % ( \' %Z TO B CLEAR %4 \: %J TO F PRINT %CRND\: %F*FSTR$ % RND)%FFSTR$ %CRND +%FF TO VAL %C \: %5FD%H\: \;;%F%C)+%JNOT PRINT %4= \' %ZNOT %Y COPY % \' COPY COPY COPY COPY "
576 IF K$="2" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z COPY F CLEAR %4 \: %J COPY F PRINT %C +%F COPY FSTR$ %E %E COPY F%E% \' % Z UNPLOT \' %E%Z CLEAR %E% \' %E COPY F%E %F COPY FSTR$ %C +%J COPY F PRINT %4 \: %Z COPY F CLEAR % \' COPY COPY COPY COPY "
578 IF K$="3" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY CLEAR % \: %Z COPY COPY PRINT %4 \' %J COPY COPY COPY % \' COPY COPY COPY COPY "
580 IF K$="4" THEN LET M$(MK TO )=" COPY COPY COPY COPY %7 PRINT \,,%C\: %4+ RETURN %5%ZUSR \ '%X% REM \.:%Z\~~ CLEAR \.:F REM \: %X \~~ PRINT \ :STR$ %+ RETURN %4%=\ '%Z%* REM \.:%(\~~ CLEAR D%3 REM \' INKEY$% F CLEAR D%Z%C\: \' % %J PRINT CLEAR % (\' COPY COPY COPY COPY "
582 IF K$="5" THEN LET M$(MK TO )=" COPY COPY COPY COPY % \' %Z%N CLEAR %Z%N CLEAR %L%NLN %L%NLN %KNLN %KNLN %KNLN %KNLN %KNLN %KNLN %N%N<>%N%N<>%L%NAT %L%NAT %L%NAT %L%NAT %Z%Z% \' COPY COPY COPY COPY "
586 GOTO ME
590 GOSUB SE
592 PRINT "SPEED 1 TO 9"
595 GOSUB RN
600 PRINT AT Z,X+X+O;K$
602 LET M$(5)=CHR$ (X*X-X*N)
605 GOTO ME
610 GOSUB SE
611 PRINT "GRADE 1 TO 9"
612 GOSUB RN
615 LET M$(X+O+O)=CHR$ (96-X*N)
620 PRINT AT Z,29;K$
625 GOTO ME
630 PRINT AT O,5;"00000"
635 GOTO ME
650 GOSUB SE
652 PRINT "NAME AND START TAPE"
655 INPUT Z$
660 SAVE Z$
662 SLOW
665 GOTO ME
670 GOTO 1000
860 LET K$=INKEY$
870 IF K$<"1" OR K$>"9" THEN GOTO 860
880 LET N=CODE K$-28
890 RETURN
900 PRINT AT X+X,Z;"SELECT ";
910 RETURN
\n1000 RAND USR 17116
\n1005 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S"
\n1010 PRINT "IN GULP YOU STEER YOURSELF (O) THROUGH A MAZE, EATING FOOD (.) AS YOU GO. USE KEYS 5-8 FOR LEFT, DOWN, UP, RIGHT."
\n1020 PRINT "YOU GET POINTS AS YOU MOP UP THEFOOD, BUT LOOK OUT FOR YOU SHARETHE MAZE WITH A HUNTER (%X) AND IF HE CATCHES YOU, A LIFE IS LOST."
\n1030 PRINT "WORSE, THE MORE YOU EAT THE FASTER HE CHASES. AFTER EACH CAPTURE, CHASER STARTS AGAIN FROM BOTTOM RIGHT."
\n1040 PRINT "GAME ENDS WHEN LIVES=0 OR YOU PRESS ""0"" KEY. THEN NEWLINE TO UPDATE ""BEST"" SCORE IF DUE, AND YOU GET BACK TO THE MENU."
\n1050 PRINT "%N%E%W%L%I%N%E% %T%O% %C%O%N%T"
\n1060 INPUT K$
\n1061 RAND USR 17116
\n1065 PRINT AT 3,Z;"%I%N%S%T%R%U%C%T%I%O%N%S%,% %C%O%N%T%.",
\n1070 PRINT "USE THE MENU TO CONTROL THUS..."
\n1080 PRINT """A"" TO PLAY A GAME"
\n1090 PRINT """B"" TO SELECT ONE OF 5 MAZES"
\n1100 PRINT """C"" TO SELECT SPEED OR PACE OF THE GAME."
\n1110 PRINT """D"" TO SELECT GRADE, WHICH IS"
\n1120 PRINT " THE CHASER ACCELERATION."
\n1130 PRINT """E"" RESETS ""BEST"" TO 00000."
\n1140 PRINT """F"" SAVES GULP GAME ON TAPE."
\n1150 PRINT """G"" DISPLAYS THESE INSTRUCTIONS."
\n1160 PRINT "%N%E%W%L%I%N%E% %B%A%C%K% %T%O% %M%E%N%U"
\n1165 INPUT K$
\n1170 GOTO ME
