home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fujiology Archive
/
fujiology_archive_v1_0.iso
/
S
/
STD_CREW
/
007_DEMO.ZIP
/
007_DEMO.MSA
/
SCRNSPLT.BAS
(
.txt
)
< prev
next >
Wrap
Atari STOS Basic
|
1987-04-22
|
37KB
|
132 lines
10 MODE
100 DOKE
1000 DOKE
1010 FOR
1020 DOKE
1030 FOR
1040 DOKE
1050 FOR
1060 DOKE
1070 FOR
1080 DOKE
1090 FOR
110 FOR
1100 DOKE
1110 FOR
1120 DOKE
1130 FOR
1140 DOKE
1150 FOR
1160 DOKE
1170 FOR
1180 DOKE
1190 FOR
120 DOKE
1200 DOKE
1210 FOR
1220 DOKE
1230 FOR
1240 DOKE
1250 FOR
1260 DOKE
1270 FOR
1280 DOKE
1290 NEXT
130 FOR
1300 IF
1310 GOTO
140 DOKE
150 FOR
160 DOKE
170 FOR
180 DOKE
190 FOR
20 REM rase 10 : reserve as datascreen (10)
200 DOKE
210 FOR
220 DOKE
230 FOR
240 DOKE
250 FOR
260 DOKE
270 FOR
280 DOKE
290 FOR
30 REM oad "scrnsplt.neo",10
300 DOKE
310 FOR
320 DOKE
330 FOR
340 DOKE
350 FOR
360 DOKE
370 FOR
380 DOKE
390 FOR
40 GET PALETTE
400 DOKE
410 FOR
420 DOKE
430 FOR
440 DOKE
450 FOR
460 DOKE
470 FOR
480 DOKE
490 FOR
50 SCREEN COPY
500 DOKE
510 FOR
520 DOKE
530 FOR
540 DOKE
550 FOR
560 DOKE
570 FOR
580 DOKE
590 FOR
60 LOCATE
600 DOKE
610 FOR
620 DOKE
630 FOR
640 DOKE
650 FOR
660 DOKE
670 IF
680 NEXT
690 FOR
70 FOR
700 WAIT VBL
710 FOR
720 DOKE
730 FOR
740 DOKE
750 FOR
760 DOKE
770 FOR
780 DOKE
790 FOR
80 WAIT VBL
800 DOKE
810 FOR
820 DOKE
830 FOR
840 DOKE
850 FOR
860 DOKE
870 FOR
880 DOKE
890 FOR
90 FOR
900 DOKE
910 FOR
920 DOKE
930 FOR
940 DOKE
950 FOR
960 DOKE
970 FOR
980 DOKE
990 FOR