May June 1980 - Commodore Computers

76 76 COMPUTE. MAY/JUNE.1QBO 1980 ISSUE A. 4,
765 PRINT"-*";
PRINT"~";
770 NEXTZ
770 NEXTZ
780 PRINT"r";NA$;
PRINT"f";NA$ ;
782 FORZ=1TOLEN(NA?) FORZ-ITOLEN( NA$ ) ::PRINT"4 PRINTS "; :NEXTZ
783 FORZ=lTO200:NEXTZ
FORZ-IT0200 : NEXTZ
784 IFKK=5THENKK=0:GOTO190
- 5THENKK-0:GOT0190
786 GOTO750 GOT0750
800 PRINT"fi":E=E+l:IFR$="?"THENE=E-l
->A=A+1:GOTO820
~A-A+l:GOT0820
800 PRINT"6":E-E+l:IFR$-"?"THENE-E-l:
801 PRINT" 99999999999999999999
99999999999999999999
801 PRINT"
802 PRINT"
" 5. ~ £ i
803 PRINT"
" 5NNNNNNNNNNMMMMMMMM6
804 PRINT"
" 59999999999999999996
805 PRINT"
" .2..5. NNNNN .6..9.
806 PRINT" .5..5. NM NM ii
807 PRINT" .5..5. M@ l± 3± @N ii
808 PRINT" .5..5. 11 II ii
809 PRINT"
INT" Bl ~ WRONG IVRONG I! i.B.
810 PRINT"
" ~ N $$$$$S 5 5 5555 M i
811 PRINT"
" ~ ~ N??????M ' i
812 PRINT"
" 5. ~ ########
# ~ 6
813 81 3 PRINT" 88888888888888888888
820 PRINT"MttvttvtvtvtvtvHHHHHHH
820 PRINT"
..,~~~ " ;
830 F0RZ=lT0LEN(A$)/2
830 FORZ- I TOLEN(A$ )/2
840 PRINT"-*"; PRINT"4";
845 NEX TZ
845 NEXTZ
850 PRINT"ji";A$;
PRINT"I"; 852 KK=KK+1 KK-KK+l
855 FORZ=1TO200:NEXTZ
FORZ-IT0200:NEXTZ
860 FORZ=1TOLEN{A$)
FORZ-ITOLEN(A$)
865 PRINT"-*";
PRINT"4 ";
870 NEXTZ
870 NEXTZ
880 PRINT"r";A$;
PRINT"f "; ;
882 FORZ-ITOLEN( FORZ=lTOLEN(A$) ) : PRINT"4 PRINT"-*"; "; :NEXTZ: 883 FORZ-IT0 FORZ=lTO200:NEXTZ
200:NEXTZ
884 GOSUB900
885 IFKK-5THENKK-0:GOT0300
IFKK=5THENKK=0:GOTO300
886 GOT0850
886 GOTO850
900 WR$(P WR$(P)=STR$(P)
) -STR$(P)
910 RETURN
7000 DATA 23 , NO , NO , YES , NO,YES , NO ,NO, YES ,
7000 DATA 23,NO,NO,YES,NO,YES,NO,NO,YES,
~YES,YES,NO,NO,NO,YES,YES,'
-.YES, A
79997 9 DATA"
DATA~~
9000 PRINT"6tsUMMARY PRINT"fi^SUMMARY OF RESULTS FOR ~ i
~LESSON
-.LESSON "";LE$
9010 PRTNT"88888888888888888888888888888
901 0 PRINT"88888888888888888888888888888
.,..8....8....8. II
9015
PRINT"tSTUDENT PRINT'^STUDENT'S ' S FIRST NAME: : ";NA$
9020
PRINT'^NUMBER "tNUMBER OF PROBLEr1S: PROBLEMS:";P
9030
PRINT"^NUMBER NT"tNUMBER OF ERRORS:";E
E
9040
PRINT'^COMPUTER NT"tCOMPUTER GAVE ANSI'IER ANSWER:";A
A
9050
PRINT"tTI PRINT'^TIME USED: ";MID$(TI$,3,2);
3 , ;
~" V MINUTE(S) AND ";MID$(TI$,5,2);
~lID$(T I$, 5 ,2);
~" -i" SECOND( (S) S ) "
9060
PRINT"tSPECIFIC PRINT'^SPECIFIC PROBLEMS HI MISSED OR"
9062
PRINT pbtnt"IIIIH##II##I#III###I# ■'*«**«**###**##***#****##**#" ###### "
906 90655
PRINT"ANSWERED RED BY THE COHPUTER"
COMPUTER"
9070
PRINT PPTMT»#****##**####*####*###*#"
"II . #I ###I.IIII I I##II #' ## "
9090
FORZ-ITOP
FORZ=1TOP
91 9100 00 PRINT"L,"i PRINT"x";WR$(Z);">";
i" ~ ";
9105
IFWR$(Z)=""THENPRINT"-*"; ) -""THENPRINT "4 " ;::C=C-1
C-C-l
9110
C-C+l:IFC-10THENC-0 C=C+1:IFC=10THENC=0:PRINT"^"
: PRINT"t "
9120
NEXTZZ
9125
PR PRINT I NT
9130 PR PRTNT"99999999999999999999999999999
I 9130
9999
9999
~ -.99999999" IF> q
END ~ ^
E
D
E
D
U
U
C
C
A
T
O
R
S
T
o
BECOME EDUCATED
BECOME EDUCATED
Commodore Business Machines and the
ETC Corp. are offering a FREE computer
to any educational institution when they
purchase 2 CBM personal computers ... . ..
..... . and ETC will train your staff at NO
EXTRA CHARGE.
INTERESTED?
CONTACT
T
R ..
A Division of
, J •• I!
" - :-o?~. 111111 111111
S
~G[fi]IP[I!L-LSC:::
fe
1""1111111 P.O. Box G
Imi II mil p ° 8ox G
[5,]208=~ mIII III APex Apex, NN.C. c 27502
~_ III! 1111 II Illll 1111 1-919-362-4200
Special Educational Software Packages
Special Educational Software Packages
Also Available
Located 1/2 mile East of intersection of
US 1 South & Old N.C. 42 in Apex
AlARI And SRA
ATARI And SRA
Announce Educational
Agreement
Agreement
Science Research Associales, Associates, Inc. (SRA) aand
Atari lari Inc. have announced lhe the signing of a l11u multi-
lli ~
faceted agreement concerning the developmcnl development of
educational computer courseware and sale of Ara Atari
Personal Computer Systems to thee educational
community. Under the agreemcllI agreement, , SSRA R A ... will vill developp
educational computer courscware courseware programs in the
areas off reading, language arts, mathematics, lh cm mics, scic science
and social studies forr use in thc the home oonn Atari
pcrsona persona] l computers. Atari will havc have the right to
markct market SRA·developcd SRA-developed courseware programs intended nded
lo forr home use. .
SRAA will also produce aand market rkel lO to schools
a broad rangc range ooff educational computer pUler programs
designed for use in the e classroom with pcrsonal
personal
computers.
Atari has appointed inled SSRA R A as the e organization
lion
with primary rcsponsibi responsibility y forr the sales of" Atari's
personal computer r products and services to the educa ­
tional community, m which includes udcs all types oolf educa­
tionall institutions, ns, public and private e from prc·school
pie-school
through university y level.
For more information, , contact Atari® Consumer
division, 1265 Borregas Borrcgas Avenue, Sunnyvale, CCA A 94086(g
94086©