home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
genie-commodore-file-library
/
C64Demos
/
MICROPROSE3.SFX
/
f
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-06-07
|
1KB
|
40 lines
1 REM(null)
2 POKE56333,127:POKE792,193:POKE808,234:POKE53280,6:POKE53281,6
3 PRINT"[147]":POKE214,11:PRINT:POKE211,16:PRINT"[154]-DEMO-";
4 POKE 52,23:POKE 56,23:CLR:MM=54
5 F$="SMALL":GOSUB34
6 GOTO10
7 HI=INT(V/256):LO=V-HI*256:RETURN
8 V=F:GOSUB7:POKE165,LO:POKE166,HI:V=T:GOSUB7:POKE167,LO:POKE168,HI:V=L
9 GOSUB7:POKE169,LO:POKE170,HI:POKE780,MM:SYS32771:MM=54:RETURN
10 F$="LOGO":GOSUB34:SYS32768
11 F=152*256:T=216*256:L=40*256:MM=0:GOSUB8
12 POKE56576,0:POKE 53272,104:POKE53270,200:POKE 53265,27+32
13 F$="MUSIC":GOSUB34:F$="TITLE":GOSUB34
14 SYS33024
15 POKE 53265,0
16 POKE53272,22:POKE53270,200:POKE56576,3:POKE53280,12:POKE53281,1:POKE53265,27
17 POKE53269,0:POKE53265,27:PRINT"[147][153]"CHR$(8)CHR$(14)"";
18 PRINT"[144] [196]ESIGN AND [208]ROGRAMMING":PRINT:POKE211,18:PRINT"[152]BY[144]":PRINT
19 PRINT" [193]NDY [200]OLLIS AND [193]RNOLD [200]ENDRICK":PRINT:POKE211,17:PRINT"[152]WITH[144]"
20 PRINT:PRINT" [211]ID [205]EIER AND [199]REGG [212]AVARES"
21 PRINT:PRINT"[152][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";:PRINT
22 POKE211,13:PRINT"[144][211]CREEN [193]RT BY":PRINT
23 PRINT"[144][205]ICHAEL [200]AIRE, [205]ICHELE [205]AHAN, [203]IM [196]ISNEY";
24 PRINT:PRINT"[152][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";:PRINT
25 PRINT"[154] [208]ROGRAM AND [193]UDIO-VISUAL"
26 PRINT" [195]OPYRIGHT (C) 1986 [205]ICRO[208]ROSE, [201]NC."
27 POKE211,10:PRINT"[193]LL [210]IGHTS [210]ESERVED";
28 PRINT"LOAD "CHR$(34)"BEGIN"CHR$(34)",8,1":PRINT"RUN:";
29 F$="OP":GOSUB34
30 F$="TYPE":GOSUB34:F$="BADGES":GOSUB34
31 POKE828+58*2,0:POKE828+58*2+1,0
32 POKE198,2:POKE631,13:POKE632,13
33 NEW
34 GOSUB37:POKE781,B-INT(B/256)*256:POKE782,INT(B/256):POKE780,0:SYS65493
35 IF(ST AND191)<>0THEN34
36 RETURN
37 FORI=0TOLEN(F$)-1:POKE830+I,ASC(MID$(F$,I+1,1)):NEXTI:POKE780,0:POKE781,8
38 POKE782,1:SYS65466:POKE780,LEN(F$):POKE781,62:POKE782,3:SYS65469
39 POKE780,LEN(F$):POKE781,62:POKE782,3:SYS65469:RETURN