home *** CD-ROM | disk | FTP | other *** search
- 100 REM "COMPUTERS CAN'T"
- 200 REM BY: ALICE LAWRENCE
- 300 REM RESOURCE TEACHER/COUNSELLOR
- 400 REM LORD NELSON SENIOR SCHOOL
- 500 :
- 600 GOSUB13600:REM DIRECTIONALS
- 700 GOSUB11400:REM COMPUTER
- 800 S=1:GOSUB13400
- 900 PRINTLEFT$(CC$,20)
- 1000 PRINTTAB(17)"CAN'T"
- 1100 S=1:GOSUB13400
- 1200 READST$
- 1300 IFST$="WRITE A PROGRAM."THEN6800
- 1400 PRINTLEFT$(CC$,22)
- 1500 T=40-LEN(ST$)
- 1600 PRINTTAB(T/2)ST$
- 1700 S=1:GOSUB13400
- 1800 PRINTLEFT$(CC$,23)BL$
- 1900 GOTO1200
- 2000 DATAKEEP YOU WARM.
- 2100 DATALICK A STAMP.
- 2200 DATAWALK THE DOG.
- 2300 DATASMILE MEANINGFULLY.
- 2400 DATAFIND A COP.
- 2500 DATAWATCH T.V.
- 2600 DATATAKE EXAMS FOR YOU.
- 2700 DATAGRIND MEAT.
- 2800 DATALOSE WEIGHT.
- 2900 DATAHAVE A DRINK.
- 3000 DATABOB FOR APPLES.
- 3100 DATABAKE A PIE.
- 3200 DATARUB IT'S STOMACH & TAP IT'S HEAD.
- 3300 DATATYPE.
- 3400 DATAGIVE BLOOD.
- 3500 DATAHAVE IT'S HAIR DONE.
- 3600 DATASPIT.
- 3700 DATASCRATCH THE CAT'S EARS.
- 3800 DATAJOG.
- 3900 DATATAKE OUT THE GARBAGE.
- 4000 DATAFIND YOUR GOLD CROSS PEN.
- 4100 DATALEND YOU MONEY.
- 4200 DATAAPPRECIATE A FRIEND.
- 4300 DATAKILL A COCKROACH.
- 4400 DATATELL YOU YOUR FLY IS OPEN.
- 4500 DATATHINK.
- 4600 DATAPAY YOUR TAXES.
- 4700 DATAEAT A HOT FUDGE SUNDAE WITH NUTS.
- 4800 DATABLESS YOU.
- 4900 DATAJOIN L.C.U.C.
- 5000 DATAYODEL.
- 5100 DATAWRITE A COMPUTER SONG.
- 5200 DATASEND A VALENTINE.
- 5300 DATAKNIT A SWEATER.
- 5400 DATAMAKE SMALL TALK.
- 5500 DATAGIVE MOUTH TO MOUTH RESUSCITATION.
- 5600 DATABELLY DANCE.
- 5700 DATAHANG WALLPAPER STRAIGHT THE FIRST TIME.
- 5800 DATALOVE A CHILD.
- 5900 DATAVACUUM THE POOL.
- 6000 DATAWORRY.
- 6100 DATAGET RID OF RING AROUND THE COLLAR.
- 6200 DATA RAKE LEAVES.
- 6300 DATALAUGH.
- 6400 DATASEND FLOWERS.
- 6500 DATACARE WHO SHOT J.R.
- 6600 DATABALANCE YOUR BUDGET.
- 6700 DATAWRITE A PROGRAM.
- 6800 GETN$:IFN$=""THEN6800
- 6900 T=5
- 7000 PRINT"[147]"
- 7100 PRINTTAB(T)" [223][146] [146] [146] [146]"
- 7200 PRINTTAB(T)" [146] [146] [146] [146] [146]"
- 7300 PRINTTAB(T)" [146] [146] [146] [146] [146]"
- 7400 PRINTTAB(T)" [146] [169] [146] [146] [146]"
- 7500 PRINTTAB(T)" [146][223][146] [146] [146] [146]"
- 7600 PRINTTAB(T)" [146] [146] [146] [146] [146]"
- 7700 PRINTTAB(T)" [146] [146] [146] [146] [146]"
- 7800 PRINTTAB(T)" [146] [146] [146] [146] [146]"
- 7900 PRINTTAB(T)" [146][169] [223] [146][169] [146]"
- 8000 GETC$:IFC$=""THEN8000
- 8100 GOSUB11400
- 8200 S=2:GOSUB13400
- 8300 PRINTLEFT$(CC$,20)
- 8400 PRINTTAB(18)"CAN"
- 8500 GETS$:IFS$=""THEN8500
- 8600 PRINTTAB(8)"HELP YOU DESIGN A PROGRAM.
- 8700 [161]C$:[139]C$[178]""[167]8700
- 8800 [153]"LOAD"
- 8900 [153]"LOAD THIS PROGRAM USES BASIC ONLY,"
- 9000 [161]S$:[139]S$[178]""[167]9000
- 9100 S[178]1:[141]13400:[153][163]15)"INCLUDING:"
- 9200 [153]
- 9300 [161]S$:[139]S$[178]""[167]9300
- 9400 [135]ST$
- 9500 [139]ST$[178]"III"[167]S[178]3:[141]13400:[153]"LOAD":[128]
- 9600 T[178]40[171][195](ST$)
- 9700 [153][163]T[173]2)ST$
- 9800 [161]S$:[139]S$[178]""[167]9800
- 9900 [153]
- 10000 [137]9400
- 10100 [131]GET
- 10200 [131]TAB
- 10300 [131]REM
- 10400 [131]GOTO
- 10500 [131]PRINT
- 10600 [131]GOSUB
- 10700 [131]LEFT$
- 10800 [131]READ & DATA
- 10900 [131]IF.....THEN
- 11000 [131]END
- 11100 [131]III
- 11200 [137]11200
- 11300 [143]:THE COMPUTER
- 11400 T[178]6:[153]"LOAD"
- 11500 [153][163]T)" (null)TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)
- 11600 PRINTTAB(T)" [165][160][213][195][195][195][195][195][195][195][195][195][195][195][195][201] [167]
- 11700 [153][163]T)" FN PEEK LEFT$ THEN
- 11800 PRINTTAB(T)" [165] [194] COMPUTERS [200] [167]
- 11900 [153][163]T)" FN PEEK LEFT$ THEN
- 12000 PRINTTAB(T)" [165] [202][198][198][198][198][198][198][198][198][198][198][198][198][203] [167]
- 12100 [153][163]T)" (null)TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOSQR
- 12200 PRINTTAB(T)" C C64 C[146]
- 12300 [153][163]T)" THENTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(FN
- 12400 PRINTTAB(T)" [206][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][205]
- 12500 [153][163]T)" (null) SINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINSINWAIT SINSINCLOSE(null)
- 12600 PRINTTAB(T)" [206] [191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][146] [191][191][191] [205]
- 12700 [153][163]T)"(null) (null)
- 12800 PRINTTAB(T)"[207][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][208]
- 12900 [153][163]T)"TAB(TAB(TAB( WAITTAB(TAB(TAB(
- 13000 PRINTTAB(T)" [162] [162][162][162][162][162][162][162][162][162][162][162][162][162] [162]
- 13100 [142]
- 13200 :
- 13300 [143] DELAY ROUTINE
- 13400 [129] W[178]1[164]918[172]S:[130]W:[142]
- 13500 :
- 13600 CC$[178]""
- 13700 D$[178]""
- 13800 U$[178]"ONONONONONONONONONONONONONONONONONONONONONONONONON"
- 13900 R$[178]""
- 14000 L$[178]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD"
- 14100 BL$[178]" "
- 14200 [142]
-