[ Links | Games | Tools | 2Lines | More lives | Tips & tricks ]

Oric world

Do you know that you can transform your ugly PC into a wonderful ORIC ? Do you know that you can play with the games which made you crazy in 1983-1986 ? I began my career of developer with this fabulous little machine, for which I still have a special attachment...

You can download from this page my games and tools. You can also glance at the 2Lines, the more lives and tips & tricks too.

Oric links

• The Oric Site. Oric International.
• Welcome to Oric world !. This is the right place ! Only goodies : not too much people, passion, real friends, life in fact ! This site is driven by Fabrice Francès.
• Swedish ORIC Homepage. The Håkan Karlsson's site. Exceptional quality, great art !
• Le journal du Club Europe Oric (CEO)

Games

That I made...

• Mille bornes (10 Ko)
  My best game ! Would you play against Oric at Mile bones ? See some players comments.
• Othello (7 Ko)
  My first game. Available for only 2 (human) players...

That I copied from revues

• Schtroumpfs (4 Ko) : little arcade game for kids between 5 and 8 years old. Micro7 - "Cahier des As" (12/1984).
• Poule (6 Ko) : recognition of colors for 3-6 years old. Théoric no 16 p 47.
• Drapeaux (6 Ko) : game in which you have to recognize flags of several countries... Jean-Pierre Suau (1984).
• Pilote (10 Ko) : cars race. Frédéric Ciesielski.
• Toutou (3 Ko) : skill game. Micr'oric no 7 p 58.
• Mille pattes (2 Ko) : immortal arcade game. Micr'oric no 3 p 38.

That you can download from The Oric Page ! (legal downloads only).

Tools

Title	Topic	Source / Author
10 tris (3 Ko)	10 sort algoritms	Marc Goldstein
Arnak (2 Ko)	Music of "The entertainment" Basic + code (71CF-97FF)	Adapted by Marc Goldstein
Bin-Data	Binary-Data converter (7000-70C0)	Manuel de référence (André Chénière) Tome 2 p 42
Bytes	Display the number of bytes free	Théoric no 15 p 24
DEN	D(el) - E(dit) - N(um) (9400-97B0)	Manuel de référence (André Chénière) Tome 1 p 147
Dumpvar	List of variables with their values (9800-98E2) To use the program : CALL #9800 To print results : POKE #2F1,128:CALL#9800	l'Ordinateur Individuel no 76 p 201 (12/1985)
Fenêtres (2 Ko)	Windows by Oric...	Théoric no 13, 14 et 15
Mon+Elm (3 Ko)	Relocatable monitor + machine code editor Mon : (8A00-91FF), Elm : (9200-97FF)	Manuel de référence (André Chénière) Tome 2 p 3 à 86
Renum	Syntax : ! P(as), O(rigine), D(ébut), ou F(in) (9400-9701)	Micr'oric no 7 p 13
Reset0-2	Initialization of pages no 0, 1 and 2	Micr'oric no 9 p 56
Scat	S(auvegarde) C(hargement) A(rrêt) T(itre) (9200-93CF)	Théoric no 5 p 28
Scroll	Lateral scrolling (for Text and Hires screens) (9600-9748) Syntax : !SCROLL d x, y, z where : d = L(eft) or R(ight) x = first line to scroll : 0 (top) to 27 (bottom) y = number of lines to scroll z = number of scrollings	Théoric no 14 p 40
Using	Print using (B800-B89D) Listing ATMOS : 10 DOKE #2FC, #B800 20 POKE 0,2 30 FOR I=1 TO 20 40 PRINT &(I*SQR(I)) 50 NEXT	Micr'oric no 9 p 23
W-Cody	Putting machine code in REM	Soft & Micro p 134 (12/1984)

"2Lines"

I'm so happy to give you my programs in 2 lines...

• Applause
0 FORT=1TO30: H=RND(1)*32: W=RND(1)*4+10: SOUND4,H,0: PLAY0,1,1,750: WAITW: NEXT
  (Hebdogiciel no 73, March 8, 1985)
• Windows
10 LORES0: PRINT@0,0;: POKE#2F2,128: LIST: PRINT: PRINT: INPUT"F (5-19)";F: H=27-F: PRINT@0,0;
20 DOKE632,48040+H*40: DOKE634,48E3+H*40: DOKE636,F*40: POKE638,F: CLS: LIST: LIST
  (Hebdogiciel no 84, May 25, 1985)
