home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / SHAPE.MECH1.SHK / SHAPE.MECHANIC / GREETINGS.bas < prev    next >
BASIC Source File  |  2000-01-01  |  8KB  |  48 lines
  1. 77  REM <CTRL-M><CTRL-M>     ===========<CTRL-M>     SHAPE<CTRL-M>     MECHANIC<CTRL-M>     "GREETINGS"<CTRL-M>     PROGRAM<CTRL-M><CTRL-M>     BY<CTRL-M>     BERT KERSEY<CTRL-M>     BEAGLE BROS<CTRL-M>     ===========<CTRL-J><CTRL-J>
  2. 83  IF  PEEK(103) + PEEK(104) *256 < >2049  THEN  POKE 2048,0: POKE 103,1: POKE 104,8: PRINT  CHR$(4)"RUN GREETINGS"
  3. 84  SPEED= 255: NOTRACE :A = 1:B = 2:C = 3:D = 4:E = 5:F = 31:G = 99:H = 100:Q =  -16384:BUZZ =  -16336:MUSIC = 771: GOSUB 60000: ONERR  GOTO 273
  4. 91  TEXT : PRINT  CHR$(21): HOME : HGR : HCOLOR= 3: FOR I = 85 TO 155  STEP 2: HPLOT 29,I TO 249,I: HPLOT 29,168 -I TO 249,168 -I: NEXT : PRINT  CHR$(4);"BLOAD PIC.BBROS.LOGO,A$2000": PRINT  CHR$(4);"BLOAD F.SQUARE.SMALL,A$6100":P1 = 1:P2 = 2: GOSUB 308: GOSUB 329
  5. 98  ROT= 0: SCALE= 1: HCOLOR= 3: POKE 232,0: POKE 233,97: POKE  -16302,0: POKE  -16304,0: POKE  -16300,0: POKE  -16297,0
  6. 105 P1 = 2:P2 = 1: GOSUB 308: FOR I = 1 TO 999: NEXT 
  7. 112 C$ =  CHR$(34) +"APPLE" + CHR$(34) +" is a registered tm of You-Know-Who": XDRAW H AT 0,178: FOR I = 1 TO 42: XDRAW  ASC( MID$ (C$,I,1)) -31: XDRAW G: NEXT : FOR I = 1 TO 555: NEXT 
  8. 119  POKE 230,64:C$ = "Copyright 1985, Beagle Bros Micro Software": XDRAW H AT 1,178: FOR I = 1 TO  LEN(C$): XDRAW  ASC( MID$ (C$,I,1)) -31: XDRAW G: NEXT :P1 = 2:P2 = 1: GOSUB 308
  9. 126  POKE 230,32: GOSUB 280
  10. 133  FOR I = 1 TO 1500: NEXT :A$ = " WELCOME": GOSUB 140:A$ = "    TO": GOSUB 140:A$ = "  SHAPE": GOSUB 140:A$ = "MECHANIC": GOSUB 140:P1 = 2:P2 = 1: GOSUB 308: GOTO 161
  11. 140  FOR J = 0 TO A: XDRAW 100 AT 12,59: POKE 8376,31 *(J = 0): POKE 9399,96 *(J = 0): POKE 9400,15 *(J = 0): POKE 10424,67 +12 *J: POKE 11447,18 +32 *J: POKE 11448,32 +6 *J: POKE 13368,7 *(J = 0): POKE 14391,96 *(J = 0): POKE 14392,31 *(J = 0): POKE 15415,112 -16 *J: FOR I = A TO  LEN(A$)
  12. 147 X =  ASC( MID$ (A$,I,A)): XDRAW X -F: XDRAW G: FOR K = A TO B:S =  PEEK(BU): NEXT : IF   NOT J  THEN  POKE 0,(J +A) *X: POKE A,E: CALL MU: FOR K = A TO E:S =  PEEK(BU): NEXT 
  13. 154  NEXT : NEXT : RETURN 
  14. 161  FOR I = 1 TO 666: NEXT : GOSUB 294: FOR I = 1 TO 1555: NEXT 
  15. 168  FOR K = 4 TO 7:J = K - INT(K/B) *B: POKE 10430,24 +96 *J: POKE 10431,48 +15 *J: POKE 12478,62 +64 *J: POKE 12479,124 +C *J: POKE 13375,A -J: POKE 14398,64 -64 *J: POKE 14399,C -C *J: POKE 15422,96 -96 *J: POKE 15423,7 -7 *J
  16. 175  IF J = 0  THEN  FOR L = A TO 5: FOR M = 1 TO L:S =  PEEK(BU) + PEEK(BU) + PEEK(BU): NEXT : FOR M = 1 TO 22: NEXT : NEXT 
  17. 182  NEXT 
  18. 189  GOSUB 294: GOSUB 287:Y = 0
  19. 196  FOR I = 1 TO 99: NEXT :HT = 217:VT = 52:A$ = "PLEASE": GOSUB 231:VT = 60:A$ = "PRESS A": GOSUB 231:VT = 68:A$ = "KEY (A-X).": GOSUB 231: POKE  -16368,0
  20. 203 K =  PEEK(Q): IF K <128  THEN A$ = "PRESS A": XDRAW 100 AT 217,60: FOR I = 1 TO 7: XDRAW  ASC( MID$ (A$,I,1)) -31: XDRAW G: NEXT :K =  PEEK(Q): IF K <128  THEN  XDRAW 100 AT 217,68:A$ = "KEY": FOR I = 1 TO 3: XDRAW  ASC( MID$ (A$,I,1)) -31: XDRAW G: NEXT :Y = Y +1: IF Y - INT(Y/6) *6 = 0  THEN  GOSUB 294
  21. 210 K =  PEEK(Q): IF K <128  THEN 203
  22. 217  PRINT  CHR$(7) CHR$(7) CHR$(7): POKE  -16368,0:K = K -32 *(K >223): IF K <193  OR K >216  THEN  FOR K = 1 TO 99:S =  PEEK(BU): NEXT : GOTO 203
  23. 224  GOSUB 322: FOR I = 1 TO 31: POKE  -16298 +I - INT(I/2) *2,0: POKE 0, INT( RND(1) *200) +20: POKE 1,4: CALL MU: FOR J = 1 TO 22: NEXT : NEXT : GOSUB 308: GOTO 252
  24. 231  FOR J = 0 TO 1: XDRAW 100 AT HT,VT: POKE 10430,24 +96 *J: POKE 10431,48 +15 *J: POKE 12478,62 +64 *J: POKE 12479,124 +C *J: POKE 13375,A -J: POKE 14398,64 -64 *J: POKE 14399,C -C *J: POKE 15422,96 -96 *J: POKE 15423,7 -7 *J
  25. 238  HCOLOR= 0: FOR I = 1 TO  LEN(A$):X =  ASC( MID$ (A$,I,1)): DRAW X -F: XDRAW G: IF   NOT J  THEN  FOR K = 1 TO 3:S =  PEEK(BU): NEXT : POKE 0,X +50: POKE A,I *1: CALL MU: FOR K = 1 TO 5:S =  PEEK(BU): NEXT 
  26. 245  NEXT : NEXT : RETURN 
  27. 252  FOR X = 1 TO 90: READ I,J: POKE I,J:S =  PEEK(BU): NEXT : FOR X = 1 TO 67: READ I: POKE I,0:S =  PEEK(BU): NEXT : FOR X = 1 TO 68: READ I:S =  PEEK(BU): POKE I,127: NEXT :P1 = 1:P2 = 2: GOSUB 308
  28. 259  FOR I = 1 TO 1500: NEXT : GOSUB 280:A$ = " THANKS": GOSUB 140:A$ = "  A LOT.": GOSUB 140:P1 = 2:P2 = 1: GOSUB 308: HOME : POKE 230,64: HCOLOR= 0: GOSUB 329: POKE 230,32:P1 = 2:P2 = 1: GOSUB 308: POKE  -16301,0
  29. 266  VTAB 24: HTAB 9: PRINT "(PROGRAM BY BERT KERSEY)";: FOR I = 1 TO 3: FOR J = 1 TO 555: NEXT : VTAB 24: PRINT : NEXT : VTAB 24: HTAB 1: PRINT "]";: FLASH : PRINT " ";: NORMAL : FOR I = 1 TO 3: FOR J = 1 TO 555: NEXT : PRINT : NEXT 
  30. 273  POKE  -16301,0: HOME : VTAB 20: END 
  31. 280  HCOLOR= 3: FOR Y = 47 TO 80: HPLOT 9,Y TO 70,Y: NEXT : FOR Y = 66 TO 70: HPLOT 96,70 TO 70,Y: NEXT : HCOLOR= 0: HPLOT 100,70 TO 71,64 TO 71,46 TO 8,46 TO 8,81 TO 71,81 TO 71,71 TO 100,70: RETURN : REM LEFT.BALLOON
  32. 287  HCOLOR= 3: FOR Y = 47 TO 80: HPLOT 213,Y TO 270,Y: NEXT : FOR Y = 65 TO 70: HPLOT 180,70 TO 213,Y: NEXT : HCOLOR= 0: HPLOT 179,71 TO 212,71 TO 212,81 TO 271,81 TO 271,46 TO 212,46 TO 212,64 TO 179,71: RETURN : REM RIGHT.BALLOON
  33. 294  FOR J = 0 TO 1: POKE 8974,12 -10 *J: POKE 8977,12 -12 *J: POKE 8978,4 *J: POKE 9998,8 +58 *J: POKE 9999,16 +3 *J: POKE 10001,13 -12 *J: POKE 11022,16 -16 *J: POKE 11025,25 +102 *J: POKE 12046,6 +120 *J: POKE 12047,48 +7 *J: POKE 12049,2 +4 *J
  34. 301  POKE 13071,119 -4 *J: POKE 14994,36 +3 *J: POKE 16014,24 +8 *J: POKE 16017,13 +4 *J: POKE 16018,6 *J: FOR H = 1 TO 500: NEXT : NEXT : RETURN : REM  GLANCE
  35. 308  POKE 60,0: POKE 61,32 *P1: POKE 62,0: POKE 63,32 *P1 +32: POKE 64,0: POKE 65,32 *P2 +32: POKE 66,0: POKE 67,32 *P2: CALL  -468: IF P1 = 2  THEN  HCOLOR= 0: HPLOT 0,64 TO 28,64
  36. 315  RETURN 
  37. 322  POKE 60,0: POKE 61,32: POKE 62,200: POKE 63,35: POKE 64,200: POKE 65,7: POKE 66,0: POKE 67,4: CALL  -468: RETURN 
  38. 329  HCOLOR= 0: FOR Y = 191 TO 160  STEP  -2: HPLOT 0,Y TO 279,Y: HPLOT 279,Y -1 TO 0,Y -1: NEXT : RETURN 
  39. 60000  POKE 771,173: POKE 772,48: POKE 773,192: POKE 774,136: POKE 775,208: POKE 776,4: POKE 777,198: POKE 778,1: POKE 779,240: POKE 780,8: POKE 781,202: POKE 782,208: POKE 783,246: POKE 784,166: POKE 785,0: POKE 786,76: POKE 787,3: POKE 788,3: POKE 789,96: RETURN 
  40. 60001  DATA 8592,63,8716,112,8727,96,8728,3,8731,2,8844,124,8850,7,8858,63,9613,113,9617,121,9623,3,9739,3,9740,120,9746,125,9749,15,9751,112,9753,1,9754,64,9755,1,9866,31,9868,124,9874,79,10002,96,10637,124,10641,3,10647,8,10764,124,10770,1
  41. 60002  DATA 10777,3,10778,32,10891,34,10892,120,10907,1,11660,63,11661,126,11665,103,11676,124,11787,1,11788,124,11794,99,11797,31,11798,64,11801,7,11802,24,11914,15,11916,120,11922,15,11923,126,12050,100,12689,79,12700,2,12812,124,12818,3
  42. 60003  DATA  12822,112,12826,15,12939,48,12940,120,12944,63,12946,8,13708,79,13713,31,13718,7,13723,64,13834,63,13836,124,13842,7,13850,15,13962,15,13971,126,14732,96,14737,63,14747,40,14860,124,14866,7,14874,31,15629,63,15630,120,15632,7
  43. 60004  DATA  15755,31,15756,96,15761,63,15762,126,15771,4,15882,31,15883,2,15884,126,15890,71,15891,124,15898,31,16383,105
  44. 60005  DATA 8600,8601,8602,8603,8715,8722,8726,8729,8730,8859,9624,9625,9626,9627,9750,9867,9883,10636,10648,10649,10650,10651,10763,10774,10779,11671,11672,11673,11674,11675,11803,12558,12559,12684,12695,12696,12697,12698,12699,12811,12827
  45. 60006  DATA 12947,13719,13720,13721,13722,13835,13851,14606,14608,14731,14742,14743,14744,14745,14746,14859,14875,15640,15641,15642,15766,15767,15768,15769,15770,15899: REM 0
  46. 60007  DATA 8590,8591,8717,8718,8719,8720,8721,9614,9615,9616,9741,9744,9745,9747,10638,10639,10640,10765,10768,10769,11533,11534,11535,11536,11659,11662,11663,11664,11786,11789,11793,11795,11917,11918,11919,11921,12685,12686,12687,12688
  47. 60008  DATA 9612,9738,12813,12941,12942,12943,13581,13582,13583,13584,13707,13709,13710,13711,13712,13714,13837,14733,14734,15628,15631,15633,15757,15758,15759,15760,15763,16019: REM 127
  48. 60009  REM <CTRL-M><CTRL-M>     ===========<CTRL-M>     SHAPE<CTRL-M>     MECHANIC<CTRL-M>     "GREETINGS"<CTRL-M>     PROGRAM<CTRL-M><CTRL-M>     BY<CTRL-M>     BERT KERSEY<CTRL-M>     BEAGLE BROS<CTRL-M>     ===========<CTRL-J><CTRL-J><CTRL-J>