Willus.com

Home   |   Archive   |   About

VOODOO (15928 bytes)

EMULATE AS:  DEFAULT TYPE (CMD) | BASIC program | Program on Disk | 2-Disk Debug | Disk Download

SHOW BELOW AS:

BASIC program (download)

|

Text File (download)

|

Z-80 Program (download)

|

EDTASM File (download)

|

Graphic (download)

|

Hex File (download)

|

SCRIPSIT File (download)

Turn off .CAS filter  |   Return to TRS-80 software list.

    
15444 29123 OERRQERRTRONNERRRESTOREKERRSLERR~LERRLEFT$LERRaNERRLOCNERR$OERR)WERRWERRMKD$UERR*TERREXPSERRiCERR'GERR%GERRGERRSTOPGERRLENGERR[FE]FERRGERRTJERR^JSQRf
SQRLEN>C
[FE]p(1SGNY 18419 2ANDWAUTOSTRING$KC+H"[C+TAB(J+IFC+LENG+C +ATNH+ 18556 TROFF2\Y+ 52718 LENG!+C+G*CHR$X+^J![FD]C+G*LENX+^JSQR*SY
[FD][FF]SQR SQR~
SQRwSQR~ 56577 6 17416 +G+STOPGINKEY$* ADVENTURE * (Version: 8.2) Adventure number: 33125 < 29554 ion: 28783 yright Adams 1979. Box 3435 Longwood FL Phone 1-305-862-6917 This program will allow you to have an "Adventure" withoutever leaving your armchair! you will find yourself in a strange new world. You will be able to LOOK AT, PICK-UP and oOPEN< 26740 erwise MANIPULATE the objects you find there. You will also be able to TRAVEL from location to location. I will be your puppet in this Adventure. You command me with 2 word ENGLISH sentences. I've over 120 word vocabulary so if a word doesn't work, try aON< 28526 ther! Some commands I know: HELP, SAVE GAME, SCORE, INVENTORY, QUIT. The Author has worked over a year on this program and is currently writting many new Adventures, so PLEASE: DON'T COPY OR ACCEPT A "PIRATED" COPY OF ADVENTURE! Press enter 15455 1048 VAL~PEEK#AUTO( =VAL~#+'GCDBLLENCOSCDBLINKEY$PEEKVAL~AUTO(+'G#ASCCDBLCOSINKEY$> AUTOMEMVALPEEK=INSTR 65113 ([FE] }ASC?owFN(< w#"SY}CVI?
7? 64082 G!VARPTR?MKS$[RIGHT$X7?MKS$RMID$yG(PEEKUSR*RIGHT$XPEEK@ 45293 !VARPTR?"SY *SYPEEK[6
? 53697 COSCDBLINKEY$VAL
 4439 >W6 6150 SQR!ORW*SY6_ 11213 3616 zCONT LEN~[FE] (CVI6 CVS[FE]*SY6 +6 x[FE]([SQR+SQR6 22867 INSTR+'G[FE] (SQRw 46864 CDBLINKEY$ABS
<! 22867
[FF]< 8246 MKS$DEF!@<"RIGHT$XABSINKEY$MKS$[POINTW*Y#)PEEKUSR*THENWMKS$DEF*Y"INPUTY*Y"ONY!iYjY
 45293 TROFF2YINKEY$MKS$[YS 18265 SQR! Y#SQR~ 56611 ##VALMKS$K Y7?MKS$B~[FE]* CINT= YMKS$K Y#MKS$DEF[INKEY$#[FD]MEMPOINT*POINTW
 51383 *ONY+"ONY|AUTOVARPTR}![HAUTOLEFT$ /2yY+GINKEY$[FE]CSNG!DELETEH+G*ONY+^J!INKEY$H+GINKEY$Light runs out in 29301 ns 26727 t has run out 52553 G+STOPG[FD]!ORW+*J:!YAUTO V: Y!YPEEK< 65094 X6 65025 pMEM6[FE]tMEMp[FE]I SQR! YSQR6
NSQR6VSQR6E)
[FE]N([FE]S([FE]E([FE]W( [FE]U([FE]D x2^Y>
2\YINKEY$*/W+:H !MKS$I+G! Y+G!J+GERRATNH{2\Y+*JTROFF2^Y: YAUTO(!*-W+:H{2^Y !J+G! Y+G!$J+GERRATNH[FD]~ 51383 [FE] (VAL!CONTI+GERRATNHUse no more than 2 words 11565 -----^ Tell me what to do? 28516 n't know how toCHR$< 8736 28531 mething 28516 n't know what " 29545 8537 Y6 60672 DEFSQR! YTROFF[FD]~ 51383 [FE] AUTO(CSNGINKEY$SQRw 59416 )=MKS$[POINTW[~INKEY$PEEKVALSQRPEEK=INSTRPEEK
 8537 VY6 38881 TAB((MID$DATAJ>-2VYPEEKUSR! 60735 BSQR![YPEEK[! 31555 ASC0SQRw 800 TO( 4325 CVICOS!UY+G> +'GUSR[SQRCOSCDBLCOSINKEY$!)K+G+STOPG:ORW[FE]NMEM[FE]Y MKS$+C+SKMKS$[CHR$X*ORW7?MKS$R!KSTRING$GVALSTRING$CCDBL *gY
< 60759 DEF+SK+C:NOT< 18265 [FD]*POINTWSQR!ORWSQR~ 64768 #[FD]#SQR#FIXINKEY$BAD SAVE FILE 29806 to restore a previously saved game? 46935 ORXVALSTRING$6DCDBLVARPTRTROFF+SQR!ORW+TRON 56578 w 62992 +LEFT$
INKEY$2+5AUTO LEFT$LEFT$+5AUTO(MID$INKEY$TROFFOR[FE]INKEY$CLEARKANDKCOSKLOCKVALKLL#L1L=LCLOADKTOKSGNKCVIKCDBLKMID$K LL(LILINKEY$[FF] 14935 YG~[FE][FF]MEM##LEFT$y/OINKEY$[FE][FF]MEM 48840 MEM[FF]INKEY$FNMEM 6336 RIGHT$FNMEM[FE][FF]MEMFIXAUTOMEMMKD${FNMEMEOF*gY7?MKS$VAL< 63570 MEMRNDFNVARPTRFRE*gY7?MKS$R([CSNG-[FE][FF]VARPTRINKEY$*THENWFNMEMVARPTR{FNVARPTRNEW*THENWFNVARPTRPRINTLOF=iY[~AUTOVARPTRCLOSELOF=iY[~AUTOMEMDEFSNG*gY7?MKS$RMEMRESTOREVAL=PEEKINSTRSQRPEEK[FD]PEEK+3C!NOTL+6CMKS$KYASQR*POINTW[FD]*MEMWTROFFSQR~ 32460 L/[FD]n 50433 F#:SYCVI?POINTEND[FE]@STR$3C~[FE]/(+0C#VAL>.+0C> +0CUSRINKEY$SQR#SQR#[FD]#[FD]#TO!EOFLAUTOSTEP6C+3C[FD]COSSQRCOSUSRCOS[CDBLINKEY$I am carrying the following: 26740 ing At All 58845 [FD]PEEK*RIGHT$'< 344
STRING$ PEEKUSR! 22867 
<6 MKS$DEF:xYAUTO(*POINTW 65534 ( !INPUTYFN!LOCMSTRING$6CERLSTRING$M*DELETEWMKS$KINPUTY ^#VG[FE]* ! 17206 LOFx+?C:YG 22470 [FD]*MEMW:INPUTYSQRFN 46969 !/NSTEP6C+~L[FD]#[FD]#SQR#SQR#SIN+3C 8669 CLEARWNSQRn 50433 MKS$KINPUTY USR~AUTO(yAUTO!BNSTEP6C=COS+6CSQR#SQR#AUTO(RIGHT$ANDTROFFCLOADSTRING$3C>]+0C>>-+0C'>^+0C*SY"RIGHT$X[FD]COSSQRCOS!VARPTR?"SYABSCDBLINKEY$Its too dark to see! 0 NI am in a 21586 H 21589 H 21587 21587 32 DOWN 26966 sible items: 8224 Some obvious exits are: 54757 [FD]!RSETWMKS$[Y[FD][FD]MKS$SY[FD]^ 56577 PEEKCOS)^#V! 38723 CSAVE SGNNEW >[[FD]COSCDBLINKEY$SQRPEEK[FD]PEEK!SQRN+6C+LOCN*CHR$X"ORW=W!gY
< 12237 O:YGSQR!ORW[FD]*POINTW[FD]~ 64768 #[FD]#SQR#FIX+/O+$O[FD]COSSQRCOSINKEY$SAVING GAME 14927 ANDWAUTOSTEP6CSTEP9CMEM!ORW 1880 < 8397 DMEMASCEND+RESTOREDERR-@READY TAPE...HIT ENTER. 46935 ORXSTRING$(DINKEY$:ANDWAUTO(ORX+<DMEMASCEND+ DERR-@TROFF++NEXTSQR!ORW 52480 dSQR#ASC+LEFT$
INKEY$TROFFG+d'<+dINKEY$TROFFOR[FE]INKEY$LPRINTTROFF2dY2cY/2bY2`Y:\Y[FE]
:^Y[FE][FC]MKS$RLEFT$SQR![FF][FF]SQR#SQRPEEKCOS7?MKS$K Y+MKS$B :\YAUTOMEM+CLSQ!Q:`YAUTOSTRING$6C!^Q:bYAUTOSTEP6CINKEY$SQRPEEKCOSMKS$KOUTW ~2fYSQRPEEKCOSMKS$KOPENW ~2eY:\YAUTO :fYAUTOVARPTR:dYAUTO(:eYAUTO :fYAUTO(E:\YAUTOVARPTR2dY:\YCLOSE< 26145 YFN GOTOAUTO TROFF2`Y+EXPR!eYFN($MID$:PERRREMO:eY!^YFN(AUTOERLREMO:Y[FE]
!}QSTEP6CSQRPEEKCOSSTEPHCTROFF2`Y![FF][FF]"bY[FD]!RSETWINSTR[FD]n 58625 SQRPEEKCOS)USR ~_#~W! 60227 )=MKS$[ C[~2FORP#~2RESETP*POINTW~!INPUTY[FF]+ 25121 YCLOSEw[FD]#[FD]#USRTHENREMOERLJP:YAUTO!wQSTRING$6CSQRPEEKCOSSTRING$HC! 22791 [FD]!GETWINSTR[FD]n 56577 PEEK[~2pOAUTO(DMID$/P[FE]4MID$ANDP[FE]fMID$CVIP<2*STRING$W_ 9054 VLOF+BC+3C!<4_ 8669 +CSQRn 56577 COS~2Q#INKEY$< 12926 Q+ 9213 [FD]#FIELD:dYAUTOERLREMO:\YAUTOERLFIELDOERRREMO I must be stupid, but I just don't understand what you mean. 25376 an't do that...yet! 14916 19522 : 65113 ([FE]VARPTR:cYAUTOVARPTR:^YAUTO !sR+6CERRFR:\Y[FE] +'C:Y=CLOAD*%C[FC]6CMID$FRTROFFSQR*MEMWSQRn 60673 KFIELDYABSABS#xAUTOMID$KR CLOAD(s>/MKS$POKE mSQR! YPEEK[FD]COSABS: YGSQR~ 64779 FN 9213 SQR#CINT[FD]~ 15508 51488 [FD]^
 6487 :\Y[FE] (~[FE][FF](>
SAVE:INPUTYw~[FE][FF] >MKS$PEEK!INPUTYFNCOS(>EXP6[FF]!yR+6C+CTROFF2`YINKEY$!}R[FE]
STEP6C!REMR[FE]STEP6C!KILLR[FE]STEP6CAUTO LOG:cYVARPTR!FNR+6CORHUH? 13 I'm not carrying it! 25632 on't see it here. 27745 ready have it. 29556 beyond my power to do that. 57594 R(RIGHT$[FE]eLEFT$>2INKEY$VAL
:xYAUTO(*POINTW 65534 o< 3624 !INPUTYFN( 52563 6C:^Y=!MERGES[FC]6CMID$_So& 22456 ^#VLOFMKS$[INPUTYLOF!USRSAUTO  STEP6C("!aS+6C!xY6 12889 INPUTY+C2INPUTY!yR+6C+CCDBLINKEY$I fell & broke my neck! I'm DEAD! 8307 dangerous to move in the dark! 25966 ed a direction too 24931 n't go in THAT direction 24660 T{TCLOSETCLEARTSINT4UCLOSETPUZUyUELSEUDEFUVSGNVINPVEDIT< 22241 CVSV[FD]VnTCMDTPRINTTTT[FE]VDEFUTOTINSTRTSTEPTORTCVSTUU#U*U0U>UrT:YG 32343 [FE][FF]
##ASCINKEY$+*T:Y=CLOADFIXTT[[!MKD$U+6CERRC+C+EC6[FF]+CINKEY$+C+EC:INPUTYw+CINKEY$+CINKEY$! 46460 'INKEY$+C"INPUTY+CINKEY$+C+ECPEEK+C+EC[VALwCDBLMKS$KINPUTYCLOADSTEPC~CLOADSTEPCINKEY$+C+EC6 51523 !dY6[FF]INKEY$! 26410 Y+"gYINKEY$*gY+HCINKEY$+C"gYINKEY$:INPUTY:READY2INPUTY2READYINKEY$! 5581 CSQRPEEKSQR!gY)GOSUBYMKS$KgY^qSQRs 15418 56688 r
SQRCOSINKEY$+CMKS$KgY "gYINKEY$+CPEEKUSR*gY7?MKS$B"gYINKEY$! Y+6CINKEY$! Y+6C+3CINKEY$+C
iY 6[FF]INKEY$+CREADY~VAL:INPUTYwCDBL2INPUTYINKEY$+C
iY 6 21870 +6C:Y2INPUTYTROFF2xY+CINKEY$I'm DEAD! 52547 ECPEEK+C[G}!INPUTYFNSTEPCxFNSTEPCINKEY$!LISTU+6C+9C:ORW[FE]NTHEN 8281 LOFCOSCOSCOSERR-C+CINKEY$The Adventure is over. Want to try this Adventure again? 8301 carrying too mSQR< 25461 h. Try: TAKE INVENTORY 58845 :YGSQR*POINTW*MEMW^#V#[FE]* :YSQRFN 56588 #SQR#CVSSQRCOS!{V+6Ci& 8515 CMDV+6CY 52480 WLOF*Y+)W+HC+3C:YCLOADVARPTR!LLISTV+6CERRELSEUI stored 16709 SURES. On a scale of 0 to 100 that rates: 21582 ASTIC! You've solved it ALL! 51523 ! 21815 ! 21843 *Y"ONY*POINTW
 38911 2yY+CINKEY$+?< 52547 ECPEEK+C+ECCOSwINKEY$VAL=INSTRJ{LOF! 52025 0
LOF)LOFSTR$USR[CDBLINKEY$SQRPEEK[FD]PEEKINSTRVAL>SQR! 14626 YSQR";YSQR!9Y[FD]!;YSQRNOT 459 NOT#NOT[FD]NOT 459 PEEK7?MKS$K;YMKS$B(FIXENDWMKS$K9YMKS$C9Y7?= 21229 [[FD]u 57601 = USR*9YMKS$[;YCDBLUSR[FD]COSSQRCOSINKEY$U+9D(PEEKERRLU*YU"yNAMEqir)sEOFsNAMEtiu)vNAMEw)yNAMEz)|NAME}SQR}~E~y~SAVE~COS~pONp%qpINTY@[
0 0 0 0 0 8270 KNIFE" "" "" ""EXP< 8717 " "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "." "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" 112 4 571 a lake." 10 0 0 1 0 0 "*I'm at the edS/S4 t 4 @< 0 INT< 0 0 SAVEDIM 191 A 25 0 DEFSTR: 11776 HARPEN KNIFELEAFE 0 0 SAVEDEFCOSDEFPOKEIPOKE}POKEPOKEPOKERIGHT$MERGEyKILLRIGHT$LSETySAVERIGHT$SYSTEM)=- 13363 0 0 0 0 0 0 0 0 0
0 0 0 0 15000 t 0 0 0 0 49152 >ENDSQR@%qMKD$ACVDA= 40001 LLIST 22862 82 SOU 83 WES 0 DOW 73 COF 47951 < 18688 NV 84 HOL 79 PAT 78 CLO 79 CHU 66 GRA 76 BAL 68 CHI 10825 PLA 73 SAF 69 ARM 65 RIN 66 FIR 10837 CHI 0 SOO 0 HEA*ANI 69 STA 71 PIN 87 FOO*RAB 77 SHO 80 SWE 10830 CRI 76 BOA 77 GRA 84 PUP 73 STA 79 CHA 80 POT 76 BAR 67 LED 79 VOI 24391 < 17920 LO 73 MUM 65 SAP 67 ARO 10841 RAV 0 35 54 0 LEA 65 PAG 84 GO 21582 *WAL*CLI*RUN 0 0 0 21573 *TAK*PIC*REM*PUL 10828 RES 0 DRO*PUT*LEA*THR 71 ON 22081 10835 CLE 10821 PUS 10838 SHO*KIC 10821 SMA 86 REA 0 20224 PE 79 TUR*DIA 10831 EXA 86 CIR 0 QUILOAD< 17408 RI*EAT 87 MIX 77 . 18515 R 0 LIS*HEA 65 21248 HA 0 SLI 78 YEL*SCR*SUM*SAY*CRY 10836 STA 0 RUB 79 . 21832 G 0 0 0 0 0 0 0 0 0 0 0 26723 apelDingy Looking Stairwellroom in the castleTunnelroom in the castle *I'm in Me < 26980 um MAegen's MAd Roomroom in the castleroom in the castleroom in the castleBAllroomdungeon*I'm in the ArmoryTorture ChAmberChimneyGiAnt FireplAceroom in the castleLabnarrow part of the chimney GrAveyArdparlor Jail Cell*I'm on a ledgehidden f< 20310 ODOO room 29807 of TROUBLE! 30063 nt Cristo's been CURSED! There's one way for him to flee! Find it, and he'll go FREE!It belongs to the medium$Spirit vibrAtions drive me from room$Prints too smAll for the unAided eyeI cAn't do thAtNothing HAppenedWindo?< 29559 openWindow just slAmmed shut1For a reading just "SUMMON MEDIUM MAEGEN" today!!I see nothing speciAl=Phosphorescent letters are very hard to read in bright light!(Amongst the grAves is A four leAf cloverRaven crys something outsideOne of the test tube< 29541 EXPLODED!This glAss cAn't be broken
.They AppeAr to be mixAbleThere's something written thereA sepulchrAl voice sAysOK2Safe's combination lock is numbered from 33 to 38."Ring glows briefly & door vanishesOUCHA sign here says:There's A mAn hereWLPRINT< 24933 ring a sapphire ringI slide bAck down A beAm of light shines on grAve Pins fall out of dollPlaque says: "safe --> 38 33"This grAve reserved for you!There's a CLAP OF THUNDER!RJu-Ju man says:"My bag is now yours! Its magic will help you -CRACK- the < 30051 rse!". HURRAH! Look who is in the room!I'm now 4 feet tall!It's much to heavy to LIFT!I'm too big"You startled medium & she vanishedOn whAt?WMAid chAsed me with broom for trAcking soot through the bAll room. I wonder where I Am?CSweep pops out, thanku< 8307 me, hands me a piece of paper then vanishes!(As I dust of the Idol it begins to glow!He's wearing a rabbit's foot
.HELP ME, I'm stuck!Luck wAsn't with me2Doll looks like Count Cristo. There're pins in it!
.LPRINTThe bird says: "Ask for ADVENTURE 5 *THE COU< 21582 * at your favorite computer dealer, it will be LOVE AT FIRST BITE! If they DON'T carry ADVENTURE have them call 1-305-862-6917! There's some soup here.I see a hole under it!$NAils were rusted but I got them out.It's hArd work but it seems to be coming+< 27680 oose2I hear strange sounds, as if someone were moaning.I've got it!.Heavy duty exhaust fan comes on & sucks me up!
.-SAY ZAP to restore someone changed to stone.Statue is made of stoneI hear nothing.won't budge!+I'll need something to pry it off theKILL< 30496 all!CLSIt's a book on removing curses. Says: "With knife in hand you take a stand. Circle coffin and..." The rest of the page is missing!!!/Its very dark, the only light is from the idol.That's illegal!@Double bubble toil & trouble the encAntAtions Are Ab< 30063 t to peAk!There's An Antique hAmmer hereINPUTThere's a Clap of Thunder & then suddenly the stone statue begins to crack. I may be in trouble now, there's someone in the room with me!"Looks almost like lemonade. Yummy!@You've been turned into a broomstick & 5< 8289 witch rides off on you!There's witch's brew thereCell door slams shutYou've been sprungw...wave the stick and hold the lamp and don't forget to yell "CHANT"! Oh yes, to help it succeed, a doll you'll need...9Welcome to ADVENTURE: 4 "VOODOO CASTLE" by d< 27713 exis Adams. how?It appears stuck to the floor! There's no room in there for me!My idol acted strangeI've no container.,Some dust fell off it and it glowed briefly.Its very faint.Its much louder up here.There's a book there.There's a stick there.k< 28482 y it looks dusty.Its glowing.Strange hobby you haveCheck out the fireplace. Its empty.I hear someone mumbling.
.Saw grating!I haven't got a knife!$Inscription on ring says: "WAVE ME!"SETMedium appears, says: "Keep a good luck charm on you & your frie>< 25710 . I also see a -moving- bag helping you through a tight squeeze!"6It will take some strong magic to get me through that! Use a number!Knife made no impression on it!Bloody Knife/KNI/ 25701 gePlaque/WRI/AnimAl HeAds/HEA/Broken GlAss/GLA/ Big kettle 6< 24900 rk holeShield/SHI/StAirsBrightly glowing idol/IDO/ Open WindowDArk ChimneyClosed Flue Open FlueFour LeAf Clover/CLO/GrAvesCAst Iron Pot/POT/ Closed CoffinCrystAl BAll Closed Window FireplAce Soot/SOO/Tiny open door Spirit Medium.Massive stu< 28271 e door with a SAPPHIRE set into itSapphire ring/RIN/Ju-Ju bag/BAG/Open CoffinSlick chute leading downward Ju-Ju manSlippery chute leading upWide crack in the wallRabbit's foot/FOO/ Dull & broken sword/SWO/! Open SAfeStuck Chimney SweepChem tuE< 25954 s/TUB/$Closed SAfeLAbeled ChemicAls/CHE/&Pocket Shovel/SHO/'Mixed ChemicAls/CHE/(wide open door Nails/NAI/*Dusty Idol/IDO/+ Doll/DOL/,Wooden boards/BOA/-"Wood boards nailed to chimney wallAntique HAmmer/HAM//GrAtingRusting SAW/SAW/1Button in tSTR$< 25960 wall Paper/PAP/3Voodoo book/BOO/4Ju-Ju man statue/STA/5 Stick/STI/6 Open wallOpen jail cellKnight's Suit of ArmorClosed cell doorBroken grating/GRA/;Advertising leaflet/LEA/<Crack in the wallHole in the wallPieces of rock/ROC/?Page from a boo^< 12139 PAG/@Smiling Count Cristo 0  2  12  9 0 19  6 3584 0  17 0 0  0  0  0 3840 0  0  0 0 11  0  8 0 27579 USRk-kCOSkSTR$k[FF]k lll9lElRl^lhllRANDOMlDEFSNGlMERGElLLISTlERRl+lINTlCVSlVALl$m8mHmTmqm{mELSEmRSETmVARPTRmFREmATNmLEFT$m nn-nAnWnfnrnSETnRUNnOPENnINSTRD< 55918 nSINnSTR$noo%o<oHoRoaoxoINPUToERRORoCLEARoTHENoINPoCSNGop 8  3 512 9 0 19  6 3584 0  17 0 0  0  0  0 3840 0  0  0 0 11  0  8 0 0 0 0 0 0 10753  * *
**&'

***
&
0&' & #

*- 10790 ((*#@
#0 2594
, =< 2583 #** 2560
**
*'0 12059
*8 #6#&* #
88

*EE*
<**28&>8?@  3H*E8 I 2#
& ((((#&HH(((K dd 30  100 d##dd# 11264 CC +###W+"  ,, 7196 (%',?* 2865  11573 437 19200 B*B// = 59 M+ 89 7747 ,F 3074 15679 =  15452 0 19019 88 9 8514 77 +STUV  14117 4 H 6198  57 hhh.}FORGOTO 8192 FB544F5HH68 6H4 HH=46RANDOMI:w44:HRANDOMq6 ;;vGBo')l/+I5y446*;oIXg5j?m!44|~ 1hhENDRESET6FORNEXT44446 31507 1 5259 f544RESETIFH~FORLn4s6<<<<GOSUBoSTOP<<o 0 0 L6L 16128 :SET 15373 0 X 0  13855 14356 6 76 6X$o 5120 5260 NEXT 18688 X5GOTO 28672 55 8192 L4 5140 H 5175 i6 5120  4 11 CLSCMD 33536  5140 L 13962 0 UH5 33536 RESTORE 1600 % 5140  6  0 3584 0 0 0 88 6 0 16384 17979 F 0 120 0 1536 8 0 13568 L 73 0 0 u; 18688 34 0 LL 1536 tIJL 0 : 0 0 9728 0 0 64 0 J 0 0 14 0 0 0 0 0 0 0 0 0 H 0 0 0 768 0 0 ? 0 0 0 0 ;#U 0 0 0 ? 0 0 14138 0 0 0 0 0 0 0 58880 < 0 0 0 0 0 0 0 0 51712 187 32768
OR 2 421 @ 364 
0
LEFT$
ELSE 583 0 164 
b+ 382 f 282 .
&
.
OPEN 682 FIX 122 0
CONT| 402 
SIN
2C
V
v| 523 + 602  8962 FIXh 753  523 FRE

'# ' 26112 0 FIXFORSETrl
[FF]sRUN 843 b'C
RUNSETTHEN 122 f 60 102 sAUTO 1000 LOC 9986 GLPRINTKILL 11008 224 w + 304 INKEY$f 503 _ 523 ;6 183 =CLEAR 562 FNSTEP 0 DEFSNGFORNEXTNEXT 64259 FN_ 0 0 OR=CONTPOINT 9986 CVICVICVICVICHR$
~
CHR$
58882 CVIsFNRESUME 35072
9728
RETURN 141 56321 0 INKEY$INKEY$INKEY$ 0 0 0 0 
0 0 
&
END
%
RESTORE
61443 320 [FD]< 1 0 ,
40961 0 T
T
0 83 OUT 1054  0 TROFFKILLKILL? 742 F 6144
3 0 0 63 2 0 0 183 3 0 ENDCLEAR
LIST 64 3 981 LINEh
1 940 m 0 2816  0 22 INKEY$
30720 3 20740 F8|
0 1162 40960 0 44288 ENDCLSCLS 8192  0 0 STR$
0 ~< 0 0 9216  20  0 0 20 39936  51201 0 1 0 0 0 0 0 0 0  1 0 x 0 1 0 CSAVE

1 0 12288  1 540 0 308 17664  0 0 CLOAD< 680  1 440 2 0 0 542 2 0 6912
0 0 END 23552 z 33024 < 0 68 VARPTR 0 0 44032  0 0 0 0 0 460 0 1040 4 0 0 0 0 0 3 0 63488  0 0 62464
0 0 4 0 0 0 0 0 51200 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 56320 2560 < 0 0 57344
0 0 0 0 0 60 2 0 20738  0 760 0 0 0 0 3 0 32768 0 0 0 0 0 30720 0 0 0 0 0 0 0 0 0 0 0  2 0 0 0 0 0 3 0 0 0 0 0 15576 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 50176  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ? 0 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 60 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 18432  0 0 0 0 0 0 0 0 0 0 0 0 0 0 MERGE\NAME\DEF\MEM\INP\SIN\VAL\])]<]O]X]`]s]SET]READ]DEFDBL]SYSTEM]PRINT]+]SGN]RND]CVD]LEFT$]^^ 256 0 0 0 0 0 0 COS< 0 0 0 0 0 0  0 0 0 2560 0 0 9  0 768 0  17 256 0  0 0 0 0 0 2816 1 1280 0 3328 0 1792 0 0 0 0 0 0 0 0 0 768 0 0 0 0 0 0 0 0 0 0 2< 0 14 0 0 7168 ^^v^IF^LIST^ABS^EOF^MID$^_ _R_h_CLOSE_*_MKI$_`'`)`C`c`{`~`POKE`>`ABS`LOF`[FE]`a(aIa_a}aDEFSNGaLLISTab)b>bZbfbINPUTbRETURNbLOCb.cWctcvcDIMcERRORc[cORcSETdDEFDBLdPRINTdSGNde9eFeuewePUTeTOe+eFREefREADfNEWfNOTfg+gLLISTgINTgh4hIh\h>hii2iSiii|iNAMEiCLOADiANDiCVDi[FF]ij j7jPj[jtjvjSETjDEFSNGjUSINGjCkzkDATAk 0 0 0 0 0 0 0 SETxPC

This page generated by trs80cat v2.22, last compiled Sep 15 2024.