90 DEF SEG = 0:POKE &H417,0
100 KVAL = PEEK(&H417):KVAL = KVAL + &H40
110 POKE(&H417),KVAL
120 I = 108
130 POKE I,83:POKE I + 1,255:POKE I + 2,0:POKE I + 3,240
290 KEY OFF
300 DEF SEG = &HB000
310 POKE &H1,37:A = PEEK(&H1)
320 IF A = 37 THEN BWMON$ = "TRUE" ELSE BWMON$ = "FALSE"
330 DEF SEG = &HB800
340 POKE &H1,37:B = PEEK(&H1)
350 IF B = 37 THEN COLMON$ = "TRUE" ELSE COLMON$ = "FALSE"
360 IF COLMON$ = "TRUE" THEN 450
390 GOTO 1000
450 DEF SEG = 0:CLS:A = PEEK(&H410):POKE &H410,(A AND &HCF) OR &H10
1000 CLS:SCREEN 1:SCREEN 0
1015 WIDTH 80:COLOR 7,0:CLS:COLOR 14,0
1020 LOCATE 6,15,0:PRINT "               "
1030 LOCATE 7,15:PRINT "             "
1040 LOCATE 8,15:PRINT "                                  "
1050 LOCATE 9,15:PRINT "                                "
1060 LOCATE 10,16:PRINT "                                 "
1070 LOCATE 11,16:PRINT "                             "
1080 LOCATE 12,16:PRINT "                                 "
1090 LOCATE 13,16:PRINT "                               "
1100 LOCATE 14,16:PRINT "                                 "
1110 LOCATE 15,16:PRINT "             "
1115 LOCATE 15,16:PRINT "  "
1120 LOCATE 17,1:PRINT ""
1130 FOR T = 1 TO 500: NEXT T
1140 COLOR 7,0:LOCATE 19,4:PRINT "S  T  R  A  T  E  G  I  C     S  I  M  U  L  A  T  I  O  N  S     I  N  C  "
1150 FOR T = 1 TO 500:NEXT T
1160 LOCATE 21,32:PRINT "P  R  E  S  E  N  T  S "
1170 FOR T = 0 TO 3000:NEXT T
1180 CLS
1190 COLOR 12,0:LOCATE 12,26:PRINT "T H E   W A R P   F A C T O R"
1200 COLOR 7,0:LOCATE 20,22:PRINT "(c) 1982 by Strategic Simulations Inc.";
1210 LOCATE 21,22:PRINT "All Rights Reserved";
1220 FOR T = 0 TO 2000:NEXT T
1370 IF COLMON$ < > "FALSE" AND BWMON$ < > "FALSE" THEN 1400
1380 GOTO 1460
1400 REM TEST KEYBORD
1410 COLOR 2,0:LOCATE 24,1:PRINT "Do you want to play (G)raphics or (T)ext version?";
1420 I$ = INKEY$
1430 IF I$ = "G" OR I$ = "g" THEN 1840
1440 IF I$ = "T" OR I$ = "t" THEN 5000
1445 GOTO 1420
1460 IF BWMON$ < > "FALSE" THEN 5900
1470 COLOR 7,0:CLS:DEF SEG = 0
1480 A = PEEK(&H410):POKE &H410,(A AND &HCF) OR &H10
1490 SCREEN 1,0,0,0:SCREEN 0:WIDTH 40
1510 SCREEN 1:CLEAR
1520 DIM DR%(64)
1530 CLS
1540 DRAW "BM4,4;E2;F2;G2;H2;"
1550 GET (1,1)-(8,8),DR%
1590 CLS:COLOR 0,1
1600 DEF SEG:POKE &H4E,2:LOCATE 12,13:PRINT "THE WARP FACTOR"
1610 FOR T = 0 TO 500:NEXT T
1670 FOR T = 1 TO 1000:NEXT T
1680 GOTO 1840
1690 DEF SEG :POKE &H4E,3
1700 FOR I = 1 TO 3
1710 LOCATE 2,I:PRINT CHR$(129);
1720 FOR T = 1 TO 200:NEXT T:LOCATE 2,I:PRINT " ";
1730 NEXT I
1740 PRINT CHR$(129)
1750 POKE &H4E,3:LOCATE 24,38:PRINT CHR$(135);:POKE &H4E,3
1760 FOR T = 1 TO 1000:NEXT T
1770 FOR A = 0 TO 3:FOR B = 0 TO 2:PLAY "mbl64t255o=a;c#dd#gg#aa#b":NEXT B,A
1780 FOR I = 24 TO 296
1810 NEXT I
1820 FOR A = 1 TO 6:POKE &H4E,3:LOCATE 24,38:PRINT CHR$(168);:FOR B = 0 TO 1:PLAY "mbl64t255o4;f#dd#gg#ba#":NEXT B:LOCATE 24,38:POKE &H4E,3:PRINT CHR$(135);:NEXT A:POKE &H4E,3
1830 GOTO 1920
1840 DEF SEG = 0:A = &H100
1850 POKE &H7C,&H0:POKE &H7D,&H1:POKE &H7E,&H0:POKE &H7F,&H0
1860 FOR J = 0 TO 208 STEP 8
1870 FOR I = 0 TO 7
1880 READ D
1890 POKE A + J + I,D
1900 NEXT I,J
1910 GOTO 1690
1920 BOARD$ = "COLOR":CHAIN "WARP1.BAS",,ALL
1930 ' ALLIANCE SHIPS
1940 DATA 60,126,126,60,153,255,153,129
1950 DATA 240,38,47,127,127,47,38,240
1960 DATA 129,153,255,153,60,126,126,60
1970 DATA  15,100,244,254,254,244,100,15
1980 ' KLARGON SHIPS
1990 DATA 24,60,60,24,60,126,219,129
2000 DATA 192,96,54,127,127,54,96,192
2010 DATA 129,219,126,60,24,60,60,24
2020 DATA 3,6,108,254,254,108,6,3
2030 ' REMAN SHIPS
2040 DATA  90,255,255,219,153,36,66,66
2050 DATA  30,207,38,63,63,38,207,30
2060 DATA  66,66,36,153,219,255,255,90
2070 DATA  120,243,100,248,248,100,243,120
2080 ' STARBASE
2090 DATA  129,90,60,255,255,60,90,129
2100 DATA  129,90,60,255,255,60,90,129
2110 DATA  129,90,60,255,255,60,90,129
2120 DATA  129,90,60,255,255,60,90,129
2130 ' IMPERIAL SHIPS
2140 DATA  0,153,189,255,255,189,153,129
2150 DATA  254,24,60,126,126,60,24,254
2160 DATA  129,153,189,255,255,189,153,0
2170 DATA  127,24,60,126,126,60,24,127
2180 ' FREEMAN SHIPS
2190 DATA  24,24,24,24,24,60,126,195
2200 DATA  128,192,96,255,255,96,192,128
2210 DATA  195,126,60,24,24,24,24,24
2220 DATA  1,3,6,255,255,6,3,1
2230 ' MISC SHAPES
2240 DATA 28,34,4,24,24,32,68,56
2250 DATA 255,153,153,255,153,153,153,255
2260 DATA 0,0,0,8,28,8,0,0
5000 IF COLMON$ < > "TRUE" THEN 5900
5005 SCREEN 0:CLS:DEF SEG = 0
5010 A = PEEK(&H410):POKE &H410,(A OR &H30)
5020 SCREEN 1:SCREEN 0:WIDTH 80:COLOR 7,0:LOCATE ,,1,12,13
5030 COLOR 15,0:LOCATE 12,18:PRINT "T  H  E      W  A  R  P      F  A  C  T  O  R"
5040 COLOR 7,0:LOCATE 20,22:PRINT "(c) 1982 by Strategic Simulations Inc.";
5050 LOCATE 21,22:PRINT "All Rights Reserved";
5900 LOCATE 24,1:PRINT"                                                             ";
5910 COLOR 16,7:LOCATE 25,10,0:PRINT "  L O A D I N G   I N I T I A L I Z A T I O N    P H A S E  ";
6000 COLOR 7,0:BOARD$ = "MONO":CHAIN "WARP1.BAS",,ALL
