50 IF DZ=0 THEN POKE 45,PEEK(174):POKE 46,PEEK(175):CLR
100 IF PEEK(12289)=0 THEN DZ=1:POKE12289,1:LOAD"WALLY.FONT",8,1
101 IF DZ=1 THEN DZ=0:POKE53272,19
105 POKE 53265,PEEK(53265) AND 239
110 F=20:NO=1:NT=10:DIMPD(10,4):NN=1
120 V=53248:I=249:REM VIDEO & IMAGE #
125 POKE V+21,0
130 POKE 53280,0
140 POKE53281,14
150 S=54272:FORSD=STOS+24:POKESD,0:NEXT
160 POKES+24,15:POKES+2,0:POKES+5,129:POKES+6,65
170 POKES+7,85:POKES+8,36:POKES+12,136:POKES+13,129
180 GOSUB 1260:REM PRINT SCREEN
240 POKE V,100:POKE V+1,120:REM POSIT
250 POKE V+39,11:REM COLOR
260 POKE V+29,0 :REM PLACE VERT
270 POKE V+23,0 :REM EXPAN HORI
280 POKE V+21,1:XL=0:REM TURN ON
285 POKE 53265,PEEK(53265) OR 16
290 J=PEEK(56320):VV=PEEK(V+1):VH=PEEK(V):VO=PEEK(V+16)
300 HP=SGN(JAND4)-SGN(JAND8)
310 IFHD<>HPTHENIFHP=1THENI=249
320 IFHD<>HPTHENIFHP=-1THENI=253
330 IFI=252THENI=249:NO=2:NT=10
340 IFI=256THENI=253:NO=2:NT=10
350 IFVO=1ANDVH=>59ANDHP=1THEN290
360 IFVO=0ANDVH<=20ANDHP=-1THEN290
370 VP=SGN(JAND1)-SGN(JAND2):IFWK=1ANDZZ<65THENVP=.5
380 OK=(F>51)
390 IFVP=1ANDVV=>156THEN290
400 IFVP=-1ANDVV<=94THEN290
410 POKEV+1,VV+VP*2
420 POKEV+16,OK*(-1)
430 POKEV,F*5+(OK*256)
440 POKE2040,I:IFHP=0ANDVP=0THEN480
450 NT=NT+26
460 IFNT>88THENNT=10
470 POKES+4,129:POKES+1,NO:POKES,NT:I=I+1:FORGG=1TO1:NEXT:POKES+4,128
480 IFJ=111ANDXL>10THENGOSUB1510
490 HD=HP:F=F+HD:XL=XL+1:IFWK=1 THEN RETURN
500 HD=HP:F=F+HD:XL=XL+1:GOTO290
1260 A$(0)="":A$(1)="":A$(2)="[158]":A$(3)="[156]":A$(4)="":A$(5)="[144]"
1270 POKE53280,0:POKE53281,14
1280 PRINT"[147]";
1290 FORGG=0TO3
1300 PRINTA$(GG);"   [169][223][146]   ";:PRINT"[157][157][157][157][157][157][157][157]";
1310 PRINT"  [169]  [223][146]  ";:PRINT"[157][157][157][157][157][157][157][157]";
1320 PRINT"      [223][146] ";:PRINT"[157][157][157][157][157][157][157][157]";
1330 PRINT"[169]      [223][146]";:PRINT"[157][157][157][157][157][157][157][157]";
1340 PRINTA$(GG+1);"       [146] ";:PRINT"[157][157][157][157][157][157][157][157]";
1350 PRINT"   ";A$(5);"  ";A$(GG+1);"  [146] ";:PRINT"[157][157][157][157][157][157][157][157]";
1360 PRINT"   ";A$(5);"  ";A$(GG+1);"  [146] ";:PRINT"[157][157][157][157][157][157][157][157]";
1370 PRINT"   ";A$(5);"  ";A$(GG+1);"  [146] ";:PRINT"[145][145][145][145][145][145][145]";
1380 NEXT
1381 PRINT"[151][209][145][157]GRIDLOCKED[146]"
1382 PRINT"[209][145][157]ONE MORE[157][157][157][157]TIME[146]"
1384 PRINT"[209][145][157]STROOP"
1386 PRINT"[209][145][157]QUIT"
1400 PRINT"";
1410 FORGG=1TO8:PRINT"[153]                                        [146]";:NEXT
1420 PRINT"[144][176]";:FOR X=1TO 36:PRINT"[192]";:NEXT:PRINT"[174]";
1430 FORX=1TO8:PRINT"[157][221]";:NEXT:PRINT"[157][189]";:FOR X=1TO 36:PRINT"[157][157][192]";:NEXT
1440 PRINT"[157][157][173]";:FOR X=1TO7:PRINT"[145][157][221]";:NEXT:PRINT:PRINT"[145]";
1445 PRINT"           JOEL EPSTEIN"
1446 PRINT"      AND WALLY THE ELEPHANT"
1447 PRINT"             PRESENT"
1448 PRINT"       WALLY'S NEIGHBORHOOD[144]"
1450 PRINT"USE STICK #2 & PRESS BUTTON AT DOOR."
1455 PRINTTAB(14)"PUBLISHED BY"
1460 PRINTTAB(7)"SOFTDISK PUBLISHING, INC."
1505 POKE 12288,1:SYS 886:RETURN
1510 XL=0:IFVO=0ANDVV=94ANDVH>=35ANDVH<=50THENMM=1:A$="GRID LOCKED":GOTO2190
1520 IFVO=0ANDVV=94ANDVH>=115ANDVH<=130THENMM=2:A$="ONE MORE TIME":GOTO2190
1530 IFVO=0ANDVV=94ANDVH>=195ANDVH<=210THENMM=3:A$="STROOP":GOTO2190
1540 IFVO=1ANDVV=94ANDVH>=19ANDVH<=34THENMM=4:GOSUB3000:IF Z=2 THENRETURN
1550 RETURN
2190 POKE53280,0:POKE53281,0:POKEV+21,0
2200 PRINT"[147][156]    ONE MOMENT, WHILE FILE LOADS..."
2220 POKE 43,1:POKE44,16:POKE4096,0
2222 LOAD A$,8
3000 PRINT"[158]   ARE YOU SURE YOU WANT TO QUIT?  "
3333 GET A$:IF A$="" THEN 3333
3335 IFA$="N"THENZ=2
3336 IFZ=2THENPRINT"[144]     SOFTDISK PUBLISHING, INC.";
3337 IF Z=2 THENPRINT"   ";:Z=0:RETURN
3338 IF A$="Y" THEN 3355
3339 GOTO 3333
3355 CLR:LOAD"UPT.REBOOT",8
6666 REM **** RETURN TO UPTIME ****