home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Masterblend / cdsharewaremasterblend.iso / home-hob / mealmate / cards.bas < prev    next >
BASIC Source File  |  1988-02-28  |  2KB  |  39 lines
  1. 10 ' (C) DO-DAT Corp. Webster N.H. 1986 NO RIGHTS RESERVED
  2. 20 '
  3. 30 SCREEN 1:KEY OFF:CLS:DEFINT A-Z
  4. 40 A$="M+2,-1M+2,-1M+3,-1R7"'* U L CORNER
  5. 50 B$="R3M+2,1M+1,1D2"'* U R CORNER
  6. 60 C$="M-1,1M-2,2M-2,1M-3,1M-3,1L4"'* L R CORNER
  7. 70 D$="L3M-3,-1M-2,-1M-1,-1U1M+1,-1"'* L L CORNER
  8. 80 L$="NM320,192C0NM320,192C1"'* LASER ORIGIN POINT
  9. 90 LL$="NM320,182NU4ND5NL10NR10NE4NF5NG5NH4C0NM320,182NU4ND5NL10NR10NE4NF5NG5NH4C1"'** SPARKLER ON END OF LASER
  10. 100 ' "D"
  11. 110 DRAW"BM42,4;XLL$;R28;XL$;XB$;XL$;M-13,13;XL$;XC$;XL$;L30;XL$;M+23,-23;XL$;BM+7,6;XL$;R11;XL$;M-11,11;XL$;L11;XL$;M+11,-11;XL$;M-11,11;XL$;R11;XL$;M+11,-11XL$;L11BM49,4R21;XB$;M-13,13;XC$;L30;M+23,-23;"
  12. 120 ' "O"
  13. 130 DRAW"BM95,4;XLL$;R21;XL$;XB$;XL$;M-13,13;XL$;XC$;XL$;L17;XL$;XD$;XL$;M+15,-15;XL$;XA$;XL$;BM-3,6;XL$;R11;XL$;M-11,11;XL$;L11;XL$;M+11,-11;XL$;M-11,11R11M+11,-11L11BM95,4R21;XB$;M-13,13;XC$;L17;XD$;M+15,-15;XA$;"
  14. 140 ' "-"
  15. 150 DRAW"BM131,7;XL$;BM+7,4;XL$;R20;XL$;M-6,6;XL$;L20;XL$;M+6,-6;XL$;M-6,6R12;"
  16. 160 ' "D"
  17. 170 DRAW"BM186,4;XLL$;R28;XL$;XB$;XL$;M-13,13;XL$;XC$;XL$;L30;XL$;M+23,-23;XL$;BM+7,6;XL$;R11;XL$;M-11,11;XL$;L11;XL$;M+11,-11;XL$;M-11,11R11M+11,-11L11BM193,4R21;XB$;M-13,13;XC$;L30;M+23,-23;"
  18. 180 ' "A"
  19. 190 DRAW"BM246,4;XLL$;R17;XL$;M-6,23;XL$;L14;XL$;M+1,-4L9;XL$;M+7,-5;XL$;R4;XL$;M+2,-6;XL$;M-23,+15;XL$;L17;XL$;M+37,-23;XL$;M-37,23R17M+23,-15M-2,6L4M-7,5R9BM263,4;M-6,23;L14;"
  20. 200 ' "T"
  21. 210 DRAW"BM280,4;XLL$;R40;XL$;M-6,6;XL$;R-10;XL$;M-17,17;XL$;BM280,4;M-6,+6;XL$M-17,+17;XL$;R15;XL$;M-17,17;XL$;R15;BM257,23;M-1,4;L5;BM304,10;M-17,17;"
  22. 220 ' UNDERLINE
  23. 230 DRAW"BM7,32;XLL$;R302;XL$;L302R302M-6,6;XL$;M+6,-6M-6,6L302;XL$;M+6,-6;XL$;BM7,32;XL$;R302M-6,6L302M+6,-6"
  24. 240 ' PAINT TOP PART OF LOGO
  25. 250 PAINT(52,9),1:PAINT(97,9),1:PAINT(139,14),1:PAINT(188,5),1
  26. 260 PAINT(247,5),1:PAINT(249,8),1:PAINT(311,8),1:PAINT(211,36),1
  27. 270 LOCATE 5,15:PRINT "INDUSTRIES"
  28. 280 LOCATE 10,11:PRINT "STEPHEN MACGREGOR"
  29. 290 LOCATE 16,28:PRINT "RFD 5 B 194"
  30. 300 LOCATE 17,28:PRINT "WEBSTER"
  31. 310 LOCATE 18,28:PRINT "N.H. 03303"
  32. 315 GOTO 350
  33. 320 DEF SEG=&HB800
  34. 330 BSAVE"card.bld",0,&H4000
  35. 340 DEF SEG
  36. 350 X$ = INKEY$
  37. 360 IF X$ = "" THEN 350
  38. 370 END
  39.