No Fragments Archive 10: Diskmags

home *** CD-ROM | disk | FTP | other *** search

/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / MUCH / MSG01.MSA / PROGRAMS_COOKER_COOKER.ACB (.txt) < prev next >

Wrap

Atari STOS Basic | 1993-07-22 | 33.2 KB | 303 lines

1 GOSUB 10 DIM 100 REM VIEW CURRENT COLOURS 1000 REM MOVE V(V) CLOSER TO TV(V) 1001 UNKNOWN OP: 0x3A 1002 IF 1003 IF 1004 RETURN 101 UNKNOWN OP: 0x3A 1010 IF 1011 IF 1012 IF 1013 RETURN 102 PRINT 1020 REM JOIN ENDS? 1021 IF 1022 IF 1023 VARNAME 1024 FOR 1025 VARNAME 103 VARNAME 104 IF 105 IF 106 IF 107 IF 108 IF 109 IF 11 ERASE 110 IF 12 LOGIC 120 REM VIEW -- text list 121 GOSUB 122 UNDER 123 LOCATE 124 IF 125 IF 126 IF 127 GOTO 129 CLEAR KEY 130 REM VIEW -- flash/glow 131 GOSUB 132 REPEAT 133 VARNAME 134 COLOUR 135 REPEAT 136 VARNAME 137 GOSUB 138 REPEAT 139 VARNAME 140 GOSUB 145 REM VIEW -- static raster 146 GOSUB 147 LOCATE 148 GOSUB 149 DOKE 150 IF 151 GOTO 152 EXTENSION (Index #16) (Token 0x94) 153 REPEAT 154 GOSUB 155 REM VIEW -- flowing raster 156 GOSUB 157 PEN 158 LOCATE 159 GOSUB 160 REPEAT 161 VARNAME 162 EXTENSION (Index #12) (Token 0x8a) 165 REM STROBE 166 GOSUB 167 EXTENSION (Index #16) (Token 0x96) 168 VARNAME 169 VARNAME 170 SCREEN SWAP 2 ERASE 200 REM SAVE COLOURS 201 UNKNOWN OP: 0x3A 202 GOSUB 203 VARNAME 204 VARNAME 205 GOTO 3 DIM 300 REM CLEAR COLOUR DATA 3000 REM PUT TEXT 3001 UNKNOWN OP: 0x3A 3002 FOR 301 UNKNOWN OP: 0x3A 3010 REM WAIT FOR MOUSECLICK (river) 3011 UNKNOWN OP: 0x3A 3012 EXTENSION (Index #16) (Token 0x94) 3013 REPEAT 3014 EXTENSION (Index #16) (Token 0x94) 302 FOR 309 GOTO 400 REM RANDOMIZE NEW DATA 401 UNKNOWN OP: 0x3A 402 VARNAME 404 VARNAME 405 NEXT 406 SHOW 407 IF 408 IF 410 GOSUB 411 VARNAME 412 IF 413 IF 414 IF 415 IF 416 IF 417 IF 418 IF 419 GOSUB 420 IF 421 IF 422 GOSUB 423 GOSUB 434 VARNAME 435 EXTENSION (Index #17) (Token 0x82) 436 EXTENSION (Index #17) (Token 0x82) 437 EXTENSION (Index #17) (Token 0x82) 438 IF 440 NEXT 441 VARNAME 49 VARNAME 49998 BELL 49999 GOTO 5 DATA 50 GOSUB 500 REM SINGLE VALUE MIRRORED INCREASE 50000 MODE 50001 PALETTE 50009 RETURN 501 TIMER 502 IF 503 IF 504 IF 505 IF 506 IF 507 IF 508 IF 509 IF 51 LOCATE 510 UNKNOWN OP: 0x3A 511 RETURN 512 REM SINGLE VALUE VARIABLE 513 TIMER 514 IF 515 IF 516 IF 517 IF 518 IF 519 IF 52 PEN 521 RETURN 523 REM NEIGHBOUR SCALED SELECTn TRACER 524 VARNAME 525 IF 526 IF 527 RETURN 528 IF 529 IF 53 PRINT 530 IF 531 IF 532 IF 533 IF 534 IF 535 IF 536 IF 537 IF 539 RETURN 54 VARNAME 55 CHANGE MOUSE 550 REM 100% RANDOM SELECTION 551 UNKNOWN OP: 0x3A 552 TIMER 553 RETURN 555 REM SCALED SELECTION TRACER 556 UNKNOWN OP: 0x3A 557 TIMER 558 VARNAME 559 VARNAME 56 IF 560 VARNAME 561 IF 562 IF 563 GOSUB 564 RETURN 565 IF 566 FOR 567 IF 568 RETURN 57 VARNAME 570 VARNAME 571 GOSUB 572 RETURN 58 IF 580 REM RANDOM SELECTION TRACER 581 UNKNOWN OP: 0x3A 582 TIMER 583 VARNAME 584 VARNAME 585 VARNAME 586 IF 587 IF 588 GOSUB 589 RETURN 59 IF 590 IF 591 FOR 592 IF 593 RETURN 595 VARNAME 596 GOSUB 597 RETURN 599 GOTO 6 VARNAME 60 IF 600 REM HELP 601 WINDEL 602 PALETTE 603 LOCATE 604 PRINT 605 PRINT 606 PRINT 607 PRINT 608 PRINT 609 PRINT 61 GOSUB 610 PRINT 611 CLEAR KEY 612 PRINT 613 PRINT 614 PRINT 615 PRINT 616 PRINT 619 CLEAR KEY 62 IF 63 IF 64 IF 65 IF 66 IF 67 IF 68 IF 699 GOTO 7 ERASE 700 REM OPTIONS 701 WINDEL 702 PALETTE 703 LOCATE 704 LOCATE 705 LOCATE 706 PEN 707 LOCATE 708 LOCATE 709 LOCATE 710 LOCATE 711 LOCATE 712 PEN 713 IF 714 PEN 715 INK 720 PEN 721 PEN 722 IF 723 IF 724 IF 799 GOTO 8 LOGIC 800 REM EXTRA OPTIONS 801 UNKNOWN OP: 0x3A 802 IF 803 IF 804 IF 809 RETURN 810 REM PRIMARY BARS 811 UNKNOWN OP: 0x3A 812 VARNAME 813 VARNAME 814 IF 819 RETURN 820 REM SCALED BARS 821 UNKNOWN OP: 0x3A 822 VARNAME 823 FOR 824 IF 825 IF 826 NEXT 827 IF 829 RETURN 830 REM SCALED SELECTION TRACER (+pause) 831 UNKNOWN OP: 0x3A 832 VARNAME 833 VARNAME 834 VARNAME 835 FOR 836 IF 837 NEXT 838 VARNAME 839 RETURN 9 LOGIC 99 GOTO