image of READY prompt

Wang2200.org

Listing of file='KERMIT' on disk='vmedia/games_vol_3.wvd.zip'

# Sector 162, program filename = 'KERMIT'
0010 DIM H$(10)39
0050 C$=$PSTAT(1)
   : C$=STR(C$,9,1)
0060 LIMITS T"KERMIT",X,X,X,S1
   : IF S1=1THEN 90
0070 PRINT HEX(03020404040E);AT(0,37);"KERMIT";HEX(020402000F)
0080 PRINT AT(3,0);"What disk is KERMIT on ?";
   : LINPUT ?D0$
   : IF VER(D0$,"HHH")<3THEN 80
   : SELECT DISK <D0$>
   : PRINT HEX(0306)
   : GOTO 60
0090 LIMITS T"KERM-H.S",X,X,X,S1
   : IF S1=2THEN 120
   : DATA SAVE DC OPEN T(4)"KERM-H.S"
0100 FOR K=1TO 10
   : H$(K)=ALL(20)
   : STR(H$(K),38,2)=HEX(04A0)
   : NEXT K
0110 DATA LOAD DC OPEN T"KERM-H.S"
   : DATA SAVE DC H$()
   : DATA SAVE DC END
   : DATA SAVE DC CLOSE
0120 DATA LOAD DC OPEN T"KERM-H.S"
   : DATA LOAD DC H$()
   : DATA SAVE DC CLOSE
0130 IF STR(H$(1),1,30)<>T1$ THEN 140
   : ELSE GOTO 150
0140 F=0
   : FOR K=1TO 10
   : T$=HEX(0000)
   : FOR J=1 TO 37
   : T$=ADDCSTR(H$(K),J,1)
   : NEXT J
   : IF T$<>STR(H$(K),38,2) THEN F=1
   : P=POS(-STR(H$(K),8,30)>" ")-1
   : IF P>0 THEN $ TRAN(STR(H$(K),P+7,31-P),"  ")R
   : NEXT K
   : IF F=1 THEN 100
0150 U4$=" "
   : PRINT HEX(03020400000E0202020F0106);AT(0,0);BOX(23,77);AT(2,0);
0160 PRINT TAB(9);HEX(FFFFFFFFC0C0C0FFFFC0C0FFFFFFFFFFFFFFFFFFC0C0FFFFFFFFFFFF
     FFFFFFC0C0FFFFFFFFC0FFFFFFFFC0FFFFFFFFFFFFFFFFC0FFFFFFFFFFFFFFFFFF)
0170 PRINT TAB(9);HEX(FFFFFFFFC0C0C0FFFFC0C0FFFFC0C0C0C0C0C0C0C0C0FFFFFFFFC0C0
     C0FFFFC0C0FFFFC0FFFFFFC0FFFFC0C0C0FFFFC0C0C0C0C0C0C0FFFF)
0180 PRINT TAB(9);HEX(FFFFFFFFC0C0C0FFFFC0C0FFFFC0C0C0C0C0C0C0C0C0FFFFFFFFC0C0
     C0FFFFC0C0FFFFC0C0C0C0C0FFFFC0C0C0FFFFC0C0C0C0C0C0C0FFFF)
0190 PRINT TAB(9);HEX(FFFFFFFFC0C0C0FFFFC0C0FFFFFFFFC0C0C0C0C0C0C0FFFFFFFFC0C0
     C0FFFFC0C0FFFFFFFFC0FFFFFFFFC0C0C0FFFFFFFFC0C0C0C0C0FFFFFFFF)
0200 PRINT TAB(9);HEX(FFFFFFFFC0FFFFFFFFC0C0FFFFFFFFC0C0C0C0C0C0C0FFFFFFFFC0C0
     C0FFFFC0C0FFFFFFFFC0FFFFFFFFC0C0C0FFFFFFFFC0C0C0C0C0FFFFFFFF)
0210 PRINT TAB(9);HEX(FFFFFFFFC0FFFFFFFFC0C0FFFFFFFFC0C0C0C0C0C0C0FFFFFFFFC0C0
     C0FFFFC0C0FFFFFFFFC0FFFFFFFFC0C0C0FFFFFFFFC0C0C0C0C0FFFFFFFF)
