Groups > comp.sys.apple2.programmer > #2173

AppleSoft Basic Copy Protection Help?

Newsgroups	comp.sys.apple2.programmer
Date	2016-01-25 04:09 -0800
Message-ID	<1cabe2ed-ff75-4555-a3f8-e948376d913f@googlegroups.com> (permalink)
Subject	AppleSoft Basic Copy Protection Help?
From	applepcsoftware@gmail.com

Show all headers | View raw

I have a problem. I can't get my basic applesoft program to compile. It's a simple hangman game but my question is how can I prevent the list from showing? for example say I have this: 

100  REM  PRODOS STARTUP & SELECTOR
 102  REM  WITH BYE & ONERR & CAT
 105  REM  APPLETECH, 1987-1999
 107  REM 
 110  REM  NEW PROGRAM NAMES GO
 120  REM  IN DATA STATEMENTS IN
 130  REM  LINES AFTER 1000 AND
 140  REM  BEFORE 1900.
 150  REM  THE PROGRAM'S NAME IS
 160  REM  FIRST. A DESCRIPTION
 170  REM  CAN FOLLOW A SPACE.
 172  REM 
 173  REM  EXAMPLES:
 175  REM  1010 DATA UTIL.SYSTEM (COPY II PLUS 7.1)
 177  REM  1020 DATA BLOCK.WARDEN
 200  GOTO 250
 210  REM  GET KEY
 220 ZZ =  PEEK (49152): IF ZZ < 128 THEN 220
 230 K = ZZ - 128:ZZ =  PEEK (49168): IF K > 95 THEN K = K - 32
 240  PRINT : RETURN 
 250  TEXT : HOME 
 260 E$ = "EXIT":H = 2:OO = 0
 270  PRINT  CHR$ (4)"PREFIX": INPUT "";P$
 280  FOR I = 0 TO 20: READ X$: IF X$ <  > E$ THEN  NEXT I
 290 F =  FRE (0):F = I
 300  DIM C$(F)
 310  RESTORE : FOR I = 0 TO F: READ C$(I): NEXT I
 320 V =  INT ((17 - F) / 2): IF V < 1 THEN V = 1
 330  HOME :VV = V + 4:S = VV + 2:O = S:E = S + F: PRINT : VTAB VV: HTAB H - 1: PRINT " WELCOME TO "P$"!": VTAB S: FOR I = 0 TO F: HTAB H: PRINT " "C$(I): NEXT I
 340 C = O - S: VTAB O: HTAB H: INVERSE : PRINT " "C$(C)" ": NORMAL :J = O: GOSUB 220: IF K = 10 THEN O = O + 1: IF J = E THEN O = S
 350  IF K = 11 THEN O = O - 1: IF J = S THEN O = E
 360  IF K <  > 13 THEN  VTAB J: HTAB H: PRINT " "C$(C)" ": GOTO 340
 370  IF C$(C) = E$ THEN  VTAB 24: INVERSE : PRINT " "E$" ";: NORMAL : FOR I = 1 TO 21: PRINT : NEXT I: END 
 380  IF C$(C) = "BYE" THEN  PRINT  CHR$ (4)"BYE"
 390  IF C$(C) = "CAT" THEN  HOME : PRINT  CHR$ (4)"CAT": GOTO 470
 400  IF C$(C) = "HARD DISK" THEN  PRINT  CHR$ (4)"PR#7"
 410 X$ = C$(C):K =  LEN (X$): FOR I = 1 TO K: IF  MID$ (X$,I,1) <  > " " THEN  NEXT I: GOTO 430
 420 X$ =  LEFT$ (X$,I - 1)
 430  ONERR  GOTO 450
 440  HOME : PRINT  CHR$ (4)"-"X$: END 
 450  HOME : VTAB 10: PRINT "COULD NOT START "X$"!";
 460  PRINT  CHR$ (7); CHR$ (7): PRINT : PRINT : POKE 216,0
 470  PRINT "PRESS ANY KEY": GOSUB 220: GOTO 330
 1000  REM PROGRAM NAMES
 1900  DATA CAT
 1910  DATA BYE
 1999  DATA EXIT
 2000  NEW : PRINT "NOT AVAILABLE..." :  POKE 214,255 : TEXT : HOME : D$ =  CHR$ (4): REM          CTRL-D : INT : PRINT "CREATED BY APPLETECH"

When I type List it list the program STARTUP.bas code. How can I make it where it just prints the last or first line "PRINT "CREATED BY APPLETECH"

Thank you :)

Back to comp.sys.apple2.programmer | Previous | Next — Next in thread | Find similar | Unroll thread

Thread

AppleSoft Basic Copy Protection Help? applepcsoftware@gmail.com - 2016-01-25 04:09 -0800
  Re: AppleSoft Basic Copy Protection Help? mverpelli@libero.it - 2016-01-25 04:36 -0800
    Re: AppleSoft Basic Copy Protection Help? applepcsoftware@gmail.com - 2016-01-25 05:12 -0800
      Re: AppleSoft Basic Copy Protection Help? mverpelli@libero.it - 2016-01-25 06:42 -0800
        Re: AppleSoft Basic Copy Protection Help? applepcsoftware@gmail.com - 2016-01-25 08:00 -0800
          Re: AppleSoft Basic Copy Protection Help? mverpelli@libero.it - 2016-01-25 08:22 -0800
          Re: AppleSoft Basic Copy Protection Help? gids.rs@sasktel.net - 2016-01-25 08:47 -0800
  Re: AppleSoft Basic Copy Protection Help? michael.pohoreski@gmail.com - 2016-01-25 10:56 -0800
    Re: AppleSoft Basic Copy Protection Help? michael.pohoreski@gmail.com - 2016-01-25 11:06 -0800
      Re: AppleSoft Basic Copy Protection Help? applepcsoftware@gmail.com - 2016-01-25 13:12 -0800
        Re: AppleSoft Basic Copy Protection Help? gids.rs@sasktel.net - 2016-01-29 20:54 -0800
      Re: AppleSoft Basic Copy Protection Help? applepcsoftware@gmail.com - 2016-01-25 13:15 -0800
        Re: AppleSoft Basic Copy Protection Help? qkumba <peter.ferrie@gmail.com> - 2016-01-25 15:48 -0800
          Re: AppleSoft Basic Copy Protection Help? michael.pohoreski@gmail.com - 2016-01-28 12:29 -0800
            Re: AppleSoft Basic Copy Protection Help? qkumba <peter.ferrie@gmail.com> - 2016-01-29 06:57 -0800
              Re: AppleSoft Basic Copy Protection Help? Michael Pohoreski <michael.pohoreski@gmail.com> - 2016-01-29 14:33 -0800
        Re: AppleSoft Basic Copy Protection Help? michael.pohoreski@gmail.com - 2016-01-28 12:29 -0800

csiph-web