Apple Cat "Answering Machine" Basic Listing

3 posts / 0 new
Last post
lucidphreak's picture
Offline
Last seen: 1 month 1 week ago
Joined: Nov 14 2019 - 19:51
Posts: 15
Apple Cat "Answering Machine" Basic Listing

This was talked about in posts here as well as on AtariAge.com .. I stumbled across this this morning so I thought I would share.

 

10  REM  -> A WARE-WOLF PRODUCTION 20  POKE 49314,0: POKE 49313,040 S = 38142:P = 38141:M = 33056:T = 33055:C = 22357:A = 38131:D$ =  CHR$ (13) +  CHR$ (4)70 KB =  - 16384:PR =  - 16211:CC = 4916880  HOME(: PRINT CA90  IF  PEEK (KB) = 195 THEN ZZ =  PEEK (CC): RUN110  IF  PEEK (KB) = 212 THEN ZZ =  PEEK (CC): GOTO 160120  IF  PEEK (KB) = 209 THEN  PRINT  CHR$ (8): POKE 49168,0: END130  IF  PEEK (PR) / 2 =  INT ( PEEK (PR) / 2) THEN 90140  PRINT "Sam:";: INVERSE : PRINT "Receiving Call": NORMAL160  POKE 49314,2: FOR X = 1 TO 3500: NEXT170 SA$ = "HELLO.THERE.YOU HAVE.REACHED.THE.WARE.WOLFS.COMPUTER": GOSUB 400: CALL A:SA$ = "HE.IS.NOT HERE.NOW.BUUT.LUCKILY.ME.AND.MY FRIENDS.ARE HERE.TO.TAKE YOUR.MESSAGE": CALL A180 SA$ = "NOW.LISTEN UP.SUNNY.IF.YOU DON'T.LISTEN.WE.MIGHT.HAVE TO.KICK YOUR ASS": GOSUB 360: CALL A:SA$ = "AFTER.WE.STOP.TALKING.YOU.WILL HEAR.A.BEEP.": GOSUB 340: CALL A190 SA$ = "I.WON'T.HANG.UP.TILL.YOU.ARE FINISHED.LEAVING.YOUR.MESSAGE": GOSUB 320: CALL A200 SA$ = "REMEMBER.TO.WAIT.FOR.THE.BEEP.": GOSUB 380: CALL A210 SA$ = "BYE": GOSUB 300: CALL A: GOSUB 320: CALL A: GOSUB 340: CALL A: GOSUB 360: CALL A: GOSUB 380: CALL A: GOSUB 400: CALL A:SA$ = "P...": FOR X = 1 TO 900: NEXT : POKE 49313,31: CALL A220  FOR Z = 1 TO 190:V = ( PEEK ( - 16224) - 15): IF ((V / 16) / 2) <  >  INT ((V / 16) / 2) THEN  NEXT230  PRINT Z: IF Z =  > 190 THEN 250240  GOTO 220250 SA$ = "THANKS FOR THE MESSAGE": CALL A260  POKE 49314,0: POKE 49313,0270 CA = CA + 1280  GOTO 40300  REM         ***ELF***310  POKE T,110: POKE M,160: CALL C: POKE S,72: POKE P,64: RETURN320  REM        ***ROBOT***330  POKE T,190: POKE M,190: CALL C: POKE S,92: POKE P,60: RETURN340  REM      ***STUFFY GUY***350  POKE T,110: POKE M,105: CALL C: POKE S,82: POKE P,72: RETURN360  REM       ***OLD LADY***370  POKE T,145: POKE M,145: CALL C: POKE S,82: POKE P,32: RETURN380  REM         ***E.T.***390  POKE T,150: POKE M,200: CALL C: POKE S,100: POKE P,64: RETURN400  REM        ***REGULAR***410  POKE T,128: POKE M,128: CALL C: POKE S,74: POKE P,64: RETURN

    To use this program first, EXEC it into basic and save it. Next boot up SamKnobs and select the text0input version. Now when run this program will put a 0in the upper-left corner of the screen. This is how many calls you have had sofar. To test the program just hit "T" to clear the call count hkt "C" to quithit "Q". It after the little greeting message it waits until there is no soundfor about 6-7 seconds. So people can leave messages of unlimited length. Iincluded the pokes for different voices so you can be creative with yourmessages.

lucidphreak's picture
Offline
Last seen: 1 month 1 week ago
Joined: Nov 14 2019 - 19:51
Posts: 15
hmmm the code listing looks

hmmm the code listing looks right when I post it but linefeeds get removed when I post it..

 

Can someone let me know what I need to do to fix this?

macnoyd's picture
Offline
Last seen: 5 hours 7 min ago
Joined: Oct 15 2012 - 08:59
Posts: 702
Here is what I can make of it ...

REM AppleCat Answering machine

 

10 REM  -> A WARE-WOLF PRODUCTION

20 POKE 49313,0: POKE 49314,0

40 S = 38142: P = 38141: M = 33056: T = 33055: C = 22357: A = 38131: D$ =  CHR$(13) + CHR$(4)

70 KB = - 16384: PR = - 16211: CC = 49168

80 HOME: PRINT CA

90 IF PEEK (KB) = 195 THEN ZZ = PEEK (CC): RUN

110 IF PEEK (KB) = 212 THEN ZZ = PEEK (CC): GOTO 160

120 IF PEEK (KB) = 209 THEN  PRINT CHR$(8): POKE 49168,0: END

130 IF PEEK (PR) / 2 =  INT ( PEEK (PR) / 2) THEN 90

140 PRINT "Sam:";: INVERSE: PRINT "Receiving Call": NORMAL

160 POKE 49314,2: FOR X = 1 TO 3500: NEXT

170 SA$ = "HELLO THERE. YOU HAVE REACHED THE WAREWOLFS COMPUTER": GOSUB 400: CALL A: SA$ = "HE'S NOT HERE NOW BUT LUCKILY ME AND MY FRIENDS ARE HERE TO TAKE YOUR MESSAGE": CALL A

180 SA$ = "NOW LISTEN UP SUNNY. IF YOU DON'T LISTEN, WE MIGHT HAVE TO KICK YOUR ASS": GOSUB 360: CALL A: SA$ = "AFTER WE STOP TALKING, YOU WILL HEAR A BEEP.": GOSUB 340: CALL A

190 SA$ = "I WON'T HANG UP UNTILL YOU ARE FINISHED LEAVING YOUR MESSAGE": GOSUB 320: CALL A

200 SA$ = "REMEMBER TO WAIT FOR THE BEEP.": GOSUB 380: CALL A

210 SA$ = "BYE": GOSUB 300: CALL A: GOSUB 320: CALL A: GOSUB 340: CALL A: GOSUB 360: CALL A: GOSUB 380: CALL A: GOSUB 400: CALL A:SA$ = "P...": FOR X = 1 TO 900: NEXT: POKE 49313,31: CALL A

220 FOR Z = 1 TO 190: V = (PEEK(-16224)-15): IF ((V/16)/2) < > INT ((V/16)/2) THEN NEXT

230 PRINT Z: IF Z = > 190 THEN 250

240 GOTO 220

250 SA$ = "THANKS FOR THE MESSAGE": CALL A

260 POKE 49314,0: POKE 49313,0

270 CA = CA + 1:

280 GOTO 40

300 REM ***ELF***

310 POKE T,110: POKE M,160: CALL C: POKE S,72: POKE P,64: RETURN

320 REM  ***ROBOT***

330 POKE T,190: POKE M,190: CALL C: POKE S,92: POKE P,60: RETURN

340 REM  ***STUFFY GUY***

350 POKE T,110: POKE M,105: CALL C: POKE S,82: POKE P,72: RETURN

360 REM  ***OLD LADY***

370 POKE T,145: POKE M,145: CALL C: POKE S,82: POKE P,32: RETURN

380 REM  ***E.T.***

390 POKE T,150: POKE M,200: CALL C: POKE S,100: POKE P,64: RETURN

400 REM  ***REGULAR***

410 POKE T,128: POKE M,128: CALL C: POKE S,74: POKE P,64: RETURN

 

450 REM To use this program first, EXEC it into basic and save it.

460 REM Next boot up SamKnobs and select the text 0 input version.

470 REM Now when this program is running, it puts a 0 in the upper-left corner of the screen.

480 REM This is how many calls you have had so far.

490 REM To test the program, just hit "T". 

500 REM To clear the call count, hit "C".

510 REM To quit hit "Q".

520 REM After the little greeting message it waits until there is no sound for about 6-7 seconds.

530 REM People can leave messages of unlimited length.

540 REM I included the pokes for different voices so you can be creative with your messages.

Log in or register to post comments