0220 PRINT TAB(9);HEX(FFFFFFFFFFFFFFC0C0C0C0FFFFFFFFFFFFFFFFFFC0C0FFFFFFFFFFFF
     FFC0C0C0C0FFFFFFFFC0FFFFFFFFC0C0C0FFFFFFFFC0C0C0C0C0FFFFFFFF)
0230 PRINT TAB(9);HEX(FFFFFFFFC0FFFFFFFFC0C0FFFFFFFFC0C0C0C0C0C0C0FFFFFFFFC0FF
     FFFFFFC0C0FFFFFFFFC0FFFFFFFFC0C0C0FFFFFFFFC0C0C0C0C0FFFFFFFF)
0240 PRINT TAB(9);HEX(FFFFFFFFC0FFFFFFFFC0C0FFFFFFFFC0C0C0C0C0C0C0FFFFFFFFC0FF
     FFFFFFC0C0FFFFFFFFC0FFFFFFFFC0C0C0FFFFFFFFC0C0C0C0C0FFFFFFFF)
0250 PRINT TAB(9);HEX(FFFFFFFFC0C0C0FFFFC0C0FFFFFFFFC0C0C0C0C0C0C0FFFFFFFFC0FF
     FFFFFFC0C0FFFFFFFFC0FFFFFFFFC0C0C0FFFFFFFFC0C0C0C0C0FFFFFFFF)
0260 PRINT TAB(9);HEX(FFFFFFFFC0C0C0FFFFC0C0FFFFFFFFFFFFFFFFFFC0C0FFFFFFFFC0FF
     FFFFFFC0C0FFFFFFFFC0FFFFFFFFC0FFFFFFFFFFFFFFFFFFC0C0FFFFFFFF)
0270 PRINT TAB(9);HEX(FFFFFFFFC0C0C0FFFFC0C0FFFFFFFFFFFFFFFFFFC0C0FFFFFFFFC0FF
     FFFFFFC0C0FFFFFFFFC0FFFFFFFFC0FFFFFFFFFFFFFFFFFFC0C0FFFFFFFF)
0280 PRINT AT(15,30);"(by Scott Darrow.)"
   : PRINT AT(17,4);HEX(02040B000E);HEX(0F);"('";HEX(0E);AT(17,6);"KERMIT ";HE
     X(0F);AT(17,13);"' is a product of Computer Applied Systems and Services
     Ltd.)";AT(20,9);"Press 'Return' to see instructions or 'Run' to play Kerm
     it"
0290 KEYIN U4$,290,290
   : IF U4$=HEX(0D) THEN 300
   : IF U4$= HEX(82) THEN 590
   : IF U4$=HEX(F0) THEN LOAD T"MENU"
   : GOTO 290
0300 PRINT HEX(030202020F0106);
0310 PRINT AT(0,0);BOX(24,79)
0320 PRINT AT(3,58);BOX(3,7);
   : IF STR(W$,7,1)="W"THEN PRINT " 8 or ";HEX(5E);
   : ELSE PRINT "    8";
   : PRINT AT(5,58);"   Up"
0330 PRINT AT(7,48);BOX(3,7);
   : IF STR(W$,7,1)="W"THEN PRINT " 4 or ";HEX(5F);
   : ELSE PRINT "    4";
   : PRINT AT(9,48);"  Left"
0340 PRINT AT(7,58);BOX(3,7);"    5 ";AT(9,58);"  Null"
0350 PRINT AT(7,68);BOX(3,7);
   : IF STR(W$,7,1)="W"THEN PRINT " 6 or ";HEX(84);
   : ELSE PRINT "    6";
   : PRINT AT(9,68);"  Right"
0360 PRINT AT(11,58);BOX(3,7);
   : IF STR(W$,7,1)="W"THEN PRINT " 2 or ";HEX(94);
   : ELSE PRINT "    2";
   : PRINT AT(13,58);"  Down"
0370 PRINT AT(0,26);HEX(020402000E);"*** KERMIT Instructions ***";AT(1,22);BOX
     (0,34);AT(0,22);BOX(1,0);AT(0,56);BOX(1,0);HEX(0F)
