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.
Related Products
Fast paced game of chase and escape. Dash through 5 different mazes; pick up points by gulping food along the way. But you share the maze with the hungry ogre, and he is out to gulp you. The more you eat, the angrier he gets, and the faster he will chase you. Nine speeds and
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