home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 127 / SGDS 127.2mg / SDGS.127 / SDC127 / C / DIAMONDS (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1992-04-29  |  1010 b   |  39 lines  |  [FC] Applesoft BASIC Program (0x6C01)
  1. 1 Y = 1
  2. 5  IF  PEEK(104) = 108  THEN 20
  3. 6  TEXT : HOME 
  4. 7  PRINT  CHR$(21): PRINT  CHR$(4)"-piracy.rpk"
  5. 10  POKE 103,1: POKE 104,108: POKE 27648,0: PRINT  CHR$(4)"-diamonds"
  6. 20 TK = 1: PRINT  CHR$(21): NORMAL : SPEED= 255:COMP = 3: POKE 767,TK: POKE 766,COMP
  7. 30  PRINT  CHR$(4)"-win"
  8. 40  POKE 48688, PEEK(0): POKE 48689, PEEK(1)
  9. 45  VTAB 5: HTAB 10: PRINT "DIAMONDS AND TRIANGLES"
  10. 50 BOX = 2051:OBOX = 2054:CBOX = 2057
  11. 60  PRINT  CHR$(4)"bloadxy.bin"
  12. 120 D$(1) = "D":D$(2) = "T"
  13. 125  PRINT  CHR$(4)"bloadshp.table"
  14. 126  VTAB 24: HTAB 15: PRINT "Press a key"
  15. 127  GET A$: HGR2 : PRINT  CHR$(4)"-board.rpk"
  16. 130  POKE  -16304,0: POKE  -16297,0: ROT= 0: SCALE= 1: HCOLOR= 3:D$ =  CHR$(4)
  17. 170  CALL OBOX,4,5,33,13
  18. 175  INVERSE : PRINT 
  19. 180  PRINT  TAB( 5);"Diamonds and Triangles"
  20. 190  PRINT  TAB( 8);"By Dexter Samida": PRINT 
  21. 200  PRINT  TAB( 4);"(c) 1992  Softdisk, Inc."
  22. 210  PRINT  TAB( 3);"Published on Softdisk #127"
  23. 220  PRINT " Subscriptions: 1-800-831-2694"
  24. 230  PRINT  TAB( 7);"All rights reserved"
  25. 240  PRINT  TAB( 5);"Changing this notice is"
  26. 250  PRINT  TAB( 13);"illegal"
  27. 260  CALL OBOX,4,20,33,3
  28. 265  PRINT  CHR$(4);"BLOAD XY.BIN"
  29. 270  PRINT " Press <ANY KEY> to continue.";
  30. 280 GC = GC +1: IF GC >1250  THEN  GOSUB 310: GOTO 290
  31. 285  IF  PEEK( -16384) <127  THEN 280
  32. 290  POKE 49168,0: CALL CBOX: CALL CBOX
  33. 300  PRINT  CHR$(4);"CHAIN D.T"
  34. 310  CALL 902
  35. 320  FOR X = 1 TO 135
  36. 330  IF  PEEK( -16384) >127  THEN 350
  37. 340  NEXT :Y = Y +1: GOTO 310
  38. 350  IF (Y/2) < > INT(Y/2)  THEN  CALL 902
  39. 360  RETURN