home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / BAS_SUB.ZIP / SCRN-WK.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-04-19  |  2.3 KB  |  51 lines
  1. 5  CLS:LOCATE 4,1:GOSUB 62180
  2. 10  PRINT"          KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  3. 20  PRINT"          OPEN          ********** SCREEN MENU **********           OPEN"
  4. 21  PRINT"          TOTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENRANDOMIZE"
  5. 22  PRINT"          OPEN                                                      OPEN"
  6. 23  PRINT"          OPEN 1)    CREATE A NEW SCREEN                            OPEN"
  7. 30  PRINT"          OPEN 2)    USE SCREEN.BLK TO CREATE ANOTHER SCREEN        OPEN"
  8. 40  PRINT"          OPEN 3)    EDIT EXISTING SCREEN                           OPEN"
  9. 41  PRINT"          OPEN 4)    EXIT                                           OPEN"
  10. 42  PRINT"          OPEN                                                      OPEN"
  11. 43  PRINT"          OPEN                                                      OPEN"
  12. 44  PRINT"          OPEN                                                      OPEN"
  13. 50  PRINT"          SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  14. 55  LOCATE 13,12:PRINT"( )";:LOCATE 13,13,1
  15. 56  A$=INKEY$:IF A$="" THEN 56
  16. 57  IF LEN(A$)>1 THEN 56
  17. 58  N=VAL(A$):IF N<1 OR N>4 THEN 56
  18. 59  LOCATE 13,13:PRINT A$;
  19. 60  LOCATE 7+N,15:PRINT"*";
  20. 61  ON N GOTO 100,200,300,400
  21. 100  LOCATE 13,19:PRINT"ENTER THE NAME OF THE NEW SCREEN TO BE CREATED:";
  22. 110  LOCATE 14,19:GOSUB 500
  23. 120  CLS:LINE INPUT A$
  24. 130  DEF SEG = TOSEG%:BSAVE SCR$,0,&H1000:DEF SEG: GOTO 5
  25. 200  LOCATE 13,19:PRINT"ENTER THE NAME OF THE SCREEN TO BE CREATED:";
  26. 205  LOCATE 14,19:GOSUB 500
  27. 210  CLS:DEF SEG = TOSEG%:BLOAD"B:SCREEN.BLK",0:DEF SEG:LOCATE 10,10
  28. 220  COLOR 7,0:LINE INPUT A$
  29. 230  DEF SEG = TOSEG%:BSAVE SCR$,0,&H1000:DEF SEG: GOTO 5
  30. 300  LOCATE 13,19:PRINT"ENTER THE NAME OF THE EXISTING SCREEN:";
  31. 310  LOCATE 14,19:GOSUB 500
  32. 320  CLS:DEF SEG = TOSEG%:BLOAD SCR$,0:DEF SEG:LOCATE 10,10
  33. 330  COLOR 7,0:LINE INPUT A$
  34. 340  DEF SEG = TOSEG%:BSAVE SCR$,0,&H1000:DEF SEG: GOTO 5
  35. 400  CLS:NEW
  36. 500  DEF SEG = &H40: POKE &H17,&H40: DEF SEG
  37. 505  A$=INKEY$: IF A$="" THEN 505
  38. 510  IF LEN(A$)=2 THEN 500
  39. 515  A = ASC(A$)
  40. 520  IF A=32 OR A=33 OR (A>34 AND A<42) OR A=45 OR A=46 OR (A>47 AND A<59) OR (A>63 AND A<91) OR A=94 OR A=95 OR A=126 THEN SCR$=SCR$+A$:B$=SCR$: GOTO 550
  41. 530  IF A=13 THEN RETURN
  42. 535  IF A=27 THEN RUN 5
  43. 540  IF A=8 AND LEN(SCR$)>0 THEN SCR$=LEFT$(SCR$,LEN(SCR$)-1):B$=SCR$+" ":GOTO 550
  44. 545  GOTO 500
  45. 550  LOCATE 14,19:PRINT B$;:LOCATE 14,19+LEN(SCR$)
  46. 560  GOTO 500
  47. 62170  '**************************EQUIPMENT CHECK*******************************
  48. 62180  DEF SEG = &H40: TOSEG% = &HB000 - ((PEEK(&H10) AND &H30)<>&H30) * &H800
  49. 62190  DEF SEG: RETURN
  50. 62199  '************************************************************************
  51.