home *** CD-ROM | disk | FTP | other *** search
GW-BASIC | 1982-09-08 | 4.0 KB | 69 lines |
- 1000 ' ###################################list
- 1010 ' PATTERNS ED DAVIS 1-2-82
- 1020 ' Comments welcome
- 1030 ' but BE KIND!
- 1040 ' Burlington (8-446)-2091
- 1050 '
- 1060 ' ###################################
- 1070 DEFINT M:COMMON MENU
- 1080 KEY OFF:SCREEN 0,1:COLOR 15,0,0:WIDTH 40:CLS:M%=0
- 1090 LOCATE 10,1:PRINT "<<- IF THIS PRINTING IS NOT IN THE ->>"
- 1100 LOCATE 11,1:PRINT " CENTER OF THE SCREEN PRESS 'M' TO
- 1110 LOCATE 12,1:PRINT " MOVE THE PICTURE TO THE RIGHT, ANY
- 1120 LOCATE 13,1:PRINT " OTHER KEY TO GO TO THE PROGRAM.
- 1130 K$=INKEY$:IF K$="" GOTO 1130
- 1140 IF K$="M" OR K$="m" THEN OUT 980,2: OUT 981,43:M%=1:GOTO 1160
- 1150 M%=0
- 1160 CLS:SCREEN 0,1:COLOR 15,0,0
- 1170 COLOR 23 :LOCATE 2,13:PRINT"PATTERNS"
- 1180 LOCATE 3,13:PRINT"E.DAVIS
- 1190 COLOR 4,7,0:LOCATE 6,2:PRINT"Please select one of the following:
- 1200 LOCATE 8,9: PRINT"1- WALLPAPER (NICE!)
- 1210 LOCATE 9,9:PRINT"2- WAVES
- 1240 LOCATE 22,9:PRINT "Q- TO QUIT PROGRAM
- 1250 LOCATE 23,9:PRINT "M- TO MOVE SCREEN"
- 1260 LOCATE 4,16
- 1270 K$=INKEY$:IF K$="" GOTO 1270
- 1280 IF K$="1" THEN GOSUB 1350
- 1290 IF K$="2" THEN GOSUB 1410
- 1300 IF K$="3" THEN GOSUB 1460
- 1310 IF K$="4" THEN GOTO 1510
- 1320 IF K$="Q" OR K$="q" THEN CLS:CHAIN "MENU",1000
- 1330 IF K$="M" OR K$="m" THEN GOTO 1080
- 1340 GOTO 1160
- 1350 CLS :REM BEGINNING OF PATTERN PGMS E.DAVIS 1-2-82
- 1360 SCREEN 1,0:COLOR 0,1:IF M%=1 THEN OUT 980,2:OUT 981,43
- 1370 FOR I=0 TO 300:C=C+1:C=C-(3*INT(C/3)):IF C>3 THEN C=0
- 1380 LINE (I,0)-(300-I,191),C:NEXT
- 1390 FOR I=0 TO 191:C=C+1:C=C-(3*INT(C/3)):IF C>3 THEN C=0
- 1400 LINE (0,191-I)-(300,I),C:NEXT I:GOSUB 1770:GOTO 1350
- 1410 CLS ' WAVES
- 1420 SCREEN 1,0:COLOR 0,1:IF M%=1 THEN OUT 980,2:OUT 981,43
- 1430 C=3:LC=0:T#=18.8496
- 1440 FOR X=0 TO T# STEP T#/279:LINE (140,96)-(X*14.8,60*SIN(X)+96),C
- 1450 NEXT :GOSUB 1770:GOTO 1410
- 1460 CLS' ALPHA PARTICLES
- 1470 SCREEN 1,0:COLOR 1,0:IF M%=1 THEN OUT 980,2:OUT 981,43
- 1770 IN$=INKEY$:IF IN$=CHR$(27) THEN GOTO 1150 ELSE RETURN
- 63222 <UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><UNK! {00F6}><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!> <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!> <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>"
- 9090 LOCATE YY+11,53:PRINT"PERSONAL COMPUTER"
- 9100 RETURN
- 59999 GOTO 59999
- 60000 ' PROGRAM TO SWITCH BETWEEN MONO AND COLOR DISPLAY
- 60005 DEF SEG=0:IF (PEEK(&H410) AND &H30) = &H30 THEN DSPMODE = 1 ELSE DSPMODE = 2
- 60010 ADAPTER = 0:DEF SEG = &HB000:POKE 0,63:IF PEEK(0) = 63 THEN ADAPTER = ADAPTER OR 1
- 60015 DEF SEG = &HB800:POKE 0,63:IF PEEK(0) = 63 THEN ADAPTER = ADAPTER OR 2
- 60020 DEF SEG
- 60025 IF ADAPTER <>3 THEN BEEP:PRINT"Sorry--other display isn't installed!!":GOSUB 60080:RETURN
- 60030 ON DSPMODE GOSUB 60035,60060:RETURN
- 60035 REM switch to color/graphics adapter
- 60040 KEY OFF:CLS:LOCATE 10,15:PRINT"using other screen--PRESS the A key to get back here!":LOCATE ,,0
- 60045 DEF SEG = 0:POKE &H410,(PEEK (&H410) AND &HCF) OR &H10:DEF SEG
- 60050 SCREEN 1,0:SCREEN 0,1:COLOR 1,0:WIDTH 40:COLOR 7,0
- 60055 LOCATE ,,1,6,7:RETURN
- 60060 REM switch to monochrome adapter
- 60065 KEY OFF:CLS:LOCATE 9,5:PRINT"Using other screen.":LOCATE 10,5:PRINT"PRESS the A key to get back here!":LOCATE ,,0
- 60070 DEF SEG = 0:POKE &H410,(PEEK(&H410) OR &H30):DEF SEG
- 60075 SCREEN 0:WIDTH 80:LOCATE ,,1,12,13:RETURN
- 60080 FOR N = 1 TO 3000:NEXT:RETURN:'DELAY
-