Millennium Time Capsule

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

/ Millennium Time Capsule / AC2000.BIN / disks / ac7_disk / gemma152 / gemexamp.les / gemmadem.bas (.txt) < prev next >

Wrap

Atari STOS Basic | 1997-07-15 | 13.7 KB | 201 lines

1 GOSUB 10 VARNAME 100 VARNAME 1000 REM Display alertbox 10010 VARNAME 10020 VARNAME 10030 VARNAME 10040 VARNAME 10050 VARNAME 10060 VARNAME 10070 VARNAME 10080 VARNAME 10090 RETURN 101 VARNAME 1010 VARNAME 102 VARNAME 1020 VARNAME 103 VARNAME 1030 RETURN 104 IF 105 GOTO 109 IF 110 IF 111 REM if TYPE=20 then TY=WINTYPE(MESS3) : J=wind_calc(1,MYCO,MESS4,MESS5,MESS6,MESS7,varptr(WINX),varptr(WINY),varptr(WINW),varptr(WINH)) : doke TREE+24*0+16,WINX : doke TREE+24*0+18,WINY : doke TREE+24*0+20,WINW : doke TREE+24*0+22,WINH : objc_draw TREE,0,10,WINX,WINY,WINW,WINH : XAB=WINX : YAB=WINY : WAB=WINW : HAB=WINH 112 IF 113 IF 114 IF 120 RETURN 130 REM Got menu select! 140 IF 150 IF 151 IF 152 IF 153 IF 154 IF 155 IF 160 IF 170 RETURN 180 REM GEMMA info box 190 VARNAME 20 VARNAME 200 VARNAME 2000 REM Display TEST dialog 20000 VARNAME 20001 IF 20010 REPEAT 20020 IF 20021 IF 20022 IF 20030 VARNAME 20040 UNTIL 20050 RETURN 2010 VARNAME 2020 EXTENSION (Index #25) (Token 0xd2) 2040 EXTENSION (Index #25) (Token 0xa2) 2050 EXTENSION (Index #25) (Token 0xa2) 2060 EXTENSION (Index #25) (Token 0x9c) 2070 VARNAME 2080 EXTENSION (Index #25) (Token 0xa2) 2090 EXTENSION (Index #25) (Token 0xa2) 21 EXTENSION (Index #25) (Token 0xa2) 210 EXTENSION (Index #25) (Token 0xd2) 2100 VARNAME 2110 RETURN 220 VARNAME 230 EXTENSION (Index #25) (Token 0xa2) 240 EXTENSION (Index #25) (Token 0xa2) 250 EXTENSION (Index #25) (Token 0x9c) 260 VARNAME 270 EXTENSION (Index #25) (Token 0xa2) 280 EXTENSION (Index #25) (Token 0xa2) 290 VARNAME 30 VARNAME 300 RETURN 3000 REM Bring up fileselector! 3005 VARNAME 3010 VARNAME 3020 VARNAME 3030 VARNAME 3040 VARNAME 3050 IF 3060 RETURN 310 REM Window bit! 320 RETURN 330 VARNAME 340 VARNAME 350 VARNAME 360 VARNAME 370 FOR 380 POKE 390 VARNAME 40 VARNAME 400 NEXT 4000 REM Open formwindow! 4020 VARNAME 4030 EXTENSION (Index #25) (Token 0xd2) 4040 VARNAME 4050 DOKE 4060 VARNAME 4070 VARNAME 4080 VARNAME 4090 VARNAME 410 POKE 4100 VARNAME 4110 VARNAME 4120 VARNAME 4130 EXTENSION (Index #25) (Token 0xbc) 4140 EXTENSION (Index #15) (Token 0x9e) 4150 EXTENSION (Index #25) (Token 0xb8) 4160 EXTENSION (Index #25) (Token 0x9c) 4170 EXTENSION (Index #15) (Token 0x9c) 4171 EXTENSION (Index #25) (Token 0x94) 4172 VARNAME 4180 RETURN 420 RETURN 430 REM Play an saa, saa contains the value to play, saa$ is cookie! 440 TRAP 450 RETURN 5 GOSUB 50 VARNAME 5000 REM Close a window 50000 REM ************** GEM setup code (was autoexec.bas) ********* 50010 VARNAME 50020 VARNAME 50021 VARNAME 50022 VARNAME 50030 VARNAME 50040 KEY 50050 CURS 50060 DIM 50070 VARNAME 50080 VARNAME 50090 VARNAME 5010 REM mess3=window 50100 VARNAME 5011 IF 50110 TRAP 50120 VARNAME 50130 LOKE 50140 REM oke $4CE+4,leek(BSE+12) 50150 REM oke $4CE+8,leek(BSE+16) 50160 REM oke $4CE+12,leek(BSE+20) 50170 REM oke $4CE+16,leek(BSE+24) 50180 REM oke $4CE+20,leek(BSE+28) 50190 REM oke $4CE+24,leek(BSE+32) 5020 VARNAME 50200 VARNAME 50210 EXTENSION (Index #15) (Token 0x9c) 50220 TRAP 50230 TRAP 50240 REM dreg(0) contains system memory free 50250 HIDE 50260 IF 50270 REM Poke 0 into the malloc buffer of GEMMA acc so it will realise we've nicked it's memory!!! 50280 LOKE 50290 REM attempts to set colours to be like those of the desktop 5030 EXTENSION (Index #25) (Token 0xba) 50300 IF 50310 DATA 50320 IF 50340 REM SET=76 5035 IF 50350 REM or ADDR=$400 to $600 step 4 5036 VARNAME 50360 REM oke (BSE+OSET),ADDR 5037 IF 50370 REM SET=OSET+4 5038 IF 50380 REM ext 50390 CLICK 5040 RETURN 50400 RETURN 6 DIM 60 DIM 6000 REM Open window+draw system colours in it! 6001 EXTENSION (Index #25) (Token 0x8e) 6010 VARNAME 6020 VARNAME 6030 VARNAME 6040 VARNAME 6050 VARNAME 6060 EXTENSION (Index #25) (Token 0xbc) 6061 VARNAME 6111 EXTENSION (Index #25) (Token 0xb8) 6112 VARNAME 6113 VARNAME 6120 VARNAME 6130 FOR 6140 EXTENSION (Index #15) (Token 0x82) 6150 VARNAME 6160 EXTENSION (Index #15) (Token 0x80) 6170 NEXT 6180 RETURN 7 VARNAME 70 VARNAME 80 VARNAME 85 VARNAME 86 VARNAME 87 VARNAME 90 VARNAME