9/02/2009

EUCLID SPACE


TAD LOWAIT /IS THERE ENOUGH SPACE?
SNL /RELATIVE POSITIONS IN A LINEAR CONTINUUM?
JMP DOIT5 /NO
ISZ I BUFGET /WHAT ABOUT GIVING SOME SPACE?
JMP DOIT6 /YES, MANIFOLDS.
CLA CLL /MORE DIMENSIONS
TAD LOWAIT /HOW FAR DO WE HAVE TO GO?
TAD OOPS /WE NEED ERRORS TO MAKE A BREAK
SZL /A SPACE TO OVERSEE FROM A FAR
JMP .+3 /NEED SOME VELOCITY FOR DISPLACEMENT

IFNDEF VACUUM
/DO NOT FILL MY EUCLID SPACE
/ACCELERATED GRAVITATION. FOR 8/E OR 8/A COORDINATE STRUCTURES
/AN RX01, TRY CAF. BE AWARE FOR \BAROTRAUMA, TRY OFF \WHEN \HYPOXIA, \DECOMPRESSION
/DO NOT USE AN INSTRUCTION WHEN COMFORT DISPOSITION OF COMFORT ZONE

/SOME ARTIFACTS
/ \MATHBF{X}\CDOT\MATHBF{Y} = \SUM_{I=1}^N X_IY_I = X_1Y_1+X_2Y_2+\CDOTS+X_NY_N.
MARGIN=4 /DID WE CATCH THE SPACE GROPING IN TIME?

AC7776=CLL STA RAL
NO_JOSS\FOCAL\MUMPS\TELCOMP
10 INPUT "NEED SPACETIME: ", U$
20 PRINT "HELLO "; U$
30 INPUT "HOW MUCH SPACETIME DO YOU NEED ", N
40 S$ = ""
50 FOR I = 1 TO N
60 S$ = S$ + "*"
70 NEXT I
80 PRINT S$
90 INPUT "DO YOU WANT MORE SPACE TIME? ", A$
100 IF LEN(A$) = 0 THEN GOTO 90
110 A$ = LEFT$(A$, 1)
120 IF A$ = "Y" OR A$ = "y" THEN GOTO 30
130 PRINT "EVERYTHING FOR MEGAMAN"; U$...

1 comment:

Aslan Karahan said...

very good.


thank you