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