home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / EXTRA.K.S1.SHK / EXTRA.K.DOS3.3 / TITLE.SCREEN.bas < prev    next >
BASIC Source File  |  2000-01-01  |  2KB  |  47 lines
  1. 0  REM "<CTRL-H> <CTRL-M>____________________<CTRL-M><CTRL-M>TITLE.SCREEN<CTRL-M>Copyright (C) 1985<CTRL-M>Mark Simonsen<CTRL-M>Beagle Bros, Inc.<CTRL-M>____________________<CTRL-M>
  2. 1  IF  PEEK(103) + PEEK(104) *256 < >2049  THEN  POKE 103,1: POKE 104,8: POKE 2048,0: PRINT  CHR$(4)"RUN TITLE.SCREEN"
  3. 5  PRINT  CHR$(4)"NOMONICO": PRINT  CHR$(21): TEXT : NORMAL : HOME 
  4. 10  PRINT  CHR$(4)"BLOAD TITLE.SCREEN.M": POKE 230,32: HCOLOR= 6: HPLOT 0,0 TO 278,0 TO 278,191 TO 0,191 TO 0,0: CALL 8064
  5. 20  ROT= 0: SCALE= 1
  6. 60  POKE  -16297,0: POKE  -16302,0: POKE  -16300,0: POKE  -16304,0: HCOLOR= 3
  7. 65  GOTO 200
  8. 150  FOR I = 1 TO 1500: NEXT : RETURN 
  9. 200  GOSUB 150
  10. 210  POKE 4485,21: POKE 4489,214: POKE 4493,17: CALL 4480
  11. 220  GOSUB 150
  12. 230  HCOLOR= 5: POKE 4485,25: POKE 4489,222: CALL 4480
  13. 240  GOSUB 150
  14. 245  POKE  -16299,0: POKE 230,64
  15. 250  HCOLOR= 3: POKE 4485,27: POKE 4489,214: CALL 4480
  16. 255  GOSUB 910
  17. 260  HCOLOR= 0: POKE 32,1: POKE 33,9: POKE 34,8: POKE 35,21: POKE 4436,234: POKE 4437,234
  18. 270  VTAB 9: PRINT "By": PRINT : PRINT : PRINT : PRINT : PRINT "&": PRINT : PRINT "What's": PRINT "His": PRINT "Name": PRINT : PRINT "(C) 1985"
  19. 275  VTAB 11: PRINT "Mark": PRINT "Simonsen": CALL 4352: GOSUB 150: IF  PEEK( -16384) >127  THEN 300
  20. 280  VTAB 11: PRINT "Alan": PRINT "Bird    ": CALL 4352: GOSUB 150: IF  PEEK( -16384) >127  THEN 300
  21. 290  GOTO 275
  22. 300  POKE  -16368,0: HOME : TEXT : VTAB 23: END 
  23. 900  REM 
  24. 910 L = 128:H = 41:X = 0:Y = 0
  25. 915  HCOLOR= 4: HPLOT X,Y TO X +L +12,Y: HPLOT X,Y TO X,Y +H +12: HCOLOR= 3
  26. 920  GOSUB 1000
  27. 930 X = 2:Y = 2
  28. 940  GOSUB 1020
  29. 999  RETURN 
  30. 1000  REM 
  31. 1003  HPLOT X,Y +H +5 TO X,Y +5
  32. 1004  HPLOT X +1,Y +4 TO X +1,Y +3
  33. 1005  HPLOT X +2,Y +2
  34. 1006  HPLOT X +3,Y +1 TO X +4,Y +1
  35. 1010  HPLOT X +5,Y TO X +L +5,Y
  36. 1020  HPLOT X +L +6,Y +1 TO X +L +7,Y +1
  37. 1030  HPLOT X +L +8,Y +2
  38. 1040  HPLOT X +L +9,Y +3 TO X +L +9,Y +4
  39. 1050  HPLOT X +L +10,Y +5 TO X +L +10,Y +H +5
  40. 1060  HPLOT X +L +9,Y +H +6 TO X +L +9,Y +H +7
  41. 1070  HPLOT X +L +8,Y +H +8
  42. 1080  HPLOT X +L +6,Y +H +9 TO X +L +7,Y +H +9
  43. 1090  HPLOT X +L +5,Y +H +10 TO X +5,Y +H +10
  44. 1100  HPLOT X +4,Y +H +9 TO X +3,Y +H +9
  45. 1110  HPLOT X +2,Y +H +8
  46. 1120  HPLOT X +1,Y +H +7 TO X +1,Y +H +6
  47. 1130  RETURN