home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / ROBOTWAR.DSK / HELLO.bas < prev    next >
BASIC Source File  |  2014-09-09  |  3KB  |  13 lines
  1. 1  CALL 2064
  2. 2  PLOT  9<UNKNOWN TOKEN>  HLIN <UNKNOWN TOKEN>  CALL <CTRL-K>  OR  >  AND  >  OR  COLOR=  SPC(  RUN  - RUN  >
  3. 8445 X<UNKNOWN TOKEN> SPEED=   PLOT 9<CTRL-H> COLOR= 
  4. 43272 
  5. 51232  = <UNKNOWN TOKEN><UNKNOWN TOKEN>9<CTRL-H> IF 9<CTRL-H> -@ = <UNKNOWN TOKEN> VTAB <UNKNOWN TOKEN> SHLOAD  SPEED=  >H SPEED= <CTRL-C>H SPEED= 
  6. 43267 0 PLOT =<CTRL-C> SPEED=  TAB(  PLOT ><CTRL-C> SPEED= ` PLOT ?<CTRL-C> IF L<CTRL-C> - SGN =   IF M<CTRL-C> - FN  = <CTRL-Y> IF N<CTRL-C> - > = <CTRL-R> IF O<CTRL-C> - ABS = <CTRL-K> IF @<CTRL-C><UNKNOWN TOKEN><CTRL-C>L PLOT <CTRL-P>L0<CTRL-I> SPEED=  SGN PLOT L<CTRL-C> SPEED=  FN  PLOT M<CTRL-C> SPEED=  > PLOT N<CTRL-C> SPEED=  ABS PLOT O<CTRL-C> SPEED=  PLOT  PLOT <<CTRL-C> M<CTRL-K>  CALL <CTRL-K> FN  ^ > TO   THEN  COLOR=  =  - SPC(  RUN  FRE GOSUB 
  7. 43517 
  8. 36099  ^<CTRL-C> PLOT   AND <CTRL-C> PLOT   OR <CTRL-C> SPEED= <UNKNOWN TOKEN> PLOT m<CTRL-J> PLOT n<CTRL-J> SPEED= <CTRL-O> PLOT o<CTRL-J> ASCJ = <CTRL-B> ASCK IF 
  9. 52753 m<CTRL-J> = <UNKNOWN TOKEN>  OR n<CTRL-J> = <UNKNOWN TOKEN>  OR o<CTRL-J> =  ASC SPEED=  DEF  PLOT <CTRL-P> TAB(  - RETURN  HGR2 A - POKE  GOSUB =)<CTRL-O><CTRL-J><CTRL-J> PLOT <CTRL-D><CTRL-I> = 
  10. 59912 L<CTRL-Y><CTRL-R> MID$ LU<CTRL-R> MID$ L8<CTRL-R> MID$ L)<CTRL-I> MID$ Ly<CTRL-J> MID$ Lp<CTRL-J> MID$ L<UNKNOWN TOKEN><CTRL-M> MID$ L PLOT <CTRL-P> MID$  IF <<CTRL-C> - PLOT <UNKNOWN TOKEN><CTRL-D> SPEED=  PLOT  = <CTRL-B> SPEED= ` PLOT <<CTRL-C> Z<CTRL-K> 9<UNKNOWN TOKEN> X<UNKNOWN TOKEN> SPEED= <CTRL-H> DEL    NEW <CTRL-K><CTRL-B>
  11. 40971  COLOR=  COLOR=  SCRN(  + TO  ABS COLOR=   THEN  > COLOR=  POS > USR COLOR=  SCRN(  TO   OR  ABS COLOR=  ABS > COLOR=   THEN  > COLOR=   OR  > SCRN(  NEW  PLOT  PLOT  PLOT  RETURN  RESTORE  COLOR=  INT ABS TO  SGN ABS COLOR=  TO  COLOR=  SGN > FN  > ABS COLOR=  FN  TO  ABS ABS ^ AT  PLOT  PLOT  REM  RESTORE  COLOR=  TO  INT INT AT   AND  FN  ^ AT  COLOR=  > SGN COLOR=  ABS AT  INT ABS COLOR=  TO  COLOR=  SGN > FN  > ABS PLOT  PLOT  STOP  RESTORE  COLOR=  AT   THEN  - ABS COLOR=  SGN > FN  > ABS COLOR=  INT > USR SGN SPC(  AT  COLOR=  SPC(  >  THEN  AT  PLOT  PLOT  ON  RESTORE  COLOR=  INT SCRN(  - ABS SPC(  + COLOR=  INT > USR  OR   THEN  COLOR=  STORE   OR  > SCRN(  COLOR=  >
  12. 51459  PLOT <UNKNOWN TOKEN><CTRL-K> SPEED=   NOT  <UNKNOWN TOKEN><UNKNOWN TOKEN> <UNKNOWN TOKEN><UNKNOWN TOKEN>L<UNKNOWN TOKEN><CTRL-I> SPEED=   OR  <UNKNOWN TOKEN><UNKNOWN TOKEN>  STORE <CTRL-K> SPEED=  PLOT  PLOT  WAIT  RESTORE  COLOR=   AND  TO / AT  COLOR=  SGN > FN  > ABS COLOR=  INT ABS > SGN TO   STEP  AT  COLOR=   THEN  - INT/ INT PLOT  PLOT  LOAD  RESTORE  COLOR=  AT  PDL - ABS COLOR=  ABS > COLOR=  TO  =  =  ^ AT  INT >  NOT  ABS COLOR=  FN  TO  INT - SPC(  PLOT  PLOT  SAVE  RESTORE  COLOR=  INT SPC(  + AT   THEN  USR ^ AT  COLOR=  TO   OR  COLOR=  TO  USR ABS >  AND  TO  ABS - SPC(  COLOR=   AND  TO  ABS SPC(  + PLOT  PLOT  DEF  RESTORE  COLOR=  SGN USR  OR  COLOR=  TO  COLOR=  INT SPC(  + AT   THEN  USR ^ AT   THEN  COLOR=   AND  TO  ABS SPC(  +
  13. 8325 L +<CTRL-H>