home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib25a.dsk / OCTOBER.1985 / WINDOW.DEMO1.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  34 lines
  1. 10  REM **********************
  2. 20  REM *    WINDOW.DEMO1    *
  3. 30  REM *    BY PAUL NICK    *
  4. 40  REM * COPYRIGHT (C) 1985 *
  5. 50  REM * BY MICROSPARC, INC *
  6. 60  REM * CONCORD, MA  01742 *
  7. 70  REM **********************
  8. 80  PRINT  CHR$(4)"BRUN WINDOW.MAGIC": CALL 35816
  9. 90  IF  PEEK(48896) = 76  THEN  POKE 115,0: POKE 116, PEEK(116) -4
  10. 100  REM  REMOVE 'REM' FROM ABOVE LINE FOR PRODOS
  11. 110  &  DEF  PEEK(38380),1,20,3,170
  12. 120  &  HOME 
  13. 130  &  PRINT "   WINDOW MAGIC  ";
  14. 140  FOR X =  PEEK(38380) TO 8  STEP  -1: &  GOTO X,1: NEXT 
  15. 150  &  DEF 14,240,3,16,32
  16. 160  &  HOME 
  17. 170  &  PRINT "BY PAUL NICK";
  18. 180  FOR Y = 241 TO 255: &  GOTO 14,Y: NEXT 
  19. 190  FOR Y = 0 TO 4: &  GOTO 14,Y: NEXT 
  20. 200  &  DEF 234,19,24,5,170
  21. 210  &  HOME : &  PRINT "  COPYRIGHT (C) 1985": &  PRINT "  BY MICROSPARC, INC": &  PRINT "  CONCORD, MA  01742";
  22. 220  FOR X = 235 TO 255: &  GOTO X,19: NEXT 
  23. 230  FOR X = 0 TO 5: &  GOTO X,19: NEXT 
  24. 240  &  DEF 18,12,15,6,64: &  HOME : &  PRINT : &  PRINT "PRESS SPACE": &  PRINT "TO  CONTINUE";: &  INPUT A$,7,32
  25. 250  &  DEL 
  26. 260  &  DEF 5,5,25,15,43
  27. 270  &  HOME : &  PRINT "INPUT CONTROLS:": &  PRINT "  ^D--DELETE CHAR": &  PRINT "  ^I--INSERT CHAR": &  PRINT "  ^Q--ACCEPT TO CURSOR": &  PRINT "  ^B--TO BEGINNING": &  PRINT "  ^N--TO END"
  28. 280  &  PRINT : &  PRINT "TYPE ANYTHING:"
  29. 290  &  PRINT : &  PRINT ">";: &  INPUT A$,0,15
  30. 300  &  PRINT : &  PRINT "YOU ENTERED:": &  PRINT : &  PRINT A$;
  31. 310  FOR I = 1 TO 8: FOR J = 1 TO 400: NEXT : &  PRINT : NEXT 
  32. 320  &  PRINT "PRESS <RETURN> TO QUIT";
  33. 330  POKE  -16368,0: WAIT  -16384,128
  34. 340  FOR I = 4 TO 1  STEP  -1: FOR J = 1 TO 800: NEXT : &  ON I: &  DEL : NEXT