0380 PRINT AT(2,2);"Use the keys shown at right to move kermit ";HEX(0ED9E6)
0390 PRINT AT(4,2);"Kermit Must avoid being 'run over' by cars ";HEX(0EF7CCF3F
     3CCCCF3F3CC0F)
0400 PRINT AT(6,2);"and being attacked by the zombie ";HEX(0EEAE6E6E6D9CC0F);
0410 PRINT AT(8,2);"Then Kermit ";HEX(0ED9E60F);" must jump onto Logs ";HEX(0E
     F7F7F7F7F7F7F7D50F)
0420 PRINT AT(10,2);"and turtles ";HEX(0EE6CCD9C0E6CCD9C0E6CCD90F);" but bewar
     e"
0430 PRINT AT(12,2);"the Turtles ";HEX(0EE6CCD9C0E6CCD9C0E6CCD90F);" may start
      'BEEPING' "
0440 PRINT AT(14,2);"This means some or all of them are about to sink "
0450 PRINT AT(16,2);"If the turtles sink Kermit will drown ";HEX(0EC9F3C60F);"
      sink and die."
0460 PRINT AT(18,2);"Bonus points are given if you get the fly ";HEX(0E9897990
     F);" on the second bank"
0470 PRINT AT(20,2);"Kermit must jump into the holes in the bank for safety no
     t on the bank"
0480 PRINT AT(22,6);"(Press";HEX(0E);" 'RETURN' ";HEX(0F);"for the Kermit Hall
      of Champions or";HEX(0E);" 'RUN' ";HEX(0F);"to play)";HEX(01)
0490 KEYIN U4$
   : ON POS(HEX(820D)=U4$)GOTO 590,510
0500 PRINT HEX(0607)
   : GOTO 490
0510 PRINT HEX(0306);AT(0,0);BOX(23,79);AT(1,17);BOX(1,44);AT(1,19);HEX(020402
     000E);"*** Kamikazi Kermit hall of champions ***";HEX(0F)
0520 PRINT AT(21,13);"(Press 'RETURN' for the screen title or 'RUN' to play)";
     HEX(01)
0530 RESTORE LINE 8000
   : FOR K=1 TO 10
   : READ P$
   : PRINT AT(8+K,15);BOX(1,50)
   : PRINT AT(8+K,16);P$
   : NEXT K
0540 FOR K=1TO 10
   : PRINT AT(8+K,26);STR(H$(K),8,30);" ";STR(H$(K),,7)
   : NEXT K
0550 PRINT HEX(01)
0560 PRINT HEX(060202020F)
   : FOR K=51 TO 1STEP -1
   : KEYIN U4$,580,580
   : FOR K1=1TO 1500
   : NEXT K1
   : PRINT AT(4,0,240)
0570 IF MOD(K,2)=0 THEN PRINT HEX(0E);AT(4,K);HEX(D9FFFF0A089B0A080808D9FFFF0C
     FFFFFFFF0CFFFFFFFFFFFFFFFFD10A0A080808080808080808FFFFFFFFFFFFFFFFD1)
   : ELSE PRINT AT(4,K);HEX(D9FFFF0A08089BCC0A080808D9FFFF0CFFFFFFFF0CFFFFFFFF
     D10A0A0808080808FFFFFFFFD1)
   : NEXT K
0580 ON POS(HEX(820D)=U4$)GOTO 590,150
   : IF K=1 THEN 150
   : NEXT K
0590 LOAD RUN  T"KERMGAME"
8000 DATA " Champ"," 2nd"," 3rd"," 4th"," 5th"," 6th"," 7th"," 8th"," 9th"," 1
     0th"
9997 DEFFN'31"Z$=";HEX(22);"KERMIT";HEX(22);":SCRATCHTZ$:SAVET$()Z$";HEX(0D)
9998 DEFFN'30"SELECT LIST 215(132):LIST";HEX(22);"K E R M I T";HEX(22);"D: LIS
     T";HEX(22);"K E R M I T";HEX(22);" V:LIST#:LIST':SELECT  LIST 005(80)";HE
     X(0D)
9999 REM % BY SCOTT DARROW 22/05/82