Next X

WWWWWWWWWWWWWWWWWW 1980 FOR X = 1 TO 8 : LPRINT "" : NEXT X

, "W") : NEXT X 2000 FOR X = 1 TO 11 STEP 2 : LPRINT ST RINGS(X, 32); STRINGS(21, "W") : NEXT X

2010 FOR X = 11 TO 1 STEP - 2 : LPRINT STRINGS(X, 32); STRINGS(21, "W") : NE XT X

, "W") : NEXT X 2030 NEXT Z : GOTO 60 : REM

XXXXXXXXXXXXXXXXX 2040 FOR X = 1 TO 8 : LPRINT "" : NEXT X

2050 FOR X = 0 TO 22 STEP 2 : LPRINT ST RINGS(X, 32); STRINGSCI3, "X"); STRIN G$(44 -(2 * X), 32); STRING$(13, "X") : NEXT X

2060 LPRINT STRING$(23, 32); STRINGS(23 , "X")

2070 FOR X = 22 TO 0 STEP - 2 s LPRINT STRINGS(X, 32); STRINGS(13, "X"); STR ING$(44 -(2 * X), 32); STRING$(13, "X ") : NEXT X 2080 NEXT Z : GOTO 60 : REM

YYYYYYYYYYYYYYYYY 2090 FOR X = 1 TO 8 : LPRINT "" : NEXT X

2100 LPRINT STRING$(56, 32); STRINGSdO , "Y")

2110 LPRINT STRINGS(52, 32); STRINGS(11 , "Y")

2120 LPRINT STRINGS(48, 32); STRING$(11 , "Y")

2130 LPRINT STRINGS(44, 32); STRING$(11 , "Y")

2140 LPRINT STRINGS(40, 32); STRING$(11 , "Y")

2150 LPRINT STRINGS(36, 32); STRING$(11 , "Y">

2160 LPRINT STRINGS(32, 32); STRINGS(11 , "Y")

2170 LPRINT STRING$(28, 32); STRINGSd1 , "Y">

2180 FOR X = 1 TO 4 : LPRINT STRING$(38 - X, "Y") : NEXT X

2200 LPRINT STRING$(28, 32); STRINGS(11 , "Y")

2210 LPRINT STRING$(32, 32); STRINGSdl , "Y">

2220 LPRINT STRINGS(36, 32); STRINGS(11 , "Y")

2230 LPRINT STRING$(40, 32); STRINGS(11 , "Y")

2240 LPRINT STRINGS(44, 32); STRINGS(11 , "Y")

2250 LPRINT STRING$(48, 32); STRINGS(11 , "Y")

2260 LPRINT STRING$(52, 32); STRINGS(11

2270 LPRINT STRING$(56, 32); STRINGSdO , "Y")

ZZZZZZZZZZZZZZZZZZZZ 2290 FOR X = 1 TO 8 : LPRINT "" s NEXT X

2300 FOR X = 1 TO 2 : LPRINT STRINGS(20 , "Z"); STRINGS(36, 32); STRINGSdO, "Z") : NEXT X 2310 FOR X = 0 TO 36 STEP 2 : LPRINT ST RINGS(10, "Z"); STRINGS(X, 32); STRIN GSdO, "Z"); STRINGS(36 - X, 32); STR INGS (10, "Z") : NEXT X 2320 FOR X = 1 TO 2 : LPRINT STRINGSdO , "Z"); STRINGS(36, 32); STRINGS(20, "Z") : NEXT X 2330 NEXT Z : GOTO 60 2340 CLS : PRINT : PRINT "THIS PROGRAM ALLOWS YOU TO PRINT A MESSAGE OF UP T 0 255

2350 PRINT "CHARACTERS IN LARGE BLOCK L

ETTERS ON YOUR LINE PRINTER. 2360 PRINT "ONLY UPPER CASE LETTERS AND

PERIOD , COMMA

! EXCLAMATION POINT 1 APOSTROPHE ARE ALLOWED.

2370 PRINT : PRINT "IF YOU USE THE COMM

A, THEN THE ENTIRE 2380 PRINT "MESSAGE MUST BE ENCLOSED IN QUOTES.

2390 PRINT : PRINT : INPUT "PRESS <ENTE

R> TO CONTINUE•esoaaeasaeBaaaattaaa f A $

2400 CLS : RETURN

2410 PRINT : PRINT "ILLEGAL CHARACTER. TRY AGAIN" : FOR X = 1 TO 1000 : NEX T X : GOTO 60 â– 

Even if you have one of the other versions on the market you'll still consider this program a MUST for your collection

WE BELIEVE THIS IS THE BEST PROGRAM OF ITS KIND. SHOULD YOU BE DISSATISFIED IN ANY WAY, RETURN IT TO ADVENTURE INTERNATIONAL FOR A COMPLETE REFUND.

dventurf?

SPACE INTRUDERS is for the

TRS-80 MODEL 1 & 3TAPE 16K 010-0116 $19.95

TRS-80 MODEL 1 & 3 DISK 32K 012-0116 $20.95

TO ORDER: SEE YOUR LOCAL DEALER, IF HE DOES NOT HAVE THE PROGRAM YOU WANT . . THEN CALL; TOLL FREE 1-800-327-7172 (Orders Only) OR WRITE US.

^ INTERNATIONAL

A DIVISION OF SCOTT ADAMS. INC. BOX 3435, LONGWOOD. FL 32750 (305) 862-6917

0 0

Post a comment