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