1155 REM switch to color/graphics adapter
1156 DEF SEG=0
1157 POKE &H410,(PEEK(&H410) AND &HCF) OR &H20
1158 DEF SEG
1159 LOCATE ,,1,6,7
1160 SCREEN 0
1161 WIDTH 40
3000 ' START.BAS    SYSTEM STARTUP ROUTINE     6/9/81 PBK
3005 KEY OFF
3006 DIM A$(15),P$(15)
3010 SCREEN 0,1:COLOR 15,1,1:LOCATE ,,0
3011 II=2
3013 SP$=""
3015 GREEN=2: BLUE=1: CYAN=3: YELLOW=6 ELSE GREEN=7: BLUE=0: CYAN=7: YELLOW=7
3020 A$(13)=SP$+"       Personal Computer     "
3025 A$(1)=SPACE$(39):A$(2)=A$(1):A$(11)=A$(1):A$(12)=A$(1):A$(14)=A$(1):A$(15)=A$(1)
3030  A$(1)=SP$+"          The             "
3035  A$(3)=SP$+"????  ??????   ??       ??"
3040  A$(4)=SP$+"????  ???????  ???     ???"
3045  A$(5)=SP$+" ??    ??  ??   ???   ??? "
3050  A$(6)=SP$+" ??    ?????    ???? ???? "
3055  A$(7)=SP$+" ??    ?????    ????????? "
3060  A$(8)=SP$+" ??    ??  ??   ?? ??? ?? "
3065  A$(9)=SP$+"????  ???????  ???  ?  ???"
3070 A$(10)=SP$+"????  ??????   ???  ?  ???"
3075 CLS
3080 FOR I = 2 TO 40
3085 FOR J = 3 TO 10
3090 LOCATE J+5,I:PRINT "?";
3095 NEXT J:SOUND 100+RND*3000,1:NEXT I
3100 FOR I = 1 TO 7
3105 FOR J = 3 TO 10
3110 LOCATE J+5,I:PRINT " ";
3115 NEXT J:SOUND 100+RND*3000,1:NEXT I
3120 FOR I=8 TO 33:FOR J=3 TO 10:IF MID$(A$(J),I-7,1)=" "THEN LOCATE J+5,I:PRINT " ";
3125 NEXT J:SOUND 100+RND*3000,1:NEXT I
3130 FOR I = 34 TO 40
3135 FOR J = 3 TO 10
3140 LOCATE J+5,I:PRINT " ";
3145 NEXT J:SOUND 100+RND*3000,1:NEXT I
3150 GOTO 3165
3155 FOR I=2 TO 12
3160 COLOR 15,BLUE:LOCATE I+5,5: PRINT SPACE$(3)+A$(I)+SPACE$(3): NEXT
3165 COLOR 15,BLUE:LOCATE 1+5,6: PRINT SPACE$(3)+A$(1)+SPACE$(3)
3170 SOUND 100+RND*3000,1
3175 COLOR 15,BLUE:LOCATE 13+5,2: PRINT SPACE$(3)+A$(13)
3180 SOUND 100+RND*3000,4
3400 FOR X%=1 TO 15:Y$=INKEY$:NEXT X%
3401 IF INKEY$="" THEN 3401