home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.B.po / GAMES:BASIC.2 / STARTUP.bas < prev    next >
BASIC Source File  |  2010-05-14  |  3KB  |  50 lines
  1. 1  REM *** BIG RED APPLE CLUB
  2. 3  REM *** VERSION 1.4
  3. 4  REM *** VERSION A (NORMAL)
  4. 5 :
  5. 10 D$ =  CHR$(4): PRINT D$;"PR#0": TEXT : HOME : POKE 216,0
  6. 15  PRINT  CHR$(21)
  7. 20 V1 = 0: GOSUB 7000
  8. 30  INVERSE :A$ = "+": GOSUB 800: NORMAL 
  9. 40  VTAB 14:A$ = "DISTRIBUTED BY": GOSUB 300: VTAB 6:A$ = ISSUE$: GOSUB 300: VTAB 7:A$ = DISKNAME$: GOSUB 300
  10. 50  VTAB 16:A$ = CLUB$: GOSUB 300:A$ = "423 NORFOLK AVENUE": GOSUB 300:A$ = "NORFOLK, NE  68701": GOSUB 300
  11. 60  HTAB 8: GOSUB 5000
  12. 70  HOME : INVERSE :A$ = " ": GOSUB 810: NORMAL : VTAB 2: HTAB 2: INVERSE : FOR V1 = 1 TO 5: PRINT " ";: NEXT : HTAB 35: FOR V1 = 1 TO 5: PRINT " ";: NEXT : NORMAL 
  13. 75  VTAB 1: INVERSE :A$ = ":                        :": GOSUB 300: VTAB 3: GOSUB 300: NORMAL 
  14. 77 V1 = 13 -( LEN(ISSUE$)/2):I2$ = IS$: FOR V2 = 1 TO V1:I2$ = " " +I2$ +" ": NEXT : IF  LEN(I2SUE$)/2 < > INT( LEN(I2SUE$)/2)  THEN I2SUE$ = I2SUE$ +" "
  15. 80  VTAB 2: INVERSE :A$ = I2SUE$: GOSUB 300: NORMAL : VTAB 23:A$ = CLUB$: GOSUB 300
  16. 90  FOR V1 = T1 TO T2: HTAB 5: VTAB 5 +V1 -T1: INVERSE 
  17. 100  IF V1 >9  THEN  PRINT  CHR$(55 +V1);: GOTO 120
  18. 110  PRINT V1;
  19. 120  NORMAL : PRINT  TAB( 10);TITLE$(V1,1): NEXT 
  20. 130  VTAB 21: HTAB 10: PRINT "ENTER SELECTION ";: GET A$: PRINT A$
  21. 132  IF  ASC(A$) >96  THEN A$ =  CHR$( ASC(A$) -32)
  22. 135  IF A$ > = "A"  AND A$ < = "Z"  THEN A$ =  STR$( ASC(A$) -64 +9)
  23. 140 PK =  INT( VAL(A$)): IF PK <1  OR PK >W  THEN  CALL  -198: GOTO 130
  24. 150  IF PK = W  THEN  TEXT : HOME : END 
  25. 151  VTAB 2: INVERSE :A$ = "                        ": GOSUB 300: NORMAL 
  26. 152  VTAB 2: INVERSE :A$ = TITLE$(PK,1): GOSUB 300: NORMAL 
  27. 155  POKE 34,3: POKE 35,22: POKE 32,1: POKE 33,36: VTAB 5: HTAB 10: HOME : POKE 32,5: VTAB 6
  28. 160  IF PK <AR  THEN  FOR V1 = 1 TO 14: PRINT ARTICAL$(PK,V1): NEXT 
  29. 161  IF PK = 15  OR PK = W  THEN  TEXT : GOTO 70
  30. 162  VTAB 21: PRINT "PRESS ";: INVERSE : PRINT "M";: NORMAL : PRINT " FOR MAIN MENU ";: INVERSE : PRINT "R";: NORMAL : PRINT " TO RUN ";
  31. 163  GET A$: IF  ASC(A$) >96  THEN A$ =  CHR$( ASC(A$) -32)
  32. 164  IF A$ < >"M"  AND A$ < >"R"  THEN  CALL  -198: GOTO 163
  33. 165  PRINT A$: IF A$ = "R"  THEN  TEXT : HOME : PRINT D$: PRINT D$TITLE$(PK,0)TITLE$(PK,1)
  34. 170  TEXT : GOTO 70
  35. 299  TEXT : HOME : END 
  36. 300  HTAB (21 - LEN(A$)/2): PRINT A$: RETURN : REM  *** CENTER LINE 
  37. 400  VTAB 21: HTAB 3: PRINT "M = MENU   R = RUN PROGRAM ";: GET A$: PRINT A$
  38. 410  IF A$ < >"M"  AND A$ < >"R"  THEN  CALL  -198: GOTO 400
  39. 420  VTAB 3: HOME : RETURN 
  40. 799  REM *** PRINT BORDERS 
  41. 800  VTAB 1: FOR X = 1 TO 40: PRINT A$;: NEXT 
  42. 810  VTAB 23: FOR X = 1 TO 40: PRINT A$;: NEXT : VTAB 2: FOR X = 2 TO 22: HTAB 1: PRINT A$;: HTAB 40: PRINT A$;: NEXT : RETURN 
  43. 5000  POKE  -16368,0: VTAB 22: INVERSE : PRINT "PRESS ANY KEY TO CONTINUE ";: NORMAL : GET PT$: PRINT PT$: HOME : VTAB 6: RETURN 
  44. 6999  REM ***READ TEXT FILE
  45. 7000  PRINT D$: PRINT D$"OPEN HELLO.TXT": PRINT D$"READ HELLO.TXT": INPUT ARTICLE: DIM TITLE$(AR,1): FOR V1 = 1 TO AR: INPUT TITLE$(V1,0): INPUT TITLE$(V1,1): NEXT : INPUT ISSUE$: INPUT DISKNAME$: INPUT FILE$
  46. 7010  DIM ARTICLE$(AR -1,14): FOR V2 = 1 TO AR -1: FOR V1 = 1 TO 14: INPUT ARTICLE$(V2,V1): NEXT : NEXT 
  47. 7020  PRINT D$: PRINT D$"CLOSE"
  48. 7030 T1 = 1:W = AR:T2 = W
  49. 7040 CLUB$ = " BIG RED COMPUTER CLUB "
  50. 7050  RETURN