Willus.com

Home   |   Archive   |   About

SA04118B.CMD (16128 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)

Return to TRS-80 software list.

    
50051 qOERRQERRTRONNERRRESTOREKERRSLERR~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: 357  26995 on: 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 o
 25960 rwise 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 a
 29807 her! 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 513 62724 ~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]
 60704 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!Y
 22782 6 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 to
 34 " something 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:
 1095 [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$
 51448 RNDFNVARPTRFRE*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$
 257 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! 36352 I 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 344  17440 MEMASCEND+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:\Y
 22886 FN 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#
 1586 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]~ 513 64969 ^
 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
 8462 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{TCLOSETCLEARTSINT4UCLOSETPUZUyUELSEUDEFUVSGNVINPV
 59222 V[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 513 29405
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 m
 26723 . 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$+
 17869 CPEEK+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"ySYSTEMqlr*sCVDsCLOSEtdu"vERRORwyTRONz|RUN}ERL}ASC}*~^~RETURN~POINT~MID$~"pCLOSEp*q!pINTY@[
0 0 0 0 0 20037 KNIFE" "" "" "
 8717 " "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "." "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" 118 4 561 " 117 4 560 "*I'm in the Armory" 11 0 12 0 0 0 "S/S4 v 4 @<[FD][FD][FD][FF]-
 61421 [FF][FF]o[FF] 22784 65 c 9
