| Is a part of release: | Spectrofon #06 |
| File size: | 15616 |
| md5: | 577c079dfccee41e81adf2347297c62b |
0HEROES L. DISKED WALSOFT COPY !@[M] STEP [F]] STEP @[M]!TAN _' STEP [F]] STEP TAN _* POKE /"[NOT USR COPY COPY COPY ![Q]Z[R]Z6 GO SUB VAL <> NEXT GO SUB [ POKE / STEP = NEXT <> COPY STEP SCREEN$ ] STEP INT ]NOT ^<>>o2SQR /!Z@6# CLS <> INVERSE !A]▘P INVERSE n INVERSE #,>= STEP OVER ] MERGE STEP DIM ] READ FOR ! FOR READ STEP DIM ] MOVE READ -&)))<<>~ACS # PLOT <>
1 BORDER NOT PI: PAPER NOT PI: INK NOT PI: CLEAR 0: RANDOMIZE USR 0
62451▜] NEXT >!@ GO SUB VAL = PAUSE NOT Z]SCREEN$ COPY COPY STEP R;; MOVE !$ RESTORE !D RESTORE INK MOVE STR$ INK !w@~ RETURN GO SUB (# INK OR INK ( FOR 0 LET <>#F THEN x( THEN LN x RETURN >0> GO SUB #~O INK MERGE INK y FOR PRINT #0 STEP <> FOR $| RETURN Y0 NEW USR } AND o?[P] NEW SAVE ▗gATN <> MERGE COPY MOVE | RETURN [? FORMAT VERIFY g,} NEW USR 7<> GO SUB GO SUB GO SUB V GO SUB USCREEN$ COPY Covx<neas7.:6rquw{q@EW__________________________________________________________U @pzuqss7:.6qcgov48^oC COPY USCREEN$ GO SUB V GO SUB G GO SUB E GO SUB GV GO SUB USCREEN$ COPY CHR$ PLOT z,n PLOT NEW AND ▙lt8/ GO TO DEF FN DEF FN ▙VAL$ ^SCREEN$ LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST REM PSCREEN$ FN ▙ OVER INPUT VAL$ ▙Nl/8t GO TO DEF FN ▚INKEY$vx<n PLOT CHR$ COPY USCREEN$ GO SUB V GO SUB G GO SUB E GO SUB GV GO SUB @[T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]NOT [T]C[Q] GO SUB GO SUB V GO SUB ▚ COPY COPY PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT RETURN PRINT COPY PRINT COPY PRINT COPY PRINT COPY PRINT COPY PRINT COPY uIN U>> GO SUB [F]USR USR CONTINUE PRINT IF GO SUB COPY OUT LOAD OUT FOR PRINT COPY COPY GO SUB ▚V GO SUB EGGV GO SUB ▚ COPY COPY u~u~u~u~u~u~u~u~u~u~u~u~u~u~txpb@J***U*U*W*W*W++K_Kows|t~u~u~u~u~u~u~u~u~u~u~u~u~u~u~u~u~u~u~u~u~u~uPEEK ASN ^-n5z;]=^>^>^VAL$ [O]NVjesyzyrythP`@ @ GO SUB @[Q] FORMAT CONTINUE POKE IF CLEAR IF CLEAR IF CLEAR COPY COPY GO SUB ▚V GO SUB EGGV GO SUB ▚ COPY COPY ~©jsjsjsjsjsjsjsjsjsjsjsp@SCREEN$ SCREEN$ SCREEN$ TFN TFN /FN |FN SAVE LN GO SUB SAVE LIST LET LIST LET LIST RANDOMIZE SAVE CLS IF RANDOMIZE CLEAR CLEAR }<^nvhrjsjsjsjsjsjsjsjsjsjsjsjsjsjsjsjsjsjsjsjsjsjsjsjsjsjsjsjsjsjCOS SCREEN$ !#o RETURN IN /gV;[K];]MUnfrw{i{mt-R*R+S*S*S* GO SUB [Q]P COPY COPY GO SUB ▚V GO SUB En GO SUB EGV GO SUB ▚ COPY COPY MERGE REM MERGE SCREEN$ MERGE SCREEN$ MERGE SCREEN$ MERGE SCREEN$ MERGE SCREEN$ MERGE SCREEN$ MERGE SCREEN$ OVER TAN LPRINT ▝▘▛WAT XVAL `USR GO SUB ▚**USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ UATTR VTAB UATTR FLASH REM FLASH INPUT PRINT IF CLEAR RETURN GO SUB COPY GO SUB ▜*1ryTl/*<??}y RANDOMIZE LET LPRINT LPRINT USR GO SUB GO SUB ▗ GO SUB GO SUB USR GO SUB LPRINT LIST LIST GO SUB x<<>©?_?" COPY COPY GO SUB ▚V GO SUB D GO SUB f GO SUB eDV GO SUB ▚ COPY COPY UPOINT TSCREEN$ [Q]TSCREEN$ U[Q]PSCREEN$ UATTR ~ CLOSE #//VAL LPRINT GO SUB "USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ TFN P LPRINT GO SUB +ASN SCREEN$ ASN REM USCREEN$ UFN TSCREEN$ CLOSE # REM PRINT SAVE DRAW RETURN GO SUB COPY SAVE LPRINT B THEN [P] CLOSE #STR$ [T] OR =? GO SUB IN GO SUB OUT RETURN CLEAR COPY CLEAR REM MOVE COPY DRAW LPRINT GO SUB ▗ LPRINT LIST SAVE SAVE CLEAR CLEAR GO SUB RETURN COPY GO SUB ©? GO SUB ?>~~<=U STEP COPY RETURN DRAW DRAW xCOS COPY COPY GO SUB ▚V GO SUB FffDDV GO SUB ▚ GO SUB COPY ©IN OPI▝P DRAW ATTR / LPRINT GO SUB GO SUB GO SUB +C)UPOINT UPOINT TSCREEN$ TSCREEN$ UATTR /VAL `uSCREEN$ T[Q] FORMAT `P[Q]@[Q][Q]A▝A GO SUB ▗ GO SUB ▗>=>= CONTINUE CONTINUE GO SUB SAVE GO SUB DRAW GO SUB RETURN GO SUB COPY LIST +_ IF MERGE FN @? GO SUB COPY FOR W LOAD COPY CLEAR SAVE 0 IF POKE CONTINUE TPOINT QPOINT MOVE cCc3;??©0x SAVE DRAW DRAW RETURN RETURN ~ GO SUB ©?? GO SUB ?>| SAVE SAVE p 'LN >~|ABS X LIST EIN uFN P COPY COPY GO SUB ▚V GO SUB GO SUB fDDV GO SUB ▚ GO SUB COPY ©?IN ©© GO SUB COPY CLEAR p@ GO SUB ▗ PFN T[T] @@ GO SUB GO SUB ▜ [A][A]▖▗J LINE DATA REM DATA CONTINUE uVAL ASN p GO SUB x| DRAW DRAW RETURN RETURN GO SUB COPY GO SUB ▗ GO SUB CLEAR RANDOMIZE PAUSE RESTORE FOR OR ▛[F]▘ UINT © COPY COPY ?FN PRINT COPY COPY © COPY COPY GO SUB ▚VT GO SUB Df GO SUB DV GO SUB ▚ GO SUB - COPY ?▙>P* COPY FN UU COPY UIN COPY UIN COPY SAVE ATTR _~*@[Q]P LPRINT p CONTINUE tINT |PEEK ]._.▛ MERGE FOR PRINT PAUSE RANDOMIZE SAVE GO SUB DRAW GO SUB RETURN GO SUB DRAW SAVE SAVE GO SUB LIST LPRINT LPRINT USR SAVE DRAW DRAW RETURN RETURN GO SUB COPY pOIN GO SUB COPY ▜/© NEXT CPOINT CLOSE # COPY COPY GO SUB ▚VT GO SUB DV GO SUB ▚ COPY COPY ///?_?©IN _/_?/ GO SUB COPY DRAW SAVE LIST LPRINT USR COPY GO SUB Y GO TO #_IN © GO SUB IN GO SUB © COPY ©© COPY GO SUB © GO SUB IN ©? OUT OUT ?O RUN RUN U CLEAR CLEAR LET CODE © SAVE CHR$ CODE RETURN `/>▝▝@▝USR [R]@[R]Q Q!<xp 3<= BORDER ww©© COPY COPY IF PRINT REM GO SUB COPY RETURN SAVE PRINT GO SUB COPY GO SUB ▚V GO SUB e GO SUB DV GO SUB ▚ GO SUB COPY LPRINT LIST SAVE GO SUB DRAW SAVE LIST LPRINT GO SUB COPY DRAW SAVE LIST LPRINT q GO SUB [Q]( SAVE GO SUB ! COPY GO SUB ©IN OUT OUT STR$ LPRINT LPRINT [T] RESTORE PAUSE ▝$v NEXT LLIST [Q]p LET LLIST @ LPRINT USR @ GO SUB ▝ GO SUB STR$ 0 SAVE DRAW RETURN GO SUB COPY 8BSCREEN$ U RETURN CLEAR RETURN COPY COPY CLS ▚ RANDOMIZE GO SUB COPY GO SUB ▚V GO SUB UEE GO SUB DV GO SUB ▚ GO SUB COPY GO SUB GO SUB GO SUB GO SUB COPY DRAW LIST LPRINT ▝ATTR VAT YCOS g CAT [P]<x LPRINT O? GO SUB USR GO SUB LPRINT GO SUB USR ▝▚▙▙ TO TO GO SUB RANDOMIZE CLEAR DRAW GO SUB COPY ©? CAT BORDER sEXP YAT VERIFY FOR LET SAVE |zEXP SGN [K]▖▗▖USR LPRINT SAVE GO SUB COPY x6 LIST DRAW ©©??IN GO SUB COPY GO SUB © COPY RETURN COPY COPY © GO SUB COPY GO SUB ▚V GO SUB U GO SUB E GO SUB DT GO SUB DV GO SUB ▚ GO SUB COPY USR LPRINT GO SUB LIST GO SUB GO SUB LIST LPRINT USR GO SUB COPY RETURN LIST CHR$ +WSGN q<=[P]?© GO SUB COPY ?USR LPRINT LIST CONTINUE CONTINUE hii) GO SUB 53[J]▞q GO SUB USR `` USR [A]>= CONTINUE DATA PAUSE DIM [R] FORMAT CONTINUE LIST CONTINUE POKE IF DRAW IF CLEAR LPRINT SAVE RETURN RETURN GO SUB COPY ©?[P] CAT g3▗B 08<>? GO SUB © GO SUB COPY y▘UCODE GO SUB COPY ©© GO SUB COPY RETURN DRAW 5 RETURN GO SUB COPY GO SUB ▚V GO SUB U GO SUB EDBBTT GO SUB DV GO SUB ▚ GO SUB COPY <8800 GO SUB 0088< GO SUB ? GO SUB COPY SAVE STR$ TEXP c?© GO SUB COPY ©© GO SUB ?[P] GO SUB OUT GO SUB ▜ GO SUB COPY GO SUB © GO SUB COPY ~|= AND GO TO CONTINUE LIST LIST GO SUB LPRINT GO SUB USR LPRINT LPRINT LIST DRAW GO SUB COPY ©?▝USR LPRINT LIST SAVE RETURN GO SUB COPY SAVE `USR USR GO SUB GO SUB USR GO SUB LPRINT GO SUB LIST GO SUB SAVE LIST xCODE NOT GO SUB COPY GO SUB ▚V GO SUB U GO SUB EeDDTT GO SUB DV GO SUB ▚ GO SUB COPY GO SUB x DRAW GO SUB COPY | GO SUB GO SUB COPY NOT 7 CAT ?© GO SUB COPY GO SUB USR GO SUB COPY ©VAL$ T GO SUB GO SUB GO SUB COPY © COPY © GO SUB COPY LIST GO SUB [C] GO SUB SGN USR GO SUB ▜© GO SUB ~><>? GO SUB GO SUB GO SUB COPY GO SUB ▚V GO SUB UE GO SUB UeeDT GO SUB DV GO SUB ▚ GO SUB COPY ▜STR$ LPRINT pp GO SUB 0 LIST LIST pp LIST LIST GO SUB COPY ▜223▜ GO SUB COPY ?©©~xpp` GO SUB a`ppx~??USR RETURN COPY COPY RUN SCREEN$ *_ COPY USCREEN$ GO SUB ▖ GO SUB ▞ GO SUB COPY GO SUB ▞ GO SUB ▗AUSR GO SUB LPRINT USR STR$ ▝▘▝▘▝▘USR USR [Q]VAL P(T(T(P(PFN PFN PFN T(BIN LET PRINT RANDOMIZE DRAW CLEAR DRAW RANDOMIZE SAVE RANDOMIZE LIST POKE SAVE GO SUB COPY GO SUB ▚V GO SUB U GO SUB eDDF GO SUB DV GO SUB ▚ GO SUB COPY USR GO SUB 8 SAVE LIST LPRINT LIST SAVE DRAW GO SUB COPY ? GO SUB ? GO SUB COPY GO SUB SAVE GO SUB DRAW SAVE GO SUB COPY DRAW GO SUB COPY IF t CONTINUE POKE IF uIN CLEAR REM COPY CODE U GO SUB ▗SCREEN$ W IF }. GO SUB ▜ GO SUB COPY ©?? GO SUB [T]T IF ~?IN IN OUT OUT OVER COPY COPY ©▗FSCREEN$ D▖P▘ GO SUB GO SUB GO SUB GO SUB ▗ GO SUB GO SUB USR LPRINT SAVE DRAW COPY RETURN DRAW |SGN P( SAVE RETURN GO SUB COPY GO SUB ▚V GO SUB U GO SUB eDDFB GO SUB DV GO SUB ▚ GO SUB COPY ~<880pp LIST LIST SAVE SAVE |>? GO SUB COPY BORDER BORDER NOT NOT BORDER BORDER LPRINT LET GO SUB COPY 08 GO SUB <[A] COPY COPY RETURN LPRINT © GO SUB COPY _▛P SAVE T▖T IF TFN GO SUB ▞▝ GO SUB ▖ GO SUB COPY CAT ? LOAD `▜[P] GO SUB COPY GO SUB LPRINT LIST COPY f>vCOS ' GO SUB COPY ©©? GO SUB COPY RANDOMIZE LIST LPRINT LPRINT ` GO SUB [A]USR SAVE COPY COPY GO SUB ▚V GO SUB UeeffDDBTf GO SUB DV GO SUB ▚ GO SUB COPY ▝ GO SUB <~ GO SUB COPY ~< GO SUB ▝ GO SUB COPY GO SUB [P]▝[J][J][I] GO SUB COPY 8<>0<<8 COPY COPY | GO SUB COPY ©* GO SUB GO SUB COPY GO SUB ▜g9>?<> GO SUB 0 `@STR$ ▜[P]?© COPY RETURN RETURN ~~? GO SUB GO SUB GO SUB NEXT LLIST GO SUB GO SUB [C] COPY COPY GO SUB ▚V GO SUB UeD GO SUB f GO SUB Vff GO SUB DV GO SUB ▚ GO SUB COPY ©> GO SUB >© GO SUB COPY NOT ▝[J]▝[P]▝NOT GO SUB COPY GO SUB GO SUB COPY ©[P] BORDER GO SUB COPY IF CLOSE #[Q]@ GO SUB GO SUB COPY GO SUB ▗© COPY SAVE LPRINT USR LPRINT x LET ~CODE GO SUB ▚[A]VAL ` LPRINT USR GO SUB GO SUB a CLEAR GO SUB RETURN LPRINT GO SUB GO SUB GO SUB USR LPRINT LPRINT LIST SAVE x GO SUB ▚_-**E GO SUB COPY COPY GO SUB ▚V GO SUB UeD GO SUB f GO SUB VfDDV GO SUB ▚ GO SUB COPY USR GO SUB ? GO SUB ? GO SUB USR GO SUB COPY GO SUB < GO SUB ©~< GO SUB GO SUB COPY CODE GO SUB ▚> DRAW SAVE LPRINT GO SUB ▞USR p[M] NEW SAVE ~PEEK ? GO SUB LPRINT LIST SAVE DRAW RETURN RETURN LOAD OUT GO SUB IN OUT OUT CAT C GO SUB ` 00 GO SUB GO SUB GO SUB ▗ FORMAT BRIGHT INPUT LOAD RUN CLS {}>PEEK _IN _CODE wSQR WSCREEN$ U+ COPY COPY GO SUB ▚V GO SUB Uee GO SUB fB GO SUB VTDDV GO SUB ▚ GO SUB COPY ? GO SUB > GO SUB COPY RETURN SAVE pp LPRINT LLIST GO SUB LPRINT app SAVE RETURN GO SUB COPY RETURN UFN @ `` LPRINT USR USR GO SUB ▛ FOR RESTORE SCREEN$ ▜▝ GO SUB USR ▝▘ `A[S] OR ATTR VERIFY GO TO x` GO SUB GO SUB GO SUB USR LPRINT LPRINT LIST LIST DRAW COPY ©©???© GO SUB COPY ©IN IN OUT LOAD LIST COPY COPY WSCREEN$ COPY COPY GO SUB ▚V GO SUB Uee GO SUB f GO SUB DTTDDV GO SUB ▚ GO SUB COPY STR$ GO SUB USR DRAW x GO SUB ▝ GO SUB COPY LPRINT LIST GO SUB COPY LET GO SUB COPY IF POKE CONTINUE FORMAT GO SUB ▗ GO SUB COPY GO SUB ▗ LIST SAVE |SGN /:R RESTORE ?_+ CONTINUE P @▝./LN p LPRINT USR GO SUB [H] GO SUB ▚ GO SUB COPY RETURN DRAW LIST LLIST MOVE FN T CONTINUE LIST CONTINUE QCODE COPY COPY GO SUB ▚V GO SUB UeeDDff GO SUB Df GO SUB DV GO SUB ▚ GO SUB COPY ©?© COPY COPY © GO SUB ?© GO SUB ' COPY RETURN GO SUB COPY USCREEN$ GO SUB ▖ GO SUB COPY CLS PRINT STOP RESTORE >=[D]▜o?_CODE o OUT IN © COPY COPY ©? GO SUB [F]> GO SUB RETURN ~~© GO SUB ? GO SUB GO SUB COPY DRAW qUSR ▘E GO SUB COPY GO SUB ▚V GO SUB U GO SUB e GO SUB DF GO SUB fDV GO SUB ▚ GO SUB % COPY RETURN CLEAR RETURN DRAW IF DRAW SAVE POKE SAVE POKE SAVE LIST LPRINT FORMAT LPRINT USR @[Q]@@FN POKE IF POKE FN @ GO SUB ▞ GO SUB COPY © GO SUB COPY © GO SUB [A]▝NOT READ NEXT COPY COPY GO SUB GO SUB USR USR TO RETURN DRAW SAVE LIST LPRINT POINT UVAL$ © GO SUB COPY GO SUB ▚V GO SUB U GO SUB e GO SUB DffDV GO SUB CHR$ OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR NOT OR GO SUB GO SUB V GO SUB USCREEN$ COPY Covx<neas7.:6rquw{q@EW__________________________________________________________U @pzuqss7:.6qcgov48^oC COPY USCREEN$ GO SUB V GO SUB G GO SUB E GO SUB GV GO SUB USCREEN$ COPY CHR$ PLOT z,n PLOT NEW AND ▙lt8/ GO TO DEF FN DEF FN ▙VAL$ ^SCREEN$ LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST IF LIST REM PSCREEN$ FN ▙ OVER INPUT VAL$ ▙Nl/8t GO TO DEF FN ▚INKEY$vx<n PLOT CHR$ COPY USCREEN$ GO SUB V GO SUB G GO SUB E GO SUB GV GO SUB @[Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]@[Q] GO SUB GO SUB V> DRAW FBIN [L] GO TO OVER LIST 2PEEK AT *ATTR j COPY ! PLOT e; COPY ABS BRIGHT ▛▝ LOAD USR SCREEN$ RANDOMIZE VAL ACS X<O00m[T]PEEK / LLIST LIST *(*?] COPY d CLS DEF FN THEN n8? REM [T] MERGE E! TO _[7 MERGE GO SUB VAL !`TAN _ CONTINUE [P]NOT NOT 3! RESTORE COS _ATN GO SUB B LLIST >=~ RETURN BRIGHT ( GO SUB FN INPUT +F THEN x( THEN LN xPI( RETURN >0> BRIGHT +~ DRAW + CAT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT NEXT 1 COPY COPY ! CLEAR RETURN q# DRAW q! RETURN RETURN 6NOT #(_s#r> CLEAR GO SUB G GO SUB ^ STEP CLS NOT %_ NEXT !@ STEP =a STEP LLIST a> RUN FLASH RETURN THEN G LINE E_>2 OR ` STEP z> COPY 2 OR `!@ STEP =a!X6]T COPY GO SUB VAL STEP Ha STEP ABS q STEP Fq DATA ` STEP ua POKE ` STEP ua CLEAR ` STEP uaa STEP uaa STEP ua#a STEP ua>2 READ `>IN FLASH RETURN THEN G( SAVE STEP AND ` THEN a _ THEN Y THEN Q( LET : READ `< RETURN >2 STOP `: READ `= PRINT > LET : STOP `2 READ `! GO SUB VAL SQR : READ `!@ POKE ` RETURN (!AT @ CLEAR ` RETURN (! TO @a STEP ua<>: READ `2p THEN : OR `ATN (2 STEP FqVAL$ ` STEP ua!KH$|> FLASH RETURN / NEW RUN > FLASH RETURN / NEW ( RUN >© FLASH RETURN 0 LIST STEP Fq!PI@ STEP ua!q THEN STEP n{CODE NEXT CODE NEXT CODE NEXT CODE NEXT NOT q THEN STEP Fq|!SCREEN$ @! LINE @| STEP ua!KH$|> FLASH RETURN / NEW ( RUN >© FLASH RETURN 0 LIST <>Fast forward the tape. COPY RETURN THEN g THEN MOVE THEN _ THEN INK >IN FLASH RETURN THEN GUSR THEN LLIST <>Select Controls COPY Kempston COPY Sinclair COPY Keyboard COPY Keyboard controls - COPY BRIGHT Q A O P and K. COPY 6]T COPY GO SUB VAL <>!%b[Q]H STEP Ra<> MERGE MERGE ~#z NEW RUN MOVE { AND _ NEW LPRINT GO SUB z AND W RETURN X RESTORE MOVE LPRINT <> CLEAR RESTORE y2 LPRINT a CLEAR ! LPRINT a RETURN COPY CLEAR LLIST <> MERGE RESTORE o&) BRIGHT VAL { MOVE FOR INVERSE ! OUT a INVERSE 6 RESTORE OR O( IF ACS w#qSTR$ INVERSE 5( LLIST $ LLIST MOVE | NEW SAVE g MOVE x AND NEW G(TAN RESTORE | BRIGHT NEW PLOT Xg: LPRINT aw LLIST NOT ▝a!@ OR RESTORE STEP ua LLIST } AND o0| AND gSTR$ GO TO >!XwT COPY GO SUB VAL > RETURN CLS = SAVE STEP b<>> FLASH RETURN / NEW ( RUN <> COPY MERGE CODE INVERSE SCREEN$ INVERSE SCREEN$ INVERSE SCREEN$ INVERSE SCREEN$ INVERSE SCREEN$ INVERSE SCREEN$ INVERSE SCREEN$ INVERSE SCREEN$ INVERSE SCREEN$ INVERSE SCREEN$ INVERSE SCREEN$ INVERSE SCREEN$ INVERSE SCREEN$ INVERSE SCREEN$ INVERSE SCREEN$ INVERSE SCREEN$ INVERSE ATTR INVERSE ATTR INVERSE ATTR INVERSE ATTR INVERSE ATTR INVERSE ATTR INVERSE SCREEN$ INVERSE SCREEN$ INVERSE SCREEN$ INVERSE SCREEN$ INVERSE SCREEN$ INVERSE SCREEN$ INVERSE SCREEN$ INVERSE SCREEN$ INVERSE SCREEN$ INVERSE SCREEN$ INVERSE SCREEN$ INVERSE SCREEN$ INVERSE SCREEN$ INVERSE SCREEN$ INVERSE SCREEN$ INVERSE SCREEN$ INVERSE SCREEN$ CIRCLE SCREEN$ MERGE SCREEN$ BRIGHT COPY U COPY USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ U COPY BRIGHT UUSCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ SCREEN$ USCREEN$ BRIGHT COPY U COPY USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ UATTR UATTR UATTR UATTR UATTR UATTR USCREEN$ USCREEN$ UTI?ITUUSCREEN$ UATTR UATTR UATTR UATTR UATTR UATTR USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ SCREEN$ USCREEN$ BRIGHT COPY U COPY USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ U COPY BRIGHT I>▖I*<><>* COPY *<><>*I▖>[M]I COPY BRIGHT UUSCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ SCREEN$ USCREEN$ BRIGHT COPY U COPY USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ UUUUUUUUSCREEN$ U+[F][T]I COPY I[T][F]+USCREEN$ USCREEN$ UUUUUUUUSCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ SCREEN$ USCREEN$ BRIGHT COPY U COPY USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ U COPY BRIGHT UUSCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ SCREEN$ USCREEN$ BRIGHT COPY T REM DSCREEN$ DSCREEN$ DSCREEN$ DSCREEN$ DSCREEN$ DSCREEN$ DSCREEN$ DSCREEN$ DSCREEN$ DSCREEN$ DSCREEN$ DSCREEN$ DSCREEN$ DSCREEN$ DSCREEN$ DSCREEN$ DDDDDDDDSCREEN$ DSCREEN$ DSCREEN$ DSCREEN$ DSCREEN$ DSCREEN$ DSCREEN$ DSCREEN$ DSCREEN$ DSCREEN$ DSCREEN$ DSCREEN$ DSCREEN$ DSCREEN$ DSCREEN$ DSCREEN$ SCREEN$ TSCREEN$ BRIGHT ©UjUoTlTlTlTlTlTlTlTlTlTlTlTlTlTlTlTlTlWjUjUoTlTlTlTlTlTlTlTlTlTlTlTlTlTlTlTlTlWjUjUj@ COPY USCREEN$ P REM 1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+ LET ATTR USCREEN$ P REM 1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+ LET ATTR USCREEN$ USCREEN$ BRIGHT COPY USCREEN$ SCREEN$ COPY OG/HDb!AHh@H8=~U COPY USCREEN$ SCREEN$ COPY BRIGHT B@D BRIGHT @ ( 0U COPY USCREEN$ USCREEN$ BRIGHT COPY USCREEN$ SCREEN$ COPY COPY BRIGHT CLEAR DRAW SAVE NEXT COPY BRIGHT G? COPY COPY ©>?▙▜CSTR$ P[B] LIST TAN OUT [P]U COPY USCREEN$ SCREEN$ COPY e▜@s©??=?`0U COPY USCREEN$ USCREEN$ BRIGHT COPY USCREEN$ SCREEN$ COPY COPY BRIGHT LOAD BORDER ;<=EXP DRAW RETURN BRIGHT >/< SAVE SAVE f=w CAT LOAD U COPY USCREEN$ SCREEN$ COPY COPY OUT BORDER _g RUN COPY DRAW / CAT COPY RUN @f} CLEAR RANDOMIZE 8xqABS [N]] FLASH NEXT COPY CLS PAUSE BU COPY USCREEN$ USCREEN$ BRIGHT COPY USCREEN$ SCREEN$ COPY FORMAT VAL VAL @ LIST DRAW RETURN RETURN COPY COPY ATN Ux8>""N: COPY COPY RETURN U COPY USCREEN$ SCREEN$ COPY [A] GO SUB EXP COPY RETURN CLEAR INVERSE CLS LOAD [M] LPRINT USR VAL |▗BIN PRINT CAT CATTR COPY BRIGHT U COPY USCREEN$ USCREEN$ BRIGHT COPY USCREEN$ CODE POKE ,t,t,t,t,t,t,t,t,t,t,t,t,t,t,t,t,w REM USCREEN$ CODE POKE ,t,t,t,t,t,t,t,t,t,t,t,t,t,t,t,t,w REM USCREEN$ USCREEN$ BRIGHT COPY USCREEN$ P REM 1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+ LET ATTR USCREEN$ P REM 1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+ LET ATTR USCREEN$ USCREEN$ BRIGHT COPY USCREEN$ SCREEN$ COPY `ppxx8Pppx``aa`xp`@ ` BRIGHT xp``@U COPY USCREEN$ SCREEN$ COPY ▗ BRIGHT |x@@ BRIGHT !@ BRIGHT `@ U COPY USCREEN$ USCREEN$ BRIGHT COPY USCREEN$ SCREEN$ COPY ▗ BRIGHT ▗ BRIGHT 3- CAT O CAT OOL BRIGHT BRIGHT U COPY USCREEN$ SCREEN$ COPY BRIGHT PEEK 4$USR @`` LLIST READ NEXT RUN COPY COPY © COPY BRIGHT ??C LLIST U COPY USCREEN$ USCREEN$ BRIGHT COPY USCREEN$ SCREEN$ COPY ▚ BRIGHT ?gCHR$ 0 SAVE BRIGHT DRAW |<8 `DU COPY USCREEN$ SCREEN$ COPY | COPY H` SAVE RETURN COPY BRIGHT LOAD ▜ BORDER DRAW DRAW RETURN RETURN DRAW LPRINT SAVE LPRINT DATA >= GO TO USCREEN$ USCREEN$ BRIGHT COPY USCREEN$ SCREEN$ COPY LOAD ?IN ? COPY IN COPY COPY OUT +/ (p▗ BRIGHT U COPY USCREEN$ SCREEN$ COPY BRIGHT ▗ BRIGHT BRIGHT U COPY USCREEN$ USCREEN$ BRIGHT COPY USCREEN$ CODE POKE ,t,t,t,t,t,t,t,t,t,t,t,t,t,t,t,t,w REM USCREEN$ CODE POKE ,t,t,t,t,t,t,t,t,t,t,t,t,t,t,t,t,w REM USCREEN$ USCREEN$ BRIGHT COPY USCREEN$ P REM 1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+ LET ATTR USCREEN$ P REM 1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+ LET ATTR USCREEN$ USCREEN$ BRIGHT COPY USCREEN$ SCREEN$ COPY wsrrz``p| BRIGHT xp` BRIGHT @ BRIGHT U COPY USCREEN$ SCREEN$ COPY ©~||x|{yzzvyqsp@@PP@` ▚ BRIGHT U COPY USCREEN$ USCREEN$ BRIGHT COPY USCREEN$ SCREEN$ COPY ▘?7?a STOP BORDER BORDER W%+©AU COPY USCREEN$ SCREEN$ COPY IN VAL$ © COPY COPY LOAD BRIGHT CAT READ COPY c COPY c©? BRIGHT oc!U COPY USCREEN$ USCREEN$ BRIGHT COPY USCREEN$ SCREEN$ COPY CLEAR DRAW SAVE SAVE RANDOMIZE SAVE VAL LIST DRAW DRAW INPUT x SAVE BRIGHT LPRINT VAL VAL LPRINT LIST LPRINT USR USR 0 LIST STOP INPUT U COPY USCREEN$ SCREEN$ COPY @VAL LPRINT ▝ LIST LIST USR USR LPRINT LPRINT [Q][Q]USR x LIST LIST LLIST [Q]U COPY USCREEN$ USCREEN$ BRIGHT COPY USCREEN$ SCREEN$ COPY NEXT BORDER [P] COPY ??©© COPY IN BRIGHT BRIGHT ?U COPY USCREEN$ SCREEN$ COPY COPY BRIGHT ??? BRIGHT ▞ BRIGHT U COPY USCREEN$ USCREEN$ BRIGHT COPY USCREEN$ CODE POKE ,t,t,t,t,t,t,t,t,t,t,t,t,t,t,t,t,w REM USCREEN$ CODE POKE ,t,t,t,t,t,t,t,t,t,t,t,t,t,t,t,t,w REM USCREEN$ USCREEN$ BRIGHT COPY USCREEN$ P REM 1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+ LET ATTR USCREEN$ P REM 1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+1+ LET ATTR USCREEN$ USCREEN$ BRIGHT COPY USCREEN$ SCREEN$ COPY BRIGHT BRIGHT ``@@@@pga`c|xU COPY USCREEN$ SCREEN$ COPY @ax~© BRIGHT ~| BRIGHT xzt BRIGHT pddh`BU COPY USCREEN$ USCREEN$ BRIGHT COPY USCREEN$ SCREEN$ COPY ▗ BRIGHT USR LPRINT = BRIGHT @ BRIGHT U COPY USCREEN$ SCREEN$ COPY ATTR ?/S/?[Q] BRIGHT U COPY USCREEN$ USCREEN$ BRIGHT COPY USCREEN$ SCREEN$ COPY BRIGHT < STOP USR DRAW IF LIST 8x SAVE SAVE 0 LIST LIST `6U COPY USCREEN$ SCREEN$ COPY [P] OUT OUT RETURN DRAW COPY SAVE RANDOMIZE PRINT RETURN ?IN © COPY COPY OUT / COPY COPY ?GPI CAT [T] LET UKU COPY USCREEN$ USCREEN$ BRIGHT COPY USCREEN$ SCREEN$ COPY ?? BRIGHT ▝A@@ 00 LPRINT @@@U COPY USCREEN$ SCREEN$ COPY USR BRIGHT <~ LOAD VERIFY FORMAT pSIN LN SAVE OR LPRINT NEW AND REM SCREEN$ >=`0P@[Q] CIRCLE LIST PUSR U COPY USCREEN$ USCREEN$ BRIGHT COPY TSCREEN$ SCREEN$ POKE *t*t*t*t*t*t*t*t*t*t*t*t*t*t*t*tSCREEN$ t REM TSCREEN$ TSCREEN$ POKE *t*t*t*t*t*t*t*t*t*t*t*t*t*t*t*t*t REM TSCREEN$ TSCREEN$ ©©_©?? BRIGHT BRIGHT BRIGHT ? BRIGHT © BRIGHT COPY BRIGHT ©▗ BRIGHT ?© BRIGHT ? BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT DRAW DRAW SAVE LPRINT LPRINT p LIST DRAW RETURN COPY BRIGHT RETURN BRIGHT PLOT PAUSE SAVE DRAW DRAW RETURN BRIGHT DRAW SAVE BRIGHT DRAW RETURN BRIGHT DRAW BRIGHT RETURN BRIGHT COPY BRIGHT RETURN NEW LPRINT LPRINT LIST BRIGHT SAVE BRIGHT LIST LPRINT LPRINT USR BRIGHT BRIGHT TO RETURN RETURN DRAW DRAW SAVE SAVE LIST LIST SAVE BRIGHT DRAW BRIGHT LIST LIST LPRINT LPRINT LIST RETURN COPY BRIGHT BRIGHT HEROES OF THE LANCE COPY BRIGHT BRIGHT Game design and program creation COPY BRIGHT U.S. Gold Ltd COPY Alan Bridgman Matt Ellis Brian Howarth COPY Teoman Irmak Graham Lilley Antony Scott COPY Richard Sheldon Mike Woodroffe and Simon COPY COPY BRIGHT Product Manager: BRIGHT Jerry Howells COPY COPY BRIGHT Design Coordination: BRIGHT L.H. Miller COPY COPY BRIGHT Game developed by COPY BRIGHT U.S. Gold Ltd and COPY BRIGHT Strategic Simulations Inc. COPY COPY (c) 1988 TSR Inc. All Rights Reserved COPY BRIGHT (c) 1988 Strategic Simulations Inc. COPY BRIGHT All Rights Reserved COPY BRIGHT BRIGHT press any key to continue COPY Answer: COPY What is the COPY for the character COPY Incorrect Answer COPY Game Halted COPY Goldmoon COPY Sturm Brightblade COPY Caramon COPY Raistlin COPY Tanis COPY Tasslehoff Burrfoot COPY Riverwind COPY Flint Fireforge COPY Intelligence COPY Wisdom COPY Dexterity COPY Constitution COPY Charisma COPY ATN pBIN p THEN p MERGE p STOP pWp`prpzpp▞p[N]pPIp RESTORE MERGE *Dq GO SUB _▗gASN =o"Dq| MOVE LLIST <>>0 STEP ^q%m!@ STEP tq!@ STEP tq STEP [D]q<>!X OR RESTORE w# DRAW LLIST STR$ LIST <> OR RESTORE INPUT COPY w$ SAVE LLIST } AND o0| NEW SAVE AND gSTR$ DATA <>!@ OR RESTORE OR RESTORE 6$ CLS LLIST #STR$ PAUSE LLIST } AND o0| NEW SAVE AND gSTR$ OVER <> STEP Fq!I@p STEP -q NEW RETURN 0 RUN 2SQR q<! DIM p##= CLS ^#V!▞@ STEP ua!<>@'p STEP ua STEP -q NEW 2SGN q<! NEXT p##= CLS ^#V!H STEP uap STEP ua>2 IF r2 DRAW r STEP RETURN ryATN (xATN (~ NEXT x AND 02 IF r!oH STEP ua! GO SUB VAL STEP RETURN ryATN (xATN (U=( LIST SAVE r!oH>2 IF rASN x AND 02 DRAW r DRAW r!pH! GO SUB VAL STEP RETURN ryATN ( RANDOMIZE xATN (=( LIST SAVE r!pH>2 DRAW r[Q]: IF rATN LINE r VERIFY 0G: DRAW rATN ( THEN THEN THEN THEN VERIFY 0VAL G!q:SGN q_ THEN # THEN #_:SQR q_~LN <> STEP Fq:p STEP ua! THEN @ STEP uaNOT PRINT r COPY COPY COPY RETURN / NEW ( THEN GUSR THEN OUSR THEN WUSR THEN _USR <>> LOAD FLASH RETURN / NEW ( THEN G THEN OUSR THEN WUSR THEN _USR <> RETURN THEN G>= COPY <>> RETURN FLASH RETURN THEN GUSR GOLDMOON: COPY COPY A human cleric, COPY daughter of the COPY Que-Shu's COPY Chieftain, she COPY is betrothed to COPY Riverwind. COPY She carries the COPY Blue Crystal COPY Staff, it's COPY full powers as COPY yet unknown but COPY only available COPY to her. COPY COPY STURM: COPY COPY The son of a COPY knight of COPY Solamnia, Sturm COPY Brightblade is COPY a human fighter COPY Taught his COPY wilderness COPY skills by COPY Flint, he is COPY bound by his COPY Code of honour COPY to disdain COPY ranged weapons COPY as cowardly , COPY fighting with COPY his two-handed COPY sword in close COPY combat. COPY COPY CARAMON: COPY COPY Trained as a COPY warrior, Caramon COPY Majere gained COPY the experience COPY to make him a COPY mighty warrior, COPY by his travels COPY with Flint and COPY Tanis. Armed COPY with spear and COPY longsword, he COPY is a valued COPY member of the COPY Companions. COPY COPY RAISTLIN: COPY COPY The brother of COPY Caramon, his COPY incredible COPY talent for magic COPY led him to COPY become the COPY youngest mage COPY ever to pass COPY 'The TEST' which COPY confirmed his COPY abilities but COPY left him a COPY physical wreck. COPY During this COPY ordeal he COPY acquired the COPY 'Staff of COPY Magius.' COPY COPY TANIS: COPY COPY Tanthalas is COPY better known as COPY Tanis half-elven COPY He is a master COPY swordsman and COPY archer, making COPY the best of his COPY mixed parentage COPY to become one COPY of the deadliest COPY fighters of the COPY age. The natural COPY leader of the COPY Companions. COPY COPY TASSLEHOFF: COPY COPY As a Kender COPY Tasslehoff COPY Burrfoot has COPY their insatiable COPY curiosity, COPY especially about COPY other peoples' COPY possessions. COPY Calling him a COPY thief is a COPY deadly insult COPY but he doesn't COPY really COPY understand COPY why people get COPY annoyed when he COPY acquires their COPY property. COPY Fights with the COPY Hoopak. COPY COPY RIVERWIND: COPY COPY An outcast of COPY the Que-Shu COPY tribe, he had COPY the temerity to COPY fall in love COPY with Goldmoon. COPY With the skills COPY of a human COPY ranger, he COPY fights with bow COPY and longsword. COPY With his COPY betrothed, he is COPY seeking the COPY secrets of the COPY Blue Crystal COPY Staff. COPY COPY FLINT: COPY COPY Born & bred a COPY Hill Dwarf, COPY Flint Fireforge COPY is a master COPY metalsmith, COPY fearless fighter COPY and elf-friend. COPY Few enemies care COPY to face his COPY battleaxe at COPY close range, COPY fewer still get COPY past his COPY throwing axes. COPY COPY !@ STEP =a INK { STEP ua!▚w STEP n{!@ STEP =a PAUSE { STEP ua!KP$|> FLASH RETURN / NEW ( RUN ▚!@[s STEP t| STEP [K]|VAL [S]!@t STEP t| STEP [O]| SAVE [A]!@u STEP t| STEP [K]|`IN !@ RESTORE u STEP t| STEP [O]|XCODE !@ PAPER v STEP t| STEP [K]| TO !@LN w STEP t| STEP [O]|` PAPER !@ TO x STEP t| STEP [K]| GO TO !@SGN y STEP t| STEP [O]|<> NEXT ><>2CHR$ / GO SUB [[ GO SUB V CLEAR "[ CLEAR !:/ STEP = NEXT CLEAR *[* POKE /"[>>>>>>CODE <>!@ STEP =a|!jH!H| STEP ua!KP$|> FLASH RETURN / NEW ( RUN >© FLASH RETURN 0 LIST NOT z LET CODE <> DISKED WALSOFT 1992 COPY LOADING OK COPY Error. Reload from COPY start of block. COPY press any key COPY RESTORE MERGE OR !@ STEP =aSTR$ MOVE LLIST OR RESTORE OR RESTORE Aw# IF LLIST $STR$ PAUSE LLIST } AND o0| AND gSTR$ LPRINT OR RESTORE Aw# IF LLIST STR$ LOAD <>!@a LLIST } AND o0| AND g RETURN COPY DIM ! MERGE P[S]|<> STEP b<> STEP b<>Press any key COPY ▖ BRIGHT BRIGHT P BRIGHT BRIGHT PP SAVE P SAVE PP x[Q]p( LIST @▖`[A][A]`FN [A]h @ BRIGHT @ BRIGHT @ BRIGHT @ SAVE p SAVE BRIGHT RETURN INT RETURN INT RETURN D| BRIGHT BRIGHT x▞ BRIGHT BRIGHT x BRIGHT p▖[I]FN >=▖p ` BRIGHT SAVE p▖ @ SAVE p▖0▖p0P[A] SAVE SAVE LIST ▖p0@ LIST ▖▖p SAVE @ BRIGHT p▖▖p▖▖pp▖▖x`▗ BRIGHT BRIGHT @ @@ BRIGHT SAVE SAVE BRIGHT @ @p▖ p▖LN FN LN pp▖▖ SAVE ▖ BRIGHT LIST ▖▖ LIST ▖▖ LIST p▖ BRIGHT ▖p LPRINT [A]▖ BRIGHT [A] LPRINT SAVE LIST SAVE SAVE LIST BRIGHT p▖[I]▖▖p▖ BRIGHT SAVE ▖ BRIGHT SAVE BRIGHT SAVE SAVE BRIGHT [Q]@▖[A][Q]USR [Q][A]▖ BRIGHT SAVE ▖ CIRCLE FN FN ▖ BRIGHT ▖▖>=FN [I]▖▖p▖ BRIGHT p LIST ▖▖ LIST BRIGHT p▖ BRIGHT FN VAL X LIST ▖▖ LIST [A]▖▖p▖p▖p SAVE BRIGHT ▖ BRIGHT p▖ BRIGHT P ▖ BRIGHT FN CIRCLE ▖▖▖p p▖▖▖ BRIGHT P BRIGHT SAVE @ SAVE DRAW BRIGHT ▖ BRIGHT >L INVERSE THEN N LIST RETURN ©8>. RETURN >= MERGE CLEAR RESTORE INVERSE THEN ~ STEP ; RETURN px>=x LIST ▖ BRIGHT LIST BRIGHT p▖▖px▖ BRIGHT x BRIGHT p▖ SAVE p0@@ LIST @ BRIGHT BRIGHT x▖▖xp LIST ▖ BRIGHT ` BRIGHT p BRIGHT USR ▖[A][Q] LPRINT [A]▖@ BRIGHT p BRIGHT PFN BRIGHT ▖ BRIGHT LIST ▖ BRIGHT BRIGHT p▖ BRIGHT p BRIGHT LIST ▖▖ LIST p[A][A]pVAL >= BRIGHT BRIGHT xp LIST @@ LIST @ BRIGHT 0 BRIGHT ▖ BRIGHT x BRIGHT ▖ BRIGHT P BRIGHT ▖FN BRIGHT P BRIGHT ▖P P▖ BRIGHT ▖ BRIGHT xp SAVE @ SAVE @ @ BRIGHT `@@[Q]@USR @ LPRINT @H H@H`HH[Q]HUSR H LPRINT HP P@P`PP[Q]PUSR P LPRINT P▟ BRIGHT < STEP dx STEP d8VAL BRIGHT NEXT +V+^!: RESTORE MOVE :~w#xLEN NEXT STEP : LLIST : MOVE ~w#xLEN NEXT <> GO SUB sd1 RUN GO SUB Wg.VZ FOR " RUN RANDOMIZE GO SUB VAL @+r+s+6NOT !"▗^#V#~# RUN CLS v INK !=▗ THEN !^#V FOR HNOT ▝yPICHR$ C▘ THEN ## RESTORE ! DRAW ^#V FOR DIM LLIST ~#2 OVER ▝2▘NOT ▖ LLIST ~#2SQR ▝21▘NOT ▖ LLIST ~#2~▘NOT ▖ LLIST ~#2 LPRINT ▘NOT ▖ LLIST NOT ▖ LLIST NOT ▖ LLIST LLIST LLIST CODE 2 FORMAT ▘22NOT ▖ LLIST CODE 2 FORMAT ▘NOT ▖ LLIST CODE 22NOT ▖ LLIST ~#2 INK O INK NOT ▖ LLIST + STEP ^▝NOT ▖ LLIST `▗>=2H▗~< !NOT ▝< #^#V#"▝ FOR NOT ▝< #^#V FOR NOT ▝< LINE V< LINE Z▝ VERIFY 2V#"▝ FOR "▝ FOR INK NOT ▗▝ MERGE CODE 2D▘#^#V#2K▘ GO SUB SX▘ GO SUB SP▘<> MOVE INK NOT C▘>PI LINE [B]▝!{▝5 MOVE INK CHR$ C▘ INK FOR NOT ▖ MOVE 2{▝ INK NOT C▘xPI(yPI( INK _2, THEN ? THEN ? THEN ? AND [A]2.x26>222 FORMAT ▘: LPRINT ▘oW2 LINE ▘ THEN ? THEN ? THEN ? AND [A]2 TO ▘x2 CLOSE #▘:~▘gNOT C▘xPI( MOVE INK W2 LINE ▘ THEN ? THEN ? THEN ? AND [A]2 TO ▘x2 CLOSE #▘>2 FORMAT ▘:~▘gNOT C▘yPI( INK _2, THEN ? THEN ? THEN ? AND [A]2.x26>22: LPRINT ▘o>PICHR$ y▘ INK >2D▘! PLOT ~=CHR$ `▘! LIST "P▘NOT R▘#"P▘ INK = LINE g= LINE ©= LINE [K]= LINE AND = LINE VAL |PI D& INK xPI(=(6=(CODE 2 FORMAT ▘ INK &NOT STR$ ▘>2 FORMAT ▘: LINE ▘ INK W INK ! CLOSE #▘5(! TO ▘4 INK NOT OR ▘4CODE 2 FORMAT ▘xPI LINE ABS ▘ INK NOT OR ▘ RETURN CHR$ FLASH ▘[N] RETURN > OPEN # RETURN RETURN > OPEN # RETURN }PI D. INK yPI(=(6=( INK .NOT #2:, INK _ INK !65(!.4 INK NOT '4CODE 22yPI LINE RETURN CHR$ ©i RETURN > OPEN # RETURN RETURN > OPEN # RETURN NOT © NEXT CODE FLASH RETURN / NEW RESTORE !D▘5 LLIST %- CLS <> NEXT GO SUB [ RUN ! RANDOMIZE GO SUB VAL 1 RANDOMIZE COPY <> MERGE > OPEN # RETURN ,zCOS CHR$ o OPEN # RETURN d RETURN MOVE NOT y▘ MERGE [G]d NEW OPEN # RETURN NEW <=CHR$ [A] LOAD MOVE NOT y▘ MERGE CODE 2B RETURN B RETURN INPUT OPEN # RETURN CHR$ [O] MOVE NOT y▘ MERGE CODE TAN B RETURN INPUT OPEN # RETURN BRIGHT CHR$ TAN MOVE NOT y▘ MERGE >={B RETURN INPUT OPEN # RETURN BRIGHT _z RETURN | ERASE THEN MOVE NOT y▘▗ BRIGHT ▗ BRIGHT ▚ BRIGHT NOT ▘ RETURN RETURN NOT (_u▝[I][U]VAL EXP CHR$ >= DEF FN CLOSE #▝[L]▝ INPUT ▝▘ PAPER RESTORE GO SUB ▝ PRINT z▝ LINE ▘d,d FORMAT ▘2 CLOSE #▘6 TO ▘.{▝?▗ CLS LOAD U▗`▗NOT ▗&▞ CLEAR ?▗ DRAW ERASE F ERASE ERASE ERASE ERASE ERASE ERASE ERASE ERASE O ERASE Y GO TO OF GO TO GO TO GO TO GO TO GO TO GO TO GO TO GO TO N GO TO Y[N]i[N][N][N][N][N][N][N][N][N]Y▛/▛▛▛▛▛▛▛▛▛ ERASE F ERASE ERASE ERASE ERASE ERASE ERASE ERASE ERASE : ERASE F CONTINUE +- CONTINUE CONTINUE CONTINUE CONTINUE CONTINUE CONTINUE CONTINUE CONTINUE 3 GO TO :[I]3[I][I][I][I][I][I][I][I][I]+▚,▚▚▚▚▚▚▚▚▚TAB ETAB TAB TAB TAB TAB TAB TAB TAB NTAB W GO TO NF GO TO GO TO GO TO GO TO GO TO GO TO GO TO GO TO N GO TO Y[N]i[N][N][N][N][N][N][N][N][N]Y▛/▛▛▛▛▛▛▛▛▛TAB ETAB TAB TAB TAB TAB TAB TAB TAB :TAB E CONTINUE +- CONTINUE CONTINUE CONTINUE CONTINUE CONTINUE CONTINUE CONTINUE CONTINUE 3 GO TO :[I]3[I][I][I][I][I][I][I][I][I]- CLEAR ▚,▚▚▚▚▚▚▚▚▚ BRIGHT 'P BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT COPY BRIGHT READ BRIGHT NEXT 1!▚_' GO SUB VAL 1 COPY ^NOT _ BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT COPY BRIGHT GO TO BRIGHT LIST [R] CLEAR GO SUB [R] RETURN RETURN RETURN RETURN RETURN RETURN DRAW CLS E RETURN @ RETURN E RETURN F RETURN DRAW CLS G RETURN B IF G RETURN RETURN RETURN DRAW CLS IF IF
