TCE Demo 2

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

/ TCE Demo 2 / TCE_DEMO_CD2.iso / demo_cd_.2 / mags / stosser / stoser02.arj / stoser02.msa / SOURCE.4U / MMUEDIT.BAS (.txt) < prev next >

Wrap

Atari STOS Basic | 1987-04-22 | 25KB | 672 lines

1 REM Added des_finished, roll up & roll down 10 KEY 100 IF 1000 UNKNOWN OP: 0x3A 101 VARNAME 1010 UNKNOWN OP: 0x3A 102 IF 1020 UNKNOWN OP: 0x3A 103 IF 1030 UNTIL 104 IF 1040 WHILE 1050 UNKNOWN OP: 0x3A 1060 UNKNOWN OP: 0x3A 1070 WEND 1080 DEFAULT 1090 END 110 VARNAME 1100 REM Next record 1110 INC 1120 IF 1130 RETURN 1140 REM Previous record 1150 DEC 1160 IF 1170 RETURN 120 IF 130 OPEN IN 140 INPUT 150 INPUT 160 INPUT 170 INPUT 180 IF 190 PRINT 19997 REM 19998 REM ====> Display basic screen 19999 REM 2 REM Enter to update, rollup/down./esc do NOT update current record! 20 REM poss enhancement, have associated messages with each field for error on range/type and a position for messages (eg at bottom) but for each! 200 PRINT 20000 CLW 20010 INVERSE 20020 CENTRE 20030 INVERSE 20040 PRINT 20050 LOCATE 20060 FOR 20070 VARNAME 20080 WHILE 20090 UNKNOWN OP: 0x3A 20100 WEND 20110 VARNAME 20120 PRINT 20130 NEXT 20140 LOCATE 20150 INVERSE 20160 PRINT 20170 INVERSE 20180 RETURN 20997 REM 20998 REM ====> Display current record number 20999 REM 210 PRINT 21000 LOCATE 21010 PRINT 21020 RETURN 220 PRINT 230 PRINT 240 DIM 250 PRINT 260 FOR 270 LINE INPUT 280 VARNAME 290 VARNAME 29997 REM 29998 REM ====> Store field information in DES fields 29999 REM 30 DIM 300 VARNAME 30000 VARNAME 30010 FOR 30020 VARNAME 30030 VARNAME 30040 VARNAME 30050 VARNAME 30060 VARNAME 30070 VARNAME 30080 VARNAME 30090 VARNAME 30100 NEXT 30110 RETURN 30997 REM 30998 REM ====> Store information for current record in DES fields 30999 REM 310 VARNAME 31000 FOR 31010 VARNAME 31020 NEXT 31030 RETURN 31997 REM 31998 REM ====> Retrieve information for current record from DES fields 31999 REM 320 IF 32000 FOR 32010 VARNAME 32020 NEXT 32030 RETURN 330 VARNAME 340 VARNAME 350 GOTO 360 VARNAME 370 VARNAME 380 VARNAME 390 VARNAME 39997 REM 39998 REM ====> Select database file 39999 REM 40 REM 400 PRINT 40000 CLW 40010 CENTRE 40020 PRINT 40030 SHOW 40040 IF 40050 VARNAME 40060 IF 40070 VARNAME 40080 IF 40090 VARNAME 40100 IF 40110 OPEN IN 40120 INPUT 40130 IF 40140 PRINT 40150 PRINT 40160 VARNAME 40170 PRINT 40180 PRINT 40190 FOR 40200 FOR 40210 LINE INPUT 40211 WHILE 40212 UNKNOWN OP: 0x3A 40213 WEND 40220 VARNAME 40230 NEXT 40240 NEXT 40250 CLOSE 40260 VARNAME 40270 RETURN 410 NEXT 420 CLOSE 430 REM 440 REM ======> Clear work area 44997 REM 44998 REM ====> Update database file to disk 44999 REM 450 REM 45000 CLW 45010 VARNAME 45020 VARNAME 45030 PRINT 45040 PRINT 45050 DEC 45060 FOR 45070 IF 45080 NEXT 45090 IF 45100 IF 45110 VARNAME 45120 PRINT 45130 PRINT 45140 PRINT 45150 PRINT 45160 CLEAR KEY 45170 REPEAT 45180 UNKNOWN OP: 0x3A 45190 UNTIL 45200 ON 45210 PRINT 45220 PRINT 45230 OPEN OUT 45240 PRINT 45250 FOR 45260 FOR 45270 VARNAME 45280 WHILE 45290 UNKNOWN OP: 0x3A 45300 WEND 45310 WHILE 45320 UNKNOWN OP: 0x3A 45330 WEND 45340 WHILE 45350 UNKNOWN OP: 0x3A 45360 WEND 45370 WHILE 45380 UNKNOWN OP: 0x3A 45390 WEND 45400 PRINT 45410 NEXT 45420 NEXT 45430 CLOSE 45440 RETURN 460 PRINT 470 PRINT 480 PRINT 490 PRINT 49000 REM ==================================================================== 49010 REM = Get Input using DES version 3 (Martin Cubitt Jul 1992) = 49020 REM =------------------------------------------------------------------= 49030 REM = All DES variables start with DES. To avoid confusion, you are = 49040 REM = advised to avoid doing this in your main program. = 49050 REM = = 49060 REM = Amendments: = 49070 REM = 29/12/90,M.Cubitt,additions = 49080 REM = Add setup routine and select window to use. = 49090 REM = 11/7/92 Allow many fields at one time => V3 = 49100 REM =------------------------------------------------------------------= 49110 REM = Parameters passed by your program: = 49120 REM = ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ = 49130 REM = descx(),descy() = cursor start position = 49140 REM = desmc() = maximum number of characters allowed = 49150 REM = descf() = char flag; 1-any, 2-char & num, 3-char, 4-num = 49160 REM = if bit 8 is on then make uppercase = 49170 REM = desc$() = text positioned before entry (for change) + ret val = 49180 REM = desv$() = permissable values (for 1 len fields only) = 49190 REM = deslr() = range: lowest value (for numeric type 4 fields) = 49200 REM = deshr() = range: highest value (for numeric type 4 fields) = 49210 REM = = 49220 REM = desnfld = number of fields = 49230 REM = descfld = field to start on (normally 1) = 49231 REM = = 49232 REM = des_roll_update=true if record updated upron roll key press = 49233 REM = = 49240 REM ==================================================================== 50 REM =======> Read field information 500 PRINT 50000 VARNAME 50010 REM Save current values 50020 FOR 50030 VARNAME 50040 NEXT 50050 IF 50060 VARNAME 50070 VARNAME 50080 GOTO 50090 IF 50100 VARNAME 50110 VARNAME 50120 GOTO 50130 VARNAME 50140 VARNAME 50150 GOSUB 50160 UNDER 50170 PEN 50180 VARNAME 50190 VARNAME 50200 VARNAME 50210 VARNAME 50220 FOR 50230 WHILE 50240 UNKNOWN OP: 0x3A 50250 WEND 50260 WHILE 50270 UNKNOWN OP: 0x3A 50280 WEND 50290 GOSUB 50300 NEXT 50310 VARNAME 50320 VARNAME 50330 VARNAME 50340 VARNAME 50350 VARNAME 50360 GOSUB 50370 CLEAR KEY 50380 REPEAT 50390 UNKNOWN OP: 0x3A 50400 UNKNOWN OP: 0x3A 50410 UNKNOWN OP: 0x3A 50420 UNKNOWN OP: 0x3A 50430 UNKNOWN OP: 0x3A 50440 UNKNOWN OP: 0x3A 50450 UNKNOWN OP: 0x3A 50460 UNKNOWN OP: 0x3A 50470 UNKNOWN OP: 0x3A 50480 UNKNOWN OP: 0x3A 50490 UNKNOWN OP: 0x3A 50500 UNKNOWN OP: 0x3A 50510 UNKNOWN OP: 0x3A 50520 UNKNOWN OP: 0x3A 50530 UNKNOWN OP: 0x3A 50540 UNKNOWN OP: 0x3A 50550 UNKNOWN OP: 0x3A 50560 UNKNOWN OP: 0x3A 50570 UNKNOWN OP: 0x3A 50580 UNKNOWN OP: 0x3A 50590 UNKNOWN OP: 0x3A 50600 UNKNOWN OP: 0x3A 50610 UNKNOWN OP: 0x3A 50620 UNKNOWN OP: 0x3A 50630 UNKNOWN OP: 0x3A 50640 UNKNOWN OP: 0x3A 50650 UNKNOWN OP: 0x3A 50660 UNKNOWN OP: 0x3A 50670 UNKNOWN OP: 0x3A 50680 UNKNOWN OP: 0x3A 50690 UNKNOWN OP: 0x3A 50700 UNKNOWN OP: 0x3A 50710 UNKNOWN OP: 0x3A 50720 UNKNOWN OP: 0x3A 50730 UNKNOWN OP: 0x3A 50740 UNKNOWN OP: 0x3A 50750 UNKNOWN OP: 0x3A 50760 UNKNOWN OP: 0x3A 50770 UNKNOWN OP: 0x3A 50780 UNKNOWN OP: 0x3A 50790 UNKNOWN OP: 0x3A 50800 UNKNOWN OP: 0x3A 50810 UNKNOWN OP: 0x3A 50820 UNKNOWN OP: 0x3A 50830 UNKNOWN OP: 0x3A 50840 UNKNOWN OP: 0x3A 50850 UNKNOWN OP: 0x3A 50860 UNKNOWN OP: 0x3A 50870 UNKNOWN OP: 0x3A 50880 UNKNOWN OP: 0x3A 50890 UNKNOWN OP: 0x3A 50900 UNKNOWN OP: 0x3A 50910 UNKNOWN OP: 0x3A 50920 UNKNOWN OP: 0x3A 50930 UNKNOWN OP: 0x3A 50940 UNKNOWN OP: 0x3A 50950 UNKNOWN OP: 0x3A 50960 UNKNOWN OP: 0x3A 50970 UNKNOWN OP: 0x3A 50980 UNKNOWN OP: 0x3A 50990 UNKNOWN OP: 0x3A 510 LOCATE 51000 UNKNOWN OP: 0x3A 51010 UNKNOWN OP: 0x3A 51020 UNKNOWN OP: 0x3A 51030 UNKNOWN OP: 0x3A 51040 UNKNOWN OP: 0x3A 51050 UNKNOWN OP: 0x3A 51060 UNKNOWN OP: 0x3A 51070 UNKNOWN OP: 0x3A 51080 UNKNOWN OP: 0x3A 51090 UNKNOWN OP: 0x3A 51100 UNKNOWN OP: 0x3A 51110 UNKNOWN OP: 0x3A 51120 UNKNOWN OP: 0x3A 51130 UNKNOWN OP: 0x3A 51140 UNKNOWN OP: 0x3A 51150 UNKNOWN OP: 0x3A 51160 UNKNOWN OP: 0x3A 51170 UNKNOWN OP: 0x3A 51180 UNKNOWN OP: 0x3A 51190 UNKNOWN OP: 0x3A 51200 UNKNOWN OP: 0x3A 51210 UNKNOWN OP: 0x3A 51220 UNKNOWN OP: 0x3A 51230 UNKNOWN OP: 0x3A 51240 UNKNOWN OP: 0x3A 51250 UNKNOWN OP: 0x3A 51260 UNKNOWN OP: 0x3A 51270 UNKNOWN OP: 0x3A 51280 UNKNOWN OP: 0x3A 51290 UNKNOWN OP: 0x3A 51300 UNKNOWN OP: 0x3A 51310 UNKNOWN OP: 0x3A 51320 UNKNOWN OP: 0x3A 51330 UNKNOWN OP: 0x3A 51340 UNKNOWN OP: 0x3A 51350 UNKNOWN OP: 0x3A 51360 UNKNOWN OP: 0x3A 51370 UNKNOWN OP: 0x3A 51380 UNKNOWN OP: 0x3A 51390 UNKNOWN OP: 0x3A 51400 UNKNOWN OP: 0x3A 51410 UNKNOWN OP: 0x3A 51420 UNKNOWN OP: 0x3A 51430 UNKNOWN OP: 0x3A 51440 UNKNOWN OP: 0x3A 51450 UNKNOWN OP: 0x3A 51460 UNKNOWN OP: 0x3A 51470 UNKNOWN OP: 0x3A 51480 UNKNOWN OP: 0x3A 51490 UNKNOWN OP: 0x3A 51500 UNKNOWN OP: 0x3A 51510 UNKNOWN OP: 0x3A 51520 UNKNOWN OP: 0x3A 51530 UNKNOWN OP: 0x3A 51540 UNKNOWN OP: 0x3A 51550 UNKNOWN OP: 0x3A 51560 UNKNOWN OP: 0x3A 51570 UNKNOWN OP: 0x3A 51580 UNKNOWN OP: 0x3A 51590 UNKNOWN OP: 0x3A 51600 UNKNOWN OP: 0x3A 51610 UNKNOWN OP: 0x3A 51620 UNKNOWN OP: 0x3A 51630 UNKNOWN OP: 0x3A 51640 UNKNOWN OP: 0x3A 51650 UNKNOWN OP: 0x3A 51660 UNKNOWN OP: 0x3A 51670 UNKNOWN OP: 0x3A 51680 UNKNOWN OP: 0x3A 51690 UNKNOWN OP: 0x3A 51700 UNKNOWN OP: 0x3A 51710 UNKNOWN OP: 0x3A 51720 UNKNOWN OP: 0x3A 51730 UNKNOWN OP: 0x3A 51740 UNKNOWN OP: 0x3A 51750 UNKNOWN OP: 0x3A 51760 UNKNOWN OP: 0x3A 51770 UNKNOWN OP: 0x3A 51780 UNKNOWN OP: 0x3A 51790 UNKNOWN OP: 0x3A 51800 UNKNOWN OP: 0x3A 51810 UNKNOWN OP: 0x3A 51820 UNKNOWN OP: 0x3A 51830 UNKNOWN OP: 0x3A 51840 UNKNOWN OP: 0x3A 51850 UNKNOWN OP: 0x3A 51860 UNKNOWN OP: 0x3A 51870 UNKNOWN OP: 0x3A 51880 UNKNOWN OP: 0x3A 51890 UNKNOWN OP: 0x3A 51900 UNKNOWN OP: 0x3A 51910 UNKNOWN OP: 0x3A 51920 UNKNOWN OP: 0x3A 51930 UNKNOWN OP: 0x3A 51940 UNKNOWN OP: 0x3A 51950 UNKNOWN OP: 0x3A 51960 UNKNOWN OP: 0x3A 51970 UNKNOWN OP: 0x3A 51980 UNKNOWN OP: 0x3A 51990 UNKNOWN OP: 0x3A 520 PRINT 52000 UNTIL 52010 CLEAR KEY 52020 REM Only update if Enter pressed or if rolled with DES_ROLL_UPDATE on 52030 IF 52040 REM Validate values etc 52050 GOSUB 52060 VARNAME 52070 IF 52080 INC 52090 IF 52100 VARNAME 52110 IF 52120 INC 52130 IF 52140 VARNAME 52150 FOR 52160 IF 52170 IF 52180 IF 52190 IF 52200 IF 52210 VARNAME 52220 VARNAME 52230 BELL 52240 IF 52250 IF 52260 IF 52270 VARNAME 52280 VARNAME 52290 BELL 52300 NEXT 52310 IF 52320 VARNAME 52330 UNDER 52340 RETURN 52350 REM Display old 52360 LOCATE 52370 PRINT 52380 RETURN 52390 REM Get current char & highlight it 52400 PEN 52410 INVERSE 52420 UNDER 52430 LOCATE 52440 PRINT 52450 UNDER 52460 INVERSE 52470 PEN 52480 RETURN 52490 REM Help... 52500 VARNAME 52510 PAPER 52520 WINDOPEN 52530 CDOWN 52540 CURS 52550 FLASH 52560 COLOUR 52570 PAPER 52580 PEN 52590 CENTRE 52600 PAPER 52610 PEN 52620 CDOWN 52630 CDOWN 52640 CENTRE 52650 CDOWN 52660 CENTRE 52670 CDOWN 52680 CDOWN 52690 CENTRE 52700 CDOWN 52710 CENTRE 52720 CDOWN 52730 CENTRE 52740 CDOWN 52750 CENTRE 52760 CDOWN 52770 CENTRE 52780 CDOWN 52790 CENTRE 52800 CDOWN 52810 CENTRE 52820 CDOWN 52830 CENTRE 52840 CDOWN 52850 CENTRE 52860 CDOWN 52870 CENTRE 52880 CDOWN 52890 CENTRE 52900 CDOWN 52910 CENTRE 52920 CDOWN 52930 CENTRE 52940 CDOWN 52950 CENTRE 52960 CDOWN 52970 CDOWN 52980 PEN 52990 CENTRE 530 LOCATE 53000 CLEAR KEY 53010 REPEAT 53020 UNTIL 53030 CLEAR KEY 53040 WINDEL 53050 PEN 53060 PAPER 53070 GOSUB 53080 RETURN 53090 REM Flash colour 2 53100 IF 53110 RETURN 53120 REM Put new char on screen 53130 VARNAME 53140 IF 53150 IF 53160 IF 53170 IF 53180 VARNAME 53190 GOSUB 53200 GOTO 53210 REM Can't use MID$=... otherwise a STOS bug will change DES_P$ as well as DES_text$(DES_CFLD) in next line ( ie cannot have mid$(DES_text$(DES_CFLD),DES_POS,1)=chr$(DES_A) ) 53220 VARNAME 53230 LOCATE 53240 PRINT 53250 GOSUB 53260 GOSUB 53270 RETURN 53280 REM Home 53290 GOSUB 53300 VARNAME 53310 VARNAME 53320 GOSUB 53330 RETURN 53340 REM End (cursor at end of field) 53350 VARNAME 53360 VARNAME 53370 VARNAME 53380 VARNAME 53390 GOSUB 53400 RETURN 53410 REM display data 53420 LOCATE 53430 PRINT 53440 RETURN 53450 REM Move cursor left 53460 IF 53470 DEC 53480 IF 53490 VARNAME 53500 DEC 53510 GOTO 53520 GOSUB 53530 RETURN 53540 REM Move cursor right 53550 IF 53560 INC 53570 IF 53580 VARNAME 53590 INC 53600 GOTO 53610 GOSUB 53620 RETURN 53630 REM Go back 1 field 53640 GOSUB 53650 DEC 53660 IF 53670 GOSUB 53680 RETURN 53690 REM Go forward 1 field 53700 GOSUB 53710 INC 53720 IF 53730 GOSUB 53740 RETURN 53750 REM Go back 1 field, cursor in last pos 53760 GOSUB 53770 DEC 53780 IF 53790 GOSUB 53800 RETURN 540 PRINT 550 VARNAME 560 VARNAME 570 FOR 580 FOR 590 VARNAME 60 REM 600 INC 610 NEXT 620 LOCATE 630 PRINT 640 NEXT 650 PRINT 660 PRINT 670 PRINT 680 VARNAME 690 REM 70 SHOW 700 REM ======> Set up DES variables 710 REM 720 VARNAME 730 VARNAME 740 VARNAME 750 VARNAME 760 VARNAME 770 DIM 780 VARNAME 790 GOSUB 80 VARNAME 800 GOSUB 810 GOSUB 820 VARNAME 830 REM 840 REM ======> Main Loop 850 REM 860 REPEAT 870 UNKNOWN OP: 0x3A 880 UNKNOWN OP: 0x3A 890 UNKNOWN OP: 0x3A 90 HIDE 900 UNKNOWN OP: 0x3A 910 UNKNOWN OP: 0x3A 920 UNKNOWN OP: 0x3A 930 UNKNOWN OP: 0x3A 940 UNKNOWN OP: 0x3A 950 UNKNOWN OP: 0x3A 960 UNKNOWN OP: 0x3A 970 UNKNOWN OP: 0x3A 980 UNKNOWN OP: 0x3A 990 UNKNOWN OP: 0x3A