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.
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?
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.