home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / KARAOKE:OLD / KARAPLAY.bas < prev    next >
BASIC Source File  |  2020-08-13  |  2KB  |  48 lines
  1. 1  PRINT  CHR$(4)"BLOAD KARAPLAY.OBJ"
  2. 2  HGR2 : TEXT : PRINT  CHR$(4)"BLOAD PI.INSTRUMENTAL,A$4000"
  3. 5  TEXT : HOME : PRINT  CHR$(21)
  4. 10  PRINT  CHR$(4)"CAT"
  5. 20  INPUT "SONG:";SO$
  6. 30  PRINT  CHR$(4)"BLOAD "SO$",A$2000,TTXT"
  7. 31  PRINT : PRINT "WHEN THE SCREEN CLEARS, PRESS BUTTON0   TO START THE SHOW": PRINT : INPUT "PRESS RETURN TO BEGIN:";KY$: HOME : GR : CALL 768 +6 *16
  8. 32  GOSUB 1000: VTAB 22: HTAB 8: PRINT "RANGELL KARAOKE PRESENTS:": HTAB 20 - INT( LEN(SO$)/2): PRINT SO$
  9. 33  CALL 768 +6 *16: GOSUB 2000
  10. 34  TEXT : HOME 
  11. 35  PRINT  CHR$(4)"PR#3": PRINT  CHR$(17)
  12. 40 I = 8192:J = 8192
  13. 50  HOME 
  14. 100 J = I: POKE 6,J - INT(J/256) *256: POKE 7, INT(J/256): CALL 768 +32 +8:I =  PEEK(6) + PEEK(7) *256
  15. 101 CH$ =  CHR$( PEEK(I)): IF CH$ < >"~"  THEN 200
  16. 102  IF FI = 0  THEN FI = 1: GOTO 105: REM  don't wait on first tilde
  17. 103  CALL 768 +6 *16
  18. 105  NORMAL : FOR X = 1 TO 24: PRINT : NEXT : VTAB 1: HTAB 1
  19. 110 J = I +1: POKE 6,J - INT(J/256) *256: POKE 7, INT(J/256): CALL 768
  20. 150  VTAB 1: HTAB 1: NORMAL 
  21. 155  POKE 768 +32 +7,1
  22. 160  GOTO 900
  23. 200  IF CH$ = "@"  THEN  NORMAL : POKE 768 +32 +7,1: GOTO 900
  24. 300  IF CH$ = "^"  THEN  CALL 768 +6 *16: INVERSE : POKE 768 +32 +7,64: GOTO 900
  25. 400  IF  CHR$( PEEK(I)) = "`"  THEN 910
  26. 500  PRINT  CHR$( PEEK(I));
  27. 900 I = I +1: GOTO 100
  28. 910  TEXT : FOR X = 1 TO 24: PRINT : FOR DE = 1 TO 10: NEXT : NEXT 
  29. 920  GOSUB 1000
  30. 930  VTAB 22: PRINT "  Another Rangell Karaoke Masterpiece!"
  31. 935 FI = 0
  32. 940  CALL 768 +6 *16: GOTO 5
  33. 999  END 
  34. 1000  GR 
  35. 1010  FOR X = 0 TO 19
  36. 1020  COLOR=  INT( RND(1) *15) +1
  37. 1030  VLIN 0,39 AT X
  38. 1035  VLIN 0,39 AT 39 -X
  39. 1040  NEXT X
  40. 1050  RETURN 
  41. 2000  REM  OPEN CURTAIN
  42. 2010  FOR X = 19 TO 0  STEP  -1
  43. 2020  COLOR= 0
  44. 2030  VLIN 0,39 AT X
  45. 2035  VLIN 0,39 AT (39 -X)
  46. 2036  FOR DE = 1 TO 10: NEXT 
  47. 2040  NEXT X
  48. 2050  RETURN