home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / BABY-CARE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.0 KB  |  81 lines
  1. 100 POKE53272,23:POKE53280,1:POKE53281,1:GOSUB 830
  2. 110 B$="                                       "
  3. 120 V$=""
  4. 130 PW=.05:J=1
  5. 140 PRINT"[147][212][200][197][160][207][194][202][197][195][212][160][207][198][160][212][200][197][160][199][193][205][197][160][201][211][160][212][207][160][205][193][216][201][205][201][218][197][160][160][160][212][215][207][160][198][193][195][212][207][210][211]: 1. [217][207][213][210][160][211][193][206][201][212][217][144]
  6. 150 [153]"             2.CLOSE(null)(null)(null)(null) (null)RIGHT$(null)VAL ATN(null)ATNRIGHT$(null)ATNPEEK(null)VALSTOP"
  7. 160 [153]"(null)LEFT$RIGHT$(null)VALCLOSELENATN(null)RIGHT$(null)CHR$CLOSEASC(null)(null)CLOSEPEEKATNPEEK(null).":[153]
  8. 170 [153]"RIGHT$(null)CLOSE(null)(null)STR$VAL(null)CLOSE(null)(null) STR$(null)CLOSE(null)LEFT$RIGHT$(null)CLOSE(null)(null)(null)CLOSEATN(null)STR$CLOSEPEEKATNPEEK(null)CLOSE(null)(null)(null)(null)  CLOSE(null)VALVAL(null)CLOSELEFT$ATN(null)(null)(null).":[153]
  9. 180 [153]:[153]"(null)(null)(null) (null)RIGHT$(null)CLOSE(null)LEFT$VAL(null)CLOSEPEEK(null)(null)LEFT$CLOSEASCATNLEN(null)(null)(null)(null)CLOSE(null)VALATNLENLEFT$CLOSE300 ((null)LEFT$VALPEEKATN(null)CLOSE(null)RIGHT$(null)(null)CLOSE(null)(null)(null)VAL(null)LENLEFT$CLOSE";
  10. 190 [153]"ATNLEN(null)(null)(null)(null)CLOSE(null)LEFT$VALCLOSE(null)LEN(null)VALVAL(null)).":[153]
  11. 200 [153]"(null)(null)(null)CLOSE(null)(null)(null)VALCLOSE(null)LEFT$VAL(null)CLOSEVALRIGHT$(null)LEFT$VAL(null) (null)(null)(null)(null)CLOSE(null)ATN(null)RIGHT$(null)(null)STOP (null)(null)CLOSE(null)(null)(null)(null)(null)RIGHT$(null)VAL ATN(null)ATNRIGHT$(null)ATNPEEK(null)VALSTOP STR$RIGHT$(null)RIGHT$(null)RIGHT$(null)LEFT$";
  12. 210 [153]"CLOSE(null)(null)CLOSE(null)VAL(null)(null).  ((null)LEFT$VAL CLOSEPEEKATN(null)CLOSECHR$(null)ATN(null)LEFT$CLOSESTR$RIGHT$(null)ATN(null)(null)VALATN(null)(null).)":[153]
  13. 220 [153]"LEFT$IT ANY KEY TO CONTINUE"
  14. 230 [161]A$:[139]A$[178]""[137]230
  15. 240 [153]"LOADRIGHT$ASC PEEKATNPEEK(null)CLOSECHR$VAL(null)(null)CLOSE(null)VAL(null)CLOSE(null)(null)CLOSELEFT$(null)(null)CHR$(null)(null)CLOSE(null)(null)(null)(null) (null)ATN(null)RIGHT$(null)(null)STOP  (null)RIGHT$(null)(null) STR$VALLEN(null)VALATN(null)VAL.":[153]
  16. 250 [153]"LEFT$RIGHT$(null) STR$ (null)(null)CLOSESTR$RIGHT$ATN(null)VAL(null)CLOSEPEEKATNPEEK(null).                   LEFT$RIGHT$(null)CLOSEASC (null)(null)CLOSEASCVALVALSTR$CLOSEPEEKATNPEEK(null)."
  17. 260 [153]"LEFT$RIGHT$(null) (null) (null)(null)CLOSE(null)ATN(null)VALCLOSEATNCLOSE(null)ATN(null)CLOSE((null)VAL(null)(null)(null)(null)RIGHT$(null)CHR$CLOSE(null)ATN(null)RIGHT$(null)(null)STOP)."
  18. 270 [153]"LEFT$RIGHT$(null)CLOSE(null) (null)(null)CLOSE(null)(null)(null)(null)CLOSEATN(null)(null)CLOSEATNLEN(null)RIGHT$(null)RIGHT$(null)(null) PEEKVALASC(null)(null)VALCLOSE(null)(null)(null)WAIT       PEEKVALCHR$RIGHT$(null)CLOSEATNCLOSE(null)VAL(null)CLOSEATNLEN(null)RIGHT$(null)RIGHT$(null)(null).WAIT
  19. 280 PRINT:PRINT"[196][201][193][208][197][210][201][206][199], [198][197][197][196][201][206][199][160][207][210][160][206][193][208][208][201][206][199][160][196][197][195][210][197][193][211][197][211] [217][207][213][210] [212][201][205][197] [193][214][193][201][204][193][194][204][197][144]"
  20. 290 PRINT: PRINT"[212][207] [201][206][195][210][197][193][211][197] [212][201][205][197][160][193][214][193][201][204][193][194][204][197][144], [196][207][160][206][207][212][200][201][206][199]"
  21. 300 PRINT:PRINT: PRINT"[208]RESS ANY KEY TO CONTINUE[146]"
  22. 310 GETA$:IFA$=""GOTO310
  23. 320 A$="S":PRINT"[147]   [205]Y     [194]ABY      [194]ABY    [205]Y TIME
  24. 330 [153]" (null)ANITYSTOP   (null)ET      LEFT$    
  25. 8281   ATNVAILABLESTOP"
  26. 340 BH[178]0:S[178]301:BW[178]0:TA[178]96
  27. 350 [139][187](1)[179].03[167]S[178]S[171]20:[153]"PEEKABY JUST SPILLED FOOD ON FLOORSTOP":[137]380
  28. 360 [139] [187](1)[179]PW[167]BW[178]BW[170]40:[153]"PEEKABY HAS JUST WET AGAINSTOP":[137]380
  29. 370 [153]"                                 "
  30. 380 BH[178]BH[170]2:TA[178]TA[170]4:S[178]S[171].05[172]BH[171].03[172]BW
  31. 390 [139]A$[178]"N"[167]BH[178]BH[170]2:S[178]S[170]20:TA[178]TA[171]8
  32. 400 [139]A$[178]"D"[167]BW[178]BW[171]10:BH[178]BH[170]2:S[178]S[171]3:TA[178]TA[171]5
  33. 410 [139]A$[178]"F"[167]BH[178]BH[171]16:S[178]S[171]3:TA[178]TA[171]5
  34. 420 [129]I[178]1[164]2:[161]O$
  35. 430 [139]O$[178]"S"[167]A$[178]"S":[153]"                          "
  36. 440 [139]O$[178]""[176]A$[179][177]"S"[137]480
  37. 450 [139]O$[178]"N"[167]A$[178]"N":[153]"(null)OU ARE NOW NAPPING  STOP"
  38. 460 [139]O$[178]"D    
  39. 8882 D":[153]"(null)OU ARE NOW DIAPERINGSTOP"
  40. 470 [139]O$[178]"F"[167]A$[178]"F":[153]"(null)OU ARE NOW FEEDINGSTOP"
  41. 480 [130]I
  42. 490 [139]BW[179]0[167]BW[178]0
  43. 500 [139]BH[179]0[167]BH[178]0
  44. 510 [139]S[177]319[167]S[178]319
  45. 520 [139]TA[177]319[167]TA[178]319
  46. 530 [153]"                                  "
  47. 540 [153]"ON";[163]2);[181](S);[163]11);BW;[163]19);BH;[163]30);TA
  48. 550 [153][200](V$,7);" (null)ANITYSTOP":A[178]S:[141]710
  49. 560 [153][200](V$,11);" (null)ETNESSSTOP":A[178]BW:[141]710
  50. 570 [153][200](V$,15);" LEFT$UNGERSTOP":A[178]BH:[141]710
  51. 580 [153][200](V$,19);" (null)IME AVAILABLESTOP":A[178]TA:[141]710
  52. 590 [139]J[177]1[137]620
  53. 600 [153]"(null)YPE ANY KEY TO BEGIN"
  54. 610 [161]C$:[139]C$[178]""[137]610
  55. 620 [139]S[179]0[167][153]"(null)OU ARE NOW INSANESTOP AND GAME IS OVER":    
  56. 50176 v[139]TA[177]300[175]S[177]300[167][153]"(null)OU HAVE WON THE '(null)OTHER OF 64'STOP AWARD":[137]660
  57. 640 [139]TA[179]0[167][153]"(null)OU'VE USED UP YOUR YOUR TIME, TOO BAD":[137]670
  58. 650 J[178]J[170]1:[137]350
  59. 660 [153]"(null)EXT TIME YOUR  BABY WILL BE SLIGHTLY    WETTER":PW[178]PW[172]1.1: [137]680
  60. 670 [153]"(null)EXT TIME YOUR BABY WILL BE SLIGHTLY     LESS WET.":PW[178]PW[172].9
  61. 680 [153]"(null)RESS ANY KEY TO START OVER"
  62. 690 [161]C$:[139]C$[178]""[137]690
  63. 700 J[178]J[170]1:[137]320
  64. 710 AI[178][181](A[173]8):AR[178][181](A[171]AI[172]8)
  65. 720 [139]AI[179]0[167][153]"*********************":[151]198,0:[142]
  66. 730 [139]AI[177]0[167][153][200](B$,AI[170]1);"WAIT";
  67. 740 [139]AR[178]1[167][153]"FN";
  68. 750 [139]AR[178]2[167][153]"SGN";
  69. 760 [139]AR[178]3[167][153]"INT";
  70. 770 [139]AR[178]4[167][153]"GET";
  71. 780 [139]AR[178]5[167][153]"ABSWAIT";
  72. 790 [139]AR[178]6[167][153]"+WAIT";
  73. 800 [139]AR[178]7[167][153]"THENWAIT";
  74. 810 [153]"            "
  75. 820 [142]
  76. 830 [153]"STOPLOADPEEKATNPEEK(null)
  77. 840 PRINT"BY [211]ALLY AND [211]TAN [203]LEIN
  78. 845 [153]"64 MODS BY: (null)RIGHT$(null) 3/30/82
  79. 850 FOR I=1 TO 1600:NEXT I
  80. 860 RETURN
  81.