• Bytes free (Atmos version)
0 DATA20,B0,CC,A5,A2,38,E5,A0,AA,A5,A3,E5,A1,20,C5,E0,A9,88, A0,ED,20,B0,CC,60
1 FORT=400TO423: READX$: X=VAL("#"+X$): POKET,X: NEXT: DOKE#1B,400
• Funny background
0 INPUT"ENTER 32<N<96";N: FORT=0TO7: POKE#B500+T,PEEK(#B800+N*8+T): NEXT
1 CALL#E5F5: INK2: PAPER0: REM CALL#E563 for ORIC-1
and try N=53, 44, 85 and 32.
• Chronometer
0 DOKE#276,0: REPEAT: UNTILKEY$<>"": A=(#FFFF-DEEK(#276))/100: C=A-INT(A)
1 C=INT(C*100+.5): M%=INT(A)/60: S=INT(A)-M%*60: PRINTM%"min"S"sec"C"cent",,A
• Clouds
0 HIRES: CURSET100,30,1: PAPER4: INK7: FORT=1TO3: FORR=1TO8+RND(1)*7: CIRCLER,1
1 NEXT: CURMOV4^T+6/T,RND(1)*5,3: NEXT
• Waves sound
0 PLAY 0, N, 4, 6000 (with N odd)
• Banner
1 T$="*** TITLE (20 cha.) ": T$=T$+T$+T$+T$: FORX=1TO40: B$=RIGHT$(T$,X)
2 PLOT0,0,B$: WAIT9: NEXT: FORX=40TO1STEP-1: C$=MID$(T$,X,40): PLOT0,0,C$: WAIT9: NEXT
• Jingle
1 Y=3: FORT=1TO6: X=INT(RND(1)*6+3): IFX=4THENX=12: IFX=6THENX=10: IFX=7THENY=4
2 MUSIC1,Y,N,0: PLAY1,0,1,500: WAIT10: NEXT: WAIT100: GOTO1
• Protection
1 DOKE#BFE0,#820: DOKE#BFE2,#4CC7: DOKE#BFE4,#C8C1: DOKE#1B,#BFE0: C=RND(1)*7
2 PLOT2,10,C: PLOT4,10,"This program is over protected!": END

More lives...

I give those codes as is because I have not yet tested them...

• 3D-Fongus : (last block) POKE#26C8,44:POKE#270A,44
• Doggy : (255 lives) POKE#1EF1,#FF
• Driver :
10 CLOAD""
20 POKE#6333,234
30 DOKE#6334,#1A9
40 CLOAD""
• Frelon : (2nd block) DOKE#7385,#EAEA:DOKE#7387,#EAEA:POKE#7389,234
• Ghost Gobbler : POKE#16EE,10:POKE10,127 ou DOKE#16ED,#EAEA:DOKE#16EF,#EAEA
• Hu*bert : 727 GOTO 700
• Lone Raider : DOKE#8E86,#EAA9:POKE#8E88,3:CALL#6A02: CALL#91E0
or POKE#6A26, number of lives
• Manic Miner : DOKE#683,#EAEA
• Mr Wimpy : POKE#4A3D,125 or POKE#4AA2,X:POKE#4ABD,X (with X less than 125)
• Psychiatric : DOKE#7839,#EAEA:POKE#783B,234
• Painter : POKE#8FC,X (with X less than 128)
• Styx : DOKE#5BDF,#EAEA:DOKE#5BF0,#31A9:DOKE#3032,#EAEA: DOKE#4D62,#EAEA
• Super Jeep : DOKE#9C,#2175, in line 545: GOSUB540 and delete the line 547
• Trouble in Store : POKE#505B, number of lives
• The Ultra : (255 lives) POKE#6B4,255, then CALL #5BD
• Xenon 1 : DOKE#6029,#EAEA:DOKE#602B,#EAEA:POKE#602D,234
• Zorgons Revenge : DOKE#836,#EAEA:POKE#838,234:DOKE#855,#EAEA:POKE#857,234: DOKE#98B,#EAEA:POKE#98D,234

Tips & tricks and miscellaneous...

Do you want to laugh ? So, look at what I found in my (secret) programming book of those years :

About FRE...
"When power is switched on, the subroutine which displays the number of free bytes (CALL #ED62) performs DEEK(#A6)-DEEK(#9A), which means MEMSIZ-TXTTAB, and returns 2 more bytes than the FRE(0) command which does DEEK(#A2)-DEEK(#A0), in fact FRETOP-STREND (dump of the ROM starting at #D47E...)."

and this one :
"We noted that in the ORIC, the < operation was about 1,3 times faster than the > or = operations." (Théoric no 7 p 22)

Astonishing, is'nt it ?

Member of The Oric Web Ring
[Prev] [Next] [Previous 5] [Next 5] [Random] [List Sites]

E-mail : marc.goldstein@noos.fr Sign my Guestbook