15000 0 0 0 0 0 0
45254 MID$DEF.POKEbPOKETRONPOKEFIXMERGEnKILLLOCLSETfSAVESINSYSTEM[FF]? 12593 8/ 0 [FF][FF] 32768 0 0 0 0 0 0 61184 [FF]LPRINTLPRINTLPRINTCINTLPRINTCINTCINTTROFFCINT[FF]CINTv[FF]CINTCINTTIMESD=*DEFSTR:SGNCINTLPRINTLPRINT[FF][FF][FF][FF][FF][FF] END 26752 0 17408 173  4 A E
I
E
USR
89 NOR 85 EAS 83 UP 22351 73 COF 335  20041 V 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 327  19526 O 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 QUI
 21060 I*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
 30057 m MAegen's MAd Roomroom in the castleroom in the castleroom in the castleBallroomdungeon*I'm in the ArmoryTorture ChAmberChimneylarge fireplaceroom in the castleLabnarrow part of the chimney Graveyardparlor Jail Cell*I'm on a ledgehidden
 20303 DOO roomroom in the castlelot 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 thatNoth
 26478 happenedWindows openWindow just slAmmed shut1For a reading just "SUMMON MEDIUM MAEGEN" today!!I see nothing very special.=Phosphorescent letters are very hard to read in bright light!(Amongst the grAves is A four leAf cloverRaven crys something out
 25705 eOne of the test tubes 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 sa
 14963 There's a man hereWearing a sapphire ringI slide bAck downA beam of light shines on gravePins 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
 25960 lp you -CRACK- the curse!". 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
 21315 weep pops out, thanks 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 me!2Doll looks like Count Cristo. There're pins in it!
.pBird says: "ask for
 22084 ENTURE 5, -THE COUNT- at your favorite computer dealer. It will be LOVE AT FIRST BYTE!" 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 loose2I hear strange sounds, as if som
 28271 e were moaning.I've got it!.Heavy duty exhaust fan comes on & sucks me up!
.6says: "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 the wall!CLSIt's a book on removing
 30051 rses. 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 About to peAk!There's an antiqu
 26656 ammer 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 & a witch rides off on you!Ther
 29479 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...QWelcome to ADVENTURE: 4, "VOODOO CASTLE" by Alexis Adams. Dedicated to al
 27936 oms! 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.Boy it
 28524 oks 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 friend. I
 29548 o 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 Dark h
 25964 Shield/SHI/StairsBrightly glowing idol/IDO/ Open WindowDArk ChimneyClosed Flue Open FlueFour leaf clover/CLO/GrAvesCast iron pot/POT/ Closed CoffinCrystal Ball Closed WindowLarge fireplace Soot/SOO/Tiny open door Spirit Medium.Massive st
 25966 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 tu
 29541 /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 t
 8293 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 torn from
 25120 ook/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 27573 NEWkMEMkINPkMKD$kRIGHT$klll3l?lLlXlblylENDlSTOPlOPENlLPRINTlTOl+lINTlCVSlVALl$m8mHmTmqm{mELSEmRSETmVARPTRmFREmATNmLEFT$m nn-nAnWnfnrnSETn
 41582 nINSTRnFREnSINnSTR$noo%o<oHoRoaoxoINPUToERRORoCLEARoTHENoINPoCSNGop 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 2560 &
*  * *
**&'

** 280 0&' & #

*- 10790 ((*#@
#0 290  11265  #** 2560
**
*'0 12059
*8 #6#&* #
88

*EE*
<**28&>8?@  3H*E8 I 2#
& ((((#&HH(((Kdd 30  100 d##dd# 11284 CC +###W 4640 ,, 7196 (%',?* 2865  11573 437 19200 B*B// = 59 M+ 89 7747 ,F 3074 15679 = 
 3921 0 KJ88 9 8514 77 +STUV  14117 H 6198  57 hhh.}FORGOTO 8212 FB544F5HH68 5192 4 HH=46RANDOMI:w44:HRANDOMq6 ;;vGBo')l/+I5y446*;oIXg5j?m!44|~ 1hhENDRESET6FORNEXT44446 31507 1 5259 f544RESETIFH~FORLn4s6<<<<GOSUBoSTOP<< 0 0 L6L 16128 :SET 256  88 z 532 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 0 0 0 0 54 0  0 5;FF 0 120 0 1536 8 0 13568 L 73 0 330  18688 34 0 LL 1536 tIJL 0 : 0 0 9728 0 0 64 0 J 0 0 14 0 0 0 0 18688 0 0 0 72 @ 0 0 16384 @ 0 63 0 22528 r 0 37376 21795 0 0 0 ? 0 0 14138 0 0 0 0 0 0 0 0 256  0 0 0 0 0 0 0 184 NEW 0 END
OR 2 421 @ 364 
0
LEFT$
ELSE 583 48640 RESUMEGET 1122 + 382 f 282 .
&
.
OPEN 682 FIX 122 0
CONT| 402 
SIN
2C
V
v| 523 + 602  8962  104  28 FRE

'# ' 26112 0 643 rl
[FF]sRUN 843 b'C
RUNSETTHEN 122 f 102 sAUTO 46848 ERLCVDLOC 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 CVIs 35072
9728
RETURN 141 56321 0 INKEY$INKEY$INKEY$ 0 0 39936 z 1 0 } 280 &
END
%
RESTORE
61443 320 
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 47360 $ 20  0 0 20 9216
MEM 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 0 17408 0 256  0 0 RSET 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 MEM 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 56320 0 0 0 EXP
0 47872 0 0 0 0 0 0 0 593 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 0 0 0 0 2 TAB( 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 0 0 62 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 256  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 OUT 0 0 0 0 0 0 0 0 0 0 0 0 23720 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 0 0 2 512 0 2 FN 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 0  2 0 0 .^/^DATA^
 50782 ^LOF^'^__2_d_END_FN_CVS_`$`?`A`[`{`REM`TRON`INKEY$`MKI$`CDBL`aa.a@a`avaSTOPaPOKEaSTEPab@bUbqb}bOUTbNAMEb
cEcncREADcGOTOcONcDELETEcEOFcLOFc\dtdREADdDEFdLOGdeeNePeNEXTeRESUMEeLPRINTeTAB(eCVDemfEDITfSAVEfMKD$f gTROFFgCSAVEg'gh+h>hDELETEhi i,iMiciviFIELDiCONTiSTEPiSINiRIGHT$i jj1jJjUjnjpj}jSTOPjCLOADj=ktkRESETk 0 0 0 0 0 0 0 0 0 0 0 0 17 VARPTRLEN! 17152
50096 PC 24612 ?`A`[`{`REM`TRON`INKEY$`MKI$`CDBL`aa.a@a`avaSTOPaPOKEaSTEPab@bUbqb}bOUTbNAMEb
cEcncREADcGOTOcONcDELETEcEOFcLOFc\dtdREADdDEFdLOGdeeNePeNEXTeRESUMEeLPRINTeTAB(eCVDemfEDITfSAVEfMKD$f gTROFFgCSAVEg'gh+h>hDELETEhi i,iMiciviFIELDiCONTiSTEPiSINiRIGHT$i jj1jJjUjnjpj}jSTOPjCLOADj=ktkRESETk 0 0 0 0 0 0 0 0 0 0 0 0 17 VARPTRLEN! 17152

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