:59468,12= WANDER COPYRIGHT (C) 1978 GLEN FISHERY CURSOR #1, JULY, 1978z BOX 550, GOLETA, CA. 93017: AS OF 15 MAY 80ZPG$"WANDER":NM$"1":62000d:BL32:CRT32768:HT25:WD40gP$""hWC87:HD81i59468,126jRC(7),CC(7),DS(7)YkI07:DS(I)I:RC(I),CC(I):Il-1,-1,-1,0,-1,1,0,-1,0,1,1,-1,1,0,1,1mOLD32767u"HOW LONG WOULD YOU LIKE IT? ";:60000:WSZ(IN$)vWSZ1"BE SERIOUS!":63000-wWSZ1"SORRY, BUT IT MUST BE LONGER THAN THAT.":63000iyWSZ255"WORMS CAN'T GROW LONGER THAN 255!!!":63000WM(WSZ):HP0:TP0:SZ0"";TR1RK$:RK$" "2000SZWSZ300LOCWM(TP):TPTP1:SZSZ1TPWSZTP0LOC,BL TR03005LOCLOCCRT:NR(LOCWD):NCLOCNRWDT(TRNR)2(TCNC)2300cI125:Il200{,DC8:TR11(1).13306DCDC1:DC0TRROW:TCCOL:200@T((1)DC):DRDS(T):DS(T)DS(DC):DS(DC)DRJNRROWRC(DR):NCCOLCC(DR):LOCCRTWDNRNCGT(NR0)(NRHT)(NC0)(NCWD)(LOC)BL310[YOLD,WC:OLDLOCu^ROSNR:COLNC:LOC,HDhSZSZ1:WM(HP)LOC:HPHP1:HPWSZHP0r150 CURSOR(TM) MAGAZINE JULY, 1978 #1 P.O. BOX 550, GOLETA, CA 93017  CHANGE PRINT CHARACTERS, RL$:RL$""2010> RL$" "190L ZZ(RL$)^ ZZ1472030g 100x ZZ642040 WCZZ:190 ZZ1912050 WCZZ64:190 WCZZ128:190 `IN$" ":ZTTI:ZC2:ZD$(20) jZ$:Z$""60070% tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI150 ~60010` Z(Z$):ZL(IN$):(Z127)32" ";:60110 FL(Z127)64(Z127)91Z$((Z128)255) ZL25460010 IN$IN$Z$:Z$;ZD$;Z$; Z13IN$(IN$,2):CR$;: Z20ZL1IN$(IN$,ZL1):"";:60010; Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:60000F 60010V (PN060250y 260500:"PRESS RETURN TO "; <"BEGIN:";:60240 PT$:T$""60240 ZPNLP:"";:100 dPNPN1:"";PG$;" - CURSOR #";NM$;" (C) 1979 PAGE";PN;"" n60500:& TI110:"";:I:H 0"";9);"CURSOR #1 WANDERr :"COPYRIGHT (C) 1978 BY GLEN FISHER} D60500 N"A WORM CRAWLS OVER YOUR PET X"WANT DIRECTIONS? ";:60000 bIN$"Y"100 LP1:60200 "A FRIENDLY WORM WILL MAKE PATTERNS"% "ON THE SCREEN."+ U "YOU CAN SET THE LENGTH OF THE WORM"k "FROM 2 TO 255."q "YOU CAN FREEZE THE WORM BY PRESSING THE" "'SPACE' KEY. WHEN YOU PRESS IT AGAIN" "THE WORM WILL CONTINUE CRAWLING." ""WHEN THE WORM IS FROZEN, YOU CAN"P "CHANGE THE CHARACTER USED FOR ITS BODY""BY PRESSING WHATEVER CHARACTER YOU LIKE." *"IF YOU PRESS THE 'CLR' KEY WHEN THE"4"WORM IS FROZEN, YOU CAN THEN SET">"IT'S LENGTH AGAIN."H60200ZZ12000:ZZ:100