#č¤ ****************************#ň¤ * *#ü¤ * EINSTEIN V010 *#¤ * *#¤ ****************************¤ By Julian Rangeley$¤ EINSTEIN.¤ Version date 19/6/84*8¤ copyright (c) 1984 Tatung (UK) Ltd.B¤-L˙”: K~0 r 15:˙•K," ":› K:¤ START LINE 1=V“ Z s ‚:§ 1000:Z~u1: ‚:§ 1020: ŕ ‘ 3950:¤ START LINE 2`˙ƒ1j I%~1r281 tŁ D%~˙ Ő(13)t2,0:˘Ç(D%);ˆ›I%z’‡ 255,255,255,255,32,255,255,255,32,255,255,32,32,255,32,255,255,255,255,32,255,255,255,255,255,32,255,255,255,255,32&œ‡255,255,255,32,255,255,32,32,255Ś:{°‡255,32,32,32,32,32,255,32,32,255,255,32,32,255,32,255,32,32,32,32,32,32,255,32,32,32,255,32,32,32,32,32,255,32,32,255ş‡255,32,32,255Ä:{·255,32,32,32,32,32,255,32,32,255,32,255,32,255,32,255,32,32,32,32,32,32,255,32,32,32,255,32,32,32,32,32,255,32,32,255؇32,255,32,255â:vě‡255,255,255,32,32,32,255,32,32,255,32,255,32,255,32,32,255,255,32,32,32,32,255,32,32,32,255,255,255,32,32,32,255ö‡32,32,255,,32,255,32,255|‡ 255,32,32,32,32,32,255,32,32,255,32,255,32,255,32,32,32,32,255,32,32,32,255,32,32,32,255,32,32,32,32,32,255,32,32,255 ‡32,255,32,255:{‡255,32,32,32,32,32,255,32,32,255,32,32,255,255,32,32,32,32,255,32,32,32,255,32,32,32,255,32,32,32,32,32,255,32,32,255(‡32,32,255,2552:y<‡255,255,255,255,32,255,255,255,32,255,32,32,255,255,32,255,255,255,255,32,32,32,255,32,32,32,255,255,255,255,32,255"F‡255,255,32,255,32,32,255,255[P˙11:˘@0,10;"Hello I am EINSTEIN the brilliant new Home Computer from TATUNG."o14):˘GZ˘@0,14;"I will now demonstrate some of my amazing features:"ld˙11,6:˘@0,22;" Press SHIFT and BREAK at any time to end the program ";:˙15,0Kn˘@0,18;"Do you want the demonstration to run automatically(Y/N) ";%xA~ä z &DF:“ A}89 z A}78 s 1400‚“ A~89 s A%~u1: A%~0Œ: –¤ TEXT :Ş„´˘@16,0;" EINSTEIN ":˘:˘/ž˘"Here is a list of some of my features":˘MȢ"1. 64K PROGRAM MEMORY,16K READ ONLY MEMORY,16K VIDEO MEMORY.":˘QҢ"2. 16 COLOURS DISPLAY,40X24 & 32X24 TEXT,256X192 PIXEL GRAPHICS.":˘'ܢ"3. POWERFUL SPRITE CAPABILITY":˘&ć˘"4. 3 CHANNEL SOUND GENERATOR":˘:đ˘"5. INTEGRAL 500K,3 INCH FLOPPY DISC DRIVE":˘%ú˘"6. MULTIPLE I/O FOR EXPANSION" A~1 r 2000:› A 3860:":,:6¤****************@¤ MEMORY GRAPHICSJ¤****************T: ^˙ƒ1:„ h˙‚2,07r˙€ 40,40 r 80,40 r 80,191 r 40,191 r 40,40:˙50,41 |˙‚7,0g†˙€100,40 r 140,40 r 140,80 r 100,80 r 100,40:˙€ 100,80 r 100,120,2 r 140,120,2 r 140,80,2:˙110,41 ˙‚13,0;š˙€ 160,40 r 200,40 r 200,80 r 160,80 r 160,40:˙180,41&¤˘@8,20;"RAM ROM VRAM"Ž˘@17,7;"REMEMBER EINSTEIN"/¸˘@35,19;"0":˘@35,13;"16383":˘@15,0;"65535" 3860Ě:Ö¤*************************ठCOLOUR,TEXT AND GRAPHICSę¤*************************ô: ţ˙ƒ1:„  J~0r3 ˘o4)* I~0r15:˙I,0:˘ Ç(255)" ";:›I:˘:›J:˘!& I%~&20 r &7D:˘Ç(I%);:›:˘:˘0 &FB4F,32!: I%~&20 r &7D:˘Ç(I%);:›:˘:˘ D˙7,1*N I%~128 r 255:˙ Ő(13)t2,0:˘Ç(I%);:›X &FB4F,40!b˘@14,20;"GRAPHICAL EINSTEIN" l3860v:€:Š:”¤******************ž¤ SPRITE GRAPHICS¨¤******************˛:ź˙ƒ 12: ˙ 15,0: ˙‚ 15,14Ć„:Ŕ~"000000" Đ˙10,8Ú“ A% s 2030*ä˘@8,23;"Press SPACE BAR to continue"; î˙15,1 ř˘@12,6;"SPRIGHTLY EINSTEIN")˙€ 0,100 r 255,100: ˙€ 0,70 r 255,70 ˙ 0,80,14: ¤ ROAD˙€ 0,85 r 255,85,2 ˙‚ 15,0**˙† 0,"000000000000030404081F3F7F7C18"*4˙† 2,"000000000000C0A0A090FCFEFE7830",>˙† 4,"00007F020F102E4A4E211E010F000000",H˙† 6,"0000F8000080423E0CF8C020F0000000" R˙… 2\ I~255r127 pu1f˙„ 4,I,160,9,4p›z I~u20 r 330 p 1„˙„ 0,I,102,4,0Ž˙„ 2,Iu20,102,8,0˜˙„ 1,240uI,87,12,0˘˙„ 3,300uI,87,1,0'Ź“ ĺ~32 { ( A% z Ŕ~"000008")s 2250ś› Ŕ‘ 2170 Ę˙„ œÔ:ޤ**********************č¤ SOUND EFFECTSň¤**********************ü„ ¤ COLONEL BOGEY ˘@2,3;"I can play a tune" Á4:Â0,0,15,0,45,08$ ˇ"V0 G3 E5 R5 E3 F3 G3 +E3 R3 +E3 R3 +C7 R","R","R". ¤ WOLF WHISTLE8 ˘@2,5;"Or make you swoon" B Ă6,1:Ă7,110:Ă9,9:Ă1,0:Ă8,15L  I~64r32pu.35:Ă0,I:›V  I~0r150:›`  I~64r48pu.17:Ă0,I:›j  I~48r104p.5:Ă0,I:›t Ă8,0:Ă9,0~ ¤ GUNSHOT!ˆ ˘@2,7;"I can shoot you down"’  J~1 r 4œ Ă 6,15: Ă 7,71Ś Ă 8,16: Ă 9,16: Ă 10,16 ° Ă 12,16 ş Ă 13,0Ä T~Ő(2000): I~1 r T: › IÎ ›Ř ¤ FRERE JACQUESâ ˘@2,9;"Or play a round"ě Á2:Â0,0,15,0,50,0(ö A$~"V0C4DECC4DEC":B$~"V0E4FG6E4FG6"0 C$~"V0G2AGFE4CG2AGFE4C":D$~"V0C4-GC6C4-GC6" ˇA$,"R","R":ˇ,B$:ˇ,,C$:ˇD$ ˇ,"R":ˇ,,"R":ˇ"R" ˘@2,11;"Or for a lark"$( ˘@2,13;"We could try some Bach"2 Â0,0,15,0,100,0< Â1,0,13,3,100,0F Â2,0,8,3,100,0P Á 3(Z ˘@8,15;"JESU JOY OF MAN'S DESIRING"-d ˘@5,16;"THE CHORALE FROM CANTATA NO.147""n ˘@15,17;"BY J.S. BACH":§ 2730#x  I~1 r 63:¤ 126 FOR LONG TUNE‚ Ł A$,B$,C$Œ ˇ A$,B$,C$– › I"  ˇ"V0G9R1","V1=-B9R1","V2G9R1"oŞ ‡ V0R3,V1=G3,V2.G3,G3,=G3,.G3,A3,=G3,.G3,B3,D3,-G3,+D3,D3,-G3,+C3,#F3,-G3,+C3,E3,-E3,+E3,E3,-E3,+D3,A3,-E3f´ ‡ +D3,G3,=B3,+G3,G3,=B3,+#F3,A3,=B3,+G3,B3,-E3,+D3,B3,-E3,B3,G3,-E3,G3,E3,=E3,A3,E3,=E3,B3,D3,=E3fž ‡ +C3,E3,=A3,+D3,E3,=A3,+E3,E3,=A3,+D3,D3,=B3,+C3,D3,=B3,B3,D3,=B3,A3,C3,=C3,B3,C3,=C3,G3,-B3,=C3_Č ‡ #F3,C3,-D3,G3,C3,-D3,A3,D3,-D3,D3,-A3,-#F3,#F3,-A3,-#F3,A3,G3,-#F3,+C3,#F3,-D3,B3,,,A3,,gŇ ‡ B3,D3,-G3,G3,D3,-G3,A3,#F3,-G3,B3,G3,-G3,+D3,G3,-G3,+C3,#F3,-G3,+C3,E3,-C3,+E3,E3,-C3,+D3,A3,-C3NÜ ‡ +D3,G3,=B3,+G3,,,+#F3,A3,,+G3,B3,-E3,+D3,,,B3,G3,,G3,E3,-D3,A3,,,B3,G3,Lć ‡ E3,C3,-C3,+D3,,,+C3,#F3,,B3,E3,-#C3,A3,,,G3,,,D3,-A3,-D3,G3,,,#F3,C3,Wđ ‡ ,G3,-B3,=G3,B3,-B3,,+D3,G3,,+G3,B3,R3,+D3,,,B3,D3,-G3,G3,-B3,-D3,B3,,,+D3,G3,=B3Oú ‡ V1+G6,V0-B6,V1=G6,G6,-B6,-#F6,G6,C6,-E6,+D6,D6,-#F6,-B6,D6,-E6,D6,D6,-B6u ‡ +C6,C6,-E6,+C6,C6,-A6,B6,-B6,-G6,#F3,-A3,D3,A3,-A3,V0D3,,,E3,#F3,-A3,D3,A3,,,G3,V1-A3,-D3,A3,#F3,,+C3,,,B3,G3,O ‡ +C3,#F3,.D3,A3,,,#F3,,,D3,R3,R3,#F3,,,A3,D3,-D3,+C3,-A3,,B3,,,A3,#F3,-D3D ‡ B3,D3,V0-B3,G3,,,A3,,,B3,-B3,G3,D3,,,+C3,,,,C3,E3,+E3,,,+D3,,P" ‡ +D3,D3,G3,+G3,,,+#F3,,A3,+G3,V1G3,=B3,+D3,,,B3,,#F3,G3,-B3,E3,A3,,,B3,G3,], ‡ E3,-A3,-C3,+D3,-A3,-C3,+C3,-C3,-C3,B3,-B3,D3,A3,,,G3,,,D3,-A3,-D3,G3,,,#F3,,,G9,D9,-B96 ˇ "R","R","R" @ 3860J :T ¤**************^ ¤ DISC GRAPHICSh ¤**************r :| ˙ƒ13:˙‚3,1:„323† ˙€152,30 r 192,30 r 192,189 r 152,189 r 152,30+ ˙€152,83 r 192,83:˙€ 152,136 r 192,136,š ˙€35,28 r 85,28 r 85,78 r 35,78 r 35,28¤ ˙ˆ 60,53,15,1.3,0,0,0Ž A$~ć("010",66)*¸ M$(0)~"64K":M$(1)~"128K":M$(2)~"192K" ˘@25,20;"0K"'Ě ˘@3,12;"3 INCH DISC";@5,13;"DRIVE"jÖ ˘@0,1;"EINSTEIN'S internal";@0,3;"disc drive can fill";@0,5;"its memory over";@0,7;"3 times from one"ŕ ˘@0,9;"side of a disc." ę  K%~0r2!ô CL%~3t2wK%:˙ CL%,1:˙‚ CL%,1ţ Y%~1 r 53 D$~Ţ(A$,54uY%,8) ˘@11,17;D$  J%~1 r 10:›)& ˙€ 152,30tY%tK%w53 r 192,30tY%tK%w53 0 › Y%: ˙‚(3t2wK%),1D ˘@25,14u7wK%;M$(K%)N ›K%X  &FB4F,40 b 3860l :v ¤********************€ ¤ PERIPHERAL GRAPHICSŠ ¤********************” :ž ¤ COMPUTER¨ ˙ƒ1:˙15,1:„40:˙‚4,0(˛ ˙€80,60r170,60r170,140r80,140r80,60ź ˙€ r90,40r160,40r170,60Ć ¤ JOYSTICKS Đ ˙‚2,0,Ú ˙€ 195,95r205,95r205,105r195,105r195,95"ä ˙€195,95r198,85r202,85r205,95+î ˙€225,95r235,95r235,105r225,105r225,95"ř ˙€225,95r228,85r232,85r235,95 ¤ MONITOR ˙‚8,0. ˙€195,155r225,155r225,185r195,185r195,155. ˙€190,150r230,150r230,190r190,190r190,150* ¤ PRINTER 4 ˙‚13,0.> ˙€140,160r180,160r180,180r140,180r140,160&H ˙€180,175r135,175r135,170r140,170R ¤ DISC DRIVES \ ˙‚10,0+f ˙€75,160r125,160r125,180r75,180r75,160)p ˙€85,168r95,168r95,172r85,172r85,168.z ˙€105,168r115,168r115,172r105,172r105,168 „ ˘@12,0;"EXT.DISCS PRINTER"Ž ˘@32,6;"MONITOR"˜ ˘@31,15;"JOYSTICKS";˘ ˘@17,20;"EINSTEIN":˘@8,21;"E X P A N D A B I L I T Y"; Ź ˙7,4ś ˘@0,2;"TATUNG PIPE" Ŕ ˙15,1Ę ˘@1,4;"MEMORY"Ô ˘@1,5;"EXPANSION"Ţ ˘@1,6;"PERIPHERALS"#č ˙7,4:˘@0,8;"USER PORT":˙15,1ň ˘@1,10;"CONTROLLER"ü ˘@1,11;"PROGRAMMER"˘@1,12;"PLOTTER"!˙7,4:˘@0,14;"RS232";:˙15,1˘@1,16;"PRINTER"$˘@1,17;"MODEM".: 8˙‚15,0B˙€ 177,120 r 200,110LP%~&70:3800V˙€ 177,120 r 230,110`P%~&64:3800j˙€165,145 r 183,155tP%~&7E:3800~˙€ 150,145 r 160,155ˆP%~&FC:3800’˙€120,145 r 100,155œP%~&A8:3800Ś:G°Ŕ~"000000":˙11,6:˘@3,23;"Do you want to repeat the program?";:A~ĺ şA~ĺ:A~A z &DF:“ A~78 s 3970#Ä“ Ŕ}"000014" s ˙”:A%~u1:‘ 1450Γ A~89 s 1100: ‘ 3770ؤ BEEPS,PITCH SET BY P%âĂ0,P%:Ă1,0ěĂ8,&10:Ă&C,&10öĂ7,&7E:Ă&D,0 I~1r1000:› ¨“ A% s 3920 ˙11,61(˘@8,23;" Press SPACE BAR to continue";:AAA~ĺ2“ ĺ}32 ‘3890 <˙15,1F¨PŔ~"000000"Z“ Ŕ}"000005" s 3930d¨n¤ ERROR ROUTINE,x“ ŕ}0 s ˙”:˙ƒ4:˘ŕ$" error at line";á:Ž'‚“ Z s 320: ˙”:˙ƒ4:Ž:¤ FINISH LINE„JjX˙¤ FINISH LINE˙ČB˙ z‹˙˙Ŕˆ„1çČç(